利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列vb语言.
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 15:58:16
![利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列vb语言.](/uploads/image/z/7807989-21-9.jpg?t=%E5%88%A9%E7%94%A8%E9%9A%8F%E6%9C%BA%E5%87%BD%E6%95%B0%E4%BA%A7%E7%94%9F100%E4%B8%AA10%7E99%E4%B9%8B%E9%97%B4%E7%9A%84%E9%9A%8F%E6%9C%BA%E6%95%B4%E6%95%B0%2C%E6%89%BE%E5%87%BA%E5%85%B6%E4%B8%AD%E7%9A%84%E5%A5%87%E6%95%B0%E5%92%8C%E7%B4%A0%E6%95%B0%2C%E5%B9%B6%E5%B0%86%E5%A5%87%E6%95%B0%E6%8C%89%E4%BB%8E%E5%B0%8F%E5%88%B0%E5%A4%A7%E7%9A%84%E9%A1%BA%E5%BA%8F%E6%8E%92%E5%88%97vb%E8%AF%AD%E8%A8%80.)
利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列vb语言.
利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列
vb语言.
利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列vb语言.
Private Sub Command1_Click()
Dim a(100) As Integer,x As Integer
For i = 1 To 100
If sushu(i) Then Print i;
If i Mod 10 = 0 Then Print
Next i
Print
Print "100个随机数:"
For i = 1 To 100
x = Int(Rnd() * 90 + 10)
Print x;
a(x) = a(x) + 1
If i Mod 10 = 0 Then Print
Next i
Print
Print "从小到大的奇数:"
k = 0
For i = 1 To 100
If i Mod 2 = 1 And a(i) > 0 Then
For j = 1 To a(i)
Print i;
k = k + 1
If k Mod 10 = 0 Then Print
Next j
End If
Next i
Print
Print "其中的素数有:"
k = 0
For i = 1 To 100
If a(i) > 0 And sushu(i) Then
For j = 1 To a(i)
Print i;
k = k + 1
If k Mod 10 = 0 Then Print
Next j
End If
Next i
End Sub
Function sushu(ByVal n As Integer) As Boolean
sushu = False
If n