作业帮 > 综合 > 作业

vb中将6个随机数按从小到大的顺序排列,代码是什么?

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/15 15:53:28
vb中将6个随机数按从小到大的顺序排列,代码是什么?
就是怎么用比较法来排列,把代码发过来.
Private Sub Command1_Click() Dim a(6) As Integer For i = 0 To 5 a(i) = Rnd() * 9 + 1 ' 生成1~10之间的随机数 Next i i = 0 While i < 6 ' 排序 If i = 0 Then i = i + 1 ElseIf a(i - 1)