VB作业文件读取的问题

来源：百度知道 编辑：UC知道 时间：2024/05/24 03:18:09
从文件里c:/a.txt中，读取数据，然后将能被2整除的数之和显示出来，还有能被2整除的数的个数也显示。
关键是，文件中的数据是这样的
"12"
"33"
"59"
"1238"
"45"
"..."
这样的数据，怎么分离呀？
告诉我 谢谢了

Private Sub Command1_Click()
Dim fn As Integer
Dim s As Integer
Dim n As Integer
s = 0
n = 0
fn = FreeFile
Open "c:\a.txt" For Input As fn
Do While Not EOF(fn)
Line Input #fn, x
x = Val(Replace(x, Chr(34), ""))
Print x
If x / 2 = Int(x / 2) Then
s = s + x
n = n + 1
End If
Loop
Close fn
Print s, n
End Sub