VB读文件将其读入数组中

来源：百度知道 编辑：UC知道 时间：2024/05/23 17:05:56
将fs.txt文件中的5个学生成绩顺序读入数组A,并在文本框text1中显示出来?单击"满分人数"按钮,在text1中显示数组成绩单100出现的次数? fs.txt文件中存着 98 100 89 100 100
一楼:文件格式是txt,成绩间是空格..没其它的要求了.

Dim 成绩(5) As Single

Private Sub Command1_Click()
Open "fs.txt" For Input As #1
Text1 = ""
For i = 1 To 5
Input #1, 成绩(i)
Text1 = Text1 & 成绩(i) & ","
Next i
Close #1
End Sub

Private Sub Command2_Click()
Dim 满分人数 As Integer
For i = 1 To 5
If 成绩(i) = 100 Then 满分人数 = 满分人数 + 1
Next i
Text1 = 满分人数
End Sub

Private Sub Form_Load()
Command1.Caption = "读入成绩"
Command2.Caption = "满分人数"
End Sub

首先问一下 文件内存储的格式,成绩和成绩之间是空格吗?全角/半角.制表符?

在窗体中添加一个text1，一个command1,把fs.txt放到c:\fs.txt

双击command1，添加如下代码：

Dim fs As Integer
Dim a() As String
fs = FreeFile
Open "c:\fs.txt" For Input As fs
Do While Not EOF(fs)
Line Input #fs, X
Y = Len(X) - Len(Replace(X, " ", "&q