求一个vb程序,关于产生随机数排序的.实现随机产生两位整数并排序的功能程序运行后,单击产生随机数“按钮,在图片框中输出10个随机的两位整数.单击”排序“按钮,接着输出排序结果.例如： 产生一维数组为：33 11 22 44 55 66 77 88 99 98
网友回答
Dim r(9) As Integer
Private Sub Command1_Click() '产生随机数
Dim i As Integer
Randomize
For i = 0 To 9
r(i) = Int(Rnd * 90) + 10
Picture1.Print r(i);
NextPicture1.Print
End Sub
Private Sub Command2_Click() '排序
Dim i As Integer
, j As Integer, k As IntegerFor i = 0 To 8
For j = i + 1 To 9
If r(i) k = r(i): r(i) = r(j): r(j) = k
End If Next Picture1.Print r(i);
NextPicture1.Print
r(9)End Sub
Private Sub Command3_Click() '退出
EndEnd Sub