Looping bagian 4

Akan menampilkan form seperti ini

Kemudian kita isi perintah dalam program :
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()

For i = 2 To Val(TextBox1.Text)
ListBox1.Items.Add("*" + i.ToString + "," + (i + 1).ToString)
Next

For i = 1 To Val(TextBox1.Text)
If i Mod 4 Then
ListBox2.Items.Add(i)
End If
Next

For i = 1 To Val(TextBox1.Text)
If i Mod 3 = 2 Then
ListBox3.Items.Add(i)
End If
Next
End Sub
End Class

Sekian dan untuk latihan