关于VB程序的问题

以下程序主要是Put #1, 4, Pal中的4不太懂还有Put #1, 5, Pal中的5。还这句话中的最后那个连接的VBcrlf是什么？Txt1.Text = Txt1.Text & Pal.Name & Pal.Tel & Pal.Post & vbCrLf

 

Private Type PalInfo
    Name As String * 8
    Tel As String * 10
    Post As Long
End Type
Dim Pal As PalInfo

Private Sub Cmd1_Click()
      Open App.Path & "\dr191.dat" For Random As #1 Len = Len(Pal)
    Pal.Name = "Zhangnan"
    Pal.Tel = "66666666"
    Pal.Post = 100042
    Put #1, 4, Pal
    Pal.Name = "Wangjie"
    Pal.Tel = "88888888"
    Pal.Post = 100037
    Put #1, 5, Pal
    Close #1
End Sub

Private Sub Cmd2_Click()
    Txt1.Text = ""
    Open App.Path & "\dr191.dat" For Random As #1 Len = Len(Pal)
    While Not EOF(1)
        Get #1, , Pal
        Txt1.Text = Txt1.Text & Pal.Name & Pal.Tel & Pal.Post & vbCrLf
    Wend
    Close #1
End Sub

 

4，5就是写在第4，5行

VBCRLF是换行符  也就是取一条记录后 字符串加个换行符 

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

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