2004年9月计算机等级考试二级VB笔试试卷及答案

　　(30) 假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。　　
　　Model1代码如下：　　
　　Public x As Integer　　
　　Public y As Integer　　
　　Sub S1()　
　　x =1　　
　　S2　　
　　End Sub　　
　　Sub S2()　　
　　y=10　　
　　Form1.Show　　
　　End Show　　
　　Model2的代码如下：　
　　Sub Main()　　
　　S1　　
　　End Sub　　
　　其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是　　
　　A) Form1→Model1→Model2 B) Model1→Model2→Form1　　
　　C) Model2→Model1→Form1 D) Model2→Form1→Model1　　
　　二、填空题(每空2分，共30分)　　
　　请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。　　
　　(1) 设有如下程序段：　
　　a$="BeijingShanghai"　　
　　b$=Mid(a$,InStr(a$,"g")+1)　
　　执行上面的程序段后，变量b$的值为【1】 。　
　　(2) 以下程序段的输出结果是【2】 。　　
　　num =0　　
　　While num<=2　　
　　num = num + 1　
　　Wend　　
　　Print num　　
　　(3) 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。　
　　Private Sub Form_Load()　
　　For i=1 To 100　　
　　If i Mod 7 =0 Then　　
　　【3】　　
　　End If　
　　Next　　
　　End Sub　
　　Private Sub Command1_Click()　　
　　Sum = 0　　
　　For i = 0 To 【4】　　
　　Sum = Sum + 【5】　
　　Next　　
　　Text1.Text = Sum　　
　　End Sub