'经调试,无误:Private Sub Command1_Click()Dim a%(1 To 10), b%(1 To 10), c%(1 To 20), i%For i = 1 To 10
a(i) = Int(Rnd() * 100)
' a数组是0-99的随机整数
b(i) = Int(Rnd() * 100)
' b数组是0-99的随机整数Next iFor i = 1 To 20
If i > 10 Then
c(i) = b(i - 10)
Else
c(i) = a(i)
End If
Print ...