1、随机产生10个10-99范围内的整数,分别用选择和冒泡法将数据按从大到小递减的顺序排列,并显示排序结果
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:数学作业 时间:2024/07/07 18:37:44
1、随机产生10个10-99范围内的整数,分别用选择和冒泡法将数据按从大到小递减的顺序排列,并显示排序结果
![1、随机产生10个10-99范围内的整数,分别用选择和冒泡法将数据按从大到小递减的顺序排列,并显示排序结果](/uploads/image/z/10011059-35-9.jpg?t=1%E3%80%81%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F10%E4%B8%AA10%EF%BC%8D99%E8%8C%83%E5%9B%B4%E5%86%85%E7%9A%84%E6%95%B4%E6%95%B0%2C%E5%88%86%E5%88%AB%E7%94%A8%E9%80%89%E6%8B%A9%E5%92%8C%E5%86%92%E6%B3%A1%E6%B3%95%E5%B0%86%E6%95%B0%E6%8D%AE%E6%8C%89%E4%BB%8E%E5%A4%A7%E5%88%B0%E5%B0%8F%E9%80%92%E5%87%8F%E7%9A%84%E9%A1%BA%E5%BA%8F%E6%8E%92%E5%88%97%2C%E5%B9%B6%E6%98%BE%E7%A4%BA%E6%8E%92%E5%BA%8F%E7%BB%93%E6%9E%9C)
Private Sub Form_click()
Dim A(1 To 10)
Randomize
For I = 1 To 10
A(I) = Int(Rnd * 90) + 10
Next I
For I = 1 To 9 '选择法
p = I
For J = I + 1 To 10
If A(J) < A(I) Then
p = J
End If
Next J
tem = A(I)
A(I) = A(p)
A(p) = tem
Next I
For I = 1 To 10
A(I) = A(11 - I)
Next I
For I = 1 To 9 '冒泡法
For J = 1 To 10 - I
If A(J) > A(J + 1) Then
tem = A(I)
A(I) = A(p)
A(p) = tem
End If
Next J
Next I
For I = 1 To 10
A(I) = A(11 - I)
Next I
End Sub
这就好了 你试试哦
Dim A(1 To 10)
Randomize
For I = 1 To 10
A(I) = Int(Rnd * 90) + 10
Next I
For I = 1 To 9 '选择法
p = I
For J = I + 1 To 10
If A(J) < A(I) Then
p = J
End If
Next J
tem = A(I)
A(I) = A(p)
A(p) = tem
Next I
For I = 1 To 10
A(I) = A(11 - I)
Next I
For I = 1 To 9 '冒泡法
For J = 1 To 10 - I
If A(J) > A(J + 1) Then
tem = A(I)
A(I) = A(p)
A(p) = tem
End If
Next J
Next I
For I = 1 To 10
A(I) = A(11 - I)
Next I
End Sub
这就好了 你试试哦
1、随机产生10个10-99范围内的整数,分别用选择和冒泡法将数据按从大到小递减的顺序排列,并显示排序结果
VB语言随机产生10个10-99内的整数,分别用冒泡法和选择法将数据从大到小排序并显示结果
VB排序题.:随即产生10个2位数,按从大到小递减的顺序排列,并显示排序结果.急
随机产生10个介于0到100之间的整数,分别使用选择法和冒泡法对其进行升序排序
VB随机产生10个两位数整数(正整数),要求分别用选择排序法和冒泡排序法将这10个数降序排列输出在窗体上
1. 编一个程序,产生30个随机整数,存入数组,用冒泡法或选择法分别对其进行排序.要求显示排序前后的数
随机产生20个10~99之间的整数,要求:1) 用冒泡法排序(降序) 2) 用InputBox( )函数输入一整数X
利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列
VB编程,分别用选择排序法和冒泡排序法实现有N个元素数组的排序.N由键盘输入,数组元素的值在1~200之间,随机产生
求VB 程序设计利用随机函数产生80个10~99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇
VB随机产生10个100到200之间的整数,将其按从大到小顺序排列
用随机函数产生20个1000以内整数存入数组a中,用冒泡法将它们从大到小排序后输出.