vb 将选择排序法和冒泡排序法分别改为通用过程
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/17 17:40:15
vb 将选择排序法和冒泡排序法分别改为通用过程
选择排序法
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer, a(1 To 10) As Integer
Print "原始数据如下"
For i = 1 To 10
a(i) = Int(Rnd * 10)
Print a(i);
Next i
Print "按从小到大排列输出:"
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
For i = 1 To 10
Print a(i);
Next
End Sub
通用过程
Public Sub swap_1()
Print "按从小到大排列输出:"
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
For i = 1 To 10
Print a(i);
End Su
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer, a(1 To 10) As Integer
Print "原始数据如下"
For i = 1 To 10
a(i) = Int(Rnd * 10)
Print a(i);
Next i
Print "按从小到大排列输出:"
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
For i = 1 To 10
Print a(i);
Next
End Sub
通用过程
Public Sub swap_1()
Print "按从小到大排列输出:"
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
For i = 1 To 10
Print a(i);
End Su
vb 将选择排序法和冒泡排序法分别改为通用过程
vb中怎样分别用选择法和冒泡法分别对100个随机数进行递增排序?
VB语言随机产生10个10-99内的整数,分别用冒泡法和选择法将数据从大到小排序并显示结果
VB.分别选择和冒泡排序法排a(1 to 50),我应试,希望越教科越好,并有注释
VB随机产生10个两位数整数(正整数),要求分别用选择排序法和冒泡排序法将这10个数降序排列输出在窗体上
VB编程,分别用选择排序法和冒泡排序法实现有N个元素数组的排序.N由键盘输入,数组元素的值在1~200之间,随机产生
对n个数排序:使用选择法和冒泡法
选择排序法跟冒泡排序法有什么区别
c语言的一题目:分别用冒泡法和选择法对10个数排序!
什么是冒泡排序法?
C语言中选择法排序和冒泡法排序有什么区别
C语言中冒泡排序法和选择排序法有哪些不同