2013計算機二級(VB)考試機試題庫

2013年VB題庫第01套簡單應用題(1)在考生文件夾下有一個工程文件sjt3.vbp,窗體上已經(jīng)有一個標簽しabell,請?zhí)砑右粋€單選按鈕數(shù)組,名稱為OpL含三個單選按鈕,它們的Index屬性分別為〇、1、2,標題依次為“￡機"、“火車“、“汽車”,再添加?個名稱為Textl的文本框。窗體文件中已經(jīng)給出了Opl的Click事件過程,但不完整,要求去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容,使得在程序運行時單擊“飛機"或“火車”單選按鈕時,在Textl中顯示”我坐飛機去"或"我坐火車去”,單擊”汽午”單選按鈕時,在Tex。中顯示”我開汽車去”,如圖所示。注意:不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤。PrivateSubOplClick(IndexAsInteger)DimaAsString,bAsString,cAsStringa="我坐”b="我開.'SelectCase? *****Index*****Case0Textl.Text=a+Me.Op1(0).Caption+"去”Textl.Text=?+Me.Opl(1).Caption+"去" *****a*****Textl.Text=b+Me.Opl(2).Caption+"去"EndSelectEndSub性別身份在文本框中顯示的內(nèi)容男學生我是男學生男教師我是男教師女學生我是女學生女教師我是女教師■Forml 匚!lB1(2)在考生文件夾下有一個工程文件爾4.vbp,Forml窗體中有一個文本框,名稱為Textl:請在窗體上添加兩個框架控件,名稱分別為Fl、F2.標題分別為”性別"、"身份”:在F】中添加兩個單選按鈕控件Opl、Op2,標題分別為”男“、"女”;在F2中添加兩個單選按鈕控件Op3、Op4.標題分別為”學生”、“教師”;再添加?個命令按性別身份在文本框中顯示的內(nèi)容男學生我是男學生男教師我是男教師女學生我是女學生女教師我是女教師■Forml 匚!lB1最后把修改后的文件以原來的文件名存盤。注意:考生不得修改窗體文件中已經(jīng)存在的程序和TexU的屬性，在結束程序運行之前,必須進行能夠產(chǎn)生上表中?個結果的操作。必須用窗體右上角的關閉按鈕結束程序,否則無成績。******請考生編寫程序?****Ifoplandop3thenTextl.Text="我是男學生''Ifoplandop4thenTextI.Tex尸''我是男教師”Ifop2andop3thenTextI.Text=''我是女學生"Ifop2andop4thenTextI.Tex看"我是女教師”*****第01套綜合應用題以下數(shù)列:I,1,2,3,5,8,13,21 的規(guī)律是從第3個數(shù)開始,毎個數(shù)都是其前面兩個數(shù)之和。?r33C35r計算1?Foral在考生文件夾下有?個工程文件sjt5.vbp.窗體中已經(jīng)給出了所有控件,如圖所示。請編寫適當?shù)氖录^程完成如下功能:選中一個單選按鈕后,單擊“計兌"按鈕,則計兌出上述數(shù)列的第n項的值,并在文本框中顯示,n是選中的單選按鈕后面的數(shù)值。(提示:因計算結果較大,應使用長?Foral注意:不能修改已經(jīng)給出的程序和已有的控件的屬性;在結束程序運行之前,必須選中一個單選按鈕,并單擊"計算”按鈕獲得?個結果;必須使用窗體右上角的關閉按鈕結束程序,否則無成績。最后把修改后的文件按原文件名存盤。

PrivateSubCommandl_Click()，**??*請考生編寫程序マ***Dima(35)AsLongIfop1(0)thenn=30Ifopl(l)thenn=33IfopI(2)thenn=35a⑴=1a(2)=lFori=3Tona(i)=a(i-I)+a(i-2)NextText1.Text=a(n)EndSub第02套簡單應用題(1)在考生文件夾下有一個工程文件sjt3.vbp,窗體中有兩個圖片框,名稱分別為Pl、P2.其中的圖片內(nèi)容分別是ー架航天飛機和一朵云彩,ー個命令按鈕,名稱為C1,標題為“發(fā)射”,還有一個計時器,名稱為Timerし并給出了兩個事件過程,但并不完整,要求:①設置Time”的屬性,使其在初始狀態(tài)下不計時:②設買Timerl的屬性,使其每隔0.1秒調(diào)用Timer事件過程一次。③去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容,使得在運行時單擊“發(fā)射”按鈕,則航天飛機毎隔0.1秒向上移動一次,當?shù)竭_P2的下方時停止移動,如圖所示。注意:不能修改程序中的K他部分。最后把修改后的文件按原文件名存盤。PrivateSubCI_Click()'Timer1.Enabled=? True*****EndSubPrivateSubTimerl_Timer()Statica%a=a=+l'IfPl.Top>P2.Top+P2.?Then ?????Height?*??*Pl.MovePl.Left,Pl.Top-5-a,Pl.Width,Pl.HeightElse,Timer(.Enabled=? *****False*****EndIfEndSub(2)在考生文件夾下有一個工程文件sjt4.vbp,運行情況如圖所示。程序的功能是計算下列表達式的值:z=(x4-2)*2+(義+3廣3+(義+ +…+(x+X)*\其中的N和x的值通過鍵盤分別輸入到文本框Textl、Text2中。之后如果單擊標題為“計算"、名稱為Command1的命令按鈕,則計算表達式的值z,并將計算結果顯示在名稱為しabel1的標簽中。在給出的窗體文件中已經(jīng)添加了全部控件和程序,但程序不完整。要求去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。注意:考生不得修改窗體文件中已經(jīng)存在的程序。程序中不得使用人運算符,而應使用函數(shù)xn進行塞運算。程序至少運行ー次,按照下圖輸入數(shù)據(jù),使x=10,N=5,單擊“計算“按鈕,計算z的值,并將結果顯示在標簽Labcll中,否則沒有成績。最后,程序按原文件名存盤。PrivateFunctionxn(aAsSingle,mAsInteger)DimiAsIntegertmp~1Fori=1Tom'tmp=? *****tmp*a*****Next'xn—? *****tmp*****EndFunctionPrivateSubCommand1_Click()DimnAsIntegerDimiAsIntegerDimtAsSingleDims,xAsSinglen-Val(Textl.Text)x=Val(Text2.Text)zニ。Fori=2Ton*z=z+? *****xn(t,i)*****Next'LabelI.Caption=? *****z*****CallSaveResultEndSubPrivateSubSaveResult()OpenApp.Path&"\out4.dat"ForOutputAs#1Print#1,LabelI.CaptionClose#1EndSub*****第02套綜合應用題在考生文件夾中有一個工程文件呢5.vbp。該程序的功能是從in5.txt文件中讀入40個數(shù)據(jù),統(tǒng)計這些數(shù)據(jù)中素數(shù)的個數(shù),并找出所有素數(shù)中最小的素數(shù)(判斷素數(shù)的函數(shù)已給出)。最后將査找和統(tǒng)計的結果分別顯示在標簽しabel4和Label3中(窗體外觀如圖所示)。程序不完整,請在指定的位置把程序補充完整。注意:不得修改原有程序和控件的屬性。在結束程序運行之前,必須至少正確運行ー次程序,將統(tǒng)計的結果顯示在標簽中,否則無成績。最后把修改后的文件按原文件名存盤。Privatearr(100)AsIntegerPublicFunctionprime(xAsInteger)k-lnt(Sqr(x)+5)Fori=2TokIfxModi=0Thenprime=FalseExitFunctionEndIfNextprime=TrueEndFunctionPrivateSubCommandl_Click()OpenApp.Path&'\in5.txt"ForInputAs#1Fori=ITo40Input#1,arr(i)NextClose#1EndSubPrivateSubCommand2_CIick(),*****請考,生編寫程序*****DimaAsIntegerDimbAsInteger

b=arr(l)Fori=ITo40Ifprime(arr(i))Thena=a+1Label3.Caption=aNextFori=ITo40Ifprime(arr(i))Andarr(i)<=bThenb=arr(i)Label4.Caption=bNext,???*?考生編寫程序結束?????OpenApp.Path&"\out5.txt"ForOutputAs#1Print#1,Label3.Caption,Label4.CaptionClose#1EndSub*****第03套簡單應用題（1）在考生文件夾下有一個工程文件sjtS.vbp,其功能是:①單擊”讀數(shù)據(jù)”按鈕,則將考生文件夾下inS.dat文件中的100個0到999之間的整數(shù)讀入到數(shù)組a中:②單擊"計算"按鈕,則找岀這100個整數(shù)中的所有水仙花數(shù),并將它們的最大值ワ最小值分別顯示在文本框Text】、Text2!く［_i3.くS.qS中。（注：當ー個數(shù)的值等于該數(shù)中的各位數(shù)字的立方和時,此數(shù)被稱為水仙花數(shù)。如: '所以15s就是ー個水仙花數(shù)）在窗體文件中已經(jīng)給出了全部控件（如圖所示）和“讀數(shù)據(jù)”命令按鈕的事件過程以及判斷?個數(shù)是否為水仙花數(shù)的通用過程。要求編寫”計免”命令按鈕的事件過程。注意:考生不得修改窗體文件中已經(jīng)存在的控件和程序,在結束程序運行前,必須進行“計算”,并且必須通過單擊窗體右上角的”關閉”按鈕結束程序,否則無成績。最后,程序按原文件名存盤。Dima（100）AsIntegerPrivateSubCommand1_Click（）DimkAsIntegerOpenApp.Path&"VnS.dat"ForInputAs#1Fork=1To100Input#1,a(k)NextkClose#1EndSubPrivateSubCommand?Click(),?????需考生編寫的程序*****DimiAsIntegerDimmaxAsInteger,minAsIntegermax=-1min=1000Fori=ITo100Ifisnarc(a(i))ThcnIfmax<=a(i)Thenmax=a(i)Ifmin>=a(i)Thenmin=a(i)EndIfNextiTextl=maxText2=minEndSub，以bFunction過程用于判斷某數(shù)是否為水仙花數(shù)Functionisnarc(pAsInteger)x=Fix(p/100)y=Fix((p-x*100)/10)z「p-x*100-y*10Ifp=xA3+yA3+zA3Thenisnare-TrueElseisnarc-FalseEndIfEndFunctionPrivateSubFormUnload(CancelAsInteger)OpenApp.Path&"\out3.dat"ForOutputAs#1Print#l,Val(TextI.Text)Print#1,Val(Text2.Text)Close#1EndSub（2）在考生文件夾下有一個工程文件呢4.vbp。請在窗體ヒ添加一個組合框,名稱為cbl,并輸入三個列表項:“3”、“7"、リド（列表項的順序不限,但必須是這3個數(shù)字）;添加?個名為Textl的文木框;再添加?個標題為“計算”、名稱為C1的命令按鈕。如圖所示。請編寫適當?shù)氖录^程,使得在程序運行時,在組合框中選定一個數(shù)字后,單擊"計算"按鈕,則計算5000以內(nèi)能夠被該數(shù)整除的所有數(shù)之和,并放入Textl中。最后,按原文件名存盤。提示；由于計算結果較大,應使用長整型變量。注意；考生不得修改窗體文件中已經(jīng)存在的程序,在結束程序運行之前,必須至少進行ー次計算。并且必須用窗體右上角的關閉按鈕結束程序,否則無成績。PrivateSubCl_CIick()'*****需考生編寫的程序?+林?DimsumAsLongDimnAsIntegerDimiAsIntegern=Val(Cbl.Text)Fori=nTo5000IfiModn=0Thensum=sum+iEndIfNextiText!.Text=sumEndSubハ?**第03套綜合應用題在考生文件夾下有一個工程文件sjt5.vbp,其名稱為Forml的窗體上已有三個文本框Textl、Text2、Text3,以及部分程序代碼。請完成以下工作:①在屬性窗口中修改Tcxt3的適當屬性,使其在運行時不顯示,作為模擬的剪貼板使用。窗體如圖所示;②建立下拉式菜單,如下表所示:標題名稱②建立下拉式菜單,如下表所示:標題名稱編輯Edit剪切Cut復制Copy粘貼Paste③窗體文件中給出了所有事件過程,但不完整,請去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。以便實現(xiàn)如ド功能:當光標所在的文件框中無內(nèi)容時,“剪切"、“更制”不可用,否則可以把該文本框中的內(nèi)容剪切或復制到Text3中；若Textj中無內(nèi)容,則“粘貼”不能用,否則可以把Text3中的內(nèi)容粘貼在光標所在的文本框中的內(nèi)容之后。注意:不能修改程序中的K他部分。各菜單項的標題名稱必須正確。最后將修改后的文件按原文件名存盤。DimwhichAsIntegerPrivateSubcopy_Click()Ifwhich=IThenText3.Text=Text1.TextElselfwhich-2ThenText3.Text=Text2.TextEndIfEndSubPrivateSubcut_Click()Ifwhich=1ThenText3.Text-TextI.TextTextl.Text=MMElselfwhich=2ThenTexB.Text=Text2.TextText2.Text=""EndIfEndSubPrivateSubedit_Click()'Ifwhich=?ThenIfTextl.Text=MMThencut.Enabled=FalseCopy.Enabled:FalseElsecut.Enabled=TrueCopy.Enabled=TrueEndIf'Elselfwhich=?ThenIfText2.Text=*,HThencut.Enabled=FalseCopy.Enabled=FalseElsecut.Enabled=TrueCopy.Enabled=TrueEndIfEndIfIfText3.Text=""ThenPaste.Enabled=FalseElsePaste.Enabled=TrueEndIfEndSubPrivateSubpaste_CIick()Ifwhich=1Then,Text1.Text=?Elselfwhich=2Then'Text2.Text=?*****I**********2**********Tcxtl.Text+Text3.Text**********Tcxt2.Text+Tcxt3.Text*****EndIfEndSubwhich=1EndSubPrivateSubText2_GotFocus()沐過程的作用是:當焦點在Text2中時,which=2which=2EndSub*****第04套簡單應用題（I）在名稱為Forml的窗體上添加?個名稱為Label1、標題為“添加項目:”的標簽:添加?個名稱為Textl的文本框,初始內(nèi)容為空:添加一個名稱為Combol的下拉式組合框,并通過屬性窗口輸入若干項目（不少于3個,內(nèi)容任意）：再添加兩個命令按鈕,名稱分別為Command】、Command2,其標題分別為“添加"、“統(tǒng)計，在程序運行時,向Text】屮輸入字符,單擊"添加"按鈕后,則將TexH中的內(nèi)容作為ー個列表項被添加到組合框的列表中:單擊"統(tǒng)計”按鈕，則在窗體空白處顯示組合框中列表項的個數(shù),如圖所示。請編寫兩個命令按鈕的C】ick事件過程。注意:程序中不得使用變量,也不能使用循環(huán)結構。存盤時必須存放在考生文件夾下,丄程文件名保存為sjt3.vbp,窗體PrivateSubCommand】_C】ick()Combol.AddItemTextlEndSubPrivateSubCommand2_Click()PrintCombo】.ListCountEndSub（2）在考生文件夾下有一個工程文件sjt4.vbp,其窗體如圖所示。該程序用來對在上面的文本框中輸入的英文字母串（稱為"明文つ加密,加密結果（稱為“密文"）顯示在下面的文本框中。加密的方法為：選中一個單選按鈕,單擊"加密”按鈕后,根據(jù)選中的單選按鈕后面的數(shù)字n,將“明文”中的每個字母改為它后面的第n個字母（ケ”后面的字母認為是"a"，后面的字母認為是"A"）,如圖所示。窗體中已經(jīng)給出了所有控件和程序,但程序不完整,請去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。注意:不得修改程序中的其他部分和控件的屬性。最后將修改后的文件按原文件名存盤。PrivateSubCommandl_Click()DimnAs】nteger.kAsInteger,mAs】ntegerDimcAsString,aAsStringFork=0To2IfOpI(k).MucThen'n=VaI(Opl(k).?)EndIfNextkm=Lcn(Text1.Text)a=M"?Fork=1To?'c=Mid$(Textl.Text,?,1)*****Caption**********m***************c=String(1,Asc(c)+n)Ifc>"z"Orc>"Z"Andc<"aMThenc=String(1,Asc(c)-26)EndIfa*****NextkTcxt2.Text=aEndSub“率??第04套綜合應用題在考生文件夾下有一個工程文件sjt5.vbp,窗體上有兩個文本框,名稱分別為Text】、Text2,都可以多行顯示,還有三個命令按鈕,名稱分別為C】、C2、C3,標題分別為“取數(shù)"、"排序"、"存盤"。"取數(shù)”按鈕的功能是將考生文件夾下的in5.dat文件中的50個整數(shù)讀到數(shù)組中，并在Text】中顯示出來："排序"按鈕的功能是對這50個數(shù)按升序排序,并顯示在Text2中:“存盤"按鈕的功能是把排好序

的50個數(shù)ク:到若生目錄下的oul5.dat文件中。如圖所示。在窗體中已經(jīng)給出了全部控件和部分程序代碼,要求閱讀程序并去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容,并編寫”排序"按鈕的Click事件過程,使其實現(xiàn)上述功能,但不能修改程序中的其他部分,也不能修改控件的屬性。最后將修改后的文件按原文件名存盤。Dima(50)AsIntegerPrivateSubCI_Click()DimkAsInteger,chAsStringOpen"in5.daビForInputAs#1ch=""Fork=ITo50，Input#1,? ***?*a(k)?***?ch=ch+Str(a(k))+""NextkClose#1，TextIText=? *****ch*****EndSubPrivateSubC2_Click()? 需考生編寫的程序**?*?DimtAsIntegerDimiAsIntegerDimjAsIntegerDimchAsStringchiFori=50To2Step-1Forj=1To49Ifa(j)>a(j+1)Thent=a(j+I)a(j+l)=a(j)a(j)=tEndIfNextjNextiForj=1To50ch=ch+Str(a(j))+""NextjTextl.Text=chEndSubPrivateSubC3_CIick()Open"out5.dat"ForOutputAs#1Print#1,Text2.TextClose#1EndSubロ廿x|*****第05套簡單應用題(I)在考生文件夾下有一個工程文件sjt3.vbp(相應的窗體文件名為浜3.fhn),在窗體上添加一個名稱為Listl的列表框和一個名稱為Textl的文本框，如圖1所示。編寫窗體的MouseDown事件過程。程序運行后,如果用鼠標左鍵單擊窗體,則從鍵盤上輸入要添加到列表框中的項目(內(nèi)容任意，不少于三個):如果用鼠標右鍵單擊窗體.則從鍵盤上輸入要刪除的項目,將其從列表框中刪除。程序的運行情況如圖2所示。這個程序不完整,請把它補充完整，并能正確運行。ロ廿x|要求:去掉程序中的注釋符,把程序中的?改為適當?shù)膬?nèi)容,使其正確運行,但不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤。PrivateSubFormMouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then

Text1.Text=InpulBox("請輸入要添加的項目”)List1.List1.Additem?EndIfIfButton=2ThenText1.Text=InputBox「請輸入要刪除的項目”）'Fori=OTo?'lfListI.Lisl(i)=?Then*****TextlText*****EndIfEndSub'ListI.Removeltem?*****j*****EndIfNexti（2）在考生文件夾下有一個工程文件sjt4.vbp（相應的窗體文件名為sjt4.frm）,其功能是通過調(diào)用過程FindMin求數(shù)組的最小值。程序運行后,在四個文本框中各輸入ー個整數(shù),然后單擊命令按鈕,即可求出數(shù)組的最小值,并在窗體上顯示出來（如闇所示）.要求:去掉程序中的注祥符,把程序中的?改為正確的內(nèi)容,使其實現(xiàn)上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。OptionBase1PrivateFunctionFindMin(a()AsInteger)'Fori=OTo?'lfListI.Lisl(i)=?Then*****TextlText*****EndIfEndSub'ListI.Removeltem?*****j*****EndIfNexti（2）在考生文件夾下有一個工程文件sjt4.vbp（相應的窗體文件名為sjt4.frm）,其功能是通過調(diào)用過程FindMin求數(shù)組的最小值。程序運行后,在四個文本框中各輸入ー個整數(shù),然后單擊命令按鈕,即可求出數(shù)組的最小值,并在窗體上顯示出來（如闇所示）.要求:去掉程序中的注祥符,把程序中的?改為正確的內(nèi)容,使其實現(xiàn)上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。OptionBase1PrivateFunctionFindMin(a()AsInteger)DimStartAsIntegerDimFinishAsInteger,iAsInteger'Start=?(a)*****LBound*****,Finish=?(a)*****UBound?????"Min=?(Surt)*****a*****Fori=StartToFinishlfa(i)?MinThenMin=?*****<***************NextiFindMin=MinEndFunctionPrivateSubCommandl_CIick()DimarrlDimarr2(4)AsIntegerarrl-Array(Val(TextI.Text),VaI(Text2.Text),Val(Text3.Text),Val(Text4.Text))Fori=ITo4an^i)=CInt(arrl(i))Nexti'M二FindMin(?)**********Print"最小值是:EndSubハ?**第05套綜合應用題在窗體上建立三個菜單（名稱分別為Read、CalcfllSave,標題分別為"讀入數(shù)據(jù)"、"計算并輸出“和"存盤ッ,然后再添加一個文本框,名稱為Textl,MultiLine屬性設置為True,scroIIBaお屬性設置為2（如圖所示）。程序運行后,如果執(zhí)行"讀入數(shù)據(jù)”命令,則讀入考生文件夾下datainl.txt文件中的100個整數(shù),放入一個數(shù)組中,數(shù)組的下界為1：如果単擊"計算并輸出”按鈕,則把該數(shù)組中下標為偶數(shù)的元素在文本框中顯示出來,求出它們的和,并把所求得的和在窗體上顯示出來;如果單擊“存盤"按鈕,則把所求得的和存入考生文件夾下的dataout.txt文件中。在考生文件夾下有一個工程文件sjt5.vbp,窗體文件中的ReadData過程可以把datainl.txt文件中的100個整數(shù)讀入Air數(shù)組中:而WriteData過程可以把指定的整數(shù)值寫到考生文件夾下指定的文件中（整數(shù)值通過計算求得,文件名為dataout.txt）。注意：考生不得修改窗體文件中已經(jīng)存在的程序。存盤時,工程文件名仍保存為sjt5.vbp,窗體文件名仍保存為sjt5.frm。*****需考生編寫的程序*****DimsumAsIntegerPrivateSubCalc_Click()Textl.TextFori=2To100Step2TextI.Text=Text1.Text&Arr(i)&Space(5)sum=Fori=2To100Step2TextI.Text=Text1.Text&Arr(i)&Space(5)sum=sum+Arr(i)NextiPrintsumEndSubPrivateSubRead_Click()ReadDataEndSubPrivateSubSave_Click()WriteData"dataout.txt",sumEndSub*****第06套簡單應用題(I)在考生文件夾下有一個工程文件sjt3.vbp,相應的窗體文件為sjt3.frm0其功能是產(chǎn)生30個07000的隨機整數(shù),放入個數(shù)組中,然后輸出其中的最小值。程序運行后,單擊命令按鈕(名稱為Commandに標題為“輸出最小值”),即可求出其最小值,并在窗體上顯示出來(如圖所示)。這個程序不完整,請把它補充完整,并能正確運行。要求:去掉程序中的注新符,把程序中的?改為正確的內(nèi)容,使其實現(xiàn)上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。OptionBaseIPrivateSubCommandl_Click()DimarrN(30)asIntegerDimMinasIntegerRandomizeFori=lto304arrN(i)=Int(Rnd*?)Nexti*?=arrN(l)Fori=2to30*If?ThenMin=arrN(i)******1000???Min?**Min>arrN(i)???EndifNextiPrintMinEndSub(2)在考生文件夾下有一個工程文件sjt4.vbp,相應的窗體文件為sjt4.frm,在窗體上有一個命令按鈕和一個文本框。程序運行后,單擊命令按鈕,即可計算出い1000范圍內(nèi)不能被7整除的整數(shù)的個數(shù),并在文本框中顯示出來。在窗體的代碼窗口中,已給出了部分程序，其中計并不能被7整除的整數(shù)的個數(shù)的操作在通用過程Fun中實現(xiàn),請編寫該過程的代碼。要求:請勿改動程序中的任何內(nèi)容,只在FunctionFun()和EndFunction之間填入你編寫的若干語句。最后把修改后的文件按原文件名存盤。SubSaveData()OpenApp.Path&ベ&“outtxt.txt"ForOutputAs#1Print#1,Text!.TextClose#1EndsubFunctionFun()請考生編寫的程序???DimsAsInteger,iAsIntegerFori=0To1000IfiMod700ThenEndIfNextiFun=s???EndFunction***PrivateSubCommandl_c1ick()D=Fun()Textl.Text=dSaveDataEndSub*****第06套綜合應用題在考生文件夾下有一個工程文件sjt5.vbp,請先裝入該工程文件,然后完成以下操作:在名稱為Forml的窗體上畫二個命令按鈕,其名稱分別為C1和C2,標題分別為“讀入數(shù)據(jù)”和“計算”(如圖所示)。程序運行后,如果單擊“讀入數(shù)據(jù)”按鈕,則調(diào)用題目所提供的ReadDatal和ReadData2過程讀入datainl.txt和datain2.txt文件中的各20個整數(shù),分別放入Arrl和Arr2兩個數(shù)組中:如果單擊“計算”按鈕,則把兩個數(shù)組中對應下標的元素相減,其結果放入第三個數(shù)組中(即:第一個數(shù)組的第n個元素減去第二個數(shù)組的第n個元素,其結果作為第三個數(shù)組的第n個元素。這里的n為1、2 20),最后計算第三個數(shù)組各元素之和,把所求得的和在窗體上顯示出來：并調(diào)用題H中給出的WriteData過程將所求得的和存入考生文件夾下的dataout.txt文件中。陰入朝|J注意:考生不得修改窗體文件中已經(jīng)存在的程序,且必須執(zhí)行此程序?次,最后把修改后的文件以原來的文件名存盤。OptionBase1DimArrl(20)As陰入朝|JOpenApp.Path&‘へ‘'&"datainl.txt''ForInputas#lFori=lto20Input#1.Arrl(i)NextiClose#IEndSubSubReadData2()OpenApp.Path&"ヽ''&"datain2.txt''ForInputas#1Fori=lto20Input#l,Arr2(i)NextiClose#1EndSubSubWriteData(FilenameAsstring.NumAsInteger)OpenApp.Path&'へ''&FilenameForOutputAs#1Print#l,NumClose#IEndsub******請考生編寫的程序*****PrivateSubCl_CIick()CallRcadDatalCallReadData2EndSubPrivateSubC2_Click()DimArr3(lTo20)AsIntegerDimsumAsIntegersum=0Arr3(i)=Arrl(i)-Arr2(i)sum=sum+Arr3(i)NextiPrintMsum=H;sumWriteData"dataout.txt",sumEndSub*****第07套簡單應用題（1）在名稱為Forml的窗體上添加一個名稱為LI的標簽,標題為"ロ令”:添加兩個文本框,名稱分別為Textl、Text2,初始內(nèi)容為空:再添加三個命令按鈕,名稱分別為Cl、C2、C3,標題分別為“顯示口令“、“隱藏口令“、”復制U令”,在程序開始運行時,向Text】中輸入的所有字符,都顯示為”*”,單擊”顯示口令”按鈕后,在Text]中顯示所有字符,再單擊”隱藏II令”后，Textl中的字符不變，但顯示的都是”?”,單擊”復制口令”后,把Textl中的實際內(nèi)容復制到Text2中,如圖所示。要求:①在屬性窗口中,將窗體的標題改為”口令窗口”。②建立適當?shù)氖录^程,完成上述功能。每個過程中只允許寫一條語句,且不能使用變量。存盤時,工程文件名保存為sjt3.vbp,窗體文件名保存為sjt3.fh~******需考生編寫的程序?****PrivateSubCl_CIick（）Textl.PasswordChar=',MEndSubPrivateSubC2_Click()Text].PasswordChar=EndSubPrivateSubC3_Click()Tcxt2.Text=TextI.TextEndSub（2）在名稱為Forml的窗體上添加一個名稱為PI的圖片框,并利用屬性窗口把考生文件夾中的圖標文件Open.ico放到圖片框中：再添加一個通用對話框控件,名稱為CD1,利用屬性窗口設置相應屬性,即打開對話框時:標題為”打開文件”，文件類型為”Word文檔”,初始文件夾為C盤根文件夾。再編寫適當?shù)氖录^程，使得程序在運行時,單擊P1圖片框,可以打開上述對話框。程序運行后的窗體如圖所示.注意：存盤時必須存放在考生文件夾下,工程文件名保存為sjt4.vbp,窗體文件名保存為sjt4.fhn。程序中不得使用任何變量。1 *****需考生編寫的程序?****PrivateSubPl_Click()CDl.ShowOpcnEndSub*****第07套綜合應用題（い在考生文件夾下有一個工程文件sjt5.vbp,窗體上有兩個命令按鈕,標題分別是“讀數(shù)據(jù)“和”統(tǒng)計”,請?zhí)砑右粋€名稱為しabell、標題為”回文的個數(shù)為”的標簽和ー個名稱為Textl,初始內(nèi)容為空的文本框,如圖所示。程序功能如下:①單擊”讀數(shù)據(jù)”按鈕,則將考生文件夾下in5.dat文件的內(nèi)容讀到變量s中:②單擊”統(tǒng)計"按鈕,則統(tǒng)計in5.dat文件（該文件中僅含由空格間隔開的字母串）中回文的個數(shù),并將統(tǒng)計的回文個數(shù)顯示在Textl文本框內(nèi)。（所謂回文是指順讀與倒讀都一樣的字符串,如"recycer”）“讀數(shù)據(jù)”和“統(tǒng)計”按鈕的Click事件過程已經(jīng)給出,請完善fbundhuiwen過程的功能,實現(xiàn)上述程序功能。注意:考生不得修改窗體文件中已存在的控件和程序,在結束程序運行之前，必須先進行統(tǒng)計,且必須用窗體右上角的關閉按鈕結束程序，否則無成績。最后,程序按原文件名存盤。Functionfbundhuiwen（pAsString）* *****需考生編寫的程序*****IfStrReverse(p)=pThenfbundhuiwcn=TrueEndFunction“”??第08套基本操作題（1）在名稱為Forml標題為“選題”的窗體上畫?個復選框數(shù)組,名稱為CH1,共有四個復選框,按順序其標題分別是“數(shù)學”、“語文”、“外語”、“計克機”,其中“語文”、“計算機”復選框在選中狀態(tài)下,/r