VB 编程题 产生30个两位随机整数、并按从小到大的顺序存入数组a中，再将其中的奇数按从小到大的顺序在窗体

Question

如题所述

Answer 1

Dim a(1 To 30) As Integer
Private Sub Command1_Click()
Randomize
Print "排序前:",
For i = 1 To 30
a(i) = Int(89 * Rnd) + 10
Print a(i);
Next i
Print
Print "排序后:",
For i = 1 To 30
For j = i + 1 To 30
If a(i) > a(j) Then
tmp = a(i)
a(i) = a(j)
a(j) = tmp
End If
Next j
Print a(i);
Next i
Print
Print "排序后奇数:",
For i = 1 To 30
If a(i) Mod 2 = 1 Then Print a(i);
Next
End Sub本回答被提问者采纳