Private Sub Command1_Click()Dim a(9), i, sumClsRandomizePrint "产生10个10~99之间的整数:";For i = 0 To 9a(i) = Int(Rnd * 90) + 10Print a(i);sum = sum + a(i)NextPrint vbCrLf & "平均值="; sum / 10Print "小于平均值的数:";For i = 0 To 9If a(i) < sum / 10 Then Print a(i);NextEnd Sub...