求VB高手:键盘输入一个正整数,找出大于或等于该数的第一个素数.怎么编写程序代码啊?
答案:1 悬赏:20 手机版
解决时间 2021-03-16 22:35
- 提问者网友：藍了天白赴美
- 2021-03-16 02:57
求VB高手:键盘输入一个正整数,找出大于或等于该数的第一个素数.怎么编写程序代码啊?
最佳答案
- 五星知识达人网友：怙棘
- 2021-03-16 03:11
Private Sub Command1_Click()
Dim i%
Randomize
For i = 1 To 30
Print Int(Rnd * 100 + 1);
If i Mod 10 = 0 Then Print
Next
End Sub
Private Sub Command2_Click()
Dim i%, n%, m As Boolean
n = Val(InputBox("输入一个正整数吧！"))
Print "正整数:"; n
Do
m = False
For i = 2 To n - 1
If n Mod i = 0 Then m = True: Exit For
Next
If m = False Then Exit Do
n = n + 1
Loop
Print "大于或等于该数的第一个素数:"; n
End Sub
Dim i%
Randomize
For i = 1 To 30
Print Int(Rnd * 100 + 1);
If i Mod 10 = 0 Then Print
Next
End Sub
Private Sub Command2_Click()
Dim i%, n%, m As Boolean
n = Val(InputBox("输入一个正整数吧！"))
Print "正整数:"; n
Do
m = False
For i = 2 To n - 1
If n Mod i = 0 Then m = True: Exit For
Next
If m = False Then Exit Do
n = n + 1
Loop
Print "大于或等于该数的第一个素数:"; n
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯