国家二级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版点下载