1、VB 机试-试卷 102 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在 Forml 的窗体上绘制一个图片框，其名称为 Picturel。编写适当的事件过程，使程序运行后，若单击窗体，则从图片框的(300，600)位置处开始显示“Visual Basic。程序运行情况如图 361 所示。注意：程序中不得使用任何变量。文件必须存放在考生文件夹中，工程文件名为 sjlvbp，窗体文件名为 sjlfrm。 (2)在 Forml 的窗体上绘制一个文本框，名称为 Textl；绘制一个命令按钮，名称为Com
2、mandl，标题为“显示”，TabIndex 属性设为 0。请为 Commandl 设置适当的属性，使得当焦点在Commandl 时，按 Esc 键就调用 Commandl 的 Click 事件，该事件过程的作用是在文本框中显示“Visual Basic 程序设计”，程序运行结果如图 362 所示。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹中有工程文件 sj3vbp 及其窗体文件 sj3frm，该程序是不完整的，在窗体上有两个名称分别为 Textl 和 Text2 的文本框，一个名称为 Commandl，标题为
3、“登录”的命令按钮。其中 Textl文本框用来输入用户名，Text2 文本框用来输入口令，要求在 Text2 文本框中输人的内容都必须以“*”显示(请考生通过属性窗口设置)，初始运行时两个文本框均为空。要求程序运行后，输入用户名口令，单击命令按钮后，对口令进行校验。如果输入的内容都是“ABC”这 3 个大写字母，则用 MsgBox 信息框输出“正确”，否则输出“错误”，如图 183 所示。 注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”号)。但不能修改其他部分。存盘时不得-改变文件名和文件夹。 (2)在考生文件夹中有工程文件 sj4.vbp 及其窗体文件 sj
4、4frm，该程序是不完整的。在窗体上有 3 个名称分别为 Checkl、claeck2 和 check3 的复选框，标题依次为“c+”、“Basic”和“JAVA”；有一个名称为Labell，标题为“编程语言”的标签，还有一个名称为 Commandl，标题为“显示”的命令按钮。要求程序运行后，如果选择某个复选框，当单击命令按钮时在窗体上输出相应的信息。例如：如果选择“C+”和“JAVA”复选框，单击显示按钮后，将在窗体上显示“我会的编程语言是 C+JAVA”，如图 184 所示。（分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生目录
5、下有一个工程文件 sj5vbp，其窗体上有两个标签 L1 和 L2，标题分别为“口令”和“允许次数”；一个命令按钮 C1，标题为“确定”；两个文本框，名称分别为 Text1 和 Text2。其中 Text1 用来输人口令(输入时，文本框内容显示“*”)，初始内容为空；Text2 的初始内容为 3。并给出了 Cl 的事件过程，但不完整，要求去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使得程序运行时，在 Text1 中输人口令后，单击“确定”，如果输入的是“123456”则在 Text1 中显示“口令正确”；如果输入其他内容，单击“确定”后，弹出错误提示对话框(如图 686 所示)，并
6、且 Text2 中的数字减 1。最多可输入 3 次口令，若 3 次都输入错误，则禁止再次输入。 （分数：2.00）_VB 机试-试卷 102 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在 Forml 的窗体上绘制一个图片框，其名称为 Picturel。编写适当的事件过程，使程序运行后，若单击窗体，则从图片框的(300，600)位置处开始显示“Visual Basic。程序运行情况如图 361 所示。注意：程序中不得使用任何变量。文件必须存放在考生文件夹中，工程文件名为 sjlvbp，窗体文
7、件名为 sjlfrm。 (2)在 Forml 的窗体上绘制一个文本框，名称为 Textl；绘制一个命令按钮，名称为Commandl，标题为“显示”，TabIndex 属性设为 0。请为 Commandl 设置适当的属性，使得当焦点在Commandl 时，按 Esc 键就调用 Commandl 的 Click 事件，该事件过程的作用是在文本框中显示“Visual Basic 程序设计”，程序运行结果如图 362 所示。 （分数：2.00）_正确答案：(正确答案：(1)本题主要考查图片框控件的画法和属性设置，以及简单的窗体事件的编写。根据题意，新建“标准 EXE”工程，在窗体上添加一个名称为 Pi
8、cturel 的图片框，设计完成后，进入代码窗口编写如下代码： Private Sub Form_Click() PicturelCurrentX=300 图片框 X 方向坐标 PicturelCurrentY=600 图片框 Y 方向坐标 PicturelPrint“Visual Basic“ 在图片框显示 Visual Basic End Sub 单击 按钮运行程序，并按要求保存。 (2)命令按钮的 Cancel 属性返回或设置一个值，用来指示窗体中命令按钮是否为取消按钮，它有两种取值：True 和 False。值为 True 时，命令按钮不是窗体的取消按钮，按 Esc 键与单击该命令按钮
9、的作用相同；值为 False 时，命令按钮是窗体的取消按钮。 根据题意，新建“标准 EXE”工程，在窗体上添加一个文本框，其名称为“Textl”，一个命令按钮，其名称为 Commandl、Caption 属性为“显示”、Cancel 属性为“True”，TabIndex 属性为 0。设置完成后双击 Commandl 命令按钮，编写如下代码： Private Sub Commandl_Click() TextlText=“Visual Basic 程序设计“ End Sub 单击 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在考生文件
10、夹中有工程文件 sj3vbp 及其窗体文件 sj3frm，该程序是不完整的，在窗体上有两个名称分别为 Textl 和 Text2 的文本框，一个名称为 Commandl，标题为“登录”的命令按钮。其中 Textl文本框用来输入用户名，Text2 文本框用来输入口令，要求在 Text2 文本框中输人的内容都必须以“*”显示(请考生通过属性窗口设置)，初始运行时两个文本框均为空。要求程序运行后，输入用户名口令，单击命令按钮后，对口令进行校验。如果输入的内容都是“ABC”这 3 个大写字母，则用 MsgBox 信息框输出“正确”，否则输出“错误”，如图 183 所示。 注意：请在有“?”的地方填入正
11、确内容，然后删除“?”及代码前的所有注释符(即“”号)。但不能修改其他部分。存盘时不得-改变文件名和文件夹。 (2)在考生文件夹中有工程文件 sj4.vbp 及其窗体文件 sj4frm，该程序是不完整的。在窗体上有 3 个名称分别为 Checkl、claeck2 和 check3 的复选框，标题依次为“c+”、“Basic”和“JAVA”；有一个名称为Labell，标题为“编程语言”的标签，还有一个名称为 Commandl，标题为“显示”的命令按钮。要求程序运行后，如果选择某个复选框，当单击命令按钮时在窗体上输出相应的信息。例如：如果选择“C+”和“JAVA”复选框，单击显示按钮后，将在窗体上
12、显示“我会的编程语言是 C+JAVA”，如图 184 所示。（分数：2.00）_正确答案：(正确答案：(1)根据题意，将两个文本框控件和命令按钮添加到窗体中，两个文本框的名称为Textl 和 Text2，Text2 的 PasswordChar 属性为“*”，命令按钮的名称为 Commandl，Caption 属性为“登录”。双击 Commandl 进入代码编辑窗口，编写如下代码： Private Sub Commandl_Click() If Textl Text =“ABC“And Text2 Text =“ABC“Then判断是否都为 ABC MsgBox (“正确“) 是则弹出“正确”
13、对话框 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 Str
14、ing str=“我会的编程语言是“ If Checkl Value =1 ThenCheckl 被选中 str=str+Checkl Caption End If If Check2 Value =1 ThenCheck2 被选中 str=str+Check2 Caption End If If Check3 Value =1 ThenCheck3 被选中 str=str+Check3 Caption End If Print str End Sub 单击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生目录下有一个工程文件 sj5v
15、bp，其窗体上有两个标签 L1 和 L2，标题分别为“口令”和“允许次数”；一个命令按钮 C1，标题为“确定”；两个文本框，名称分别为 Text1 和 Text2。其中 Text1 用来输人口令(输入时，文本框内容显示“*”)，初始内容为空；Text2 的初始内容为 3。并给出了 Cl 的事件过程，但不完整，要求去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使得程序运行时，在 Text1 中输人口令后，单击“确定”，如果输入的是“123456”则在 Text1 中显示“口令正确”；如果输入其他内容，单击“确定”后，弹出错误提示对话框(如图 686 所示)，并且 Text2 中的数字减
16、 1。最多可输入 3 次口令，若 3 次都输入错误，则禁止再次输入。 （分数：2.00）_正确答案：(正确答案：本题主要考查文本框的 Text、PasswordChar 和 Enabled 属性，&连接符以及MsgBox()函数。根据题意将文本框控件 Text1 的 PasswordChar 属性设置为“*”。双击进入代码窗口，编写如下代码： Private Sub C1_Click() If Text1Text =“123456“Then Text1.Text=“口令正确“ Text1 PasswordChar =“ Else Text2Text=Text2Text-1 If Text2Text0 Then MsgBox“第“&(3-Text2Text)&“次 13 令错误，请重新输入“ Else MsgBox“3 次输入错误，请退出“ Text1Enabled= False End If End If End Sub 单击 )解析：
