Question

急，用VB程序，创建一个command1，二个text，在text中输入1，之后点击command1，text2中的内容为

text2中的内容为E：/文件/02.txt中的第二行的第三个数字

Answer 1

在text中输入1，这是做什么用的？

追问

只有当text1中为1，才会text2中跳出E：/文件/02.txt中的第二行的第三个数字相当于密码吧，不是1就不会跳出来

追答

Private Sub Command1_Click()
Dim s As String
If Text1.Text = "1" Then
Open "e:\文件\02.txt" For Input As #1
Line Input #1, s
Line Input #1, s
Text2.Text = Mid(s, 3, 1)
Close #1
End If
End Sub