国家二级VB机试（上机操作）模拟试卷541
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画一个名称为Shape1的形状控件，要求在属性窗口中将其形状设置为椭圆，其长轴（水平方向）、短轴（垂直方向）的长度分别为1600、800。把窗体的标题改为“Shape控件”，窗体上没有最大化按钮、最小化按钮。程序运行后的窗体如图1－197所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
（2）在名称为Form1的窗体上画一个名称为HS的水平滚动条，最大值为100，最小值为1。再画一个名称为List1的列表框，在属性窗口中输入列表项的值，分别是1000、1500、2000，如图1－198所示。请编写适当的程序，使得运行程序时，当选择列表框中的某一项，将水平滚动条的长度改变为所选中的值。
第1小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个形状控件，其相关属性设置如表2－95所示。
[*]
步骤2：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体 Form1中加入一个列表框和一个水平滚动条，其相关属性设置如表2－96所示。
[*]
步骤2：打开代码编辑窗口，编写列表框的Click
事件过程：
MaxButton
参考代码：
Private Sub List1_Click()
HS.Width = List1.Text
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：
简单应用题
2.（1）在考生文件夹中有一个工程文件sjt3.vbp。运行程序时，先向文本框Text1中输入一个不超过10的正整数，然后选择“N的阶乘 ”或“（N＋2）的阶乘”单选按钮，即可进行计算，计算结果显示在文本框Text2中，如图1－199所示。
在给出的窗体文件中已经添加了全部控件，但程序不完整。
要求：去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
（2）在考生文件夹中有一个工程文件sjt4.vbp。该程序的功能是将文件in4.txt 中的文本读出并显示在文本框Text1中。在文本框Text2中输入一个英文字母，然后单击“统计”按钮，统计该字母（大小写被认为是不同的字母）在文本中出现的次数，统计结果显示在标签Label3中，如图1－200所示。给出的窗体文件中已经有了全部控件，程序不完整。
第1小题
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件 sjt3.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
Select Case Index
Text2.Text = f1(n)
Text2.Text = f1(n + 2)
For i = 1 To n
f1 = x
步骤2：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt4.vbp，打开代码编辑窗口，去掉程序中的注释符“ ”，将问号“?”改为正确的内容。
参考代码：
p = InStr(s, s1)
Loop While p ＜＞ 0
Label3.Caption = n
Text1.Text = s
步骤2：按要求将文件保存至考生文件夹中。
解析：
综合应用题
3.在考生目录下有一个工程文件sjt5.vbp，其窗体上有一个文本框，名称为Text1；还有两个命令按钮，名称分别为C1、C2，标题分别为“计算”、“存盘”，如图1－201所示。有一个函数过程 isprime(a)可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。
【操作步骤】
步骤1：打开本题对应工程文件sjt5.vbp。
步骤2：双击窗体Form1上的“计算”按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码：
参考代码：
Private Sub C1_Click()
sjt4.vbp，
a% = 18000
Do
a% = a% – 1
Loop Until isprime(a%)
Text1.Text = a%
End Sub
步骤3：双击窗体Form1上的“存盘”按钮，在代码编辑窗口其Click事件过程中输入如下代码：
参考代码：
Private Sub C2_Click()
Open \\
解析：
本文档预览：3600字符，共3125字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
