【文章內(nèi)容簡介】 or i=1 to recordnum Get 1,i,pal =+ucase()++str()+chr(13)+chr(10) Next iClose 1***** End Sub *****第05套 基本操作題（新模69）（1）在名稱為Form1的窗體上建立一個(gè)主菜單，標(biāo)題為“操作”，名稱為Op，該菜單有兩個(gè)子菜單，其標(biāo)題分別為“顯示”和“清除”，其名稱分別為Dis和Clea，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊“操作”菜單中的“顯示”命令，則在文本框中顯示“等級(jí)考試”，如果單擊“清除”命令，則清除窗體上顯示的內(nèi)容。程序的運(yùn)行情況如圖所示。注意：存盤時(shí)必須存放在考生文件夾下。（2）在名稱為Form1的窗體上畫一個(gè)標(biāo)簽，其名稱為Lab1；再畫一個(gè)列表框，其名稱為L1，通過屬性窗口向列表框中添加若干個(gè)項(xiàng)目，每個(gè)項(xiàng)目的具體內(nèi)容不限，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果雙擊列表框中的任意一項(xiàng)，則把列表中的項(xiàng)目數(shù)在標(biāo)簽中顯示出來。程序的運(yùn)行情況如圖所示。不準(zhǔn)使用任何變量。注意：存盤時(shí)必須存放在考生文件夾下。第05套 簡單應(yīng)用題（新模69）（1），請(qǐng)?jiān)诖绑w上畫兩個(gè)框架，其名稱分別為F1和F2，標(biāo)題分別為“交通工具”和“到達(dá)目標(biāo)”。在F1中畫兩個(gè)單選按鈕，名稱分別為Op1和Op2，標(biāo)題分別為“汽車”和“輪船”。在F2中畫兩個(gè)單選按鈕，名稱分別為Op3和Op4，標(biāo)題分別為“青島”和“大連”。畫一個(gè)文本框，其名稱為Text1。編寫適當(dāng)事件過程。程序運(yùn)行后，選擇不同單選按鈕并單擊文本框后在文本框中顯示結(jié)果見下表。程序的運(yùn)行情況如圖所示。存盤時(shí)。注意：考生不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運(yùn)行之前，必須至少進(jìn)行上面的一種操作。退出程序時(shí)必須通過單擊窗體右上角的關(guān)閉按鈕的方式。Private sub Text1_click( ) If =true and =true then=”坐汽車去青島” End ifIf =true and =true then=”坐汽車去大連” End ifIf =true and =true then=”坐輪船去青島” End ifIf =true and =true then=”坐輪船去大連” End ifEnd sub（2），請(qǐng)?jiān)诖绑w上畫二個(gè)文本框，其名稱分別為TextText2，文本框內(nèi)容分別設(shè)置為“等級(jí)考試”、“計(jì)算機(jī)”。然后畫一個(gè)標(biāo)簽，其名稱為Lab1，高度為375，寬度為2000。再畫兩個(gè)單選按鈕，名稱分別為Op1和Op2，標(biāo)題分別為“交換”和“連接”，編寫適當(dāng)?shù)氖录绦?。程序運(yùn)行后，如果選中“交換”單選按鈕并單擊窗體，則Text1文本框中內(nèi)容與Text2文本框中內(nèi)容進(jìn)行交換，并在標(biāo)簽中顯示“交換成功”（如圖所示）；如果選中“連接”單選按鈕并單擊窗體，則把Text1和Text2的內(nèi)容按Text1在前、Text2在后的順序連接起來并在標(biāo)簽中顯示。 存盤時(shí)。注意：不得修改已經(jīng)給出的程序。在結(jié)束程序運(yùn)行之前，必須選中一個(gè)單選按鈕，并單擊窗體。退出程序時(shí)必須通過單擊窗體右上角的關(guān)閉按鈕，否則可能無成績。Private sub form_click( ) If =true then = = = =”交換成功” Elseif =true then = + End ifEnd sub第05套 綜合應(yīng)用題（新模69），請(qǐng)先裝入該工程文件，然后完成以下操作。在名稱為Form1的窗體上畫三個(gè)命令按鈕，其名稱分別為CC2和C3，標(biāo)題分別為“讀入數(shù)據(jù)”、“計(jì)算”和“存盤”（如圖所示）。程序運(yùn)行后，如果單擊“讀入數(shù)據(jù)”按鈕，分別放入Arr1和Arr2兩個(gè)數(shù)組中；如果單擊“計(jì)算”按鈕，則把兩個(gè)數(shù)組中對(duì)應(yīng)下標(biāo)的元素相除并截尾取整后，結(jié)果放入第三個(gè)數(shù)組中（即：把第一個(gè)數(shù)組的第n個(gè)元素除以第二個(gè)數(shù)組的第n個(gè)元素，結(jié)果截尾取整后作為第三個(gè)數(shù)組的第n個(gè)元素。這里的n為。、20），最后計(jì)算第三個(gè)數(shù)組各元素之和，并把所求得的和在窗體上顯示出來；如果單擊“存盤”按鈕。注意：考生不得修改窗體文件中已經(jīng)存在的程序，必須把求得的結(jié)果用“存盤”，否則沒有成績。最后把修改后的文件以原來的文件名存盤。Option Base 1Dim Arr1(20) As IntegerDim Arr2(20) As IntegerSub ReadData1() Open amp。 \ amp。 For Input As 1 For i = 1 To 20 Input 1, Arr1(i) Next i Close 1End SubSub ReadData2() Open amp。 \ amp。 For Input As 1 For i = 1 To 20 Input 1, Arr2(i) Next i Close 1End SubSub WriteData(Filename As String, Num As Integer) Open amp。 \ amp。 Filename For Output As 1 Print 1, Num Close 1End Sub***********以下為考生編寫的程序***********Private sub C1_Click( ) Call ReadData1 Call ReadData2End sub‘ 定義一個(gè)聲明語句：Dim Sum As integerPrivate sub c2_click( ) Dim arr3(20) as integer For i=1 to 20 Arr3(i)=int(arr1(i) / arr2(i)) Sum=Sum+arr3(i) Next i Num=0 Print SumEnd subPrivate sub C3_click( ) Call writeData(“” , sum)***** End sub *****第06套 基本操作題（新模32）（1）在名稱為Form1的窗體上建立一個(gè)二級(jí)下拉菜單（菜單項(xiàng)見下表），運(yùn)行時(shí)的窗體如圖所示。注意：存盤時(shí)必須存放在考生文件夾下。（2）在名稱為Form1的窗體上畫兩個(gè)文本框，名稱分別為TextText2，均無初始內(nèi)容。要求：1） 通過屬性窗口設(shè)置適當(dāng)?shù)膶傩?，使TextText2中顯示的文本的字體為“隸書”；2） 編寫適當(dāng)?shù)氖录^程，使得在Text1中輸入每一個(gè)字符時(shí)，立即在Text2中顯示Text1中的內(nèi)容，如圖所示。 注意：要求程序中不能使用變量，事件過程中只能寫一條語句。存盤時(shí)必須存放在考生文件夾下。第06套 簡單應(yīng)用題（新模32）（1）。程序的功能是：在運(yùn)行時(shí)，如果選中一個(gè)單選按鈕和一個(gè)或兩個(gè)復(fù)選框，則對(duì)文本框中的文字做相應(yīng)的設(shè)置，如圖所示。窗體上的控件已經(jīng)畫出，但沒有給出主要程序內(nèi)容，請(qǐng)編寫適當(dāng)?shù)氖录^程，完成上述功能。注意：不能修改已經(jīng)給出的程序部分和已有的控件；在結(jié)束程序運(yùn)行之前，必須選中一個(gè)單選按鈕和至少一個(gè)復(fù)選框，并單擊“確定”按鈕；必須通過單擊窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最后把修改后的文件按原文件名存盤。Private sub mand1_click( )‘***** 考生編寫的程序如下：***** If = true then = Elseif =true then = End if If =1 then =true Else =true End if If =1 then =true Else =false End if***** End sub *****（2），窗體上已經(jīng)畫出所有控件，如圖所示。在運(yùn)行時(shí)，如果單擊“開始”按鈕，（初始狀態(tài)下不移動(dòng)）；如果單擊“停止”按鈕，則停止移動(dòng)。請(qǐng)完成以下工作：A．設(shè)置適當(dāng)控件的適當(dāng)屬性，而初始狀態(tài)下不移動(dòng)；B．請(qǐng)去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容；C．為兩個(gè)命令按鈕編寫適當(dāng)?shù)氖录^程。最后以原文件名存盤。注意：不得修改已經(jīng)給出的程序。編寫的事件過程中不能使用變量，每個(gè)事件過程中只能有一條語句。Private Sub C1_Click()‘***** 考生編寫的程序如下：*****=trueEnd SubPrivate Sub C2_Click()‘***** 考生編寫的程序如下：*****=falseEnd SubPrivate Sub Timer1_Timer()39。 P1.? + 20 ‘****** Move *******End Sub第06套 綜合應(yīng)用題（新模32），在窗體上給出了所有控件和不完整的程序，請(qǐng)去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容。本程序的功能是：如果單擊“取數(shù)”按鈕，并在窗體上顯示這些姓名；當(dāng)在Text1中輸入一個(gè)姓名，或一個(gè)姓氏后，如果單擊“查找”按鈕，則進(jìn)行查找，若找到，就把所有與Text1中相同的姓名或所有具有Text1中姓氏的姓名顯示在Text2中；（如圖所示）若未找到，則在Text2中顯示“未找到！”；若Text1中沒有查找的內(nèi)容，則在Text2中顯示“未輸入查找內(nèi)容！”。注意：考生不得修改程序的其他部分和控件的屬性，最后把修改后的文件按原文件名存盤。Dim a(15) As StringPrivate Sub C1_Click() Dim k As Integer Open For Input As 1 For k = 1 To 15 Input 1, a(k) Print a(k) Next k39。 Close ? ******** 1 *********End SubPrivate Sub C2_Click() Dim k As Integer, n As Integer, c As String39。 n = Len( ? ) ******** ******** c = If n 0 Then For k = 1 To 1539。 If Left(a(k), ? ) = Then ********* n *********39。 c = c + + ? ********* a(k) ******** End If Next k If c = Then = 未找到！ Else39。 = ? ******** c ******** End If Else = 未輸入查找內(nèi)容！ End IfEnd Sub第07套 基本操作題（新模70）（1）在Form1的窗體上畫一個(gè)名稱為P1的圖片框，然后建立一個(gè)主菜單，標(biāo)題為“操作”，名稱為Op，該菜單有兩個(gè)子菜單，其標(biāo)題分別為“顯示”和“清除”，名稱分別為Dis和Clea，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊“操作”菜單中的“顯示”命令，則在圖片框中顯示“等級(jí)考試”，如果單擊“清除”命令，則清除圖片框中的信息。程序的運(yùn)行情況如圖所示。注意：存盤時(shí)必須存放在考生文件夾下。（2）在Form1的窗體上畫一個(gè)列表框，名稱為L1，通過屬性窗口向列表框中添加4個(gè)項(xiàng)目，分別為“AAAA”、“BBBB”、“CCCC”和“DDDD”，編寫適當(dāng)?shù)氖录^程，過程中只能使用一條命令。程序運(yùn)行后，如果雙擊列表框中的某一項(xiàng)，則把該項(xiàng)添加到列表框中。程序的運(yùn)行情況如圖所示。注意：存盤時(shí)必須存放在考生文件夾下。第07套 簡單應(yīng)用題（新模70）（1），請(qǐng)?jiān)诖绑w上畫兩個(gè)框架，其名稱分別為F1和F2，標(biāo)題分別為“交通工具”和“到達(dá)目標(biāo)”。在F1中畫兩個(gè)單選按鈕，名稱分別為Op1和Op2，標(biāo)題分別為“汽車”和“輪船”。在F2中畫兩個(gè)單選按鈕，名稱分別為Op3和Op4，標(biāo)題分別為“青島”和“大連”。畫一個(gè)文本框，其名稱為Text1。編寫適當(dāng)事件過程。程序運(yùn)行后，選擇不同單選按鈕并單擊文本框后在文本框中顯示結(jié)果見下表。程序的運(yùn)行情況如圖所示。存盤時(shí)。注意：考生不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運(yùn)行之前，必須至少進(jìn)行上面的一種操作。退出程序時(shí)必須通過單擊窗體右上角的關(guān)閉按鈕的方式。Private sub form_click( ) ‘***** 考生編寫程序如下：***** If =true and =true then =”坐飛機(jī)去廣州” End ifIf =true and =true then =”坐飛機(jī)去昆明” End ifIf =true and =true then =”坐火車去廣州” End ifIf =tr