(1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的，在窗体上有两个名称分别为Textl和Text2的文本框，一个名称为Commandl，标题为“登录”的命令按钮。其中Textl文本框用来输入用户名，Text2文本框用来输入口令，要求在Text2文本框中输人的内容都必须以“*”显示(请考生通过属性窗口设置)，初始运行时两个文本框均为空。要求程序运行后，输入用户名口令，单击命令按钮后，对口令进行校验。如果输入的内容都是“ABC”这3个大写字母，则用MsgBox信息框输出“正确”，否则输出“错误”，如图18—3所示。 注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)。但不能修改其他部分。存盘时不得-改变文件名和文件夹。 (2)在考生文件夹中有工程文件sj4.vbp及其窗体文件sj4．frm，该程序是不完整的。在窗体上有3个名称分别为Checkl、claeck2和check3的复选框，标题依次为“c++”、“Basic”和“JAVA”；有一个名称为Labell，标题为“编程语言”的标签，还有一个名称为Commandl，标题为“显示”的命令按钮。要求程序运行后，如果选择某个复选框，当单击命令按钮时在窗体上输出相应的信息。例如：如果选择“C++”和“JAVA”复选框，单击显示按钮后，将在窗体上显示“我会的编程语言是C++JAVA”，如图18—4所示。
【正确答案】正确答案：(1)根据题意，将两个文本框控件和命令按钮添加到窗体中，两个文本框的名称为Textl和Text2，Text2的PasswordChar属性为“*”，命令按钮的名称为Commandl，Caption属性为“登录”。双击Commandl进入代码编辑窗口，编写如下代码： Private Sub Commandl_Click() If Textl．
Text
="ABC"And Text2．
Text
="ABC"Then'判断是否都为ABC
MsgBox
("正确") '是则弹出“正确”对话框 Else
MsgBox
("错误") '否则弹出“错误”对话框 End If End Sub 单击
按钮运行程序，并按要求保存。 (2)根据题意，将3个复选按钮控件、一个标签和一个命令按钮添加到窗体中，标签的Caption属性为“编程语言”，命令按钮的名称为Commandl，Caption属性为“显示”，3个复选按钮控件的名称分别为Checkl、Check2和Check3，Caption属性分别为“C++”、“Basic”和“JAVA”。双击命令按钮进入代码编写窗口，编写如下代码： Private Sub Commandl_Click() Dim str As String str="我会的编程语言是" If Checkl．
Value
=1 Then'Checkl被选中 str=str+Checkl．
Caption
End If If Check2．
Value
=1 Then'Check2被选中 str=str+Check2．
Caption
End If If Check3．
Value
=1 Then'Check3被选中 str=str+Check3．
Caption
End If Print str End Sub 单击
按钮运行程序，并按要求保存。 (2)根据题意，将3个复选按钮控件、一个标签和一个命令按钮添加到窗体中，标签的Caption属性为“编程语言”，命令按钮的名称为Commandl，Caption属性为“显示”，3个复选按钮控件的名称分别为Checkl、Check2和Check3，Caption属性分别为“C++”、“Basic”和“JAVA”。双击命令按钮进入代码编写窗口，编写如下代码： Private Sub Commandl_Click() Dim str As String str="我会的编程语言是" If Checkl．
Value
=1 Then'Checkl被选中 str=str+Checkl．
Caption
End If If Check2．
Value
=1 Then'Check2被选中 str=str+Check2．
Caption
End If If Check3．
Value
=1 Then'Check3被选中 str=str+Check3．
Caption
End If Print str End Sub 单击
【答案解析】