VB编程当输入一个正整数n时，判断n是否为素数，输出n为素数或合数

VB编程当输入一个正整数n时，判断n是否为素数，输出n为素数或合数

Private Sub Command1_Click()
Dim i%, n%
n = Val(InputBox(""))
For i = 2 To n / 2
If n Mod i = 0 Then Exit For
Next

If i >= n / 2 Then
Print n; " is su shu"
Else
Print n; " is he shu"
End If
End Sub

添加如下控件 dim shu as long private sub command1_click()     dim a as integer, w1 as integer, w2 as integer     w1 = 10 ^ val(text1)     w2 = 10 ^ (val(text1) - 1)     randomize     shu = int(rnd() * (w1 - w2)) + w2     label3.caption = "产生的随机数为：" + str(shu) end sub private sub command2_click()     label3.caption = just_ss(shu) end sub private sub form_load()     label1.caption = "随机生成一个"     label2.caption = "位整数"     label3.caption = ""     text1 = ""     command1.caption = "产生随机数"     command2.caption = "判  断" end sub function just_ss(a as long) as string     dim b as single, i as integer     b = a - 1     for i = 2 to b         if a mod i = 0 then             just_ss = cstr(a) + "  不是素数"             exit function         end if     next i     just_ss = cstr(a) + "  是素数" end function