求住一道计算机VB题:只要代码即可利用随机函数产生80个10~99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇数按由大到小的顺序排列并输出;在产生的80个随机整数中,找
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 19:34:51
![求住一道计算机VB题:只要代码即可利用随机函数产生80个10~99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇数按由大到小的顺序排列并输出;在产生的80个随机整数中,找](/uploads/image/z/8560180-28-0.jpg?t=%E6%B1%82%E4%BD%8F%E4%B8%80%E9%81%93%E8%AE%A1%E7%AE%97%E6%9C%BAVB%E9%A2%98%EF%BC%9A%E5%8F%AA%E8%A6%81%E4%BB%A3%E7%A0%81%E5%8D%B3%E5%8F%AF%E5%88%A9%E7%94%A8%E9%9A%8F%E6%9C%BA%E5%87%BD%E6%95%B0%E4%BA%A7%E7%94%9F80%E4%B8%AA10%EF%BD%9E99%E4%B9%8B%E9%97%B4%E7%9A%84%E9%9A%8F%E6%9C%BA%E6%95%B4%E6%95%B0%2C%E5%B0%86%E5%85%B6%E4%B8%AD%E7%9A%84%E5%81%B6%E6%95%B0%E6%8C%89%E7%94%B1%E5%B0%8F%E5%88%B0%E5%A4%A7%E7%9A%84%E9%A1%BA%E5%BA%8F%E6%8E%92%E5%88%97%E5%B9%B6%E8%BE%93%E5%87%BA%2C%E5%B0%86%E5%A5%87%E6%95%B0%E6%8C%89%E7%94%B1%E5%A4%A7%E5%88%B0%E5%B0%8F%E7%9A%84%E9%A1%BA%E5%BA%8F%E6%8E%92%E5%88%97%E5%B9%B6%E8%BE%93%E5%87%BA%EF%BC%9B%E5%9C%A8%E4%BA%A7%E7%94%9F%E7%9A%8480%E4%B8%AA%E9%9A%8F%E6%9C%BA%E6%95%B4%E6%95%B0%E4%B8%AD%2C%E6%89%BE)
求住一道计算机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