美版老男孩床戏视频:vb高手帮忙

Private Sub Form_Click()
Dim a(10) As Integer
Dim Max As Integer
Dim Min As Integer
Dim Sum As Integer
Randomize Timer
Min = 100
For i = 1 To 10
a(i) = Rnd * 90 + 10
If a(i) > Max Then Max = a(i)
If a(i) < Min Then Min = a(i)
Sum = Sum + a(i)
Print a(i);
Next
Print
Print "The max number is"; Max
Print "The min number is"; Min
Print "The average is"; Sum / 10
End Sub

'试着参照对比一下。

把
min = a(1)
max = a(1)
放到 For i = 2 To 10 前面

.....
For i = 1 To 10
a(i) = Int(Rnd * 90 + 10)
Next i
min = a(1)
max = a(1)
For i = 2 To 10
If a(i) > max Then
max = a(i)
End If
....

还有 Print a(i): max: min 这里把冒号改成分号 >>>> ;
就行了

Private Sub Form_click()
ME.Cls
Randomize
Dim a(10) As Integer, min As Integer, max As Integer, i As Integer
For i = 1 To 10
a(i) = Int(Rnd * 90 + 10)
Next i
Print "a(1) ="; a(1)
min = a(1)
max = a(1)
For i = 2 To 10
If a(i) > max Then
max = a(i)
End If
If a(i) < min Then
min = a(i)
End If
Print "a(" & i & ") ="; a(i)
Next i
Print "max ="; max
Print "min ="; min
End Sub