Đối với / Tiếp lồng nhau

Tôi chắc chắn nhiều hơn một cơ hội chúng ta phải sử dụng Đối với của lồng nhau, rất hữu ích cho rất nhiều bài tập về nhà.

Sau đó, tôi cho thấy một ví dụ đơn giản sử dụng hai lồng nhau Đối với đại diện các bảng nhân 1-10.

Tạo một hình thức mới và sao chép đoạn mã sau trong sự kiện load.

[Mã số lang = "vbnet]
Private Sub Form1_Load (ByVal sender As System.Object, ByVal e Như System.EventArgs) Handles MyBase.Load
Bảng Dim As New TextBox
tablas.Multiline = True
tablas.ScrollBars = ScrollBars.Vertical
tablas.Dock = DockStyle.Fill
Me.Controls.Add (bảng)
tablas.Text = "Bảng S" & vbCrLf
tablas.Text & = "==========" & vbCrLf & vbCrLf

Đối với i As Integer = 1 - 10
tablas.Text & = String.Format ("Bảng {0}", i) & vbCrLf
tablas.Text & = "-------" & vbCrLf
Đối với As Integer = 1 - 10
tablas.Text = i.ToString & "x" a.ToString & "=" & (i * a). ToString & vbCrLf
Tiếp theo
& = VbCrLf tablas.Text
Tiếp theo
End Sub

[/ Code]

Bây giờ chỉ còn lại để chạy chương trình để hiển thị các kết quả trên biểu mẫu.