这个VB程序老做不对~~~

来源：百度知道 编辑：UC知道 时间：2024/06/27 04:35:51
出来的效果总不是正确的，请教一下高手：
（1）设计一个Form上有1个文本框、2个复选框，其标题分别为：“ck1”和“ck2”、3个命令按钮：“显示”、“清除”和“退出”。
（2）单击“显示”按钮，在文本框中显示2个复选框的状态，如：ck1选中，ck2未选中等。
（3）单击“清除”按钮时，清空文本框中的内容。
（4）单击“退出”按钮结束程序运行。

//按下清除按钮cmd_Clean
Private Sub cmd_Clean_Click()
Text1.Text = "" //将文本框Text1内容置空
Text1.Refresh
End Sub

//按下显示按钮cmd_Display
Private Sub cmd_Display_Click()
Dim str1 As String
str1 = "ck1" + IIf(ck1.Value, "选中", "未选中") + "，ck2" + IIf(ck2.Value, "选中", "未选中") //将文本框Text1内容ck1和ck2的选择状态
Text1.Text = str1
Text1.Refresh
End Sub

//按下退出按钮cmd_Quit
Private Sub cmd_Quit_Click()
Unload Me
End Sub