2004年9月計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷及答案

　　(30) 假定一個(gè)工程由一個(gè)窗體文件Form1和兩個(gè)標(biāo)準(zhǔn)模塊文件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被設(shè)置為啟動(dòng)過程。程序運(yùn)行后，各模塊的執(zhí)行順序是　　
　　A) Form1→Model1→Model2 B) Model1→Model2→Form1　　
　　C) Model2→Model1→Form1 D) Model2→Form1→Model1　　
　　二、填空題(每空2分，共30分)　　
　　請(qǐng)將每空的正確答案寫在答題卡【1】～【15】序號(hào)的橫線上，答在試卷上不得分�！　�
　　(1) 設(shè)有如下程序段：　
　　a$="BeijingShanghai"　　
　　b$=Mid(a$,InStr(a$,"g")+1)　
　　執(zhí)行上面的程序段后，變量b$的值為【1】 。　
　　(2) 以下程序段的輸出結(jié)果是【2】 。　　
　　num =0　　
　　While num<=2　　
　　num = num + 1　
　　Wend　　
　　Print num　　
　　(3) 窗體上有一個(gè)名稱為List1的列表框，一個(gè)名稱為Text1的文本框，一個(gè)名稱為Label1、Caption屬性為“Sum”的標(biāo)簽，一個(gè)名稱為Command1、標(biāo)題為“計(jì)算”的命令按鈕。程序運(yùn)行后，將把1～100之間能夠被7整除的數(shù)添加到列表框中。如果單擊“計(jì)算”按鈕，則對(duì)List1中的數(shù)進(jìn)行累加求和，并在文本框中顯示計(jì)算結(jié)果，如圖所示。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁��！?BR>　　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