Proses Pengulangan

Proses Pengulangan Data

 

Public Class Form1

  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim B As Integer
        For B = 2 To Val(TextBox1.Text)
            Dim tulisan As String
            Dim C As Integer
            C = B + 1
            tulisan = "*" + B.ToString + "," + C.ToString
            ListBox1.Items.Add(tulisan)
            If B Mod 4 <> 0 Then
                ListBox2.Items.Add(B)
            End If
            If B Mod 3 = 2 Then
                ListBox3.Items.Add(B)
            End If
        Next
    End Sub
End Class