UC知道VB数组程序习题
来源：百度知道 编辑：UC知道 时间：2024/05/15 17:40:23
在窗体上设计两个命令按钮，一个产生30个互不相同的随机两位数，赋值给数组N（30）并在窗体上每行输出10个数据，；另一个按钮采用选择法进行从大到小的排序，并输出。
Option Explicit
Dim n(30) As Integer, i%, j%
Private Sub Command1_Click() '产生符合要求的数
Dim q%, p%
Randomize
Do While q < 30
p = Int(Rnd * 90) + 10
For j = 1 To q - 1
If p = n(i) Then Exit For
Next j
If j > q - 1 Then
q = q + 1
n(q) = p
Print p;
If q Mod 10 = 0 Then Print
End If
Loop
End Sub
Private Sub Command2_Click() '排序
Dim w As Integer
For i = 1 To 29
For j = i + 1 To 30
If n(i) < n(j) Then
w = n(i): n(i) = n(j): n(j) = w
End If
Next j
Next i
For i = 1 To 30
Print n(i);
If i Mod 10 = 0 Then Print
Next i
End Sub
搞定了，代码如上！