冒泡排序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/07/11 11:42:57
![冒泡排序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) =](/uploads/image/z/4018844-20-4.jpg?t=%E5%86%92%E6%B3%A1%E6%8E%92%E5%BA%8FVB%E4%BB%A3%E7%A0%81%E8%BE%93%E5%85%A5%E4%BA%94%E4%B8%AA%E6%95%B0%2C%E5%B9%B6%E9%99%8D%E5%BA%8F%E6%8E%92%E5%88%97Private+Sub+Command1_Click%28%29Dim+a+As+DoubleDim+b%281+To+5%29+As+DoubleDim+c+As+Doublea+%3D+1Do+While+a+1a+%3D+c+%2B+1Do+While+a+%3E%3D+2If+b%28a%29+%3E+b%28a+-+1%29+Thenb%28a%29+%3D+b%28a%29+%2B+b%28a+-+1%29b%28a+-+1%29+%3D+b%28a%29+-+b%28a+-+1%29b%28a%29+%3D)
xSJ@VJ|쒈ZKITS$T\*ZB[Q|,\ԶLڿp榎iZK,fsі#?ce|ۼv%v^ڪs2U0VG
V>ia~