Question

VB要答辩了，求VB大神帮我看看这是什么东西。帮我分析一下这段代码，本人一窍不通。。。。。

Dim record_Num As Integer
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Dim i As Integer, filenum As Integer
If Dir(App.Path & "\data.dat") = "" Or FileLen(App.Path & "\data.dat") = 0 Then
MsgBox "没有数据可以浏览！", vbOKOnly + vbInformation, "错误"
Unload Me
End If
filenum = FreeFile
Open App.Path & "\data.dat" For Random As #filenum Len = Len(Nod)
record_Num = LOF(filenum) / Len(Nod)
While Not EOF(filenum)
Get #filenum, , Nod '从文件中读数据
Text1 = Text1.Text & vbCrLf & Trim(Nod.Name) & " " & Trim(Nod.Phone) & " " & Trim(Nod.Email) & " " & Trim(Nod.Addr)
Wend
Close #filenums
Label1.Caption = "总记录数： " & record_Num
End Sub

问题解决了，分不是事！！！
通过编写下列程序可以浏览数据。这是一个电话号码查询系统的程序，这一段代码是输入数据后浏览用的

Answer 1

Dim record_Num As Integer
'变量 存储的记录条数
Private Sub Command1_Click()
Unload Me
'单击此命令按钮则关闭当前窗口
End Sub

Private Sub Form_Activate()
Dim i As Integer, filenum As Integer

If Dir(App.Path & "\data.dat") = "" Or FileLen(App.Path & "\data.dat") = 0 Then
'如果当前程序所在目录下不存在名为data.dat的数据文件或者该文件大小为0字节则
MsgBox "没有数据可以浏览！", vbOKOnly + vbInformation, "错误"
'弹出一个对话框提示没有数据可以浏览
Unload Me
'然后退出程序
End If
filenum = FreeFile
'得到一个空闲的文件号
Open App.Path & "\data.dat" For Random As #filenum Len = Len(Nod)
'用这个文件号以随机的方式打开当前程序所在目录下的data.dat文件，每次读取的长度为一个Nod的长度
record_Num = LOF(filenum) / Len(Nod)
'计算记录的总条数=文件大小/一条记录的长度
While Not EOF(filenum)
'如果文件没有读取到最后则执行如下操作
Get #filenum, , Nod
'从文件中读取一条记录
Text1 = Text1.Text & vbCrLf & Trim(Nod.Name) & " " & Trim(Nod.Phone) & " " & Trim(Nod.Email) & " " & Trim(Nod.Addr)
'将读取到的记录添加到text1中的一个新行中，记录的各个属性中间用几个空格隔开
Wend
'循环结束后关闭文件
Close #filenums
Label1.Caption = "总记录数： " & record_Num
'Label1中显示记录总条数
End Sub

Answer 2

1、定义了一个按钮事件，点击按钮的时候关闭窗口，就是你那个退出按钮；
2、定义了一个窗口事件，当该窗口为活动时，加载程序目录下的data.dat文件内容到text1控件，然后累计出数据总量，显示到label1控件上；
3、当读取文件的时候，data.dat文件不存在或内容为空的话，关闭窗口

Answer 3

好久不玩vb了，大体解释一
定义record_Num为整型
单击 Command1触发事件
关闭当前窗体
这个和private是对应的，句式结构
窗体激活时触发事件
定义i为整型，filenum为整型
如果路径链接数据为空或者文件长度为0
然后显示“没有数据可以浏览”出现对话框报错
关闭当前窗体
与if是对应的结构，必须有
filenum等于FreeFile
打开文件，。。。（某些操作），如果记录不为空，提取filenum和Nod
Text1就为Text1.Text和 vbCrLf和Trim(Nod.Name)和Trim(Nod.Phone)和Trim(Nod.Email)和Trim(Nod.Addr)，其中Trim的效果是把字段中的空格去掉
关闭文件
Label1的名字为“总记录数：XX”
结束
基本是按每行来解释的。