VB输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数Dim n As Intege
答案:2 悬赏:50 手机版
解决时间 2021-02-28 23:16
- 提问者网友：抽煙菂渘情少年
- 2021-02-28 01:24
VB输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数Dim n As Intege
最佳答案
- 五星知识达人网友：第幾種人
- 2021-02-28 02:32
Dim n As Integer, i As IntegerDim flg As Boolean n = Val(Text1.Text) n = n + 1 For i = 2 To Sqr(n) If n Mod i = 0 Then Exit For Next i If i > Sqr(n) Then flg = True If flg = True Then Text2.Text = CStr(n) & 是素数 Else Do n = n + 1 For i = 2 To Sqr(n) If n Mod i = 0 Then Exit For Next i If i > Sqr(n) Then flg = True Loop Until flg = True Label2.Caption = 大于 & Text1.Text & 的最小素数是 Text2.Text = CStr(n) End If
全部回答
- 1楼网友：woshuo
- 2021-02-28 02:42
感谢回答
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯