百度作业网求一个vb程序,关于产生随机数排序的.
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/05/01 18:48:26
求一个vb程序,关于产生随机数排序的.
实现随机产生两位整数并排序的功能
程序运行后,单击产生随机数“按钮,在图片框中输出10个随机的两位整数.
单击”排序“按钮,接着输出排序结果.
例如： 产生一维数组为：33 11 22 44 55 66 77 88 99 98
按降序排序后的一维数组为：99 98 88 77 66 55 44 33 22 11 （点击排序后出现下面这一行）
单击”退出“按钮结束程序.
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 Su
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 Su