UC知道VB冒泡法问题
来源：百度知道 编辑：UC知道 时间：2024/05/16 17:30:03
Private Sub Command1_Click()
Dim a(1 To 5), i, j As Integer
For i = 1 To 5
a(i) = InputBox("d")
Next
For i = 5 To 2 Step -1
For j = 1 To i - 1
If a(j) > a(j + 1) Then
a(j) = b: a(j) = a(j + 1): a(j + 1) = b
End If
Next j
Next i
For i = 1 To 5
Print a(i)
Next
End Sub
哪错了 ? 我怎么只可以按从小到大顺序输入不会错 ,顺序乱下就不打出东西了为什么 ?? 在线等答案!!!!!!!!!!!!!!!!!!!!1
Dim a(1 To 5), i, j As Integer
For i = 1 To 5
a(i) = InputBox("d")
Next
For i = 5 To 2 Step -1
For j = 1 To i - 1
If a(j) > a(j + 1) Then
a(j) = b: a(j) = a(j + 1): a(j + 1) = b
End If
Next j
Next i
For i = 1 To 5
Print a(i)
Next
End Sub
哪错了 ? 我怎么只可以按从小到大顺序输入不会错 ,顺序乱下就不打出东西了为什么 ?? 在线等答案!!!!!!!!!!!!!!!!!!!!1
你把b = a(j)错写成a(j) = b
:)
Private Sub Command1_Click()
Dim a(1 To 5), i, j As Integer
For i = 1 To 5
a(i) = InputBox("d")
Next
For i = 5 To 2 Step -1
For j = 1 To (i - 1)
If a(j) > a(j + 1) Then
b = a(j): a(j) = a(j + 1): a(j + 1) = b
End If
Next j
Next i
For i = 1 To 5
Print a(i)
Next
End Sub
我要崩溃了
vb2005检查出24个错误
我改不过来了
拜托写准点