(完整版)Vb專題習(xí)題

VB專題習(xí)題4/30Vb專題習(xí)題一、選擇題1.將數(shù)學(xué)表達(dá)式寫(xiě)成VisualBasic表達(dá)式，正確的是（）（A）Sqr(abs(b*b-4ac))（B）Sqr(abs[b*2-4*a*c])（C）Sqr(abs(b*b-4*a*c))（D）Sqr[abs(b*b-4*a*c)]2.在VisualBasic中，若要將窗體中某個(gè)命令按鈕設(shè)置成無(wú)效狀態(tài)，應(yīng)對(duì)該按鈕的（）屬性值進(jìn)行修改。（A）Value（B）Visible（C）Enabled（D）Caption3.執(zhí)行如下VisualBasic程序段時(shí)，出現(xiàn)了如下圖所示的錯(cuò)誤：PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=5:b=8b=a+blabel1.Caption=Str(b)EndSub引發(fā)此錯(cuò)誤的語(yǔ)句可能為（）（A）DimaAsInteger,bAsInteger（B）a=5:b=8（C）b=a+b（D）label1.Caption=Str(b)4.已知a=5，b=9，c=11，則下列VisualBasic表達(dá)式的值為False的是（）（A）a>bAnda>c（B）a<bOra>c（C）a<b+c（D）a>c–b5.有下列VisualBasic程序段：某同學(xué)正編寫(xiě)一個(gè)判斷兩數(shù)大小的程序，其窗體和代碼窗口如下圖所示：根據(jù)代碼窗口中的程序，要在程序運(yùn)行時(shí)判斷兩數(shù)的大小，窗體上必須增加的對(duì)象是（）（A）標(biāo)簽Text1（B）文本框Text2（C）命令按鈕Command1（D）文本框Print若程序要實(shí)現(xiàn)“求100內(nèi)能被3整數(shù)的自然數(shù)個(gè)數(shù)”的功能，則方框中正確的語(yǔ)句是（）（A）i/3=0（B）imod3=0（C）i\3=0（D）int(i/3)=06.有如下VisualBasic程序段：PrivateSubCommand1_Click()DimaAsIntegera=Int(5*Rnd+1)*Int(5*Rnd-1)PrintaEndSub執(zhí)行程序后，a的值范圍是（）（A）[0，15]（B）[－1，15]（C）[－4，15]（D）[－5，15]7.在VisualBasic中，表達(dá)式3^2Mod14\2^3的值是（）（A）1（B）0（C）2（D）38.某同學(xué)正編寫(xiě)一個(gè)判斷兩數(shù)大小的程序，其窗體和代碼窗口如下圖所示：根據(jù)代碼窗口中的程序，要在程序運(yùn)行時(shí)判斷兩數(shù)的大小，窗體上必須增加的對(duì)象是（）（A）標(biāo)簽Text1（B）文本框Text2（C）命令按鈕Command1（D）文本框Print9.下列VisualBasic程序段中，能實(shí)現(xiàn)輸出變量a、b、c三個(gè)數(shù)中最大數(shù)的是（）10、有如下VisualBasic程序段：x=3y=5Text1.Text="x+y"該程序運(yùn)行后，要文本框Text1中顯示的是（）（A）3+5（B）x+y（C）8（D）3+5=811.在VisualBasic中，下列表達(dá)式的值為5的是（）（A）Int(Sqr(9)+1.28)（B）(19\2)Mod5（C）Abs(-7)+Sqr(4)（D）Len("x+y+2")12.在VisualBasic中，下列語(yǔ)句定義的數(shù)組元素為10個(gè)的是（）（A）Dima(0To10)AsInteger（B）Dimb(1To9)AsString（C）Dimc(2To10)AsBoolean（D）Dimd(0To9)AsDate13.某VisualBasic工程的代碼窗口如圖所示：從圖中可以看出，當(dāng)前正在編輯的是（）A.Command1的Click事件過(guò)程代碼B.Timer1的Timer事件過(guò)程代碼C.Label1的Click事件過(guò)程代碼D.Image1的Click事件過(guò)程代碼14.在VisualBasic中，下列能作為變量名的是（）A.MyB.IfC.a+yD.2nd15.已知字符A～Z的ASCII碼值分別對(duì)應(yīng)65～90。小明編寫(xiě)了一個(gè)在標(biāo)簽Label1上顯示26個(gè)英文大寫(xiě)字母“ABCDE……XYZ”的VB程序。部分程序如下：a=""Fori=65To90NextiLabel1.Caption=a方框中正確的語(yǔ)句是（）A.a=a+Str(i)B.a=a+Chr(i)C.a=a+Int(i)D.a=a+ASC(i)16.a=a+bb=a-ba=a-b功能相同的程序段是（）A.a=bb=aB.a=a+ba=a-bb=a-bC.t=aa=bb=tD.IFa>bTHENa=bELSEb=aENDIF17.在VisualBasic中，表達(dá)式Abs(－3.6)*Sqr(100)的值是（）A.36B.360C.－36D.－36018.某同學(xué)正編寫(xiě)一個(gè)判斷酒駕行為的VisualBasic程序，其窗體和代碼窗口如下圖所示。根據(jù)代碼窗口中的程序，要在程序運(yùn)行時(shí)獲取輸入的x值，窗體上必須增加的對(duì)象是（）A.標(biāo)簽Text1B.標(biāo)簽Label2C.文本框Text119.某VisualBasic程序如下：PrivateSubCommand1_Click()DimiAsInteger,sumAsIntegersum=0Fori=10To2Step-2sum=sum+iNextitext1.Text=Str(sum)EndSub運(yùn)行程序，單擊命令按鈕Command1后彈出如圖所示的出錯(cuò)信息提示，此時(shí)程序正執(zhí)行的語(yǔ)句是（）sum=0Fori=10to2step-2Sum=sum+iText1.text=str(sum)20.有如下VisualBasic程序段：s=0Fori=1To5s=s+iNexti該程序運(yùn)行后，i的值為（）（A）1（B）5（C）6（D）1521.在VisualBasic中，某對(duì)象的屬性窗口如圖所示：該對(duì)象名是（）CommandButtonCommand1Command_1Appearance22.有如下VisualBasic程序段：j=10Fori=1To9Ifa(i)>a(j)Thenj=iNexti該程序運(yùn)行后，變量a(j）中存儲(chǔ)的是（A）a(1)至a(10)中的最大值（B）a(1)至a(10)中的最小值（C）a(1)至a(10)的累加值（D）從1計(jì)數(shù)至923.某VisualBasic程序的一個(gè)事件過(guò)程如下：PrivateSubCommand1_Click()DimrAsSingleDimpiAsDoubler=100pi=3.14Label1.Caption="圓面積為:"+Val(pi*r*r)EndSub運(yùn)行程序，單擊命令按鈕Command1后彈出如圖所示的出錯(cuò)信息提示，引起該錯(cuò)誤的語(yǔ)句因是（）A.DimrAsIntegerB.DimpiAsDoubleC.Pi=3.14D.Label1.Caption="圓面積為:"+Val(pi*r*r)24.有如下VisualBasic程序段：s=0Fori=1To10Step4s=s+iNexti該程序運(yùn)行后，變量s的值是()（A）0（B）1（C）5（D）1525.下列VisualBasic表達(dá)式的值等于56的是()（A）Mid("123456",5,3)（B）Len("55"+1)（C）Sqr(56)（D）Abs(-55)+126.27.28.小金編寫(xiě)了一個(gè)統(tǒng)計(jì)隨機(jī)數(shù)分布的VB程序，部分程序如下所示，在調(diào)試程序的時(shí)候出現(xiàn)如右圖所示的錯(cuò)誤信息：n=0m=0Fori=1To100IfRnd>0．5Thenn=n+1Elsem=m+1Nexti……小金仔細(xì)分析該程序段后，發(fā)現(xiàn)其中缺少了()A.For B.Next C.EndIf D.If29.有如下VB程序：PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=Val(text1.Text)b=Val(text2.Text)c=(a+b+Abs(a-b))\3Text3.Text=Str(c)EndSub運(yùn)行該程序，分別在文本框Text1、Text2中輸入5、9，單擊命令按鈕Command1后，文本框Text3中顯示的內(nèi)容是（）A.6 B.5 C.4 D.730.如右圖所示的VB程序中，輸入以下程序代碼，運(yùn)行后單擊命令按鈕Command1，出現(xiàn)錯(cuò)誤的提示圖是：（）PrivateSubCommand1_Click()Dima(1To4)AsIntegerDimiAsIntegera(1)=1Fori=2To4a(i)=2*a(i-1)+1NextiList1.AddItemStr(a(i))EndSubA． B． C． D．31.若x表示能被3整除的正整數(shù)，則下面邏輯表達(dá)式的值一定為真的是：（）A.Int(x/3)=0 B.3Modx=0 C.xMod3=0 D.x\3=032.、為使下面左右框內(nèi)的VB程序段實(shí)現(xiàn)相同的功能，則左框內(nèi)劃線處填寫(xiě)的代碼應(yīng)該是（）。0DoWhilet<=6s=s+t0DoWhilet<=6s=s+tLoops=0:t=s=0Fort=1To6Step2s=s+tNexttA．A.t=2B．B.t=6C.t=t+1D．D.t=t+233.VB表達(dá)式S=Int（Rnd()*1000+9000），則S的取值范圍是（）A.B.C.D.34.下表記錄了6個(gè)數(shù)據(jù)的排序過(guò)程。分析表中數(shù)據(jù)可知，該排序采用的算法與排序方式分別為（）原始數(shù)據(jù)655759444569第1遍446557594569第2遍444565575969第3遍444557655969…A．冒泡排序，升序B．選擇排序，升序C．冒泡排序，降序D．選擇排序，降序35.階乘是基斯頓﹒卡曼于1808年發(fā)明的運(yùn)算符號(hào)。正整數(shù)n的階乘為n！=1×2×3…×n。小王編寫(xiě)了如下VB程序用來(lái)求S=1！+2！+3！+…+10！。Functionfac(nAsInteger)AsLongfac=1Fori=1Tonfac=fac*iNextiEndFunctionPrivateSubCommand1_Click()DimsAsLong,jAsIntegerForj=1To10NextjText1.Text=Str(s)EndSub方框中的正確語(yǔ)句是：A．s=s+fac(j) B．s=fac(j)C．s=s+i*fac(i) D．s=s+fac(i)36.下列邏輯表達(dá)式中，值為False的是（）A．Asc("A")<Asc("a")B．Int(Rnd*49)<49C．3+4<=7and5+6>9 D．"thirty">"two"37.有100個(gè)大小形狀一樣的透明玻璃球，其中有1個(gè)玻璃球的重量輕于其他99個(gè)玻璃球，小明想利用一臺(tái)無(wú)砝碼的天平，運(yùn)用合理的算法保證一定能找出這顆輕玻璃球的最少的次數(shù)為：A．100 B．10 C．8 D．638.下列VB程序中，f是一個(gè)遞歸函數(shù)：PrivateSubCommand1_Click()DimyAsIntegery=Val(Text1.Text)Label1.Caption=Str(f(y))EndSubFunctionf(nAsInteger)AsIntegerIf(n=1)Or(n=2)Thenf=1Elsef=f(n-1)+f(n-2)EndIfEndFunction程序運(yùn)行時(shí)，在文本框中輸入8，單擊命令按鈕Command1后，Label1中顯示的內(nèi)容是：A．5 B．8 C．13 D．2139.用選擇排序?qū)⑵邆€(gè)數(shù)“2022，2017，2018，2014，2021，2012，2015”A．2022，2021，2018，2017，2014，2012，2015B．2012，2014，2018，2017，2021，2022，2015C．2012，2017，2018，2014，2021，2022，2015D．2022，2021，2018，2014，2017，2012，201540.某高校學(xué)籍管理系統(tǒng)軟件有2萬(wàn)個(gè)學(xué)生的電子檔案（已按學(xué)籍號(hào)排序），假設(shè)從中取出一條記錄并與待查項(xiàng)進(jìn)行比較所花時(shí)間為8毫秒，則用對(duì)分法在該系統(tǒng)中查找任意一位學(xué)生檔案最多花費(fèi)的時(shí)間約為（）A．16萬(wàn)毫秒B．8萬(wàn)毫秒C．10毫秒D．120毫秒41.已知temp1=“12”，temp2=3，則VisualBasic表達(dá)式temp1+temp2的值為（B）A.“15”B.15C.“123”D.123B二、程序填空題（學(xué)考部分）1.編寫(xiě)一個(gè)具有下列功能的VB程序：?jiǎn)螕簟胺诸悺卑粹oCommand1，隨機(jī)產(chǎn)生10個(gè)[10，99]區(qū)間中的整數(shù)，并將其中3的倍數(shù)顯示在List1中，余下的數(shù)顯示在List2中。運(yùn)行界面如圖所示。（1）要使命令按鈕Command1上顯示的文本為“分類”，可在其屬性窗口中將屬性的屬性值改為“分類”。（2）為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)趧澗€處填寫(xiě)合適的代碼。PrivateSubCommand1_Click()List1.ClearList2.Clear Dima(1To10)AsIntegerFori=1To10a(i)==1\*GB3①I(mǎi)f=2\*GB3②ThenList1.AddItemStr(a(i))Else=3\*GB3③EndIfNextiEndSub2.小丁想買(mǎi)幾張6+1彩票，選號(hào)時(shí)，他希望前4位用自己的生日：11月8日，即1108，特別號(hào)碼他選了買(mǎi)彩票日子的個(gè)位數(shù)5，并且他希望前六個(gè)數(shù)字組成的數(shù)能被他的幸運(yùn)數(shù)字9整除。他的好朋友小杰幫他設(shè)計(jì)了一個(gè)VB程序，可以提供一份符合這些要求的號(hào)碼清單供他挑選。相應(yīng)的界面如第12題圖-1所示。閱讀程序并完成后面的問(wèn)題。（1）設(shè)計(jì)應(yīng)用程序界面時(shí)，為添加a所指向的對(duì)象，應(yīng)使用圖所示的“控件工具箱”中的（填寫(xiě)相應(yīng)編號(hào)）；在第14題-3圖所示的“屬性窗口”中，將屬性值設(shè)置為“開(kāi)始”，可使2中b所指向的對(duì)象顯示“開(kāi)始”。（2）請(qǐng)根據(jù)題意將下列程序補(bǔ)充完整。PrivateSubCommand1_Click()Dimiasinteger,jasinteger,cAsIntegerDimnAsLongc=0Fori=0To99n=110800+iIf①ThenList1.AddItemStr(n)+""+"5"=2\*GB3②EndIfNextiLabel2.Caption="滿足條件的數(shù)有："+Str(c)+"組"EndSub3.小李想用vb制作一個(gè)分鐘倒計(jì)時(shí)器，界面如圖所示。先在文本框text1中輸入分鐘數(shù)，然后在文本框text2中輸入秒鐘數(shù)，再點(diǎn)擊“開(kāi)始倒計(jì)時(shí)”按鈕開(kāi)始倒計(jì)時(shí)。Vb程序如下：PrivateSubCommand1_Click()Timer1.Enabled=①EndSubPrivateSubTimer1_Timer()sec=Val(Text2.Text)min=Val(Text1.Text)Ifsec>0Thensec=sec-1Elsesec=59Ifmin>0Thenmin=min-1ElseText1=0Text2=0MsgBox"倒計(jì)時(shí)時(shí)間到"EndIfEndIfText1=minText2=secEndSub(1)程序中①處應(yīng)該填。（選填：True/False)(2)計(jì)時(shí)器timer1的inteval屬性應(yīng)該設(shè)置為。4.小沈很久沒(méi)登錄自己的電子郵箱了，這次他想給遠(yuǎn)方的朋友發(fā)封電子郵件，但是密碼忘記了，請(qǐng)你幫她盡可能找回密碼。她零星記得自己的密碼信息如下：①共八位字符，前兩位為字母“zj”，后六位是數(shù)字，并以66開(kāi)頭（即密碼格式為zj66****）；②最后兩位數(shù)字相同；③后六位數(shù)能被16和46同時(shí)整除。單擊“找回密碼”按鈕（Command1）后，可能的密碼顯示在列表框List1中。第14題圖第14題圖PrivateSubCommand1_Click()DimsAsLong,aAsInteger,bAsInteger,cAsInteger,iAsIntegerFori=0To9999s=660000+iIf①AndsMod46=0Then'（選填字母，從下列A、B、C、D四個(gè)選項(xiàng)中選取一項(xiàng)）a=sMod10b=(sMod100)\10If②Then'（選填字母，從下列A、B、C、D四個(gè)選項(xiàng)中選取一項(xiàng)）List1.AddItem("zj"+Str(s))c=③'（填程序代碼）EndIfEndIfNextiLabel1.Caption="共有"+Str(c)+"個(gè)"EndSub（1）解決此問(wèn)題的算法是_______________。（選填：枚舉算法/解析算法/查找算法）（2）程序中①劃線處應(yīng)填入__________；程序中②劃線處應(yīng)填入_________。劃線①、②處的選項(xiàng)：()A．sMod16=0B．s\16=0C．a(chǎn)<>b D．a(chǎn)=b（3）程序中①劃線處應(yīng)填入的代碼_______________________。5.小蘭設(shè)計(jì)了一個(gè)“猜價(jià)格”小游戲，用戶在Text1中輸入所猜的價(jià)格，單擊“猜一猜”按鈕，如果偏高了，Label4標(biāo)簽中將提示“對(duì)不起，偏高了！”；若所猜的價(jià)格偏低，則Label4標(biāo)簽中將提示“對(duì)不起，偏低了！”；若猜中，則Label4標(biāo)簽中將顯示“恭喜你，猜對(duì)啦！”。界面如圖所示。圖圖Form1Label1Label2Label4Text1Command1Label3（1）應(yīng)用程序界面設(shè)計(jì)時(shí)，為添加“請(qǐng)輸入您猜的價(jià)格：”對(duì)象，應(yīng)使用圖所示的“控件工具箱”中的（填寫(xiě)相應(yīng)字母），并在圖所示的“屬性窗口”中，將屬性值設(shè)置為“請(qǐng)輸入您猜的價(jià)格：”。ＢＢＡＣＤ圖圖（2）解決此問(wèn)題的相應(yīng)程序如下，請(qǐng)根據(jù)題意將程序補(bǔ)充完整。PrivateSubCommand1_Click()DimgAsIntegerDimpAsIntegerp=99'預(yù)設(shè)價(jià)格的值存儲(chǔ)到p變量中g(shù)=Ifg>pThen="對(duì)不起，偏高了！"ElseIfg<pThenLabel4.Caption="對(duì)不起，偏低了！"ElseLabel4.Caption="恭喜你，猜對(duì)啦！"EndSub6.十進(jìn)制數(shù)轉(zhuǎn)二進(jìn)制數(shù)程序界面如第14題-1圖所示，相關(guān)VB程序運(yùn)行時(shí)，單擊命令按鈕Command1后，執(zhí)行十進(jìn)制數(shù)轉(zhuǎn)二進(jìn)制數(shù)并輸出顯示的程序。（1）應(yīng)用程序界面設(shè)計(jì)。轉(zhuǎn)換得到的二進(jìn)制數(shù)將顯示在Label3中，請(qǐng)根據(jù)第14題-3圖提供信息，確定使用第14題-2圖控件工具箱中的（填寫(xiě)相應(yīng)編號(hào)），修改屬性的值為1010。第14題-1圖第14題-2圖第14題-3圖（2）解決此問(wèn)題的相應(yīng)程序如下，請(qǐng)根據(jù)相應(yīng)注釋及題意將程序補(bǔ)充完整。PrivateSubCommand1_Click() ‘不停除2到商為0為止，所得余數(shù)倒推DimsjzsAsInteger ‘sjzs：十進(jìn)制數(shù)DimrjzsAsString ‘rjzs：二進(jìn)制數(shù)sjzs=Val(Text1.Text)rjzs=""DoWhilerjzs=Str(sjzsMod2)+rjzsLabel3.Caption=rjzsEndSub7.以下VB程序段的功能是用DO語(yǔ)句求1~1000之間滿足“用3除余2,用5除余3，用7除余2”的數(shù)。并將結(jié)果在list1中列出，并在label1處顯示符合條件的數(shù)的個(gè)數(shù)。（1）程序中①處應(yīng)填入的代碼是________________（2）程序運(yùn)行結(jié)束后，變量i的值為_(kāi)______________PrivateSubCommand1_Click()DimiAsIntegerDimjAsIntegeri=1:j=0list1.clearDoWhilei<=1000If（iMod3=2AndiMod5=3AndiMod7=2）ThenList1.AddItemiEndIfi=i+1LoopLabel1.Caption=Str(j)EndSub8.有如下ＶisualBasic程序段： Ifx>100thenY=12___(1)__x>60thenY=8Elsey=5____(2)_____ 該程序段中，(1)處填寫(xiě)的內(nèi)容為_(kāi)___________(2)處填寫(xiě)的內(nèi)容為_(kāi)__________。9.用VB軟件編寫(xiě)判斷閏年的年份。界面如第11題-圖1所示，文本框Text1輸入年份，單擊“判斷”按鈕Command1，在文本框Text2中輸出判斷結(jié)果（閏年的判斷條件是：能被4整除但是不能被100整除；或者能被四百整除）。Command1Label2Label1Text1Text2Command1Label2Label1Text1Text2第11題-圖1（1）應(yīng)用程序界面設(shè)計(jì)時(shí)，Text1文本框內(nèi)沒(méi)有內(nèi)容顯示，這是由于將其屬性名為_(kāi)__________的值設(shè)置為空，窗口顯示“閏年判斷”是將窗體屬性名為_(kāi)__________的值設(shè)置成了“閏年判斷”。（1分,1分）（2）請(qǐng)根據(jù)題意將下列程序補(bǔ)充完整。（2分）PrivateSubCommand1_Click()DimYearAsInteger_______①____If(YearMod4=0)And(YearMod100<>0)Or(YearMod400=0)ThenText2.Text="是閏年"ElseText2.Text="不是閏年"EndIfEndSub為實(shí)現(xiàn)上述功能，程序①加框處應(yīng)填寫(xiě)為_(kāi)_______________10.編寫(xiě)VB程序，實(shí)現(xiàn)如下功能：在文本框Text1中輸入騎士奔跑的速度值（為1到10之間的整數(shù)），單擊“奔跑”按鈕Command1，騎士以相應(yīng)的速度從左往右循環(huán)奔跑，單擊“停止”按鈕Command2，騎士停止奔跑。界面如第14題-1圖所示。第14題-1圖第14題-2圖第14題-1圖第14題-2圖（1）在設(shè)計(jì)應(yīng)用程序界面時(shí)，應(yīng)使用第14題-2圖所示“控件工具箱”中的（填寫(xiě)相應(yīng)編號(hào)）添加用于輸入文字“加減速（1到10）”的控件。（2）為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)趧澗€處填入合適代碼。PrivateSubCommand1_Click()DimxAsIntegerx=If(x>0)And(x<=10)ThenTimer1.Enabled=Timer1.Interval=1000\xElseText1.Text="錯(cuò)誤"EndSub三、程序填空題（選考部分）1.【加試題】編寫(xiě)VB程序，在如第16題-1圖所示1×1的正方形區(qū)域內(nèi)產(chǎn)生一定數(shù)量、位置隨機(jī)的點(diǎn)坐標(biāo)，統(tǒng)計(jì)位于0.5×0.5的黑色區(qū)域內(nèi)（包括邊界）點(diǎn)的數(shù)量。程序運(yùn)行時(shí)界面如第16題-2圖所示。第16題-1圖第16題-2圖第16題-1圖第16題-2圖自上而下兩個(gè)文本框的名稱分別是Text1和Text2，“開(kāi)始”按鈕的名稱是Command1。在Text1中輸入數(shù)據(jù)，單擊“開(kāi)始”按鈕，在Text2中顯示統(tǒng)計(jì)結(jié)果?！伴_(kāi)始”按鈕單擊事件處理過(guò)程的流程圖如右圖所示。請(qǐng)根據(jù)流程圖將下列程序補(bǔ)充完整。PrivateSubCommand1_Click()DimnAsInteger,mAsInteger,iAsIntegerDimxAsSingle,yAsSinglen=①m=0Randomize ′初始化Rnd函數(shù)Fori=1Tonx=Rnd ′隨機(jī)產(chǎn)生x坐標(biāo)，0≤x＜1y=Rnd ′隨機(jī)產(chǎn)生y坐標(biāo)，0≤y＜1②Nexti第16題-3圖Text2.Text=Str(m)第16題-3圖EndSub2.【加試題】求孿生素?cái)?shù)。孿生素?cái)?shù)是指兩個(gè)相鄰奇數(shù)且都是素?cái)?shù)，由于它們是最近的素?cái)?shù)，就像孿生兄弟一樣。下列VisualBasic程序用于查找100以內(nèi)的所有孿生素?cái)?shù)，其中函數(shù)f用于判斷一個(gè)數(shù)是否是素?cái)?shù)，程序運(yùn)行界面如圖(第17題-1圖)所示，Command1鼠標(biāo)單擊事件過(guò)程的流程圖如圖(第17題-2圖)所示。第17題-1圖第17題-1圖程序代碼如下：PrivateSubCommand1_Click()DimiAsInteger第17題-2圖List1.Clear'清除列表框內(nèi)容第17題-2圖Fori=3To97___①___Iff(i)And②

ThenList1.AddItemStr(i)+"和"+Str(i+2)EndIfNextiEndSubPrivateFunctionf(xAsInteger)AsBoolean '自定義函數(shù)f,返回值為邏輯型DimjAsIntegerf=TrueForj=2ToInt(Sqr(x))IfxModj=0Thenf=③ '函數(shù)返回值ExitFor'跳出For循環(huán)EndIfNextjEndFunction(1)程序中加框部分的算法是（選填：解析算法/枚舉算法）(2分)(2)在程序①、②、③劃線處，填入適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式，把程序補(bǔ)充完整：程序中①劃線處應(yīng)填入(1分)程序中②劃線處應(yīng)填入(1分)程序中③劃線處應(yīng)填入(1分)3.小王設(shè)計(jì)了一個(gè)程序來(lái)列舉仁川亞運(yùn)會(huì)獎(jiǎng)牌前三的國(guó)家。下列VB程序?qū)崿F(xiàn)如下功能：?jiǎn)螕裘畎粹oCommand1后，在列表框List1中按獎(jiǎng)牌數(shù)由多到少顯示國(guó)家名稱，如圖。請(qǐng)根據(jù)算法將下列程序補(bǔ)充完整。Dima(1To45)AsStringDimb(1To45)AsIntegerPrivateSubForm_Load()a(1)="中國(guó)"b(1)=308‘45個(gè)代表團(tuán)名稱及獎(jiǎng)牌數(shù)分別放在a(1)到a(45)及b(1)到b(45)中EndSubPrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDimtAsInteger,fAsIntegerList1.ClearFori=1To3Forj=Toi+1Step-1IfThenf=a(j):a(j)=a(j-1):a(j-1)=ft=b(j):b(j)=b(j-1):b(j-1)=tEndIfNextjNextiFori=1To3List1.AddItem"第"+Str(i)+"名"+a(i)+"獎(jiǎng)牌數(shù)"+Str(b(i))NextiEndSub4.[加試題]王五為學(xué)生們?cè)O(shè)計(jì)了學(xué)校食堂學(xué)生校園卡查詢系統(tǒng)，在終端機(jī)上輸入學(xué)生的校園卡卡號(hào)，可以查出該卡對(duì)應(yīng)的學(xué)生姓名及相應(yīng)的余額。校園卡信息存儲(chǔ)在一個(gè)綜合的數(shù)據(jù)庫(kù)“school.mdb”,其中的“Yue”數(shù)據(jù)表用來(lái)存儲(chǔ)學(xué)生的校園卡基本信息，包括學(xué)號(hào)（num）、姓名（name）、余額（money）,括號(hào)內(nèi)的為對(duì)應(yīng)字段名。下列VB程序用來(lái)實(shí)現(xiàn)根據(jù)學(xué)號(hào)查詢并顯示學(xué)生姓名及余額，運(yùn)行界面如下圖所示：第3題圖數(shù)據(jù)庫(kù)文件與應(yīng)用程序在同一文件夾中，在文本框Text1中輸入學(xué)生的學(xué)號(hào)，單擊“查詢”按鈕，在標(biāo)簽Label4、Label5中分別顯示學(xué)生姓名和余額。第3題圖PrivateSubCommand1_Click()DimadocnAsnewconnectionDimadorsAsnewrecordesetDimstr1Asstring,str2asstringStr1=”driver=microsoftaccessdriver(*.mdb);dbq=”&app.path&”\.mdb”Adocn.openstr1Str2=”select*fromYuewhere=’”+text1.text+”’”Adors.openstr2,adocn,adOpenDynamic,adLockOptimisticIfadors.eofthenMsgbox”你輸入的學(xué)號(hào)不存在!”ElseLabel4.caption=adors.Fields(“name”).value=adors.Fields(“money”).valueEndifAdors.closeAdocn.closeEndSub為了實(shí)現(xiàn)上述目標(biāo)，在畫(huà)線處填入合適的語(yǔ)句或表達(dá)式：5.【加試題】運(yùn)行下列VB程序，在文本框Text1中輸入30，界面如題圖所示。單擊“計(jì)算”按鈕Command1后，則在文本框Text2中顯示的內(nèi)容是（1）（2分），在文本框Text3中顯示的內(nèi)容是（2）（2分）。PrivateSubCommand1_Click()DimsAsInteger,tAsInteger,nAsIntegern=Val(Text1.Text)t=0s=0Fori=1TonIfInt(Sqr(i))=Sqr(i)Thens=s+it=t+1EndIfNextiText2.Text=Str(t)Text3.Text=Str(s)EndSub6.小張同學(xué)設(shè)計(jì)一個(gè)“簡(jiǎn)單數(shù)據(jù)篩選”程序。程序啟動(dòng)時(shí)運(yùn)行界面如圖所示。程序運(yùn)行時(shí)列表框List1中產(chǎn)生15個(gè)隨機(jī)整數(shù)。在文本框Text1中輸入篩選條件（大于或小于某個(gè)數(shù)）后單擊“篩選”按鈕Command1，右邊列表框List2中顯示符合篩選條件的數(shù)據(jù)，同時(shí)標(biāo)簽Label2上顯示符合條件的數(shù)據(jù)個(gè)數(shù)。圖圖實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)誤，請(qǐng)改正。Dima(1To15)AsIntegerDimnAsInteger'n為計(jì)數(shù)器DimkeyAsInteger'key存放篩選條件的數(shù)字部分DimfAsString'f存放篩選天健的符號(hào)部分：大于號(hào)或者小于號(hào)PrivateSubForm_Load()RandomizeFori=1To15a(i)=Int(Rnd*100)List1.AddItemStr(a(i))NextiEndSubPrivateSubCommand1_Click()DimcAsIntegerDimstAsStringn=0st=Val(Text1.Text)st=Val(Text1.Text)'（1）1分c=Len(st)f=Mid(st,1,1)Val(Mid(st,Val(Mid(st,1,c-1))key='（2）2分Iff="<"ThenSe2'調(diào)用過(guò)程Iff=">"ThenSe1'調(diào)用過(guò)程Label2.Caption="有"+Str(n)+"個(gè)篩選結(jié)果"EndSubPrivateSubSe1()'篩選過(guò)程1Fori=1To15Ifa(i)>keyThenList2.AddItemStr(a(i))n=n+1EndIfNextiEndSubPrivateSubSe2()'篩選過(guò)程2Fori=1To15a(i)=a(i)=keyList2.AddItemStr(a(i))n=n+1EndIfNextiEndSub（1）處應(yīng)改為_(kāi)___________________________________________（2）處應(yīng)改為_(kāi)___________________________________________（3）處應(yīng)改為_(kāi)___________________________________________7.【加試題】某社區(qū)進(jìn)行“摘葡萄”比賽活動(dòng)，最后取十人進(jìn)入決賽，工作人員編制了如下Visual