用VB定义一个Variant型的一维数组的程序,10个实数,求出数组元素的最大...答:Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0)Dim i As Integer, max As Single, min As Single, sum As Single, avg As Singlemin = a(0)For i = 0 To 9 Print a(i); If max < a(i) Then max = a(i) If min > a(i...