程式語言的問題!!(緊急的唷!)

Question

題目:

讓使用者輸入ㄧ數字 .. 列出質數 ..

例:使用者輸入10 則列出2.3.5.7

請使用 Do Loop Until 列出程式!!

不可以使用 Fox Next !!

會的 就請幫這個忙唷!!

太感激不盡ㄌ!! >O<

Answer 1

Private Sub Form_Activate()
Dim a, b, c, n As Integer
Dim str As String
str = ""
a = 2
n = InputBox("請輸入一個大於1的數")
If n > 1 Then
Do
b = 2
c = 0
Do
If (a Mod b <> 0) Then
c = c + 1
End If
If (c = (a - 2)) Then
str = str + CStr(a) + " "
Exit Do
End If
b = b + 1
Loop Until (b > a)
a = a + 1
Loop Until (n < a)
MsgBox (str)
Else
MsgBox ("輸入的數小於2，程式結束")
End If
End
End Sub

有疑問在提出吧!!