作业帮利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列vb语言.
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/28 22:53:01
利用随机函数产生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