国家二级VB机试（上机操作）模拟试卷417
基本操作题
1.(1)在名称为Form1，标题为“选课”的窗体上添加一个复选框数组，名称为CH1，共有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机”复选框处在选中状态下，程序运行时的窗体如图所示。请按要求添加控件并设置相应属性。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为HS1的水平滚动条，其刻度值范围为1～100；添加一个命令按钮，名称为C1，标题为“移动滚动框”。请编写适当的事件过程，使得在程序运行时，每单击命令按钮一次(假定单击次数不多于10次)，滚动框向右移动10个刻度。程序运行时的窗体如图所示。要求程序中不得使用变量，事件过程中只能写一条语句。
(1)【操作步骤】
步骤1：新建窗体，按照题目要求建立控件并设置属性，如表3．30所示。
[*]
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1：新建一个窗体，按照题目要求建立滚动条控件及命令按钮控件并设置其属性，如图3．25所示。
[*]
程序中用到的控件及属性见表3．31。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub C1_Click()
HSI．Value＝HS1．Value＋10 ’当用户单击\\
解析：
简单应用题
2.(1)在名称为Form1的窗体上添加—个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为M1、M2、M3。请编写适当的事件过程，在程序运行时，当用鼠标右键单击文本框时，弹出菜单，选中—个菜单项后，则按所选菜单标题设置文本框中文本的格式，如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt3．vbp，窗体文件名保存为sjt3．frm。
(2)在考生文件夹下有一个工程文件sjt4．vbp，含有Form1和Form2两个窗体，其中Form1为启动窗体，窗体上的控件如图1所示。程序运行后，在Form1窗体的文本框中输入有关信息(如“密码”文本框中显示“*”字符)，然后单击“提交”按钮，弹出“确认”对话框(Form2窗体)，并在Form2中显示Form1中输入的信息，如图2所示。单击“确认”按钮，程序结束，单击“重输”按钮，Form2消失，回到Form1窗体。在给出的窗体文件中已经给出了程序，但不完整。
要求：
①将Form1的标题改为“注册”，将Form2的标题改为“确认”；
②设置适当的属性，使Form2标题栏右上角的所有按钮消失(如图2所示)；
③去掉程序中的注释符，把其中的?改为正确的内容。
注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中进行。最后将修改后的文件按原文件名存盘。
(1)【操作步骤】
步骤1：新建一个窗体，按照题目要求建立名称为“Text1”的文本框控件及一个弹出式菜单并设置菜单属性，程序中用到菜单属性见表3．32。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub M1_CliCk()
Text1．FontBold＝True ’设置字体为加粗
End Sub
Private Sub M2_Click()
Text1．FontItalic＝True’设置字体为斜体
End Sub
Private Sub M3_Click()
Text1．FontUnderline＝True’为文字加下划线 End Sub
Private Sub Text1_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)
If Button＝2 Then ’断是否执行该事件
Me．PopupMenu Format ’显示菜单
End If
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1：打开本题工程文件，按照题目要求设置属性，如图3．26所示。
[*]
步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容，并在指定位置编写代码。
参考答案
Private Sub C1_C1ick()
Dim k As Inteqer
Form2．Show ’当单击\\
解析：
综合应用题
3.在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有两个标签L1和L2，标题分别为“口令”和“允许次数”；一个命令按钮C1，标题为“确定”；两个文本框名称分别为Text1和Text2。其中Text1用来输入口令(输入时，文本框内容显示“*”)，初始内容为空；Text2的初始内容为3。并给出了C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得程序运行时，在Text1中输入口令后，单击“确定”，如果输入的是“123456”则在Text1中显示“口令正确”；如果输入其他内容，单击“确定”后，弹出错误提示对话框(如图所示)，并且Text2中的数字减1。最多可输入3次口令，若3次都输人错误，则禁止再次输入。
注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
【操作步骤】
步骤1：打开本题工程文件，将文本框Text1的PasswordChar属性设置为“*”。
步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。
参考答案
Private Sub C1_Click()
If Text1．Text ＝ \\
解析：
本文档预览：3600字符，共3556字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
