Originariamente inviato da [_Kilckk_]
Mi dite per piacere perchè non funziona???
codice:
CLS
FOR I = 1 TO 3
INPUT "INSERISCI NOME", A$
IF A$ = "tizio" OR A$ = "caio" OR A$ = "amico" THEN A$ = A$ + 1
ELSE N = N + 1
NEXT I
PRINT tizio, caio, amico,
mi da errore su A$=A$ + 1
Grazie per il vostro aiuto.
tradotto in vb6 viene cosi' (se nn ho capito male)
codice:
Dim az As String
Dim ntizio, ncaio, namico As Integer
Private Sub Command1_Click()
Cls
ntizio = 0
ncaio = 0
namico = 0
For I = 1 To 12
az = InputBox("INSERISCI NOME candidato")
If az = "tizio" Then ntizio = ntizio + 1
If az = "caio" Then ncaio = ncaio + 1
If az = "amico" Then namico = namico + 1
Next I
Text1.Text = "tizio:" & ntizio & "caio:" & ncaio & "amico:" & namico
End Sub
vedi se riesci ad adattarlo in qbasic (quanti ricordi )
text1.text puo essere sostituito dal print (qbasic)
la sintassi az = InputBox("INSERISCI NOME candidato")
puoi cambiarla in INPUT "INSERISCI NOME", az (qbasic)