优质解答
Private Sub Command1_Click()RandomizeDim a(10) As Integer, b(10) As IntegerDim c As IntegerFor i = 0 To 9 a(i) = Int(Rnd * 10) b(i) = Int(Rnd * 10) c = Int(Rnd * 2) If c = 0 Then Pr...
Private Sub Command1_Click()RandomizeDim a(10) As Integer, b(10) As IntegerDim c As IntegerFor i = 0 To 9 a(i) = Int(Rnd * 10) b(i) = Int(Rnd * 10) c = Int(Rnd * 2) If c = 0 Then Pr...