For / Next nestet

Jeg er sikker mer enn en mulighet vi må bruke for sin nestes, er svært nyttig for mange lekser.

Så jeg viser et enkelt eksempel som bruker to nestet For å representere gangetabellen 1-10.

Opprett et nytt skjema og kopiere følgende kode i lasten arrangementet.

[Kode lang = "vbnet"]
Private Sub Form1_Load (ByVal sender Som System.Object, ByVal e Som System.EventArgs) Handles MyBase.Load
Dim tabell som ny TextBox
tablas.Multiline = True
tablas.ScrollBars = ScrollBars.Vertical
tablas.Dock = DockStyle.Fill
Me.Controls.Add (tabeller)
tablas.Text = "Table S" & vbCrLf
tablas.Text & = "==========" & vbCrLf & vbCrLf

For jeg As Integer = 1 til 10
tablas.Text & = String.Format ("Table {0}", i) og vbCrLf
tablas.Text & = "-------" & vbCrLf
For en As Integer = 1 til 10
tablas.Text & = i.ToString & "x" & a.ToString & "=" & (i * a). toString & vbCrLf
Neste
& = VbCrLf tablas.Text
Neste
End Sub

[/ Code]

Nå gjenstår bare å kjøre programmet for å vise resultatet på skjemaet.