作业帮求住一道计算机VB题：只要代码即可利用随机函数产生80个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中,找
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/09 16:23:33
求住一道计算机VB题：只要代码即可利用随机函数产生80个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中,找
求住一道计算机VB题：只要代码即可
利用随机函数产生80个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中,找出其中的素数,并将这些素数求和
求住一道计算机VB题：只要代码即可利用随机函数产生80个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中,找
Private Sub Command1_Click()
Dim a(1 To 80) As Integer
Dim b(1 To 80) As Integer
Dim c(1 To 80) As Integer
Dim d(1 To 80) As Integer
Dim i, j, t, k, p As Integer
p = 1
k = 1
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
For i = 1 To 80
a(i) = Int(89 * Rnd + 10)
If ((a(i) Mod 2) = 0) Then
b(p) = a(i)
Text2.Text = Text2.Text + Str(b(p))
p = p + 1
Else
c(k) = a(i)
Text3.Text = Text3.Text + Str(c(k))
k = k + 1
End If
Text1.Text = Text1.Text + Str(a(i))
Next
For i = 1 To p - 1
For j = 1 To p - 1 - i
If (b(j) > b(j + 1)) Then
t = b(j)
b(j) = b(j + 1)
b(j + 1) = t
End If
Next
Next
Text2.Text = Text2.Text + vbCrLf
For i = 1 To p - 1
Text2.Text = Text2.Text + Str(b(i))
Next
For i = 1 To k - 1
For j = 1 To k - 1 - i
If (c(j) < c(j + 1)) Then
t = c(j)
c(j) = c(j + 1)
c(j + 1) = t
End If
Next
Next
Text3.Text = Text3.Text + vbCrLf
For i = 1 To k - 1
Text3.Text = Text3.Text + Str(c(i))
Next
t = 0
Text4.Text = ""
For i = 1 To 80
j = 2
While (j < Int(a(i) / 2))
If ((a(i) Mod j) = 0) Then
GoTo bbb
End If
j = j + 1
Wend
bbb: If (j >= Int(a(i) / 2)) Then
t = t + a(i)
Text4.Text = Text4.Text + Str(a(i))
End If
Next
Text4.Text = Text4.Text + vbCrLf + Str(t)
End Sub