UC知道急急 算法请教
来源：百度知道 编辑：UC知道 时间：2024/05/23 01:17:23
排序
Dim s(1 To 10) As Double
Dim i As Integer
Private Sub Command1_Click()
Dim j, k As Integer
Dim temp As Double
For j = 1 To 9
For k = 1 To 10 - j
If s(k) > s(k + 1) Then
temp = s(k)
s(k) = s(k + 1)
s(k + 1) = temp
End If
Next k
Next j
For k = 1 To 10
List2.AddItem Str(s(k))
Next k
End Sub
Private Sub Command2_Click()
List1.Clear
List2.Clear
Text1.Text = ""
i = 1
请分别解释每句的意思
Dim s(1 To 10) As Double
Dim i As Integer
Private Sub Command1_Click()
Dim j, k As Integer
Dim temp As Double
For j = 1 To 9
For k = 1 To 10 - j
If s(k) > s(k + 1) Then
temp = s(k)
s(k) = s(k + 1)
s(k + 1) = temp
End If
Next k
Next j
For k = 1 To 10
List2.AddItem Str(s(k))
Next k
End Sub
Private Sub Command2_Click()
List1.Clear
List2.Clear
Text1.Text = ""
i = 1
请分别解释每句的意思
请分别解释每句的意思
工作量不小
Dim s(1 To 10) As Double '声明一个包含10个元素的双精度数组s
Dim i As Integer '声明一个整型变量i
Private Sub Command1_Click() '声明Command1控件Click时间的响应代码
Dim j, k As Integer '声明...
Dim temp As Double '声明...
For j = 1 To 9 '从此起到匹配的Next语句之间的语句循环执行
For k = 1 To 10 - j '同上
If s(k) > s(k + 1) Then '冒泡法升序排序
temp = s(k)
s(k) = s(k + 1)
s(k + 1) = temp
End If '本次排序的单元操作结束
Next k '与For k = 1 To 10 - j匹配
Next j '与For j = 1 To 9匹配
For k = 1 To 10 '排序已经结束,将结果显示在List2控件中
List2.AddItem Str(s(k))
Next k
End Sub '过程结束
Private Sub Command2_Click() '声明Command2控件Click时间的响应代码
List1.Clear '清楚List1控件的内容
List2.Clear '与上同
Text1.Text = "" '与上类似
i = 1