Aplikasi Perkalian
- Form Design
- Code
Dim jbaris, jkolom, hasil As Integer
Dim cetakkolom, cetakbaris As String
Sub perkalian()
Dim baris, kolom As Integer
'cetak di list box
jbaris = 2
jkolom = 10
For baris = 1 To jbaris
For kolom = 1 To jkolom
cetakkolom = baris & " x " & kolom & " = " & (baris * kolom) & Chr(13)
Me.ListBox_Perkalian.Items.Add(cetakkolom)
Next
Me.ListBox_Perkalian.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.RichTextBox_Perkalian.AppendText(cetakkolom)
kolom += 1
End While
Me.RichTextBox_Perkalian.AppendText(Chr(13))
baris += 1
End While
End Sub
Private Sub Lat_14_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call perkalian()
End Sub
- Start Debugging
