我来解释一下:
Dim i as Integer,x as Integer '变量声明
x=inputbox("请输入一个正整数(>=3):","判断素数") '取得要判断的数
For i=2 To x-1 ’这句循环的意思：从2到(x-1)这个范围中，有没有可以整除x的
If x mod i =0 then exit for ’若从2到(x-1)这个范围中，有可以整除x的，跳出循环，此时i就是x的一个约数
Next i
If i>=x-1 then ’这句话有问题，我改了一下，意思是：若一直到(x-1)还没有出现可以整除x的数，则它是素数
Msgbox x & "是素数!", ,"判断结果"
Else
Msgbox x & "不是素数!", ,"判断结果"
End if
也就是说，你的代码有误，正确的代码以及解释我写在上面了，我写的单引号视中文的，不能加到vb里，你最好改一下
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024