在VB中，如何利用while，wend循环，写出判断素数

来源：百度知道 编辑：UC知道 时间：2024/05/26 00:39:59
画一个text，和一个command，在text中输入数字，单击command时，判断输入的数字，是否，时素数，是的话，在窗体上print “是素数”如果不是，print“不是素数”。要用while wend 当循环。
不是用DO LOOP循环，是用while wend

完整代码：
Private Sub Command_click()
Dim a As Integer
Dim s As Integer
a = 2
s = Val(Text1.Text)
Do While s>a
If s Mod a = 0 Then
Exit Do
End If
a = a+1
Loop
If s=a Then
Print "非质数"
Else
Print "质数"
End If
End Sub