VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.[分析]1:在文本框Tex
答案:2 悬赏:80 手机版
解决时间 2021-03-05 11:08
- 提问者网友：却不属于对方
- 2021-03-04 20:53
VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.[分析]1:在文本框Tex
最佳答案
- 五星知识达人网友：笑迎怀羞
- 2021-03-04 21:30
private sub command1_click()dim n as Longdim Nss as booleann=val(trim(text1.text))if ss(n)=True thentext2.text=N= & n & 是素数elsedo while Nss=Truen=n+1Nss=ss(N)looptext1.text=ntext2.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
全部回答
- 1楼网友：像个废品
- 2021-03-04 22:06
这个答案应该是对的
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯