7,785
社区成员




Private Sub Command1_Click()
Dim Arr_1, Arr_2
Dim i As Long, j As Long, k As Long
Dim x As Long
Arr_1 = Array(43, 42, 32, 18, 11, 9, 7, 0, -1)
Arr_2 = Array(38, 37, 31, 25, 22, 5, -1)
j = 0
k = 0
For i = 1 To 6
If Arr_1(j) > Arr_2(k) Then
x = Arr_1(j)
j = j + 1
Else
x = Arr_2(k)
k = k + 1
End If
Next
Debug.Print x
End Sub