Private Sub Form_Load()
'ii = FreeFile
'Open "D:\contoh.txt" For Output As #ii
Dim p(9999), pf(9999)

mn = 2
nm = 9999

sn = 1024
'
For i = 2 To Int(Sqr(sn))
If sn Mod i = 0 Then GoTo 11
Next i
MsgBox sn: MsgBox "is a prime number"
'Print #ii, sn, "is a prime number"
GoTo 333
11 abcdef = 1111


'nm = Int(Sqr(sn))
k = 0
For n = mn To nm
srn = Sqr(n)
isrn = Int(srn)
For i = 2 To isrn
If n Mod i = 0 Or srn = isrn Then GoTo 1
Next i
k = k + 1
p(k) = n

1 Next n
'
'MsgBox k
'
For i = 1 To k
'Print #ii, p(i)
Next i

For i = 1 To k
pf(i) = 0
Next i

srn = Sqr(sn)
isrn = Int(srn)
csn = sn
For i = 1 To k
Do While csn Mod p(i) = 0
csn = csn / p(i)
pf(i) = pf(i) + 1
Loop
111 Next i


For iiii = 2 To Int(Sqr(csn))
If csn Mod i = 0 Then GoTo 1111
Next iiii
ptc = 1
For i = 1 To k
'If pf(i) <> 0 Then ptc = ptc * p(i) ^ pf(i): Print #ii, i, pf(i), p(i)
If pf(i) <> 0 Then ptc = ptc * p(i) ^ pf(i)
'If pf(i) <> 0 Then Print #ii, p(i), "^", pf(i), "*"
If pf(i) <> 0 Then MsgBox p(i): MsgBox "^": MsgBox pf(i): MsgBox "*"
Next i

2 gfgfhgfdr = 5567

If ptc = 1 Then MsgBox sn: MsgBox "is a prime number": GoTo 333

ptc = ptc * csn

'Print #ii, csn, "^ 1"
MsgBox csn: MsgBox "^ 1"
GoTo 22
1111 abcd = 1

For i = 1 To k
'Print #ii, i, pf(i), p(i)
Next i

22 gfgfhgfdr = 5567

'Print #ii, sn, ptc
If sn = ptc Then MsgBox "corrrect"
If sn <> ptc Then MsgBox "wrong"

333 End Sub