vb问题 高手请进

来源：百度知道 编辑：UC知道 时间：2024/05/16 14:52:07
先看下程序代码：

'***************************取文本最后一行*****************************
Private Function readLastLine(ByVal strFileName As String) As String
Dim objFSO As Object
Dim objTextStream As Object
Dim strReturn As String
Dim lngTime As Single
Dim VarData(1) As Variant
Dim Itime As Integer '时间循环变量，同时为行循环变量
Dim Iline As Integer '列循环变量

Dim i As Integer
i = 3

Me.MousePointer = vbHourglass
' On Error Resume Next
'// 创建 FileSystemObject 对象
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextStream = objFSO.OpenTextFile(strFileName, 1)

lngTime = Timer
With objTextStream
Do While Not .AtEndOfStream
DoEvents
strReturn = .ReadLine
.SkipLine

Private Sub Command1_Click()
Dim path As Variant '定义路径文件名数组

path = Array("C:\1.his", "C:\2.his", "C:\3.his", "C:\4.his", "C:\5.his", "C:\6.his", "C:\7.his", "C:\8.his")
'数组初赋值
Dim i As Integer
For i = 0 To 7
Text1.Text = readLastLine(path(i))
VarData = Split(Text1.Text, ",", 6)
Next
End Sub

这么简单的问题你看看书知道怎么回事了

补充：
原来你想这样。你不会单步执行一下看看你的i是不是每次都会变成0？把选项 强制变量声明 打开，养成变量声明的好习惯，不然以后你转到其他语言会很不习惯的。

Option Explicit

Private Sub Command1_Click()
Static i as integer
Dim path As Variant '定义路径文件名数组
path = Array("C:\1.his", "C:\2.his", "C:\3.his", "C:\4.his", "C:\5.his", "C:\6.his", "C:\7.his", "C:\8.his")
'数组初赋值
Text1.Text = readLa