vb中判断质数的程序
答案:1 悬赏:0 手机版
解决时间 2021-11-22 07:29
- 提问者网友：未信
- 2021-11-21 13:44
vb中判断质数的程序
最佳答案
- 五星知识达人网友：洎扰庸人
- 2021-11-21 14:52
Private Sub Command1_Click()
Dim n As Integer, i As Integer
n = Val(InputBox("输入一个大于1的正整数"))
For i = 2 To n - 1
If n Mod i = 0 Then Exit For
Next i
If i > n - 1 Then
Print n; "是质数"
Else
Print n; "不是质数"
End If
End Sub来自：求助得到的回答
Dim n As Integer, i As Integer
n = Val(InputBox("输入一个大于1的正整数"))
For i = 2 To n - 1
If n Mod i = 0 Then Exit For
Next i
If i > n - 1 Then
Print n; "是质数"
Else
Print n; "不是质数"
End If
End Sub来自：求助得到的回答
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯