【文章內(nèi)容簡介】 ing3” ,2) 執(zhí)行該語句后，將顯示一個信息框，此時如果單擊“確定”按鈕，則 I 的值為 _______。 作業(yè) 5 一、選擇題 (1) 假定有以下程序段 For i=1 to 3 For j=5 to 1 Step1 Print i*j Next j,i 則語句 Print i*j的執(zhí)行次數(shù)是 _______。 A) 15 B) 16 C) 17 D) 18 (2) 以下程序 段的輸出結(jié)果是 _______。 x=1 y=4 Do Until y4 x=x*y y=y+1 Loop Print x A) 1 B) 4 C) 8 D) 20 (3) 設(shè) a=6,則執(zhí)行 x=IIf(a5， 1， 0) 后， x的值為 _______。 A) 5 B) 6 C) 0 D) 1 (4) 執(zhí)行下面的程序段后， x的值為 _______。 x=5 For i=1 to 2 Step 2 x=x+i\5 Next i A) 21 B) 22 C) 23 D) 24 (5) 閱讀下面的程序段： For i=1 to 3 For j=1 to i For k=j to 3 a=a+1 Next k Next j Next i 執(zhí)行上面的 3重循環(huán)后， a 的值為 _______。 A) 3 B) 9 C) 14 D) 21 (6) 以下不是結(jié)構(gòu)化程序設(shè)計的基本控制結(jié)構(gòu)的是（ ）。 A) 逆序結(jié)構(gòu) B) 順序結(jié)構(gòu) C) 選擇結(jié)構(gòu) D) 循環(huán)結(jié)構(gòu) (7) 以下過程是（ ）事件。 Prviate Sub Form_Load( ) …… End Sub A) 命令按鈕的單擊 B) 命令按鈕的裝載 C) 窗體的裝載 D) 窗體的單擊 二、填空題 (1) 執(zhí)行下面的程序段后， S的值為 _______。 s=5 For i= To Step s=s+1 Next i (2) 以下程序段的輸出結(jié)果是 _______。 num=0 While num=2 num=num+1 Print num Wend (3) 設(shè)有以下的循環(huán)： x=1 Do x=x+2 Print x Loop Until_______ 運行程序后，要求執(zhí)行 3次循環(huán)體，請?zhí)羁铡? (4) 以下循環(huán)的執(zhí)行次數(shù)是 _______。 k=0 Do While k=10 k=k+1 Loop 三、程序題 1. 求 200 到 400間，能被３整除但不能被７整除的數(shù)的個數(shù)。程序中有兩行有錯誤 。改正錯誤，使它能輸出正確的結(jié)果。 Private Sub Command1_Click() Dim count As Integer Dim x As Integer count = 0 x = 200 While x = 400 If x Mod 3 = 0 Or x Mod 7 0 Then count = count + 1 End If x = x + 1 Loop Print count End Sub 2. 編程序求四位數(shù)的奇數(shù)中，所 有各位數(shù)字之積（且不為 0）是 600 的倍數(shù)的數(shù)之和。 3. 編程求 1到 5000 之間的能被 5整除的前若干個偶數(shù)之和，當和大于 500時 ,終止求和，并輸出該和。 4. 已知 S1=1, S2=1+2, S3=1+2+3,..., SN=1+2+3+...+N, 求 S1,S2,S3,...,S100 中 , 有多少個能被 3和 7整除？ 作業(yè) 6 一、選擇題 (1) 用下面的語句所定義的數(shù)組的元素個數(shù)是 _______。 Dim A(3 to 5) As Integer A) 6 B) 7 C) 8 D) 9 (2) 用下面的語句所定義的數(shù)組的元素個數(shù)是 _______。 Dim arr(3 to5,2 to 2) A) 20 B) 12 C) 15 D) 24 (3) 在窗體上添加一個命令按鈕（其 Name 屬性為 Command1），然后編寫如下代碼： Opion Base 1 Private Sub Command1_Click() Dim a a=Attry(1,2,3,4) j=1 For i=4 to 1 Step 1 s=s+a(i)*j j=j*10 Next i Print s End Sub 運 行上面的程序，單擊命令按鈕，其輸出結(jié)果是 _______。 A) 4321 B) 12 C) 34 D) 1234 (4) 在窗體上添加一個命令按鈕（其 Name 屬性為 Command1），然后編寫如下代碼： Option Base 1 Private Sub Command1_Click() Dim a(4,4) For i=1 to 4 For j=1 to 4 a(i,j)=(i1)*3+j Next j Next i For i=3 to 4 For j=3 to 4 Print a(j,i)。 Next j Print Next i End Sub 運行上面的程序，單擊命令按鈕，其輸出結(jié)果是 _______。 A) 6 9 7 10 B) 7 10 8 11 C) 8 11 9 12 D) 9 12 10 13 (5) 若要將窗體卸載，實現(xiàn)的方法為（ ）。 A) Unload B) Load C) Show D) Hide (6) 窗體的背景顏色由（ ）屬性設(shè)置。 A) BorderStyle B) BackColo C) ForeColor D) FillStyle 二、填空題 控件數(shù)組的名字由 _______屬性指定，而數(shù)組中的每個元素由 _______屬性指定。 由 Array函數(shù)建立的數(shù)組的名字必須是 _______類型。 在窗體上添加一個命令按鈕（其 Name 屬性為 Command1），然后編寫如下代碼： Private Sub Command1_Click() Dim M(10) As Integer For k=1 to 10 M(k)=12k