求助:怎样读取excel中的一列数,并求这一列数的方差。下面是自己编的输数的的程序。
Dim n As IntegerDim data() As Single
Dim i As Integer
Dim even As Single
Dim ConV As Single
n = CInt(Val(InputBox("请输入你要计算的数据的个数:")))
even = 0
ConV = 0
If n >= 1 Then
ReDim data(n) As Single
For i = 1 To n
data(i) = Val(InputBox("请输入第" & i & "个数据(共" & n & "个):"))
even = even + data(i)
ConV = ConV + data(i) ^ 2
Next
even = even / n
ConV = ConV / n
ConV = ConV - even ^ 2
If Mid(ConV, 1, 1) = "." Then
MsgBox "这" & n & "个数的方差为:0" & ConV
Else
MsgBox "这" & n & "个数的方差为:" & ConV
End If
Else
MsgBox "输入的个数有误,请正确输入在计算!"
End
End If
End Sub
--------------------编程问答-------------------- 在线等候,希望哥哥姐姐们早一点给我回复。 --------------------编程问答-------------------- 引用excel对象,
Set ex = CreateObject("Excel.Application") '建立Excel对象
Set wb = ex.Workbooks.Open(App.Path & "\aa.xls") '打开Excel文件
Set sh = wb.Sheets(1)
如读取第3列
For i = 1 To lieNum
s(i) = sh.Cells(i, 3)
Next
补充:VB , 基础类