請教各位 VB 高手幾個問題?
1.以下是我用 Vb 寫的一個程式碼
目的是要將相同目錄下的資料檔(data.txt)
(其中的資料為兩欄式,如下所示:學號 成績)
載入至列式欄位中,但卻會出現錯誤訊息:
"輸入已超過檔案結尾"
2.又該如何將最高分與最低分輸出?
3.如何做分數的加總及求平均值?
4.及變異數的求解? (var^2=sum[(成績-平均值)^2]/(n-1)
-----------------------------
Private Sub GetData_Click()
Dim score As Single
Dim file_name, id_no As String
Dim LineCnt As Integer '資料數
List1.Clear
If file01.Text = "" Then
MsgBox "empty"
file01.SetFocus
Else
file_name = App.Path & "\" & file01.Text
If Dir(file_name) ＜＞ "" Then
Open file_name For Input As #1
Do While Not EOF(1)
Input #1, id_no, score
List1.AddItem id_no & " " & Str(score)
Loop
Close #1
Else
MsgBox "no file have found"
file01.SetFocus
End If
End If
LineCnt = List1.ListCount '資料數
End Sub
-------------------------------------------------------
data.txt:
S01 63
S02 70
S03 59.5
. .
Sn 60
-----------------------
敬請賜教 不勝感激