帮忙解释vb的一段话!!

来源:百度知道 编辑:UC知道 时间:2024/05/25 20:53:37
=====================================
这个vb程序 ,有5个复选框,和1个按钮。

Private Sub Command1_Click()
Dim note
If Check1.Value = 1 Then note = Check1.Caption
If Check2.Value = 1 Then note = note & " " & Check2.Caption
If Check3.Value = 1 Then note = note & " " & Check3.Caption
If Check4.Value = 1 Then note = note & " " & Check4.Caption
If Check5.Value = 1 Then note = note & " " & Check5.Caption
MsgBox "您选择的是: " & note
End Sub

要求解释这几句中 第2个等于号 后面的note & " " & Check2.Caption 含义

If Check1.Value = 1 Then note = Check1.Caption
If Check2.Value = 1 Then note = note & " " & Check2.Caption
If Check3.Value = 1 Then note = note & " " & Check3.Caption
If Check4.Value = 1 Then note = note & " " & Check4.Caption
If Check5.Value = 1 Then note = note & " " & Check5.Caption

Private Sub Command1_Click()
' 模块级过程 Command1_click(命令按钮Command1发的Click事件过程)

Dim note
' 变量声明note,类型为Variant

If Check1.Value = 1 Then note = Check1.Caption
' 如果check1已选,则在原note值后加空格再加上check1的caption文字

If Check2.Value = 1 Then note = note & " " & Check2.Caption
' 如果check2已选,则在原note值后加空格再加上check2的caption文字

If Check3.Value = 1 Then note = note & " " & Check3.Caption
' 如果check3已选,则在原note值后加空格再加上check3的caption文字

If Check4.Value = 1 Then note = note & " " & Check4.Caption
' 如果check4已选,则在原note值后加空格再加上check4的caption文字

If Check5.Value = 1 Then note = note & " " & Check5.Caption
' 如果check5已选,则在原note值后加空格再加上check5的caption文字

MsgBox "您选择的是: " & note
' 生成一个消息框,其标题为工程名称,内容为“您选择的是: ”加上note变量的值

End Sub
' 过程结束

note 连接一个空字符串 在连接 Check2.Caption

note 连接一个