VB问题，Dir1.Path= Drive1.Drive File1.Pah=Dir1.Path Debug.Print Fn 都是什么意思啊泪！

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub File1_Click()
Dim s As String, Fn As String
Fn = Dir1.Path & "\" & File1.FileName
Debug.Print Fn
Open Fn For Input As #1
Text1.Text = ""
Do While Not EOF(1)
Line Input #1, s
Text1.Text = Text1.Text & s & Chr(13) & Chr(10)
Loop
Close #1
End Sub
Private Sub Form_Load()
End Sub
里面的Chr（13）和Chr（10）都是什么意思？ 主要是上面的 Dir1.Path = Drive1.Drive， File1.Path = Dir1.Path，Text1.Text = Text1.Text & s & Chr(13) & Chr(10)，Debug.Print Fn这几句不懂，谢谢大神！

Chr(13)是回车，Chr(10)是换行，那么Chr(13) & Chr(10)就是回车换行的意思。可以用常数vbCrLf来代替，即

Text1.Text = Text1.Text & s & Chr(13) & Chr(10)

可改为
Text1.Text = Text1.Text & s & vbCrLf

Dir1.Path = Drive1.Drive 是把Dir1的路径设为Drive1中选定的驱动器的根目录

File1.Path = Dir1.Path 是把File1的文件列表设为Dir1中选定的文件夹里面的文件

以上两句结合就可以使这三个控件实现联动

Debug.Print Fn是把Fn的内容输出到立即窗口

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息