[计算机类试卷]国家二级VB机试(上机操作)模拟试卷128及答案与解析.doc

上传人:brainfellow396 文档编号:499519 上传时间:2018-11-29 格式:DOC 页数:7 大小:111.50KB
下载 相关 举报
[计算机类试卷]国家二级VB机试(上机操作)模拟试卷128及答案与解析.doc_第1页
第1页 / 共7页
[计算机类试卷]国家二级VB机试(上机操作)模拟试卷128及答案与解析.doc_第2页
第2页 / 共7页
[计算机类试卷]国家二级VB机试(上机操作)模拟试卷128及答案与解析.doc_第3页
第3页 / 共7页
[计算机类试卷]国家二级VB机试(上机操作)模拟试卷128及答案与解析.doc_第4页
第4页 / 共7页
[计算机类试卷]国家二级VB机试(上机操作)模拟试卷128及答案与解析.doc_第5页
第5页 / 共7页
点击查看更多>>
资源描述

1、国家二级 VB机试(上机操作)模拟试卷 128及答案与解析 一、基本操作题 1 在名称为 Form1,标题为 “图片 ”的窗体上添加 1个名称为 Image1的图像框,其高为 2500,宽为 2000。请通过属性窗口设置适当属性,将考生文件夹下的图片文件pic1 jpg插入图像框,并使图片自动适应图像框的大小 (如图所示 )。注意:存盘时必须存放在考生文件夹下,工程文件名保存为 sjt1 vbp,窗体文件名保存为sjt1 frm。 2 在名称为 Form1的窗体上添加一个名称为 Label1,标题为 “口令 ”的标签;添加一个名称 为 Text1的文本框;再添加三个命令按钮,名称分别为 Com

2、mand1、Command2、 Command3,标题分别为 “显示口令 ”、 “隐藏口令 ”、 “重新输入 ”。程序运行时,在 Text1中输入若干字符,单击 “隐藏口令 ”按钮,则只显示与字符同样数量的 “*”(如图 2所示 );单击 “显示口令 ”按钮,则正常显示输入的字符 (如图 1所示 ),单击 “重新输入 ”按钮,则清除 Text1中的内容,并把光标定位到 Text1中。要求:请按要求添加所有控件,编写命令按钮的 Click事件过程,程序中不得使用变量,在 “显示口令 ”、 “隐藏口令 ”按 钮的事件过程中只能写 1条语句。存盘时必须存放在考生文件夹下,工程文件名为 sjt2 vb

3、p,窗体文件名为 sjt2 frm。二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp,在程序运行时,单击 “输入整数 ”按钮,输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。图 1是输入 53后的结果,图 2是输入 100后的结果。已经给出了全部控件和程序,但程序不完整。要求:请去掉程序中的注释符,把程序中的 ?改为正确的内容。不能修改程序中的其他部分,也不能修改控件的属性。最后用原来的文件名保存工程文 件和窗体文件。4 在考生文件夹下有一个工程文件 sjt4 vbp。在其窗体中 “待选城市 ”下的 List1列表框中有若干个城市名称。程序运行时,选中 List1

4、中若干个列表项 (如图 1所示 ),单击 “选中 ”按钮则把选中的项目移到 List2中,单击 “显示 ”,则在 Text1文本框中显示这些选中的城市 (如图 2所示 )。已经给出了所有控件和程序,但程序不完整。要求:请去掉程序中的注释符,把程序中的 ?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。三、综合 应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部

5、控件,但程序不完整。 要求:请去掉程序中的注释符,把程序中的 ?改为正确的内容,使其能正确运行,不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 国家二级 VB机试(上机操作)模拟试卷 128答案与解析 一、基本操作题 1 【正确答案】 操作步骤 步骤 1:新建一个 窗体,按照题目要求建立控件并设置其属性,如表 3 33所示。 步骤2:调试并运行程序,关闭程序后按题目要求存盘。 2 【正确答案】 操作步骤 步骤 1:新建一个窗体,按照题目要求建立标控件,程序中用到的控件及属性见表 3 34和表 3 35。步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将问号改为正确的

6、内容。参考代码 (画下划线部分是需填入的内容 )Private Sub Command1 Click()Text1 PasswordChar=“当 PasswordChar属性设置为空时, Text1文本框显 示内容 End SubPrivate Sub Command2 C1ick()Text1 PasswordChar=“*“当 PasswordChar属性设置为 *时,用 *代替 Text1文本框中的字符显示 End SubPrivate Sub Command3 C1ick()Text1=“清空文本框Text1 SetFocusText1获得焦点 End Sub步骤 4:调试并运行程序

7、,关闭程序后按题目要求存盘。 二、简单应用题 3 【正确答案】 操作步骤 步骤 1:打开本题工程文件。 步骤 2:打开代码编 辑窗口,去掉程序中的注释符,将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Private Sub Command1 Click() Dim n AS Integer Cls清空窗体 n=InputBox(“请输入一个整数 “)InputBox返回值赋给 n Print“因子数 =“; fun(n)调用 fun函数并打印结果 End Sub Function fun(m As Integer) Dim S As Integer S=0 For k=1

8、 To Abs(m) 2 If m Mod k=0Then当整除余数为 0时则一定是它的因子 S=S+1 Print k End If Next k fun=s返回因子总数 End Function 程序结束 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 4 【正确答案】 操作步骤 步骤 1:打开本题工程文件。 步骤 2:打开代码编辑窗口,去掉程序中的注释符,将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Private Sub Command1_Click() Dim k For k=List1 ListCount_1 To 0Step-1 k从最大到 0,则步长

9、应为 -1 If List1 Selected(k)=True Then List2 AddItemList1 List(k)添加项到 LiSt2中 List1 RemoveItemk 通过下标删除 List1中的项目 End It Next k End Sub Private Sub Command2 Click() Dim k Text1=“已经选中的城市有: “ For k=0 To LiSt2 LiStCount-1 Step 1 Text1=Text1 Text&“&List2 List(k) 将 List2中的项目连接在 Text1中的内容之后 Next k End Sub 步骤

10、3:调试并运行程序,关闭程序后按题目要求存盘。 三、综合应用题 5 【正确答案】 操作步骤 步骤 1:打开本题工程文件。 步骤 2:打开代码编辑窗口,去掉程序中的注释符,将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Dim stepy As Integer 纵向移动增量 Dim stepx As Integer 横向移动增量 Const LEFT_BUTTON=1 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X AsSingle, y As Single) Dim x0 As Intege

11、r, y0 As Integer, a AsSingle, radius As_Integer radius=Shape1 Width 2 圆的半径 If Button=LEFT_BUTTON Then 单击鼠标左键移动 x0=Shape1 Left+radius圆心的 x坐标 y0=Shape1 Top+radius圆心的 y坐标 If x=x0 Then垂直移动 stepy=Sgn(y-y0)*50 stepx=0 Else倾斜移动 a=(y-y0) (x-x0)斜率 stepx=Sgn(x-x0)*50 stepy=a*stepx 通过 stepx确定 stepy的值 If Abs(stepy) Abs(stepx)Then stepy=Sgn(y-y0)*50 stepx=Stepy a End If End If Timer1 Enabled=True单击鼠标左键则触发 Timer事件 Else Timer1 Enabled=False单击鼠标右键则停止 Timer事件 End If End Sub Private Sub Timer1_Timer() Shape1 Move Shape1 Left+stepx, Shape1 Top+stepy移动 shapel End Sub 步骤 3:调试并运行程序,关闭程序后按题目 要求存盘。

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 考试资料 > 职业资格

copyright@ 2008-2019 麦多课文库(www.mydoc123.com)网站版权所有
备案/许可证编号:苏ICP备17064731号-1