ad esempio:
For I = 1 To 100 MsgBox("Esempio") Next
In questo modo, verrà effettuata una Msgbox ben 100 volte, ma non serve solo per questo
Dim NUMERO As Long NUMERO = TextBox1.Text For I = 2 To NUMERO - 1 If NUMERO Mod I = 0 Then MsgBox("Questo numero non è primo") Return End If Next MsgBox("Questo numero è primo")
Con questa semplice istruzione è possibile fare un programma che calcola se un numero è o non è primo, ma può anche compilare delle numerazioni!
For I As Integer = TBStart.Text To TBEnd.Text Step 'TB... = TextBox 'RTB1 = RichTextBox TB1Num.Text RTB1.Text += I.ToString RTB1.Text += " " Next
Con questo codice si possono fare le numerazioni, ora dovreste avere un'idea chiara di come si usa il For e che cosa può fare
Aggiungi un commento