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