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

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

1、国家二级 VB机试(上机操作)模拟试卷 326及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 L1的标签,标签上标题为 “请输入密码 ”,添加一个名称为 Text1的文本框,其宽、高分别为 2000和 300,设置适当的属性,使得在输入密码时,文本框中显示为 “*”字符,此外再把窗体的标题设置为 “密码窗口 ”,以上这些设置都必须在属性窗口中进行,程序运行时的窗体如图所示。 注意:存盘时必须存放在考生文件夹下,工程文件名保存为 sjt1 vbp,窗体文件名保存为 sjt1 frm。 (2)在名 称为 Form1的窗体上添加一个名称为 P1的图片框,请编写适当

2、的事件过程,使得程序在运行时,每单击一次图片框,就在图片框中输出 “单击图片框 ”,每单击图片框外的窗体一次,就在窗体中输出 “单击窗体 ”,运行时的窗体如图所示。要求在程序中不得使用变量,每个事件过程中只能写一条语句。 注意:存盘时必须存放在考生文件夹下,工程文件名保存为 sjt2 vbp,窗体文件名保存为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 Sjt3 vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入 一个字符,则立即判断:若是小写字母,则将它的大写形式显示在标签 Labell中;若是大写字母,则把它的小写形式显示在 Label1中,若是其

3、他字符,则将该字符直接显示在 Labell中。输入的字母总数则显示在标签 Label2中,如图所示。 要求:去掉程序中的注释符,把程序中的 ?改为正确的内容。 注意:不得修改已经存在的程序,最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。窗体中有一个图片框,图片框中有一个蓝色圆,名称为 Shape1,如图所示。 当程序运行时,单击 “开始 ”按 钮,圆半径逐渐变大 (圆心位置不变 ),当圆充满图片框时则变为红色,并开始逐渐缩小,当缩小到初始大小时又变为蓝色,并再次逐渐变大,如此往复。单击 “停止 ”按钮,则停止变化。文件中已经给出了所有控件和程序,但程

4、序不完整,请去掉程序中的注释符,把程序中的 ?改为正确的内容。提示:程序中的符号常量 blue_color表示蓝色的值,red_color表示红色的值。 注意:不能修改程序的其他部分和各控件的属性。最后将修改后的文件按原文件名存盘。 三、综合应用题 3 考生文件夹下有一个工程文件 sjt5 vbp,窗体上有 两个文本框,名称分别为Text1、 Text2,都可以多行显示。还有三个命令按钮,名称分别为 C1、 C2、 C3,标题分别为 “取数 ”、 “排序 ”、 “存盘 ”。 “取数 ”按钮的功能是将考生文件夹下的in5 dat文件中的 50个整数读到数组中,并在 Text1中显示出来; “排序

5、 ”按钮的功能是对这 50个数按升序排序,并显示在 Text2中; “存盘 ”按钮的功能是把排好序的 50个数存到考生目录下的 out5 dat文件中,如图所示。在窗体中已经给出了全部控件和部分程序代码,要求阅读程序并去掉程序中的注释符,把程序中的 ?改为正确的内容, 并编写 “排序 ”按钮的 Click事件过程,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后将修改后的文件按原文件名存盘。 国家二级 VB机试(上机操作)模拟试卷 326答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】步骤 1:新建一个窗体,按照要求建立控件并设置其属性,如图 3 11所

6、示。程序中用到的控件及属性如表 3 7所示。 步骤2:调试并运行程序,效果如图 3 12所示。步骤 3:关闭程序后按题目要求保存工程和窗体文件。 (2)【操作步骤】 步骤 1:新建一个窗体,按 照题目要求建立控件并设置其属性,如图 3 13所示。步骤 2:打开代码编辑窗口,在指定位置编写如下代码。 Private Sub Form_Click() Form1 Print”单击窗体 ” End Sub Private Sub P1_Click() P1 Print”单击图片框 ” End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1)【操作

7、步骤】 步骤 1:打开本题工程文件。 步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将 问号改为正确的内容。 Dim n As Integer Private Sub Text1 Change() Dim ch As String ch=Right$(Text1,1)通过 Right函数从 Text1中取 1位 If ch =“A“ And ch =”Z”Then 判断 ch的范围是否在 AZ中 Label1 Caption=Lcase(ch)将大写的 ch转换为小写 n=n+1累加大写字符个数 E1seIf ch =”a”And ch =”z” Then 判断 ch是否为小写字母 L

8、abel1 Caption=Ucase(ch) 将 ch转换为大写 n=n+1累加小写字符个数 Else Label1 Caption=ch当不在字母范围内。则直接赋值显示 End If Label2 Caption=nLabel2中显示满足条件的个数 End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1:打开本题工程文件。 步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将问号改为正确的内容。 Dim left0 As Integer Const blue_color=&HFF0000, red color= HFF& Private S

9、ub Commandl_Click() Timer1 Enabled=True 单击 ”开始 ”按钮, Timer生效 End Sub Private Sub Command2_Click() Timer1 Enabled=False单击 “结束 ”按钮 Timer失效 End Sub Private Sub Form_Load() left0=Shapel Left加裁窗体时,初始化圆心到窗体的距离 End Sub Private Sub Timerl_Timer() If Shapel FillColor=blue_color Then If Shapel Left 0 Then Shap

10、el Height=Shape1. Height +100圆的高扩大 100 Shape1 Width=Shapel Width+100 Shapel Left=Shapel Left一 50圆心到图片框左边上边的距离 Shape1 Top=Shape1 Top一 50 Else Shape1 FillColor= red_color当充满图片框时则变色 End If End If If Shape1 FillColor=red_color Then If Shapel Left left0 Then Shape1 Height=Shape1 Height-i00 Shape1 Width=S

11、hapel Width100 Shapel.Left=Shape1 Left+50 设置 Shapel的左边位置 Shapel.Top=Shape1 Top +50 设置 Shape1的上界位置 Else Shape1 FillColor = blue_color 当缩小到原始大小时则变色 End If End If End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1:打开本题工程文件。 步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将问号改为正确的内容,并编写代码。 Dim a(50)As Integer P

12、rivate Sub C1_Click() Dim k As Integer, ch As String Open”in5 dat”For Input As #1 ch=” For k=1 To 50 Input#1, s(k)将取出的数据存入数组 a中 ch=ch+Str(a(k)+”“将数据存入 ch Next k C10se #1 Text1 Text=ch在 Text1文本框中显示文件内容 End Sub Private Sub C2_Click() End Sub Private Sub C3 Click() Open”out5 dat”For Output As #1 Print#

13、1, Text2 Text Close #1 End Sub 需编写的 “排序 ”按钮的代码 Private Sub C2_Click() Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch=” For i=50 To 2 Step1彼用冒泡算法从小 到大排序 For j=1 To 49 If a(j) a(j+1)Then两 两比较 t=a(j+1) a(j+1)=a(j) a(j)=t End If Next j Next i For j=1 To 50将排序后的数组重新赋给 ch ch=ch+Str(a(j)+” Next j Text2 Text=ch End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。

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

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

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