求一个vb程序,关于产生随机数排序的.实现随机产生两位整数并排序的功能程序运行后,单击产生随机数“按钮,在图片框中输出10个随机的两位整数.单击”排序“按钮,接着输出排序结果.例如
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 20:13:53
![求一个vb程序,关于产生随机数排序的.实现随机产生两位整数并排序的功能程序运行后,单击产生随机数“按钮,在图片框中输出10个随机的两位整数.单击”排序“按钮,接着输出排序结果.例如](/uploads/image/z/2632811-59-1.jpg?t=%E6%B1%82%E4%B8%80%E4%B8%AAvb%E7%A8%8B%E5%BA%8F%2C%E5%85%B3%E4%BA%8E%E4%BA%A7%E7%94%9F%E9%9A%8F%E6%9C%BA%E6%95%B0%E6%8E%92%E5%BA%8F%E7%9A%84.%E5%AE%9E%E7%8E%B0%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F%E4%B8%A4%E4%BD%8D%E6%95%B4%E6%95%B0%E5%B9%B6%E6%8E%92%E5%BA%8F%E7%9A%84%E5%8A%9F%E8%83%BD%E7%A8%8B%E5%BA%8F%E8%BF%90%E8%A1%8C%E5%90%8E%2C%E5%8D%95%E5%87%BB%E4%BA%A7%E7%94%9F%E9%9A%8F%E6%9C%BA%E6%95%B0%E2%80%9C%E6%8C%89%E9%92%AE%2C%E5%9C%A8%E5%9B%BE%E7%89%87%E6%A1%86%E4%B8%AD%E8%BE%93%E5%87%BA10%E4%B8%AA%E9%9A%8F%E6%9C%BA%E7%9A%84%E4%B8%A4%E4%BD%8D%E6%95%B4%E6%95%B0.%E5%8D%95%E5%87%BB%E2%80%9D%E6%8E%92%E5%BA%8F%E2%80%9C%E6%8C%89%E9%92%AE%2C%E6%8E%A5%E7%9D%80%E8%BE%93%E5%87%BA%E6%8E%92%E5%BA%8F%E7%BB%93%E6%9E%9C.%E4%BE%8B%E5%A6%82)
求一个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