VB求输入任意一个正整数 若该数不是一个素数 则找出一个大于它的最小素数.[分析]1:

问题补充：

VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.[分析]1:在文本框Text1中输入一个正整数,并将其赋值给N.2:判断N是否是素数,若是素数,则在文本框Text2显示N是素数,结束程序运行.3:若N不是素数则将N增加1,重复上一步骤,直到N是素数为止.

答案：

private sub command1_click()

dim n as Long

dim Nss as boolean

n=val(trim(text1.text))

if ss(n)=True then

text2.text=N= & n & 是素数

elsedo while Nss=True

n=n+1Nss=ss(N)

looptext1.text=n

text2.text=N= & n & 是素数

endifend sub

或者把这段代码放到Text1 的change事件里

Function ss(Tmp As Long) As Boolean 素数判断

ss = True

For i = 2 To Tmp / 2

If Tmp Mod i = 0 Then

ss = False

Exit Function

End If Next End Function

VB求输入任意一个正整数 若该数不是一个素数 则找出一个大于它的最小素数.[分析]1:在文本框Tex

如果觉得《VB求输入任意一个正整数 若该数不是一个素数 则找出一个大于它的最小素数.[分析]1:》对你有帮助，请点赞、收藏，并留下你的观点哦！