作业帮求一个vb程序,关于产生随机数排序的.实现随机产生两位整数并排序的功能程序运行后,单击产生随机数“按钮,在图片框中输出10个随机的两位整数.单击”排序“按钮,接着输出排序结果.例如
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/27 19:44:50
求一个vb程序,关于产生随机数排序的.实现随机产生两位整数并排序的功能程序运行后,单击产生随机数“按钮,在图片框中输出10个随机的两位整数.单击”排序“按钮,接着输出排序结果.例如
求一个vb程序,关于产生随机数排序的.
实现随机产生两位整数并排序的功能
程序运行后,单击产生随机数“按钮,在图片框中输出10个随机的两位整数.
单击”排序“按钮,接着输出排序结果.
例如： 产生一维数组为：33 11 22 44 55 66 77 88 99 98
按降序排序后的一维数组为：99 98 88 77 66 55 44 33 22 11 （点击排序后出现下面这一行）
单击”退出“按钮结束程序.
求一个vb程序,关于产生随机数排序的.实现随机产生两位整数并排序的功能程序运行后,单击产生随机数“按钮,在图片框中输出10个随机的两位整数.单击”排序“按钮,接着输出排序结果.例如
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);
Next
Picture1.Print
End Sub
Private Sub Command2_Click() '排序
Dim i As Integer, j As Integer, k As Integer
For i = 0 To 8
For j = i + 1 To 9
If r(i) < r(j) Then
k = r(i): r(i) = r(j): r(j) = k
End If
Next
Picture1.Print r(i);
Next
Picture1.Print r(9)
End Sub
Private Sub Command3_Click() '退出
End
End Sub