国家二级VB机试（上机操作）模拟试卷500
基本操作题
1.请根据以下各小题的要求设计Visual Basic 应用程序（包括界面和代码）。
（1）在名称为Form1，标题为“考试”的窗体上画一个名称为Combo1、初始内容为空的下拉式组合框。下拉列表中有“隶书”、“宋体”和“楷体”三个项目。运行后的窗体如图1－6 所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
（2）在名称为Form1的窗体上画两个文本框，其名称分别为Text1、Text2，初始内容都为空，显示为三号字，且Text1 的初始状态为不可用；再画一个名称为 Command1、标题为“开始”的命令按钮，如图1－7所示。
第1小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：打开代码编辑窗口，编写Text1的Change事件过程和命令按钮的单击事件过程。
参考代码：
Private Sub Command1_Click()
Text1.Enabled = True
End Sub
Private Sub Text1_Change()
Text2.Text = UCase(Text1.Text)
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：
简单应用题
2.（1）在考生文件夹下有一个工程文件sjt3.vbp，其功能是：
①单击“读数据”按钮，则把考生文件夹下in3.dat文件中的20 个整数读入数组a 中，同时显示在Text1文本框中；
②单击“变换”按钮，则数组a 中元素的位置自动对调（即第一个数组元素与最后一个数组元素对调，第二个数组元素与倒数第二个数组元素对调……），并将位置调整后的数组显示在文本框Text2 中。
在窗体文件中已经给出了全部控件（如图1－8所示），但程序不完整。
要求：完善程序使其实现上述功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须执行“变换”操作，且必须用窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上有两个标题分别为“读数据”和“统计”的命令按钮；两个名称分别为Text1 和 Text2、初始值为空的文本框，如图1－9所示。
第1小题
【操作步骤】
步骤1：打开考生文件夹中的工程文件sjt3.vbp
步骤2：打开代码编辑窗口，编写“变换”按钮的单击事件过程。
参考代码：
Private Sub Command2_Click()
’考生编写
For i ＝ 1 To 10
temp ＝ a(i)
a(i) ＝ a(20 – i + 1)
a(20 － i ＋ 1) ＝ temp
Next i
’以下程序段将已变换的数组元素显示在Text2文本框中
For k ＝ 1 To 20
Text2 ＝ Text2 ＋ Str(a(k)) ＋
Space(2)
Next k
End Sub
步骤3：按＜F5＞键运行程序，先单击“读数据”按钮，然后单击“变换”按钮。
步骤4：单击窗体右上角的关闭按钮以结束程序。
步骤5：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：打开考生文件下的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
If sl = 0 Then
For i = 1 To sl
a(n) = a(n) + 1
For i = 1 To 26
步骤2：按要求将文件保存至考生文件夹中。
解析：
综合应用题
3.在考生文件夹下有一个工程文件sjt5.vbp，在该工程文件中已经定义了一个学生记录类型数据StudType。
（1）在考生文件夹下有一个工程文件sjt3.vbp，其功有三个标题分别为“学号”、“姓名”和“平均分”的标签；三个初始内容为空，用于接收学号、姓名和平均分的文本框Text1、Text2和Text3；一个用于显示排序结果的图片框。还有两个标题分别为“添加”和“排序”的命令按钮，如图1－10 所示。程序功能如下：
①在Text1、Text2和Text3三个文本框中输入学号、姓名和平均分后，单击“添加”按钮，则将输入内容存入自定义的学生记录类型数组stud 中（注：最多只能输入10个学生信息，且学号不能为空）；
②单击“排序”按钮，则将学生记录类型数组stud中存放的学生信息，按平均分降序排列的方式显示在图片框中，每个学生一行，且显示三项信息。
【操作步骤】
步骤1：打开考生文件下的本题工程文件在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
n = n – 1
stud(n).Num = Text1
For k = j + 1 To n
If stud(k).Average ＞ stud(j).Average
Then
stud(k) = stud(j)
步骤2：按要求将文件保存至考生文件夹中。
解析：
本文档预览：3600字符，共3511字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
