Pour / Suivant imbriqué

Je suis sûr que plus d'une occasion que nous avons à utiliser Pour la imbriqués, sont très utiles pour beaucoup de devoirs.

Puis je montre un exemple simple qui utilise deux imbriqués Pour représenter les tables de multiplication de une à dix.

Créer un nouveau formulaire et de copier le code suivant dans l'événement de chargement.

[Code lang = "VBNET"]
Private Sub Form1_Load (ByVal expéditeur Comme System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Table As New TextBox
tablas.Multiline = True
tablas.ScrollBars = ScrollBars.Vertical
tablas.Dock = DockStyle.Fill
Me.Controls.Add (tableaux)
tablas.Text = "Tableau S" & vbCrLf
tablas.Text & = "==========" & vbCrLf & vbCrLf

Pour i As Integer = 1 To 10
tablas.Text & = String.Format ("Tableau {0}", i) & vbCrLf
tablas.Text & = "-------" & vbCrLf
Pour un As Integer = 1 To 10
tablas.Text & = & i.ToString "x" & a.ToString & "=" & (i * a). ToString & vbCrLf
Prochain
& VbCrLf = tablas.Text
Prochain
End Sub

[/ Code]

Maintenant ne reste plus qu'à exécuter le programme pour afficher le résultat sur le formulaire.