【正文】 4。請(qǐng)畫出三個(gè)單選按鈕，名稱分別為OptionOptionOption3，標(biāo)題分別為“大小寫字母數(shù)之差”（即大寫字母數(shù)減小寫字母數(shù)）、“大小寫字母數(shù)之和”、“大小寫字母數(shù)乘積”；窗體如圖所示。保存時(shí)必須存放在考生文件夾下。 請(qǐng)編寫適當(dāng)?shù)氖录^(guò)程以滿足以下要求： 1）單擊Form2窗體，則顯示Form1窗體（如圖所示）； 2）單擊Form1窗體，則Form1窗體消失； 3）單擊“結(jié)束”按鈕則結(jié)束程序運(yùn)行。注意：存盤時(shí)必須存放在考生文件夾下。）； 2）窗體的標(biāo)題為“橢圓”，窗體的最大化按鈕不可用?；騛mp。請(qǐng)?jiān)O(shè)置適當(dāng)?shù)膶傩詽M足以下要求： 1）橢圓的邊線為紅色（把相應(yīng)的屬性設(shè)置為：amp。Private Sub Command1_Click() Dim i As Integer Open For Input As 1 For i = 1 To 100 Input 1, a(i) Next i Close 1End SubPrivate Sub Command2_Click()39。最后，程序按原文件名存盤。窗體中給出了所有控件（如圖所示）和“讀數(shù)據(jù)”按鈕及“存盤”按鈕的Click事件過(guò)程，請(qǐng)為“計(jì)算”按鈕編寫適當(dāng)?shù)氖录^(guò)程實(shí)現(xiàn)上述功能。 = Len( ? ) ***** *****39。Private Sub Command1_Click() Dim k As Integer, m As Integer m = Len()39。不能修改程序中的其他部分和控件的屬性。程序運(yùn)行后，若Option1被選中，則只替換Text3中第一個(gè)匹配的字串，若Option2被選中，則替換Text3中所有匹配的字串。程序運(yùn)行時(shí)，在TextText2中輸入文字，單擊“替換”按鈕，則在Text3中找到Text1中的內(nèi)容，并用Text2中的內(nèi)容替換，若未找到，則不替換。 Call drawsin(?, Y) ***** x ***** End If Next kEnd Sub（2）。 For k = ? To 2 ***** 0 *****39。最后把修改后的文件按原文件名存盤。文件中的drawsin過(guò)程的作用是畫一條正弦曲線，可以直接調(diào)用。在運(yùn)行時(shí)，用鼠標(biāo)單擊其中一條線的任何位置，則以單擊的點(diǎn)為起始點(diǎn)，畫一個(gè)正弦曲線（如圖所示）；若鼠標(biāo)單擊在直線之外，則不畫正弦曲線。第10套 簡(jiǎn)單應(yīng)用題（新模76）（1）。要求程序中不得使用變量，每個(gè)事件過(guò)程中只能寫一條語(yǔ)句。（2）在名稱為Form1的窗體上利用形狀控件畫一個(gè)矩形，名稱為Shape1，高和寬分別為1000、1700；再畫兩個(gè)命令按鈕，名稱分別是CommandCommand2，標(biāo)題分別為“圓”、“橢圓”按鈕，如圖1所示。如圖所示。 intM。 intK。***** 請(qǐng)考生編寫程序 *****Private sub mand1_click( )Open “” for input as 1 Line input 1,str_tempClose 1For i=1 to len(str_temp) Ch=mid(str_temp , i , 1) If asc(ch)=97 and asc(ch)=122 or asc(ch)=65 and asc(ch)=90 then Strch=strch+ch End ifNext i=strchEnd subPrivate sub mand2_click( ) Strch= intI=0intJ=0intK=0intL=0intM=0intN=0for i=1 to len(strch) ch=mid(strch ,i , 1) if ch=”I” or ch=”i” then intI=intI+1elseif ch=”J” or ch=”j” then intJ=intJ+1elseif ch=”K” or ch=”k” then intK=intK+1elseif ch=”L” or ch=”l” then intL=intL+1elseif ch=”M” or ch=”m” then intM=intM+1elseif ch=”N” or ch=”n” then intN=intN+1end ifnext iEnd subPrivate sub mand3_click( )Open “” for output as 1Print 1,intI。 Op1(?).Caption ***** a *****End Sub第09套 綜合應(yīng)用題在窗體上畫1個(gè)文本框，名稱為Text1（可顯示多行），然后再畫三個(gè)命令按鈕，名稱分別為Command1，Command2和Command3，標(biāo)題分別為“讀數(shù)”，“統(tǒng)計(jì)”和“存盤”，如圖所示。 Call draw(?) ***** k ***** End If Next kEnd SubSub draw(a As Integer)39。Private Sub C1_Click() Dim k As Integer For k = 0 To 239。注意：不能修改程序中的其他部分，也不能修改控件的其他屬性。要求：1）原題中的單選按鈕和命令按鈕沒(méi)有標(biāo)題，請(qǐng)利用屬性窗口依次添加單選按鈕標(biāo)題分別為“正方形”、“橢圓形”、“圓形”，添加命令按鈕標(biāo)題為“顯示”。 ? = True ***** *****End Sub（2），窗體上有一個(gè)名為P1的圖片框；一個(gè)單選按鈕數(shù)組，含三個(gè)單選按鈕，標(biāo)題分別為“正方形”、“橢圓形”、“圓形”；還有一個(gè)標(biāo)題為“顯示”的命令按鈕。Private Sub C2_Click()39。最后把修改后的文件按原文件名存盤。該程序?qū)崿F(xiàn)的功能是：在程序運(yùn)行時(shí)顯示Form2窗體，單擊Form2上的“顯示”按鈕，則顯示Form1窗體；若單擊Form1上的“結(jié)束”按鈕，則關(guān)閉Form1和Form2，并結(jié)束程序運(yùn)行。第09套 簡(jiǎn)單應(yīng)用題（1），它包含兩個(gè)名稱分別為Form1和Form2的窗體，F(xiàn)orm1和Form2窗體上建立了標(biāo)題分別為“C1”和“C2”的按鈕。運(yùn)行時(shí)的窗體如圖所示。（2）在名稱為Form1的窗體上畫一個(gè)文本框，名稱為Text1，其初始內(nèi)容為0；畫一個(gè)命令按鈕，名稱為C1，標(biāo)題為“開(kāi)始計(jì)數(shù)”；再畫一個(gè)名稱為T1的計(jì)時(shí)器。運(yùn)行后的窗體如圖所示。***** 考生應(yīng)完成的程序 *****Open “” for input as 1 Input 1, sClose 1=s***** End sub *****Private Sub Command2_Click()39。最后，按原文件名把程序存盤。 請(qǐng)編寫“讀入文件”按鈕和“加密”按鈕的Click事件過(guò)程，以實(shí)現(xiàn)上述功能。大小寫字母都遵循規(guī)則。3）單擊“存結(jié)果”。 ? = ********* a ********* Shape1(k 1).Top = a Shape1(k 1).Height Shape1(k 1).Visible = True Next kEnd Sub第08套 綜合應(yīng)用題（新模77），已給出了所有控件（如圖所示）和部件程序。 Label1(k 1).Visible = ? ******** true ********* Next kEnd SubPrivate Sub Command2_Click() Dim a As Integer For k = 1 To 539。Dim s(5) As IntegerPrivate Sub Command1_Click()39。注意：不能修改程序的其他部分和各控件屬性。例如若輸入的五個(gè)數(shù)是1200、500、800、1900、1500，則結(jié)果如圖2所示。如圖1所示。Dim a(100) As IntegerPrivate Sub Command1_Click() Dim k As Integer Open For Input As 1 For k = 1 To 100 Input 1, a(k) Next k Close 1End SubPrivate Sub Command2_Click()‘***** 考生應(yīng)完成的程序***** Intmax=a(1) Intmin=a(1) For i=1 to 100 If intmax=a(i) then Intmax=a(i) End if If intmin=a(i) then Intmin=a(i) End if Next i If =0 then =intmax – intmin Elseif =1 then =intmax+intmin Elseif =2 then =intmax * intmin End if***** End sub *****Private Sub Form_Unload(Cancel As Integer) Open For Output As 1 Print 1, , Close 1End Sub（2）。 4）單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。 2）從名稱為L(zhǎng)ist1的列表框中選中一項(xiàng)（如圖所示）。第08套 簡(jiǎn)單應(yīng)用題（新模77）（1），已給出了所有控件和部分程序。注意：程序中不能使用變量，事件過(guò)程中只能寫一條語(yǔ)句。再通過(guò)屬性窗口設(shè)置適當(dāng)屬性使得程序剛運(yùn)行時(shí)，焦點(diǎn)在滾動(dòng)條上（如圖所示）。注意：存盤時(shí)必須存放在考生文件夾下。 \ amp。 \ amp。 \ amp。39。注意：考生不得修改窗體文件中已經(jīng)存在的程序，必須把求得的結(jié)果用“存盤”，否則沒(méi)有成績(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è)元素。Private sub text3_click( ) ‘***** 考生編寫程序如下：***** If =true then = = = =”交換成功” Elseif =true then = + End if***** End sub *****第07套 綜合應(yīng)用題（新模70），請(qǐng)先裝入該工程文件，然后完成以下操作。在結(jié)束程序運(yùn)行之前，必須選中一個(gè)單選按鈕，并單擊窗體。 存盤時(shí)，按原文件名存盤。然后畫兩個(gè)單選按鈕，名稱分別為Op1和Op2，標(biāo)題分別為“交換”和“連接”，編寫適當(dāng)?shù)氖录绦颉Ｍ顺龀绦驎r(shí)必須通過(guò)單擊窗體右上角的關(guān)閉按鈕的方式。存盤時(shí)。程序運(yùn)行后，選擇不同單選按鈕并單擊文本框后在文本框中顯示結(jié)果見(jiàn)下表。畫一個(gè)文本框，其名稱為Text1。在F1中畫兩個(gè)單選按鈕，名稱分別為Op1和Op2，標(biāo)題分別為“汽車”和“輪船”。注意：存盤時(shí)必須存放在考生文件夾下。程序運(yùn)行后，如果雙擊列表框中的某一項(xiàng)，則把該項(xiàng)添加到列表框中。注意：存盤時(shí)必須存放在考生文件夾下。程序運(yùn)行后，如果單擊“操作”菜單中的“顯示”命令，則在圖片框中顯示“等級(jí)考試”，如果單擊“清除”命令，則清除圖片框中的信息。 c = c + + ? ********* a(k) ******** End If Next k If c = Then = 未找到！ Else39。 n = Len( ? ) ******** ******** c = If n 0 Then For k = 1 To 1539。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。本程序的功能是：如果單