Jum'at, 4 Maret 2011
Pertemuan ke iv
Pengulangan dengan menggunakan For tetapi dengnan menggunakan ListBok lebih dari 1, maka contoh programnya adalah sebagai berikut:
Source Code :
Public Class Form4
Dim j As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
For j = 2 To Val(TextBox1.Text)
ListBox1.Items.Add("*" + j.ToString + "." + (j + 1).ToString)
Next
ListBox2.Items.Clear()
For j = 1 To Val(TextBox1.Text)
If j Mod 4 <> 0 Then
ListBox2.Items.Add(j)
End If
Next
ListBox3.Items.Clear()
For j = 1 To Val(TextBox1.Text)
If j Mod 3 = 2 Then
ListBox3.Items.Add(j)
End If
Next
End Sub
End Class
Catatan :
- Langkah pertamanya sama dengan program sebelumnya yang berbeda hanya desain dan