VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.[分析]1:在文本框Text1中输入一个正整数,并将其赋值给N.2:判断N是否是素数,若是素数,则在文本框Text2显示N是素数,
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 17:12:28
![VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.[分析]1:在文本框Text1中输入一个正整数,并将其赋值给N.2:判断N是否是素数,若是素数,则在文本框Text2显示N是素数,](/uploads/image/z/7865611-43-1.jpg?t=VB%E6%B1%82%E8%BE%93%E5%85%A5%E4%BB%BB%E6%84%8F%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%2C%E8%8B%A5%E8%AF%A5%E6%95%B0%E4%B8%8D%E6%98%AF%E4%B8%80%E4%B8%AA%E7%B4%A0%E6%95%B0%2C%E5%88%99%E6%89%BE%E5%87%BA%E4%B8%80%E4%B8%AA%E5%A4%A7%E4%BA%8E%E5%AE%83%E7%9A%84%E6%9C%80%E5%B0%8F%E7%B4%A0%E6%95%B0.%5B%E5%88%86%E6%9E%90%5D1%3A%E5%9C%A8%E6%96%87%E6%9C%AC%E6%A1%86Text1%E4%B8%AD%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%2C%E5%B9%B6%E5%B0%86%E5%85%B6%E8%B5%8B%E5%80%BC%E7%BB%99N.2%3A%E5%88%A4%E6%96%ADN%E6%98%AF%E5%90%A6%E6%98%AF%E7%B4%A0%E6%95%B0%2C%E8%8B%A5%E6%98%AF%E7%B4%A0%E6%95%B0%2C%E5%88%99%E5%9C%A8%E6%96%87%E6%9C%AC%E6%A1%86Text2%E6%98%BE%E7%A4%BAN%E6%98%AF%E7%B4%A0%E6%95%B0%2C)
VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.[分析]1:在文本框Text1中输入一个正整数,并将其赋值给N.2:判断N是否是素数,若是素数,则在文本框Text2显示N是素数,
VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.
[分析]1:在文本框Text1中输入一个正整数,并将其赋值给N.2:判断N是否是素数,若是素数,则在文本框Text2显示N是素数,结束程序运行.3:若N不是素数则将N增加1,重复上一步骤,直到N是素数为止.
VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.[分析]1:在文本框Text1中输入一个正整数,并将其赋值给N.2:判断N是否是素数,若是素数,则在文本框Text2显示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 & " 是素数"
else
do while Nss=True
n=n+1
Nss=ss(N)
loop
text1.text=n
text2.text="N=" & n & " 是素数"
endif
end 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