VB填空题，冒泡法排序，求助！

来源：百度知道编辑：UC知道时间：2024/09/21 00:34:33

随机产生10个100以内的随机数，显示在窗体左边文本框内，要求用冒泡法将其按从小到大的顺序排列出来，并把结果显示在窗体右边文本框内，程序不完整，请补充空白(1)，(2)处，以便能得到正确答案，但不得增删原语句。
Dim Data(10) As Integer
Dim i As Integer
Private Sub Command1_Click()
Dim temp As Integer
Dim j As Integer
Text2.Text = ""
For (1)
For j = i + 1 To 10
If (2) Then
temp = Data(i)
Data(i) = Data(j)
Data(j) = temp
End If
Next j
Next i
For i = 1 To 10
Text2.Text = Text2.Text & Data(i) & Chr$(13) & Chr$(10)
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
For i = 1 To 10
Data(i) = 100 * Rnd
Text1.Text = Text1.Text & Data(i) & Chr$(13) & Chr$(10)
Next i
End Sub

又是一个不好好学习的

(1) i = 1 To 10
(2) Data(i) > Data(j)

Dim Data(10) As Integer
Dim i As Integer

Private Sub Command1_Click()
Dim temp As Integer
Dim j As Integer
Text2.Text = ""
For i = 1 To 10
For j = i + 1 To 10
If Data(i) > Data(j) Then
temp = Data(i)
Data(i) = Data(j)
Data(j) = temp
End If
Next j
Next i
For i = 1 To 10
Text2.Text = Text2.Text & Data(i) & Chr$(13) & Chr$(10)
Next i

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
For i = 1 To 10
Data(i) = 100 * Rnd
Text1.Text = Text1.Text & Data(i) & Chr$(13) & Chr$(10)
Next i
End Sub

VB冒泡法排序 VB冒泡排序法 VB 关于冒泡排序法 VB的冒泡法排序 vb冒泡排序法（easy) vb的冒泡排序法怎么用? vb:用数组排序（冒泡法） vb 冒泡排序 VB编程:选择法及冒泡法排序数组在VB中演示过程冒泡法排序