Contoh Program Visual Basic 2010 : Latihan 14

'Latihan 14 (Perkalian)

             'Tampilan Form

'Coding

Public Class frmLat_14

    Dim jbaris, jkolom, hasil As Integer

    Dim cetakkolom, cetakbaris As String

    Sub perkalian()

        Dim baris, kolom As Integer

        'Cetak di listbox

        jbaris = 10

        jkolom = 10

        For baris = 1 To jbaris

            For kolom = 1 To jkolom

                cetakkolom = baris & " x " & kolom & " = " & (baris * kolom) & Chr(13)

                Me.lsPerkalian.Items.Add(cetakkolom)

            Next

            Me.lsPerkalian.Items.Add(Chr(13))

        Next

        'Cetak di richtextbox

        baris = 1

        While (baris <= jbaris)

            kolom = 1

            While (kolom <= jkolom)

                cetakkolom = baris & " x " & kolom & " = " & (baris * kolom) & Chr(13)

                Me.rtxPerkalian.AppendText(cetakkolom)

                kolom += 1

            End While

            'Code untuk pindah ke atas / baris 1 dan digeser kenama sebanyak 15-20 karakter

            Me.rtxPerkalian.AppendText(Chr(13))

            baris += 1

        End While

    End Sub

    Private Sub frmLat_14_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub frmLat_14_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub frmLat_14_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Call perkalian()

    End Sub

End Class