一个基础VB实例忘解惑~！

Private k As Integer

Private Sub Command1_Click()
Dim i As Integer
Dim ans As String
For i = 0 To 3
If Text1(i) = "" Then
ans = MsgBox("清填写完整的花名册信息!", vbOKOnly, "警告")
If ans = 1 Then Exit Sub
End If
Next i
If k > 0 Then （请问变量K是什么时候赋值的啊~？）
MsgBox "正在读取文件!当另一按钮为显示时，读取文件结束。", vbOKOnly, "警告"
Exit Sub
End If
Open App.Path & "/花名册.txt" For Append As #1
For i = 0 To 3
Print #1, Text1(i).Text
Next i
Close 1
For i = o To 3
Text1(i) = ""
Next i
End Sub

Private Sub Command2_Click()
Dim i As Integer
Dim str As String
k = k + 1
If Command2.Caption = "重新显示" Then
Command2.Caption = "显示"
k = 0
Exit Sub
End If
If k = 1 Then
Command2.Caption = "下一条"
Open App.Path & "/花名册.txt"

求一个 VB实例 电子家谱 一个简单的VB实例的编写。 vb问题：如何只运行一个实例 问一个vb基础问题 VB高手来解惑！！ 问一个很基础的VB问题. 关于VB一个很基础的问题~ 请教一个关于VB的基础问题 求VB+MAPX实例 vb的实例应用