有如下数:10,4,53,22,90,34请用VB程序冒泡法和选择排序法的从大到小排列出.
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/22 15:39:40
有如下数:10,4,53,22,90,34请用VB程序冒泡法和选择排序法的从大到小排列出.
Option Base 1
Dim a
Private Sub Form_Load()
a = Array(10, 4, 53, 22, 90, 34)
End Sub
Private Sub Command1_Click() '选择排序法
For i = 1 To 5
For j = i + 1 To 6
If a(j) > a(i) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
For i = 1 To 6
Print a(i);
Next
Print
End Sub
Private Sub Command2_Click() '冒泡排序法
For i = 1 To 5
For j = 6 To i + 1 Step -1
If a(j - 1) < a(j) Then
t = a(j - 1): a(j - 1) = a(j): a(j) = t
End If
Next j
Next i
For i = 1 To 6
Print a(i);
Next
Print
End Su
Dim a
Private Sub Form_Load()
a = Array(10, 4, 53, 22, 90, 34)
End Sub
Private Sub Command1_Click() '选择排序法
For i = 1 To 5
For j = i + 1 To 6
If a(j) > a(i) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
For i = 1 To 6
Print a(i);
Next
End Sub
Private Sub Command2_Click() '冒泡排序法
For i = 1 To 5
For j = 6 To i + 1 Step -1
If a(j - 1) < a(j) Then
t = a(j - 1): a(j - 1) = a(j): a(j) = t
End If
Next j
Next i
For i = 1 To 6
Print a(i);
Next
End Su
有如下数:10,4,53,22,90,34请用VB程序冒泡法和选择排序法的从大到小排列出.
VB语言随机产生10个10-99内的整数,分别用冒泡法和选择法将数据从大到小排序并显示结果
VB随机产生10个两位数整数(正整数),要求分别用选择排序法和冒泡排序法将这10个数降序排列输出在窗体上
vb,产生10个两位随机整数,用冒泡排序法对10个数升序排列
用冒泡排序法对偶数下标的数组元素进行升序排列用选择排序法对奇数下标的数组元素进行降序排列
vb 将选择排序法和冒泡排序法分别改为通用过程
怎么用while语句和for语句共同写出冒泡法的程序.数组中十个数按从大到小排列.求大神们指导
用冒泡排序法将数组a[10]={1,3,2,5,6,7,4,9,10,8}中的数进行从大到小进行排列,并输出排好的数组a
vb中怎样分别用选择法和冒泡法分别对100个随机数进行递增排序?
c语言的一题目:分别用冒泡法和选择法对10个数排序!
用c#编写一个冒泡法排序的程序
在键盘里输入10个学生的成绩,用冒泡排序法从大到小进行排序,分别输出原始成绩和排序后的成绩