VB判斷質，因數問題

Question

問題1：
輸入一正整數N，判斷 N 是否為質數
提示：質數定義：因數為1及本身的數字輸入即為質數

問題2：輸入一正整數N，求 N 所有的因數及其總和。
提示：可以使用Mod運算。


☆★要求： 請使用If - then – else – end if 及 For - Next

Answer 1

此程式把兩題合在一起做
Public Sub Factors()
Dim i, j, k, n, s, f(25) As Integer
Dim buf As String
Do
n = Val(InputBox("пJ n; (1 < n <= 100)"))
Loop Until (n > 1 And n <= 100)
i = 2: s = 1: f(0) = 1: j = 1: buf = "1"
For i = 2 To n
If (n Mod i = 0) Then
s = s + i
f(j) = i
j = j + 1
buf = buf & ", " & i
End If
Next i
If (j = 2) Then
Print n & " O."
Else
Print n & " O."
End If
Print "] : " & buf & " @ " & j & " ­."
Print "]`M : " & s
End Sub
如果有問題, 請來函討論. 不然, 我可能會錯失你再補充的疑點.