For/Next anidados

Estoy seguro que en más de una oportunidad tendremos que utilizar For’s anidados, son muy utiles para realizar un montón de tareas.

A continuación les muestro un simple ejemplo que utiliza dos For anidades para representar las tablas de multiplicar desde el uno hasta el diez.

Creá un nuevo formulario y copia el siguiente código en el evento load.

[Code lang="vbnet"]
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tablas As New TextBox
tablas.Multiline = True
tablas.ScrollBars = ScrollBars.Vertical
tablas.Dock = DockStyle.Fill
Me.Controls.Add(tablas)
tablas.Text = “T A B L A S” & vbCrLf
tablas.Text &= “==========” & vbCrLf & vbCrLf

For i As Integer = 1 To 10
tablas.Text &= String.Format(“Tabla del {0}”, i) & vbCrLf
tablas.Text &= “——————–” & vbCrLf
For a As Integer = 1 To 10
tablas.Text &= i.ToString & ” x ” & a.ToString & ” = ” & (i * a).ToString & vbCrLf
Next
tablas.Text &= vbCrLf
Next
End Sub

[/Code]

Ahora solo resta ejecutar el programa para que muestre el resultado en el formulario.