Private Sub Form_Click()
Dim A(10) As Integer, I As Integer
Dim Z As Integer, Zh As Integer
Dim F As Integer, Fh As Integer
Form1.AutoRedraw = True
Randomize
For I = 1 To 10
A(I) = Val(InputBox("第" & I & "个数", "输入", Int(Rnd * 100 - 50)))
Print A(I);
If I Mod 5 = 0 Then Pri...
Private Sub Command1_Click()Dim a(10) As IntegerFor I = 1 To 10a(I) = Val(InputBox(""))text1.Text = text1.Text & a(I) & " "If a(I) > 0 Then x = x + 1: sumX = sumX + a(I)...