VB随机产生10个两位数整数(正整数),要求分别用选择排序法和冒泡排序法将这10个数降序排列输出在窗体上
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/09 20:03:05
VB随机产生10个两位数整数(正整数),要求分别用选择排序法和冒泡排序法将这10个数降序排列输出在窗体上
是编程问题用VB编程
是编程问题用VB编程
Option Base 1
Dim a(20)
Private Sub Form_Load()
Randomize
For i = 1 To 10
a(i) = Int(10 + 90 * Rnd)
Next
End Sub
Private Sub Command1_Click() '选择排序法
For i = 1 To 9
For j = i + 1 To 10
If a(j) > a(i) Then t = a(i):a(i) = a(j):a(j) = t
Next j
Next i
For i = 1 To 10
Print a(i);
Next
Print
End Sub
Private Sub Command2_Click() '冒泡排序法
For i = 1 To 9
For j = 10 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 10
Print a(i);
Next
Print
End Su
Dim a(20)
Private Sub Form_Load()
Randomize
For i = 1 To 10
a(i) = Int(10 + 90 * Rnd)
Next
End Sub
Private Sub Command1_Click() '选择排序法
For i = 1 To 9
For j = i + 1 To 10
If a(j) > a(i) 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
Private Sub Command2_Click() '冒泡排序法
For i = 1 To 9
For j = 10 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 10
Print a(i);
Next
End Su
VB随机产生10个两位数整数(正整数),要求分别用选择排序法和冒泡排序法将这10个数降序排列输出在窗体上
vb,产生10个两位随机整数,用冒泡排序法对10个数升序排列
随机产生20个10~99之间的整数,要求:1) 用冒泡法排序(降序) 2) 用InputBox( )函数输入一整数X
VB语言随机产生10个10-99内的整数,分别用冒泡法和选择法将数据从大到小排序并显示结果
VB编程,分别用选择排序法和冒泡排序法实现有N个元素数组的排序.N由键盘输入,数组元素的值在1~200之间,随机产生
随机产生10个介于0到100之间的整数,分别使用选择法和冒泡法对其进行升序排序
VB中用选择法将10个整数排序,从小到大排列在另外一个文本框中输出.
vb编程:随机产生10个0~100之间整数放到一个数组中,单击窗体,在窗体上显示这10个数以及10个数中的最小值
1、随机产生10个10-99范围内的整数,分别用选择和冒泡法将数据按从大到小递减的顺序排列,并显示排序结果
1. 编一个程序,产生30个随机整数,存入数组,用冒泡法或选择法分别对其进行排序.要求显示排序前后的数
在键盘里输入10个学生的成绩,用冒泡排序法从大到小进行排序,分别输出原始成绩和排序后的成绩
vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出