作业帮VB排序题.：随即产生10个2位数,按从大到小递减的顺序排列,并显示排序结果.急
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/11/08 08:57:28
VB排序题.：随即产生10个2位数,按从大到小递减的顺序排列,并显示排序结果.急
我是新生,
我是新生,
Private Sub form_click()
Randomize
Dim tmp As Integer
Dim a(1 To 10) As Integer
Print "排序前为：" '可删除
For i = 1 To 10 '开始随机生成10个数
a(i) = Int(Rnd * 89+10)
Print a(i); ‘可删除
Next i
Print ’可删除
'开始插入排序
For i = 2 To 10
If a(i) > a(i - 1) Then
tmp = a(i)
For j = i - 1 To 1 Step -1
If tmp < a(j) Then Exit For
a(j + 1) = a(j)
Next j
a(j + 1) = tmp
End If
Next i
Print "排序结果："
For i = 1 To 10
Print a(i);
Next i
Print
End Sub
这个程序将排序前随机的数也显示出来了,比较直观,若不需要删除即可（有可删除标注）.
Randomize
Dim tmp As Integer
Dim a(1 To 10) As Integer
Print "排序前为：" '可删除
For i = 1 To 10 '开始随机生成10个数
a(i) = Int(Rnd * 89+10)
Print a(i); ‘可删除
Next i
Print ’可删除
'开始插入排序
For i = 2 To 10
If a(i) > a(i - 1) Then
tmp = a(i)
For j = i - 1 To 1 Step -1
If tmp < a(j) Then Exit For
a(j + 1) = a(j)
Next j
a(j + 1) = tmp
End If
Next i
Print "排序结果："
For i = 1 To 10
Print a(i);
Next i
End Sub
这个程序将排序前随机的数也显示出来了,比较直观,若不需要删除即可（有可删除标注）.
VB排序题.：随即产生10个2位数,按从大到小递减的顺序排列,并显示排序结果.急
1、随机产生10个10－99范围内的整数,分别用选择和冒泡法将数据按从大到小递减的顺序排列,并显示排序结果
VB语言随机产生10个10-99内的整数,分别用冒泡法和选择法将数据从大到小排序并显示结果
VB编程题目单击按钮随机产生5个0-9之间不同的整数并排序,试求出5个数能组合的所有5位数显示在文本框中,并求出最大数和
求C++程序：任意从键盘输入10个整数,按从小到大的顺序排序,并输出结果.
vb中利用随机函数产生30个不同的三位正整数,打印出这30个数,然后将它们按从大到小的次序排序
用VB编写一程序,产生20个0~100的随机数,并用子过程的方法按从大到小的顺序排列显示
用vb编一个程序!随机产生十个三位数,实现从小到大和从大到小的排序,并计算这十个三位数的和
VB随机产生10个100到200之间的整数,将其按从大到小顺序排列
随即产生30-100（包括30和100）的10个正整数,求最大值最小值平均值并显示整个组数的值和结果
vb程序随机1到100产生二十个随机数,并从高到低排序
VB 输入3个不同的数,将它们从大到小排序.