问答题
注意：下面出现的“考生文件夹”均为c:/wexam/25160001。
(1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有一个名称为Text1的文本框，一个名称为C1，标题为“校验”的命令按钮。其中文本框用来输入口令，如图5-3所示，要求在文本框中输入的内容都必须以“*”显示(请考生通过属性窗口设置)。要求程序运行后，输入口令，单击命令按钮后，对口令进行校验。如果输入的内容是“ABC”这3个大写字母，则用MsgBox信息框输出“正确”，否则输出“错误”，如图5-4所示。
(2)在考生文件夹中有工程文件sjt4.vbp及其窗体文件sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有3个名称分别为Ch1、Ch2和Ch3的复选框，标题依次为“程序设计”、“数据库原理”和“计算机网络”，还有一个名称为C1，标题为“选课”的命令按钮，如图5-5所示。要求程序运行后，如果选择某个复选框，当单击命令按钮时在窗体上输出相应的信息。例如：如果选择“程序设计”和“数据库原理”复选框，单击命令按钮后，将在窗体上显示“我选的课程是程序设计数据库原理”。
(1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有一个名称为Text1的文本框，一个名称为C1，标题为“校验”的命令按钮。其中文本框用来输入口令，如图5-3所示，要求在文本框中输入的内容都必须以“*”显示(请考生通过属性窗口设置)。要求程序运行后，输入口令，单击命令按钮后，对口令进行校验。如果输入的内容是“ABC”这3个大写字母，则用MsgBox信息框输出“正确”，否则输出“错误”，如图5-4所示。
(2)在考生文件夹中有工程文件sjt4.vbp及其窗体文件sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有3个名称分别为Ch1、Ch2和Ch3的复选框，标题依次为“程序设计”、“数据库原理”和“计算机网络”，还有一个名称为C1，标题为“选课”的命令按钮，如图5-5所示。要求程序运行后，如果选择某个复选框，当单击命令按钮时在窗体上输出相应的信息。例如：如果选择“程序设计”和“数据库原理”复选框，单击命令按钮后，将在窗体上显示“我选的课程是程序设计数据库原理”。
【正确答案】(1)[解析]在窗体上建立好控件后，先设置控件属性，再编写事件过程。
单击命令按钮或窗体触发的是Click事件，因此，程序中应该编写命令按钮的Click事件过程，按钮的标题通过Caption属性设置；要使文本框的内容在输入时显示为“*”，则应该将PasswordChar属性设置为“*”。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表5-3。
[*]
第二步：编写程序代码。
程序提供的代码：
Option Explicit
Private Sub C1_Click()
' If Text1.Text = "?" Then MsgBox "?" Else MsgBox “错误”
End Sub
参考代码：
Option Explicit
Private Sub C1_Click()
If Text1.Text = "ABC" Then MsgBox “正确” Else MsgBox "错误"
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)[解析]建立好控件后，先设置控件属性，再编写事件过程。
复选框用来表示状态，在程序运行期间可以改变其状态。复选框的标题由Caption属性来设置，复选框的Value属性用来表示复选框的状态。其取值有如下几种：
0：表示复选框未被选中；
1：表示选中该复选框；
2：表示该复选框被禁止(灰色)。
在窗体上打印信息用Print方法，单击命令按钮触发的是Click事件。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表5-4。
[*]
第二步：编写程序代码。
程序提供的代码：
Option Explicit
Private Sub C1_Click()
Dim s As String
s=“我选的课程是”
If Ch1.Value = 1 Then
s=s &“程序设计”
End If
If Ch2.Value = 1 Then
s=s &“数据库原理”
End If
If Ch3.Value = 1 Then
's = s & Ch3.?
End If
' Print ?
End Sub
参考代码：
Option Explicit
Private Sub C1_Click()
Dim s As String
s=“我选的课程是”
If Ch1.Value = 1 Then
s= s &“程序设计”
End If
If Ch2.Value=1 Then
s=s &“数据库原理”
End If
If Ch3.Value=1 Then
s=s & Ch3.Caption
End If
Print s
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
单击命令按钮或窗体触发的是Click事件，因此，程序中应该编写命令按钮的Click事件过程，按钮的标题通过Caption属性设置；要使文本框的内容在输入时显示为“*”，则应该将PasswordChar属性设置为“*”。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表5-3。
[*]
第二步：编写程序代码。
程序提供的代码：
Option Explicit
Private Sub C1_Click()
' If Text1.Text = "?" Then MsgBox "?" Else MsgBox “错误”
End Sub
参考代码：
Option Explicit
Private Sub C1_Click()
If Text1.Text = "ABC" Then MsgBox “正确” Else MsgBox "错误"
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)[解析]建立好控件后，先设置控件属性，再编写事件过程。
复选框用来表示状态，在程序运行期间可以改变其状态。复选框的标题由Caption属性来设置，复选框的Value属性用来表示复选框的状态。其取值有如下几种：
0：表示复选框未被选中；
1：表示选中该复选框；
2：表示该复选框被禁止(灰色)。
在窗体上打印信息用Print方法，单击命令按钮触发的是Click事件。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表5-4。
[*]
第二步：编写程序代码。
程序提供的代码：
Option Explicit
Private Sub C1_Click()
Dim s As String
s=“我选的课程是”
If Ch1.Value = 1 Then
s=s &“程序设计”
End If
If Ch2.Value = 1 Then
s=s &“数据库原理”
End If
If Ch3.Value = 1 Then
's = s & Ch3.?
End If
' Print ?
End Sub
参考代码：
Option Explicit
Private Sub C1_Click()
Dim s As String
s=“我选的课程是”
If Ch1.Value = 1 Then
s= s &“程序设计”
End If
If Ch2.Value=1 Then
s=s &“数据库原理”
End If
If Ch3.Value=1 Then
s=s & Ch3.Caption
End If
Print s
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
【答案解析】