省二级考试VB试题汇总
Dim I As Integer
Open App.Path & \ I = 1
Do While Not EOF(1) Input #1, A(I) I = I + 1 Loop N = I - 1 Close #1 End Sub
Sub putdata(num1 As Integer, num2 As Integer, num3 As Variant) '写文件函数
Open App.Path & \ Print #1, num1, num2, num3 Close #1 End Sub
参考代码如下：（要求考生编写代码部分） Public max As Integer, min As Integer Public ave As Single
Private Sub command1_click() GetData
For i = 1 To n
List1.AddItem a(i) Next i End Sub
Private Sub command2_click() max = a(1): min = a(1) For i = 1 To n
If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) s = s + a(i) Next i ave = s / n
Text1.Text = Str(min) Text2.Text = Str(max) Text3.Text = Str(ave) End Sub
Private Sub Command3_Click() putdata min, max, ave End Sub
7．在考生文件夹中，完成以下要求：
(1) 启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件
Prog1.frm的窗体名称改为“Prog1”，窗体的标题为“最小公倍数”。
第 46 页 共 50 页
省二级考试VB试题汇总
(2) 请在窗体适当位置增加以下控件：3个标签（均为默认名称，标题分别为“数1”、“数2”、“最
小公倍数为”）；三个文本框（均为默认名称）；两个命令按钮（均为默认名称，标题分别为“计算”和“保存”），如图所示。
(3) 要求编写计算两个数的最小公倍数的程序，程序运行后：
（4） 在文本框Text1和Text2中分别输入数据196和42，然后单击“计算”按钮，计算出这两
个数的最小公倍数，并将结果显示在文本框Text3；
（5） 在确定正确之后，单击“保存”按钮，将结果存入考生文件夹中的“kssj.dat”中。
(4) 在考生文件夹下有标准模块prog1.bas，其中的过程putdata可以把结果存入指定文件，考生可以
根据需要把这个模块文件添加到当前工程中，直接调用过程。
(5) 请先将工程、窗体与模块保存，然后调试、运行并生成可执行程序：Prog1.exe。
您的编程题模块设计如下：（题中已在标准模块给出的代码） Option Explicit
Sub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String
sFile = \
Open App.Path & sFile For Output As #1 Print #1, t_Str Close #1 End Sub
参考代码如下：（要求考生编写代码部分） Private Sub Command1_Click()
Dim m As Integer, n As Integer, t As Long m = Val(Text1.Text) n = Val(Text2.Text) t = m * n Do
r = m Mod n m = n n = r
Loop Until r = 0 t = t / m
Text3.Text = t End Sub
Private Sub Command2_Click() Call putdata(\
第 47 页 共 50 页
省二级考试VB试题汇总
End Sub
六、综合应用（每套试卷有1个综合应用题，每题15分）
评分规则如下：
菜单设计题所建工程得分：4分 菜单设计所建的窗体得分：9分 生成.exe文件： 2分 菜单设计题满分：15分
1．在考生文件夹中建立一个名称为“Vbcd”的工程文件Menu1.Vbp，并在工程中建立一个名称为“Menu1”的菜单窗体文件Menu1.frm,要求： （1）菜单格式与内容如下: 系统(S) 统计(T)
退出 专业
性别 ->男 女
其中,括号内的字符为热键；各菜单与子菜单的名称与标题相同，但不含热键； -> ：下一级菜单；“女”：该菜单项不可见。
（2）将考生文件夹下的窗体文件Sjt.frm添加进本工程。 （3）除“专业”菜单的Click()事件调用Sjt.frm窗体，“退出”子菜单的Click()事件执行End语句,其它菜单和子菜单不执行任何操作。
（4）调试运行并生成可执行程序： Menu1.exe。
2．在考生文件夹中建立一个名称为“Vbcd”的工程文件Menu1.Vbp，并在工程中建立一个名称为“Menu1”的菜单窗体文件Menu1.frm,要求： （1）菜单格式与内容如下: 格式(O) 窗口(W)
图层 √水平平铺 颜色 垂直平铺 ----
返回（Ctrl+B）
其中,括号内的字符为热键；分隔条的名称为FGT，其它菜单与子菜单的名称与标题相同，但不含热键；√：复选标记； Ctrl+B：设置为快捷键。
（2）将考生文件夹下的窗体文件SJT.frm添加进本工程。 （3）除“图层”菜单的Click()事件调用SJT.frm窗体，“返回”子菜单的Click()事件执行End语句，其它菜单和子菜单不执行任何操作。
（4）调试运行并生成可执行程序：Menu1.exe。
3．在考生文件夹中建立一个名称为“Vbcd”的工程文件Menu1.Vbp，并在工程中建立一个名称为“Menu1”的菜单窗体文件Menu1.frm,要求： （1）菜单格式与内容如下: 插入(I) 窗口(W)
第 48 页 共 50 页
省二级考试VB试题汇总
曲面 √水平平铺 特征 排列图标 ----
返回(Ctrl+B)
其中,括号内的字符为热键；分隔条的名称为FGT，其它菜单与子菜单的名称与标题相同，但不含热键；√：复选标记；Ctrl+B：设置为快捷键；“特征”：该菜单项呈浅灰色，无效，不可用。 （2）将考生文件夹下的窗体文件Sjt.frm添加进本工程。 （3）除“曲面”子菜单的Click()事件调用Sjt.frm窗体，“返回”子菜单的Click()事件执行End语句,其它菜单和子菜单不执行任何操作。
（4）调试运行并生成可执行程序：Menu1.exe。
4．在考生文件夹中建立一个名称为“Vbcd”的工程文件Menu1.Vbp，并在工程中建立一个名称为“Menu1”的菜单窗体文件Menu1.frm,要求：
（1）菜单格式与内容如下:
编辑(E) 插入(I) 查找 图片 替换(Ctrl+H) 文本框 ---- 退出
其中,括号内的字符为热键；分隔条的名称为FGT，其它菜单与子菜单的名称与标题相同，但不含热键； Ctrl+H：设置为快捷键。
（2）将考生文件夹下的窗体文件Sjt.frm添加进该工程。 （3）除“替换”菜单的Click()事件调用Sjt.frm 窗体，“退出”子菜单的Click()事件执行End语句,其它菜单和子菜单不执行任何操作。
（4）调试运行并生成可执行文件：Menu1.exe。
5．在考生文件夹中建立一个名称为“Vbcd”的工程文件Menu1.Vbp，并在工程中建立一个名称为“Menu1”的菜单窗体文件Menu1.frm,要求：
（1）菜单格式与内容如下:
排序(S) 窗口(W) 升序 √平铺 降序 层叠 ----
退出 (Ctrl+X)
其中,括号内的字符为热键；分隔条的名称为FGT，其它菜单与子菜单的名称与标题相同，但不含热键；√：复选标记；Ctrl+X：设置为快捷键。
（2）将考生文件夹下的窗体文件Sjt.frm添加进该工程。 （3）除“降序”菜单的Click()事件调用Sjt.frm 窗体，“退出”子菜单的Click()事件执行End语句,其它菜单和子菜单不执行任何操作。
（4）调试运行并生成可执行程序：Menu1.exe。
6．在考生文件夹中建立一个名称为“Vbcd”的工程文件Menu1.Vbp，并在工程中建立一个名称为“Menu1”的菜单窗体文件Menu1.frm,要求：
第 49 页 共 50 页
省二级考试VB试题汇总
（1）菜单格式与内容如下:
视图(V) 插入(I) 工具栏 单元格
显示比例 图片 ->剪贴画 ------- 艺术字 退出 (Ctrl+S)
其中,括号内的字符为热键；分隔条的名称为FGT，其它菜单与子菜单的名称与标题相同，但不含热键；Ctrl+S：设置为快捷键；-> ：下一级菜单。
（2）将考生文件夹下的窗体文件Sjt.frm添加进该工程。
（3）除“工具栏”子菜单的Click()事件调用Sjt.frm 窗体，子菜单“显示比例”的Click()事件执行语句：Msgbox \选择显示的比例\其它菜单和子菜单不执行任何操作。
（4）调试运行并生成可执行文件：Menu1.exe。
第 50 页 共 50 页