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

ThenList1.AddItemStr(i)+"和"+Str(i+2)EndIfNextiEndSubPrivateFunctionf(xAsInteger)AsBoolean '自定義函數f,返回值為邏輯型DimjAsIntegerf=TrueForj=2ToInt(Sqr(x))IfxModj=0Thenf=③ '函數返回值ExitFor'跳出For循環EndIfNextjEndFunction(1)程序中加框部分的算法是（選填：解析算法/枚舉算法）(2分)(2)在程序①、②、③劃線處，填入適當的語句或表達式，把程序補充完整：程序中①劃線處應填入(1分)程序中②劃線處應填入(1分)程序中③劃線處應填入(1分)3.小王設計了一個程序來列舉仁川亞運會獎牌前三的國家。下列VB程序實現如下功能：單擊命令按鈕Command1后，在列表框List1中按獎牌數由多到少顯示國家名稱，如圖。請根據算法將下列程序補充完整。Dima(1To45)AsStringDimb(1To45)AsIntegerPrivateSubForm_Load()a(1)="中國"b(1)=308‘45個代表團名稱及獎牌數分別放在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)+"獎牌數"+Str(b(i))NextiEndSub4.[加試題]王五為學生們設計了學校食堂學生校園卡查詢系統，在終端機上輸入學生的校園卡卡號，可以查出該卡對應的學生姓名及相應的余額。校園卡信息存儲在一個綜合的數據庫“school.mdb”,其中的“Yue”數據表用來存儲學生的校園卡基本信息，包括學號（num）、姓名（name）、余額（money）,括號內的為對應字段名。下列VB程序用來實現根據學號查詢并顯示學生姓名及余額，運行界面如下圖所示：第3題圖數據庫文件與應用程序在同一文件夾中，在文本框Text1中輸入學生的學號，單擊“查詢”按鈕，在標簽Label4、Label5中分別顯示學生姓名和余額。第3題圖PrivateSubCommand1_Click()DimadocnAsnewconnectionDimadorsAsnewrecordesetDimstr1Asstring,str2asstringStr1=”driver=microsoftaccessdriver(*.mdb);dbq=”&app.path&”\.mdb”Adocn.openstr1Str2=”select*fromYuewhere=’”+text1.text+”’”Adors.openstr2,adocn,adOpenDynamic,adLockOptimisticIfadors.eofthenMsgbox”你輸入的學號不存在!”ElseLabel4.caption=adors.Fields(“name”).value=adors.Fields(“money”).valueEndifAdors.closeAdocn.closeEndSub為了實現上述目標，在畫線處填入合適的語句或表達式：5.【加試題】運行下列VB程序，在文本框Text1中輸入30，界面如題圖所示。單擊“計算”按鈕Command1后，則在文本框Text2中顯示的內容是（1）（2分），在文本框Text3中顯示的內容是（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.小張同學設計一個“簡單數據篩選”程序。程序啟動時運行界面如圖所示。程序運行時列表框List1中產生15個隨機整數。在文本框Text1中輸入篩選條件（大于或小于某個數）后單擊“篩選”按鈕Command1，右邊列表框List2中顯示符合篩選條件的數據，同時標簽Label2上顯示符合條件的數據個數。圖圖實現上述功能的VB程序如下，但加框處代碼有錯誤，請改正。Dima(1To15)AsIntegerDimnAsInteger'n為計數器DimkeyAsInteger'key存放篩選條件的數字部分DimfAsString'f存放篩選天健的符號部分：大于號或者小于號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'調用過程Iff=">"ThenSe1'調用過程Label2.Caption="有"+Str(n)+"個篩選結果"EndSubPrivateSubSe1()'篩選過程1Fori=1To15Ifa(i)>keyThenList2.AddItemStr(a(i))n=n+1EndIfNextiEndSubPrivateSubSe2()'篩選過程2Fori=1To15a(i)=a(i)=keyList2.AddItemStr(a(i))n=n+1EndIfNextiEndSub（1）處應改為____________________________________________（2）處應改為____________________________________________（3）處應改為____________________________________________7.【加試題】某社區進行“摘葡萄”比賽活動，最后取十人進入決賽，工作人員編制了如下Visual