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

《[计算机类试卷]国家二级VB机试（上机操作）模拟试卷326及答案与解析.doc》由会员分享，可在线阅读，更多相关《[计算机类试卷]国家二级VB机试（上机操作）模拟试卷326及答案与解析.doc（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：调试并运行程序，关闭程序后按题目要求存盘。