省二级考试VB试题汇总
Next I Ave=s/N Text1=Str(min) Text2.Text=Str(max) Text3.Text=Str(ave) End Sub （四）在考生文件夹中，完成以下要求：
(1) 启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的
窗体名称改为“Prog1”，窗体的标题为“最小公倍数”。
(2) 请在窗体适当位置增加以下控件：3个标签（均为默认名称，标题分别为“数1”、“数2”、“最小公倍数
为”）；三个文本框（均为默认名称）；两个命令按钮（均为默认名称，标题分别为“计算”和“保存”），如图所示。
(3) 要求编写计算两个数的最小公倍数的程序，程序运行后：
（1） 在文本框Text1和Text2中分别输入数据196和42，然后单击“计算”按钮，计算出这两个数的
最小公倍数，并将结果显示在文本框Text3；
（2） 在确定正确之后，单击“保存”按钮，将结果存入考生文件夹中的“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 第 46 页 共 74 页 省二级考试VB试题汇总
m = n n = r Loop Until r = 0 t = t / m Text3.Text = t End Sub Private Sub Command2_Click() Call putdata(\End Sub
同学问题解答：
1. 问：vb课本第三章选择题31题(page123)答案是否错了?是D不是C? 当在文本框输入\四个字符时,窗体上显示的是< > Private Sub Text1-Change( ) Print Text1 End Sub
A. ABCD B. A C. AABABCABCD D. A B AB C ABC D ABCD
解答：因为是change事件，所以，当你往文本框写入\的时候，已经触发了change事件，所以输
出\，再写B的时候，文本框里有了\，也会触发change事件，于是输出\，第3次输入\，文本框内变成\，触发change事件，输出\，第4次输入\，文本框内变成\，触发change事件，输出\；
又因为print语句末尾没有分号，所以C选项不对，故答案D正确
新增2010年6月考题： 第一套模拟题
第 47 页 共 74 页
省二级考试VB试题汇总
第 48 页 共 74 页
省二级考试VB试题汇总
第 49 页 共 74 页
省二级考试VB试题汇总
第 50 页 共 74 页