冒泡排序VB代码输入五个数,并降序排列Private Sub Command1_Click()Dim a As DoubleDim b(1 To 5) As DoubleDim c As Doublea = 1Do While a 1a = c + 1Do While a >= 2If b(a) > b(a - 1) Thenb(a) = b(a) + b(a - 1)b(a - 1) = b(a) - b(a - 1)b(a) =

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/29 03:02:03
冒泡排序VB代码输入五个数,并降序排列PrivateSubCommand1_Click()DimaAsDoubleDimb(1To5)AsDoubleDimcAsDoublea=1DoWhilea1a

冒泡排序VB代码输入五个数,并降序排列Private Sub Command1_Click()Dim a As DoubleDim b(1 To 5) As DoubleDim c As Doublea = 1Do While a 1a = c + 1Do While a >= 2If b(a) > b(a - 1) Thenb(a) = b(a) + b(a - 1)b(a - 1) = b(a) - b(a - 1)b(a) =
冒泡排序VB代码
输入五个数,并降序排列
Private Sub Command1_Click()
Dim a As Double
Dim b(1 To 5) As Double
Dim c As Double
a = 1
Do While a 1
a = c + 1
Do While a >= 2
If b(a) > b(a - 1) Then
b(a) = b(a) + b(a - 1)
b(a - 1) = b(a) - b(a - 1)
b(a) = b(a) - b(a - 1)
End If
a = a - 1
Loop
c = c - 1
Loop
Print b(1),b(2),b(3),b(4),b(5)
End Sub
哪里错了?
改为这样后哪里错了?
Private Sub Command1_Click()
Dim a As Double
Dim b(1 To 5) As Double
Dim c As Double
a = 1
Do While a 1
a = 1
Do While a

冒泡排序VB代码输入五个数,并降序排列Private Sub Command1_Click()Dim a As DoubleDim b(1 To 5) As DoubleDim c As Doublea = 1Do While a 1a = c + 1Do While a >= 2If b(a) > b(a - 1) Thenb(a) = b(a) + b(a - 1)b(a - 1) = b(a) - b(a - 1)b(a) =
Private Sub Command1_Click()
Dim i As integer, j as integer
Dim b(1 To 5) As Double
Dim tmp As Double
for i=1 to 5
b(i) = InputBox("")
next
for i=1 to 4
for j=i+1 to 5
If b(i) < b(j) Then
tmp= b(i)
b(i) = b(j)
b(j) = tmp
End If
next
next
Print b(1), b(2), b(3), b(4), b(5)
End Sub
这样简洁多啦 一目了然

冒泡排序VB代码输入五个数,并降序排列Private Sub Command1_Click()Dim a As DoubleDim b(1 To 5) As DoubleDim c As Doublea = 1Do While a 1a = c + 1Do While a >= 2If b(a) > b(a - 1) Thenb(a) = b(a) + b(a - 1)b(a - 1) = b(a) - b(a - 1)b(a) = VB随机产生10个两位数整数(正整数),要求分别用选择排序法和冒泡排序法将这10个数降序排列输出在窗体上是编程问题用VB编程 求Vb代码 ,求这些数(12 38 45 51 22 15 83 74 98 26 99 30 66 09 72)的 选择降序和升序排序输出、冒泡升序和降序排序输出, 输入5个数按降序排列 输入10个数,用冒泡排序法按由小到大顺序排序并输出? C语言用排序法给十个数降序排列 c++中的冒泡排序法的升序降序c++中的冒泡排序法在升序的时候必须满足第一个数大于第二个数降序排列的时候必须满足第一个数小与第二个数,不然就会出现错误!如for(j=0;j 冒泡排序法按降序排列A={2,7,5,13,46,23,40,16,33,38} 用冒泡排序法对偶数下标的数组元素进行升序排列用选择排序法对奇数下标的数组元素进行降序排列 vb,产生10个两位随机整数,用冒泡排序法对10个数升序排列实验书上的填空 实验7-9 C语言:输入10个整数,对其中前5个数按降序排列,然后输出这10个整数输入10个整数,对其中前5个数按降序排列,然后输出这10个整数分别用冒泡法和选择法编两个程序 随机产生20个10~99之间的整数,要求:1) 用冒泡法排序(降序) 2) 用InputBox( )函数输入一整数X 随机产生20个10~99之间的整数,要求:1) 用冒泡法排序(降序) 2) 用InputBox( )函数输入一整数X 程序设计题:输入50个数根据其绝对值大小按降序排列.输出结果 输入 2个降序排列的整数数列,将这两个数列合并存放到另一个数组中,每个数都一次到位尽量详细一些好吗、用选择排序法 我是初学者,太高端的还不懂 用冒泡法将输入的3个数按从大到小的顺序排序 C语言 冒泡排序问题 将输入的10个数按由大到小的次序排序并输出以下是起泡排序程序,将输入的10个数按由大到小的次序排序并输出.填空并调试.#include stdio.hvoid main(){ int i,j,a[10],temp; /*定义 C# 输入一组数,用空格隔开,冒泡排序这组数,从小到大排列,并显示重点给我讲怎么处理 输入的数 的 空格 怎么把数放入数组!