UC知道某个程序里的一小段代码，乞求翻译。
来源：百度知道 编辑：UC知道 时间：2024/06/11 08:35:29
Private Sub Form_Load()
Dim CRLF As String
CRLF = Chr$(13) & Chr$(10)
Dim Msg As String
Msg = CRLF & CRLF & "Author: S.Ramani" & CRLF
Msg = Msg & "Copyright (c) 1995 Microsoft Corp."
lblAbout.Caption = Msg
End Sub
这是一段在某个程序里切出来的一小段代码。
请求逐句逐句的翻译。
翻译好的加分给，谢谢。
Dim CRLF As String
CRLF = Chr$(13) & Chr$(10)
Dim Msg As String
Msg = CRLF & CRLF & "Author: S.Ramani" & CRLF
Msg = Msg & "Copyright (c) 1995 Microsoft Corp."
lblAbout.Caption = Msg
End Sub
这是一段在某个程序里切出来的一小段代码。
请求逐句逐句的翻译。
翻译好的加分给，谢谢。
Private Sub Form_Load() '窗体加载程序开始
Dim CRLF As String '定义CRLF为字符变量
CRLF = Chr$(13) & Chr$(10) 'CRLF=换行符
Dim Msg As String '定义msg为字符变量
Msg = CRLF & CRLF & "Author: S.Ramani" & CRLF 'msg=换行+换行+"Author: S.Ramani"+换行
Msg = Msg & "Copyright (c) 1995 Microsoft Corp." 'msg=换行+换行+"Author: S.Ramani"+换行+"Copyright (c) 1995 Microsoft Corp."
lblAbout.Caption = Msg 'lblAbout.Caption=换行+换行+"Author: S.Ramani"+换行+"Copyright (c) 1995 Microsoft Corp."
End Sub '窗体加载程序结束
Private Sub Form_Load()
Dim CRLF As String '定义字符变量
CRLF = Chr$(13) & Chr$(10) '给这个字符赋值<回车换行>
Dim Msg As String '定义一个名称为Msg的字符变量
Msg = CRLF & CRLF & "Author: S.Ramani" & CRLF '给msg赋值,内容是先两个空行,然后是引号中的内容,然后再换行
Msg = Msg & "Copyright (c) 1995 Microsoft Corp." '给msg变量赋值
lblAbout.Caption = Msg