VB 6.0 mencari bilangan prima

form1

label1 > caption > masukan bilangan

label2 > caption > prima

label3 > caption > bukan prima

text1 > text > "kosongkan"

Check1

Check2

List1

List2

command1 > caption > proses

command2 > caption > exit

command3 > caption > clear

untuk source code nya

Option Explicit

Public a As Long

Public b As Long

Public c As Long

Public d As Long

Public prima As Integer

Private Sub Command1_Click()

For a = 1 To Val(Text1)

d = 0

For b = a To 1 Step -1

If a Mod b = 0 Then

d = d + 1

End If

Next b

If d = 2 Then

prima = a

List1.AddItem a

Else

List2.AddItem a 'menambahkan a pada listbox2

End If

Next a

If prima = Val(Text1) Then

Check1 = 1

Else

Check2 = 1

End If

End Sub

Private Sub Command3_Click()

Text1.Text = ""

List1.Clear

List2.Clear

Check2 = 0

Check1 = 0

End Sub

Private Sub Command2_Click()

end

End Sub

hasil run

atau download source code nya

mencari bilangan prima vb 6.0.rar