vb中怎样计算excel表格数据,电子表格vb怎么计算平均值
1. vb怎么计算平均值
思路，把三个数存放到变量x，y，z，里，然后按照从大到小排列，最后x里是最大值，z里是最小值。
Dim x As Single, y As Single,z As Single
Dim t As Single
x = Val(InputBox("输入第1个数："))
y = Val(InputBox("输入第2个数："))
z = Val(InputBox("输入第3个数："))
If x
t = x
x = y
y = t
End If
If x
t = x
x = z
z = t
End If
If y
t = y
y = z
z = t
End If
Print "最大值：";x
Print "最小值：";z
2. vb怎么求平均
均数：average(range)极差：max()-min(range)标准差：stdev(range)
3. vb中求平均值的函数
使用所有数值的和除以数值的个数
4. vb中计算平均值的代码
用C写的：
main() { inti; doublea[10],avg,m=0; for(i=0;i<10;i++) scanf("%lf",&a[i]); for(i=0;i<10;i++) m+=a[i]; avg=m/10; printf("%f",avg); } vb Fori=1To10 a=InputBox("请输入第"&i&"个数字","输入"
) Sum=Sum+Val(a) Next MsgBox"输入的十个数的平均值为："&Sum/10
5. 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
6. vb怎么求平均值
Function Average(mySinge() As Single) As Single
Dim sn As Single
Dim cn As Integer, i As Integer
cn = UBound(mySinge) - LBound(mySinge) + 1
For i = LBound(mySinge) To UBound(mySinge)
sn = sn + mySinge(i)
Next i
Average = sn / cn
End Function
7. VB计算平均值
假定用Combo1、Combo2、Combo3这三个ComboBox来显示三个数字，求平均值：Private Sub Command_Click() '点击“平均值”按钮Label1.Caption = (Val(Combo1.Text) + Val(Combo1.Text) + Val(Combo1.Text)) / 3End Sub
8. VB程序如何计算平均数
均数：average(range)极差：max()-min(range)标准差：stdev(range)