从键盘上输入10个数,输出这10个数并求这10个数的平均值,最大值和最小值.要求VB？
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
（图片来源网络，侵删）
到此，以上就是小编对于windows10怎么用excel免费的的问题就介绍到这了，希望这1点解答对大家有用。
（图片来源网络，侵删）
（图片来源网络，侵删）