合并有序的数组a,b为数组c,将数组c排序后输出Private Sub Command1_Click()Dim cc = Split(Label1.Caption & "," & Label2.Caption & ",")For i = 0 To UBound(c) - 1For j = i To UBound(c)If c(i) > c(j) Thent = c(i)c(i) = c(j)c(j) = tEnd IfNex
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/03 12:41:31
![合并有序的数组a,b为数组c,将数组c排序后输出Private Sub Command1_Click()Dim cc = Split(Label1.Caption &](/uploads/image/z/5465588-68-8.jpg?t=%E5%90%88%E5%B9%B6%E6%9C%89%E5%BA%8F%E7%9A%84%E6%95%B0%E7%BB%84a%2Cb%E4%B8%BA%E6%95%B0%E7%BB%84c%2C%E5%B0%86%E6%95%B0%E7%BB%84c%E6%8E%92%E5%BA%8F%E5%90%8E%E8%BE%93%E5%87%BAPrivate+Sub+Command1_Click%28%29Dim+cc+%3D+Split%28Label1.Caption+%26+%22%2C%22+%26+Label2.Caption+%26+%22%2C%22%29For+i+%3D+0+To+UBound%28c%29+-+1For+j+%3D+i+To+UBound%28c%29If+c%28i%29+%3E+c%28j%29+Thent+%3D+c%28i%29c%28i%29+%3D+c%28j%29c%28j%29+%3D+tEnd+IfNex)
合并有序的数组a,b为数组c,将数组c排序后输出Private Sub Command1_Click()Dim cc = Split(Label1.Caption & "," & Label2.Caption & ",")For i = 0 To UBound(c) - 1For j = i To UBound(c)If c(i) > c(j) Thent = c(i)c(i) = c(j)c(j) = tEnd IfNex
合并有序的数组a,b为数组c,将数组c排序后输出
Private Sub Command1_Click()
Dim c
c = Split(Label1.Caption & "," & Label2.Caption & ",")
For i = 0 To UBound(c) - 1
For j = i To UBound(c)
If c(i) > c(j) Then
t = c(i)
c(i) = c(j)
c(j) = t
End If
Next j
Next i
Label3.Caption = Join(c,",")
End Sub
Private Sub Form_Load()
Dim a,b
a = Array(11,25,56,67,77,98)
b = Array(8,33,56,93)
Label1.Caption = Join(a,",")
Label2.Caption = Join(b,",")
End Sub
为什么输出的c不是排好顺序的,是11,25,56,67,77,98,8,33,56,93
合并有序的数组a,b为数组c,将数组c排序后输出Private Sub Command1_Click()Dim cc = Split(Label1.Caption & "," & Label2.Caption & ",")For i = 0 To UBound(c) - 1For j = i To UBound(c)If c(i) > c(j) Thent = c(i)c(i) = c(j)c(j) = tEnd IfNex
在这里
If c(i) > c(j) Then
C数组是字符比较.你要转换成数字才行.
将上面一句改成
If val(c(i)) > val(c(j)) Then
就可以了.