从键盘上输入10个数 输出这10个数并求这10个数的平均值 最大值和最小值.要求VB（vb求100到300以内所有整数的和）

Option Explicit Private Sub Form_Load() Me.AutoRedraw = True Dim v(1 To 10) As Double Dim i As Integer, av As Double, max As Double, min As Double For i = 1 To 10 v(i) = InputBox("输入第" & i & "个数据:") Next i max = v(1): min = v(1): av = 0 For i = 1 To 10 av = av + v(i) If max < v(i) Then max = v(i) If min > v(i) Then min = v(i) Print v(i) Next i av = av / 10 Print "平均值：" & av Print "最大值：" & max Print "最小值：" & min End Sub