Mencari Bilangan Prima di VB 6.0

Unknown | 09:59 | vb6
Program ini merupakan soal MID Test semester 3 saya.

oke langsung kita buat programnya :

1. Desain form seperti gambar dibawah ini.

 2. Masukkan Script dibawah ini di form

Dim BanyaknyaBilanganPrima, i, AngkaPrima, j As Integer
Dim Prima As Boolean

Private Sub Command1_Click()
  BanyaknyaBilanganPrima = Val(Text1.Text)
  List1.Clear
  i = 0
  AngkaPrima = 2
 
  '---buat bilangan prima sebanyak yang di masukkan di textbox
  While i < BanyaknyaBilanganPrima
  Prima = True
  For j = 2 To AngkaPrima - 1
 
  '---kalo sisa baginya=0 berati bukan bilangan prima
  If AngkaPrima Mod j = 0 Then Prima = False
 
  Next j
 
  If Prima = True Then
  List1.AddItem AngkaPrima
  i = i + 1
  End If
  AngkaPrima = AngkaPrima + 1
  Wend
End Sub

3. Hasil Output Program