1、国家二级 VB机试（上机操作）模拟试卷 444及答案与解析 一、基本操作题 1 (1)在名称为 Form1、标题为 “标签 ”的窗体上添加一个名称为 Label1的标签并设置适当属性以满足以下要求： 标签的标题为 “计算机等级考试 ”； 标签可根据标题内容自动调整其大小； 标签带有边框，且标签标题显示为三号字。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。 (2)在名称为 Form1的窗体上添加一个名称为 Hscrolll的水 平滚动条，其刻度范围为1 100；再添加一个名称为 Text1的文本框，初始
2、文本内容为 1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前的位置。运行情况如图所示。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp窗体文件名保存为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程史件 sjt3 vbp，包含了所有控件和部分程序。程序运行时，在文本框中每输入一个字 符，则立即判断：若是小写字母，则将它的大写形式显示在标签 Label1中；若是大写字母，则把它的小写形式显示在 Label1中，若是其他字符，则将该字符直接显示
3、在 Label1中。输入的字母总数则显示在标签 Label2中，如图所示。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不得修政已经存在的程序，最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。窗体中有一个图片框，图片框中有一个蓝色圆，名称为 Shape1，如图所示。当程序运行时，单击 “开始 ”按钮，圆半 径逐渐变人 (圆心位置不变 )，当圆充满图片框时则变为红色，并开始逐渐缩小，当缩小到初始大小时又变为监色，并再次逐渐变大，如此往复。单击 “停止按钮，则停止变化。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，
4、把程序中的 ?改为正确的内容。提示：程序中的符号常量 blue_color表示蓝色的值，red_color表示红色的值。 注意：不能修改程序的其他部分和各控件的属性。最后将修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp。其功能是产生并显 示一个数列的前 n项。数列产生的规律是：数列的前 2项足小于 10的正整数，将此两数相乘，若乘积 10，则以此乘积作为数列的第 3项；若乘积 10，则以乘积的十位数为数列的第 3项以乘积的个位数为数列的第 4项。阿用数列的最后两项相乘，用上述规则形成后面的项，直至产生了第 n项。窗体上部从左到右 3个文本框的名
5、称分别为Text1、 Text2、 Text3，窗体下部的文本框名称为 Text4。程序运行时，在 Text1、Text2中输入数列的前两项， Text3中输入要产生的项数 n，单击 “计算 ”按钮则产生此数列的前 n项，并显示在 Text4中。如图所示。 已经给出了全部控件，但程序不完整，请去掉程序中的注释符，化程序中的 ?改为正确的内容。 注意：不得修改原有程序和控件的属性。最后把修改后的史件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 444答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中用到的控件及属性见表 3
6、49。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：新建一个窗体，按照题目要求建立控件并设置其属性，如表 3 50所示。步 骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 PriVate Sub HScroll1_Change() Text1 Text=HScrolll Value End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)标签的 Name和 Caption属性设置标签的名称和标题， AutoSize属性设置控件是否能够自动调整大小以显示所有的内容， BorderStyle属性使标签带有边框， FontSiz
7、e属性设置字体的大小。 (2)TabIndex属性是当前窗体 上控件的 键切换顺序：运行时按 键会按照 Tablndex值从小到大的顺序进行切换。将滚动条的 Tablndex属性设置为 0，可以使程序开始运行时，焦点在滚动条上。当滚动框的位置改变时，触发 Change事件。通过 Text1 Text=HScrolll Value语句可以实现在文本框中显示滚动框的当前位置。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Dim n As Integer Private Sub Text
8、1 Change() Dim ch As String ch=Right$(Text1， 1)通过 Right函数从 Text1中取 1位 If ch=“A“And ch=“a“And ch0 Then Shape1 Height =Shape1 Height+100圆的高扩大 100 Shape1 Width=Shape1 Width+100 Shape1 Left=Shape1 Left一 50圆心到图片框左边上边的距离 Shape1 Top=Shape1 Top一 50 Else Shape1 FillColor =red_color当充满图片框时则变色 End If End If If
9、 Shape1 FillColor = red color Then If Shape1 Leftn时，则数列数已够，不用求下一项 d=c Mod 10 Text4=Text4 &“&d b=d余数作为下一次循环的后一项 End If End If Loop End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 Text3的数值是数列的项数，定义一个变量 k，前两项已经确定，因此 k的取值范围为 3 n，先计算前两项的积，判断是否小于 10，如果乘积小于10，则以此乘积作为数列的第 3项数，如果乘积大于等于 10，则以乘积的十位数为数列的第 3项，以乘积的个位数为数列的第 4项，再用数列的最后 2项相乘 ，运用循环语句，用上述规则形成后面的项，直至产生了第 n项。在这里运用的是Do While语句，与 For语句有所不同，要注意区分。
