VB利用随机函数Rnd生成10个10-99的整数，并计算其中的素数个数。（求大神看看哪里错了？）
答案:4 悬赏:60 手机版
解决时间 2021-03-17 16:54
- 提问者网友：低吟詩仙的傷
- 2021-03-16 16:35
VB利用随机函数Rnd生成10个10-99的整数，并计算其中的素数个数。（求大神看看哪里错了？）
最佳答案
- 五星知识达人网友：往事隔山水
- 2021-03-16 17:21
n = Int(Rnd * 90 + 10)
全部回答
- 1楼网友：野味小生
- 2021-03-16 19:45
st As String
- 2楼网友：大漠
- 2021-03-16 18:53
已经改好了：
Private Sub Command1_Click()
Randomize
Dim i As Integer, j As Integer, n As Integer, nl As Integer, st As String
For i = 1 To 10
n = Int(Rnd * 99 + 10)
st = st & n & " "
For j = 2 To n - 1
If n Mod j = 0 Then Exit For
Next j
If j = n Then
nl = nl + 1
End If
Next i
Text1.Text = st
Text2.Text = nl
End Sub
Private Sub Command1_Click()
Randomize
Dim i As Integer, j As Integer, n As Integer, nl As Integer, st As String
For i = 1 To 10
n = Int(Rnd * 99 + 10)
st = st & n & " "
For j = 2 To n - 1
If n Mod j = 0 Then Exit For
Next j
If j = n Then
nl = nl + 1
End If
Next i
Text1.Text = st
Text2.Text = nl
End Sub
- 3楼网友：七十二街
- 2021-03-16 18:16
我给你优化了一下，由于最大99，所以只需要判断到9就可以了，一旦j=10，则为素数
Private Sub Command1_Click()
Randomize
Dim i As Integer, j As Integer, n As Integer, nl As Integer, st As Integer
For i = 1 To 10
n = Int(Rnd * 90 + 10)
st = st & n & " "
For j = 2 To 9
If n Mod j = 0 Then Exit For
Next j
If j = 10 Then
nl = nl + 1
End If
Next i
Text1.Text = st
Text2.Text = nl
End Sub
Private Sub Command1_Click()
Randomize
Dim i As Integer, j As Integer, n As Integer, nl As Integer, st As Integer
For i = 1 To 10
n = Int(Rnd * 90 + 10)
st = st & n & " "
For j = 2 To 9
If n Mod j = 0 Then Exit For
Next j
If j = 10 Then
nl = nl + 1
End If
Next i
Text1.Text = st
Text2.Text = nl
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯