【正文】 程序：Private Sub Form_Click() Dim s As Integer, x As Integer s=0 x=0 Do While s=10000 x=x+1 s=s+x^2 Loop Print sEnd Sub上述程序的功能是：計算s=1+22+32+…+n2+…，直到s10000為止。程序運行后，發(fā)現(xiàn)得不到正確的結(jié)果，必須進行修改。下列修改中正確的是（）。A）把x=0改為x=1 B）把Do While s=10000改為Do While s=10000C）把Do While s=10000改為Do While s10000D）交換x=x+1和s= s+x^2的位置（29） 有一個數(shù)列，它的前3個數(shù)為0，1，1，此后的每個數(shù)都是其前面3個數(shù)之和，即0，1，1，2，4，7，13，24，……，要求編寫程序輸出該數(shù)列中所有不超過1000的數(shù)。某人編寫程序如下：Private Sub Form_Click() Dim i As Integer, a As Integer, b As Integer Dim c As Integer, d As Integer a=0: b=1: c=1 d=a+b+c i=5 While d=1000 Print d。 a=b: b=c: c=d d=a+b+c i=i+1 WendEnd Sub運行上面的程序，發(fā)現(xiàn)輸出的數(shù)列不完整，應(yīng)進行修改。以下正確的修改是（）。A）把While d=1000改為While d1000 B）把i=5改為i=4C）把i=i+1移到While d=1000的下面D）在i=5的上面增加一個語句：Print a。 b。 c。（30） （32）為計算1+3+5+……+99的值，某人編程如下：k=1s=0While k=99k=k+2 : s=s+kWend Print s在調(diào)試時發(fā)現(xiàn)運行結(jié)果有錯誤，需要修改。下列錯誤原因和修改方案中正確的是（）。A）While …Wend循環(huán)語句錯誤，應(yīng)改為For k=1 To 99 …Next kB）循環(huán)條件錯誤，應(yīng)改為Whlie k99C）循環(huán)前的賦值語句k=1錯誤，應(yīng)改為k=0D）循環(huán)中兩條賦值語句的順序錯誤，應(yīng)改為s=s+k : k=k+2（31） 在窗體上畫一個名稱為 Text1 的文本框和一個名稱為 Commandl 的命令按鈕，然后編寫如下事件過程：Private Commandl_Click()Dim i As Integer, n As Integer For i=0 To 50 i = i+3 n = n+1 If i10 Then Exit For Next =Str(n) End Sub 程序運行后，單擊命命令按鈕，在文本框中顯示的值是（）。　　A）5 　　B）4 　　C）3　　D）2二、填空題（1） 執(zhí)行下面的程序段后，i的值為【】，s的值為【5】?！　 = 2　　For i = To Step 　　 s = s + 1　　Next i（2） 本程序的功能是利用隨機數(shù)函數(shù)模擬投幣，方法是：每次隨機產(chǎn)生一個0或1的整數(shù)，相當于一次投幣，1代表正面，0代表反面。在窗體上有三個文本框，名稱分別是TextTextText3，分別用于顯示用戶輸入投幣總次數(shù)、出現(xiàn)正面的次數(shù)和出現(xiàn)反面的次數(shù)，如圖所示。程序運行后，在文本框Text1中輸入總次數(shù)，然后單擊“開始”按鈕，按照輸入的次數(shù)模擬投幣，分別統(tǒng)計出現(xiàn)正面、反面的次數(shù)，并顯示結(jié)果。以下是實現(xiàn)上述功能的程序，請?zhí)羁铡rivate Sub Command1_Click()　　 Randomize 　　 n = CInt()　　 n1 = 0 　　 n2 = 0 　　 For i = 1 To 【n】　　 r = Int(Rnd*2)　　 If r = 【1】 Then 　　 n1 = n1 + 1 　　 Else 　　 n2 = n2 + 1 　　 End If 　　 Next 　　 = n1 　　 = n2 　　 End Sub （3） 下面程序的功能是從鍵盤輸入1個大于100的整數(shù)m，計算并輸出滿足不等式：1+22 +32 +42 +……+n2m的最大的n。請?zhí)羁?。Private Sub Command1_Click()Dim s ,m,n As Integerm=Val(InputBox(請輸入一個大于100的整數(shù)))n=【0】s=0Do While smn=n+1s=s+n*nLoopPrint 滿足不等式的最大n是。【n】End Sub（4） 有如下程序：　　Private Sub Form_Click()　　n=10　　i=0　　Do　　i=i+n　　n=n2　　Loop While n2　　Print i　　End Sub程序運行后，單擊窗體，輸出結(jié)果為【28】。（5） 在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下事件過程：Private Sub Command1_Click() x=1Result=1While x=10 Result=【retult*x】 x=x+1WendPrint ResultEnd Sub上述事件過程用來計算10的階乘。請?zhí)羁??！≈R點3：列表框、組合框一、選擇題（1） 設(shè)窗體上有一個列表框控件List1，含有若干列表項。以下能表示當前被選中的列表項內(nèi)容的是（）。A） B） C））（2） 列表框中的項目保存在一個數(shù)組中，這個數(shù)組的名字是（）。A）Column B）Style C）List D）MultiSelect（3） 在窗體上畫一個列表框和一個命令按鈕，其名稱分別為List1和Command1，然后編寫如下事件過程：Private Sub Form_Load() Item1 Item2 Item3End SubPrivate Sub Command1_Click()() = AAAAEnd Sub程序運行后，單擊命令按鈕，其結(jié)果為（）。A）把字符串AAAA添加到列表框中，但位置不能確定B）把字符串AAAA添加到列表框的最后（即Item 3的后面）C）把列表框中原有的最后一項改為AAAAD）把字符串AAAA插入到列表框的最前面（即Item 1的前面）（4） 在窗體上畫一個名稱為List1的列表框，為了對列表框中的每個項目都能進行處理，應(yīng)使用的循環(huán)語句為（）?！　）For i=0 To 　B）For i=0 To 　　 …………　　 NextNext　　C）For i=1 To ）For i=1 To 　　 …………　　 NextNext（5） 在窗體上畫一個List1的列表框，一個名稱為Label1的標簽，列表框中顯示若干個項目，當單擊列表框中的某個項目時，在標簽中顯示被選中的項目的名稱，下列能正確實現(xiàn)上述操作的程序是（）。A）Private Sub List1_Click() = End SubB）Private Sub List1_Click() = End SubC）Private Sub List1_Click() = End SubD）Private Sub List1_Click() = End Sub（6） 在窗體上畫一個名稱為List1的列表框，列表框中顯示若干城市的名稱。當單擊列表框中的某個城市名時，該城市名消失。下列在List1_Click事件過程中能正確實現(xiàn)上述功能的語句是（）。A） B） C） D） （7） 設(shè)在窗體Form1上有一個列表框List1，其中有若干個項目。要求單擊列表框中某一項時，把該項顯示在窗體上，正確的事件過程是（）。A）Prvate Sub List1_Click()B）Private Sub Form1_Click() Print Print End SubEnd SubC）Private Sub List1_Click() D）Private Sub Form1_Click() Print End SubEnd Sub（8） 設(shè)在窗體中有一個名稱為List1的列表框，其中有若干個項目（如圖）。要求選中某一項后單擊Command1按鈕，就刪除選中的項，則正確的事件過程是（）。A）Private Sub Command1_Click()B）Private Sub Command1_Click() End SubEnd SubC）Private Sub Command1_Click()D）Private Sub Command1_Click() End SubEnd Sub（9） 能夠存放組合框的所有項目內(nèi)容的屬性是（）。A）Caption B）Text C）List D）Selected（10） 設(shè)組合框Combo1中有3個項目，則以下能刪除最后一項的語句是（）。A） Text　　B） 2C） 3　D） （11） 若要獲得組合框中輸入的數(shù)據(jù)，可使用的屬性是（）。A）ListIndex B）Caption C）Text D）List（12） 下列敘述中錯誤的是（）。　　A）列表框與組合框都有List屬性　　B）列表框有Selected屬性，而組合框沒有　　C）列表框和組合框都有Style屬性　　D）組合框有Text屬性、而列表框沒有二、填空題（1） 窗體上有ListList2兩個列表框，程序運行時，在兩個列表框中分別選中一個項目，如圖a所示，單擊名稱為Command1的“交換”按鈕，則把選中的項目互換，互換后的位置不限，如圖b所示。下面的程序可實現(xiàn)這一功能，請?zhí)羁?。Private Sub Command1_Click() If =Or = ThenMsgBox 請選擇交換的物品！Else 【】【 】 End IfEnd Sub（2） 在窗體上畫一個列表框、一個命令按鈕和一個標簽，其名稱分別為ListCommand1和Label1，通過屬性窗口把列表框中的項目設(shè)置為：第一個項目、第二個項目、第三個項目、第四個項目。程序運行后，在列表框中選擇一個項目，然后單擊命令按鈕，即可將所選擇的項目刪除，并在標簽中顯示列表框當前的項目數(shù)，運行情況如圖所示(選擇第三個項目的情況)。下面是實現(xiàn)上述功能的程序，請?zhí)羁??！　rivate Sub Command1_Click()　　 If =【0】 Then　　 【】　　 = 【】　　 Else　　 MsgBox 請選擇要刪除的項目　　 End IfEnd Sub第6章數(shù)組知識點1：數(shù)組概念、數(shù)組聲明（1） 默認情況下，下面聲明的數(shù)組的元素個數(shù)是（）。 Dim a(5, 2 To 2)A）20 B）24 C）25 D）30（2） 下面的語句用Array函數(shù)為數(shù)組變量a的各元素賦整數(shù)值：a=Array(1,2,3,4,5,6,7,8,9)針對a的聲明語句應(yīng)該是（）。A）Dim aB）Dim a As Integer C）Dim a (9) As Integer D）Dim a () As Integer（3） 以下定義數(shù)組或給數(shù)組元素賦值的語句中，正確的是（）。A）Dim a As VariantB）Dim a(10) As Interger a=Array(1,2,3,4,5) a=Array(1,2,3,4,5)C）Dim a%(10) a(1)= ABCDED）Dim a(3) , b(3) As Intergera(0)=0a(1)=1a(2)=2b=a（4） 1個二維數(shù)組可以存放1個矩形。在程序開始有語句Option Base 0，則下面定義的數(shù)組中正好可以存放1個4*3矩陣(即只有12個元素)的是（）。A）Dim a(2 To 0, 2) As Integer B）Dim a(3, 2) As IngegerC）Dim a(4, 3) As Ingeger D）Dim a(1 To 4, 1 To 3) As Ingeger（5） 以下數(shù)組定義語句中，錯誤的是（）。A）Static a (10) As Integer B）Dim c (3, 1 To 4)C）Dim d (10)D）Dim b (0 To 5, 1 To 3) As Integer知識2：靜態(tài)數(shù)組一、選擇題（1） 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：　　Option Base 1 　　 Private Sub Command1_Click()　　 Dim a