坐等大神

0点还在学习，也算一位好学的同学了

下载个vb运行一下不就知道了

最后一题自己作吧

Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer, j As Integer
Dim sum As Long, max As Integer, min As Integer
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个数的值")
sum = sum + a(i)
Next
Print sum
max = a(1)
min = a(1)
For i = 2 To 10
If a(i) >= max Then max = a(i)
If a(i) <= min Then min = a(i)
Next
Print "最大的数为"; max
Print "最小的数为"; min
End Sub
Private Sub Form_Load()
End Sub