Variabel dan Proses Looping

Public Class Form1

    Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged

        Dim jurusan As String

        Dim kelas, jenjang As String, waktu As Integer

        Dim d As Integer

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim lo As String

        If TextBox1.Text = "TI" Then

            TextBox2.Text = " Teknik Informatika"

        Else

            If TextBox1.Text = "SI" Then

                TextBox2.Text = "Sistem Informasi"

            End If

        End If

    End Sub

End Class

Jika pada kolom input diketik TI maka begitu di jalankan akan keluar kata Teknik Informatika.

Looping pada VB

Bentuk baku dari perintah looping adalah ;

For I = 1 to N

Mod adalah intruksi untuk mengetahui sisa hasil bagi.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim j, u, y As Integer

        u = 4

        y = 7

        For j = 4 To Val(TextBox2.Text)

            If j Mod u = 0 Then

                ListBox1.Items.Add(j)

                u = j

            Else

                If j Mod y = 0 Then

                    ListBox1.Items.Add(j * -1)

                    y = j

                End If

            End If

        Next

    End Sub

End Class

Jika di input angka 100, maka ketika di klik button for maka akan tampil sebagai berikut : 4 -7 8 -14 16 -28 32 -56 64