VB復(fù)習(xí)題含答案

1、VB復(fù)習(xí)題一、選擇題1設(shè)窗體上有一個(gè)文本框，名稱(chēng)為textl,程序運(yùn)行后，要求該文本框不能接受鍵盤(pán)輸入，但能輸出信息，以下屬性設(shè)置正確的是：BA)text1.maxlength=0B)text1.enabled=falseC)text1.visible=falseD)text1.width=02以下能在窗體Forml的標(biāo)題欄中顯示"VisualBasiC®體"的語(yǔ)句是CA) Form1.Name="VisualBasic窗體"B) Form1.Title="VisualBasic窗體"C) Form1.Caption=&qu

2、ot;VisualBasic窗體"D) Form1.Text="VisualBasic窗體”3在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：CPrivateSubCommand1_Click()x=InputBox("Input")SelectCasexCase1,3Print"分支1"CaseIs>4Print"分支2"CaseElsePrint"Else分支"EndSelectEndSub程序運(yùn)行后，如果在輸入對(duì)話框中輸入2，則窗體上顯示的是A)分支1B)分支2

3、C)Else分支D)程序出錯(cuò)4 以下關(guān)于MsgBox的敘述中，錯(cuò)誤的是D(見(jiàn)書(shū)P88-92)A) MsgBox函數(shù)返回一個(gè)整數(shù)B) 通過(guò)MsgBox函數(shù)可以設(shè)置信息框中圖標(biāo)和按鈕的類(lèi)型C) MsgBox語(yǔ)句沒(méi)有返回值D) MsgBox函數(shù)的第一個(gè)參數(shù)是一個(gè)整數(shù)，該參數(shù)只能確定對(duì)話框中顯示的按鈕數(shù)量5 在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)imer1的計(jì)時(shí)器控件，要求每隔0.5秒發(fā)生一次計(jì)時(shí)器事件，則以下正確的屬性設(shè)置語(yǔ)句是DA)Timer1.InterVal=0.5B)Timer1.Interval=5C)Timer1.Interval=50D)Timer1.Interval=5006 在窗體上畫(huà)一個(gè)名稱(chēng)為C

4、ommand1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：BPrivateSubCommand1_Click()StaticxAsIntegerClsFori=1To2y=y+xx=x+2NextPrintx,yEndSub程序運(yùn)行后，連續(xù)三次單擊Command1按鈕后，窗體上顯示的是A)42B)1218C)1230D)467 以下敘述中錯(cuò)誤的是DA)事件過(guò)程是響應(yīng)特定事件的一段程序B)不同的對(duì)象可以具有相同名稱(chēng)的方法C)對(duì)象的方法是執(zhí)行指定操作的過(guò)程D)對(duì)象事件的名稱(chēng)可以由編程者指定8 以下合法的VisualBasic標(biāo)識(shí)符是AA)ForLoopB)ConstC)9abcD)a#x9 當(dāng)一個(gè)復(fù)選框被選

5、中時(shí)，它的Value屬性的值是CA)3B)2C)1D)010 表達(dá)式5Mod3+35*2的值是BA)0B)2C)4D)611 設(shè)x=4,y=8,z=7，以下表達(dá)式的值是Dx<yAnd(Noty>z)Orz<xA) 1B)-1C)TrueD)False12 在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：APrivateSubCommand1_Click()a$="VisualBasic"PrintString(3,a$)EndSub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是A)VVVB)VisC)sicD)1113 設(shè)有如下程序段

6、：x=2Fori=1To10Step2x=x+iNext運(yùn)行以上程序后，x的值是BA)26B)27C)38D)5714 如果編寫(xiě)的過(guò)程要被多個(gè)窗體及其對(duì)象調(diào)用,應(yīng)將這些過(guò)程放在那類(lèi)模塊中?BA)窗休模塊B)標(biāo)準(zhǔn)模塊C)工程D)類(lèi)模塊15 執(zhí)行如下兩條語(yǔ)句，窗體上顯示的是DPrintFormat(a,"$00,00.00")B) $9.86C)9.8617 在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，并編寫(xiě)如下程序：DPrivateSubCommand1_Click()DimxAsIntegerStaticyAsIntegerx=10y=5Callf1(x,y)Print

7、x,yEndSubPrivateSubf1(ByRefx1AsInteger,y1AsInteger)x1=x1+2y1=y1+2EndSub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是A)105B)125C)107D)12718 在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：BOptionBase1PrivateSubCommand1_Click()Dima(5)asIntegerDimiAsIntegerFori=1ToUBound(a)a(i)=iNextiFori=1ToUBound(a)a(i)=a(i)+i-1NextPrinta(3)EndSub程序運(yùn)行

8、后，單擊命令按鈕，則在窗體上顯示的內(nèi)容是A)4B)5C)6D)719 閱讀程序OptionBase1PrivateSubForm_Click()Dimarr(10)asintegerDimSumasintegerDimiasintegerSum=0Fori=1To10Arr(i)=2*i-1NextiFori=1To10Ifarr(i)/3=arr(i)3ThenSum=Sum+arr(i)EndIfNextiPrintSumEndSub程序運(yùn)行后，單擊窗體，輸入結(jié)果為CA)13B)14C)27D)1520 在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下程序：DOptionBas

9、e1PrivateSubCommand1_Click()Dima(5)AsVariantDimi,xAsIntegerDimsumAsIntegerFori=1ToUBound(a)a(i)=iNextisum=0Fori=1To5sum=sum+a(i)Nextix=sum/5Fori=1To5Ifa(i)>xThenPrinta(i);NextiEndSub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是A)12B)123C)345D)4521 .在VisualBasic設(shè)計(jì)界面中不能隱藏的窗口是(A)。A)工程窗口B)屬性窗口C)立即窗口D)窗體窗口22 .以下可以構(gòu)成語(yǔ)句的一項(xiàng)是(

10、B)。23 .以下不是VisualBasic的特點(diǎn)的選項(xiàng)是(B)。A)可視編程B)算法設(shè)計(jì)C)事件驅(qū)動(dòng)D)面向?qū)ο?4 在VisualBasic中通過(guò)(A)屬性來(lái)設(shè)置字體的顏色。A)FontColorB)ClipControlC) BackColorD)ShowColor25 設(shè)置窗體的繪圖方式是否在Paint事件中重繪整個(gè)窗體內(nèi)容利用(D)屬性。A)ControlBoxB)ClipControlC)BordeStyleD)AutoRedraw26 (C)是由VisualBasic提供的一種專(zhuān)門(mén)的子程序，由對(duì)象本身所具有，反映該對(duì)象功能的內(nèi)部函數(shù)或過(guò)程。A)文件B)屬性C)方法D)窗體27 以

11、下不屬于同類(lèi)的是(A)。A) ClickB) NameC) CaptionD) Top28當(dāng)窗體大小改變時(shí)，要使其中的控件也按比例發(fā)生變化，應(yīng)使用窗體的是(B)。A)AutoSize屬性B)Resize事件C)AutoRedraw屬性D)Stretch方法29 .對(duì)象可以識(shí)別和響應(yīng)的某些行為稱(chēng)為（D）。A）屬性A）方法C）繼承D）事件30 與傳統(tǒng)的程序設(shè)計(jì)語(yǔ)言相比，VisualBasic最突出的的特點(diǎn)是（C）。A）結(jié)構(gòu)化程序設(shè)計(jì)B）程序開(kāi)發(fā)環(huán)境C）事件驅(qū)動(dòng)編程機(jī)制D）程序調(diào)試技術(shù)31在正確安裝VisualBasic6.0后，可以通過(guò)多種方式啟動(dòng)VisualBasic。以下方式中，不能啟動(dòng)Vis

12、ualBasic的是（D）。A）通過(guò)“開(kāi)始”菜單中的“程序”命令B）通過(guò)“我的電腦”找到vb6.exe,雙擊該文件名C）通過(guò)“開(kāi)始”菜單中的“運(yùn)行”命令32為了用鍵盤(pán)打開(kāi)菜單和執(zhí)行菜單命令，第一步應(yīng)按的鍵是（A）。A）功能鍵F10或AltB）Shift+功能鍵F4C）Ctrl或功能鍵F8D）Ctrl+Alt33 VisualBasic6.0集成環(huán)境的主窗口中不包括（C）。A）標(biāo)題欄B）菜單欄C）狀態(tài)欄D）工具欄34 用標(biāo)準(zhǔn)工具欄中的工具按鈕不能執(zhí)行的操作是（B）。A）添加工程B）打印源程序C）運(yùn)行程序D）打開(kāi)程序35 VisualBasic窗體設(shè)計(jì)器的主要功能是（A）。A）建立用戶(hù)界面B）編寫(xiě)

13、源程序代碼C）畫(huà)圖D）顯示文字36 在VisualBasic環(huán)境下，當(dāng)寫(xiě)一個(gè)新的VisualBasic程序時(shí)，所做的第一件事是（B）。A)編寫(xiě)代碼B)新建一個(gè)工程C)打開(kāi)屬性窗口D)進(jìn)入VisualBasic環(huán)境37 下列不屬于VisualBasic6特點(diǎn)的是(C)。A)對(duì)象的鏈接與嵌入B)結(jié)構(gòu)化程序設(shè)計(jì)C)編寫(xiě)跨平臺(tái)應(yīng)用程序D)事件驅(qū)動(dòng)程序編程機(jī)制38 下列不是VisualBasic6.0中打開(kāi)工程的方法(A)。A) Alt+OB)執(zhí)行“文件”菜單中的“打開(kāi)工程”命令C)Ctrl+OD)單擊標(biāo)準(zhǔn)工具欄上的“打開(kāi)工程”按鈕39 下面關(guān)于VisualBasic6.0工具欄的說(shuō)法不正確的是(B)。

14、A)工具欄的位置可以任意改變B)工具欄一定在菜單欄的下方C)工具欄可以顯示或隱藏D)VisualBasic有多個(gè)工具欄40 下列各組函數(shù)中，函數(shù)值類(lèi)型相同的一組是(C)。A)Exp(x)、Chr(x)、Lcase(x)B) Asc(x)、Str(x)、RTrim(x)(注：Asc(x)為轉(zhuǎn)換函數(shù))C) Sgn(x)、Cint(x)、Asc(x)D)Fix(x)、Left(x)、Ucase(x)41可以使X為數(shù)值型數(shù)據(jù)的語(yǔ)句是(A)。A) X=val(InputBox("請(qǐng)輸入數(shù)據(jù)")B) X=InputBox$("請(qǐng)輸入數(shù)據(jù)")D) X=Listl.li

15、st(3)42既可用于輸入數(shù)據(jù)又可用于輸出數(shù)據(jù)的控件是(B)控件。A)LabelB)TextBoxC)ListBoxD)OptionButton43可用作輸入數(shù)據(jù)的控件是(A)控件。A)OptionButton和CheckBoxB)ListBox和ComboBoxC) Label和TextBoxD) Form和Frame44閱讀事件過(guò)程，回答問(wèn)題。PrivateSubCommandl_Click()x=InputBox("請(qǐng)輸入X的值：")y=Text1.Textz=x+yDebug.PrintzEndSub在InputBox函數(shù)彈出的對(duì)話框中輸入123,在文本框Textl

16、中輸入456。單擊命令按鈕Commandl后，窗口上立即顯示出(C)。A) 123B) 579C)123456D)錯(cuò)誤信息45已執(zhí)行語(yǔ)句x=123456.789,輸出x值時(shí)要求加午位分隔答，小數(shù)點(diǎn)后取2位有效數(shù)字。下列格式輸出語(yǔ)句正確的是B。(注：見(jiàn)P82-84)A)PrintFormat$(x,#,#.#)B)PrintFormat$(x,"#,#.#")C)PrintFormat$(x,",#.#")D)PrintFormat$(x,"#,.#")465。舊濟(jì)$函數(shù)中，格式說(shuō)明符的使用規(guī)則正確的是B。A)格式符“#”與“0”的作用

17、完全相同B)格式符與格式符"#”與“0”結(jié)合使用，用于確定輸出數(shù)據(jù)的小數(shù)點(diǎn)位置C)若Format$函數(shù)中使用“”或“$”格式符，則在所顯示的數(shù)值后加上一個(gè)“”負(fù)號(hào)或一個(gè)“$”號(hào)D)格式符“+”或格式符“-”表示：若輸出正數(shù)，則在數(shù)值前加上一個(gè)正號(hào)；若輸出負(fù)數(shù)，則在數(shù)值前加上一個(gè)負(fù)號(hào)47下列程序段的執(zhí)行結(jié)果為一A一。A="HELLOGOODMORNING”B="WANGCHANGLI”C=Left(A,5)+"!"D=Right(A,7)E=Mid(A,6,4)F=Mid(B,Len(B)-6,5)+"!"G=E+"

18、"+D+"!"H=C+""+FPrintH+""+GA)HELLO!CHANG!GOODMORNING!B)HELLO!WANG!GOODMORNING!C)HELLO!LI!GOODMORNING!D)HELLO!CHANG!GOOD!MORNING!48有如下程序：DefStrX-ZX="123"Y="456"Z=X$+Y$PrintZ$End運(yùn)行后，輸出的結(jié)果是B。A)顯不'出錯(cuò)信息B) 123456C) “579”D) 57949選拔身高T超于1.7米且體重W小于62.

19、5公斤的人，表示該條件的布爾表達(dá)式C50如果將布爾常量值True賦值給一個(gè)整型變量，則整型變量的值為BA) 0B) -1C) TrueD) False51下列符號(hào)常量的聲明中，C是不合法的。B) ConstaAsInteger="12"C) ConstaAsDouble=Sin(1)D) Consta="OK"52以下不合法的常量是一A。A) 10A2B) 100D)10E+0153有如下程序：a$="Flying":b$="IS":c$="funny!"Printa$+""

20、+Lcase$(b$)+""+Ucase$(c$)End運(yùn)行后輸出的結(jié)果是B。A) FlyingIsfunny!B) FlyingisFUNNY!C) FlyintgISFUNNY!D) FLYINGISFUNNY!54下列符號(hào)A是VisualBasic中的合法變量名。A) x23B) 8xyC) ENDD) X8B55下面D不是字符串常量。A)“你好”B)""C)"True"D)#False#56表達(dá)式Val(".123E2CD")的值是B。A).123C) 0D) .123E2CD57VisualBasic布爾

21、運(yùn)算符Xor、Or、Eqv、And中，級(jí)別最高的運(yùn)算符是DA) XorB) OrC) EqvD) And58有如下程序a$="China”b$=Right$(a$,3):c$=String$(3,b$)Printc$End運(yùn)行后輸出的結(jié)果是C。A) ChiB) aaaC) iiiD) ina59在設(shè)計(jì)階段，當(dāng)雙擊窗體上的某個(gè)控件時(shí)，所打開(kāi)的窗口是(C)A)工程資源管理器窗口B) 工具箱窗口C) 代碼窗口D) 屬性窗口60 以下敘述中正確的是(A)A) 窗體的Name屬性指定窗體的名稱(chēng)，用來(lái)標(biāo)識(shí)一個(gè)窗體B) 窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本C) 可以在運(yùn)行期間改變對(duì)象的

22、Name屬性的值D) 對(duì)象的Name屬性值可以為空61 剛建立一個(gè)新的標(biāo)準(zhǔn)EXE工程后，不在工具箱中出現(xiàn)的控件是(C)A) 單選按鈕B) 圖片框C) 通用對(duì)話框D) 文本框62 設(shè)有如下變量聲明DimTestDateAsDate為變量TestDate正確賦值的表達(dá)方式是(A)A) TestDate=#112002#B) TestDate=#1/1/2002#C) TestDate=date(1/1/2002)D) TestDate=Format("m/d/yy","1/1/2002")63 設(shè)有如下聲明：DimXASInteger如果Sgn(X)的值為-

23、1,則X的值是(D)A)整數(shù)B)大于0的整數(shù)C)等于0的整數(shù)D)小于0的數(shù)64在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下程序：PrivateSubCommand1_Click()StaticXAsIntegerStaticYAsIntegerClsY=lY=Y+5X=5+XPrintX，YEndSub程序運(yùn)行時(shí)，三次單擊命令按鈕Command1后，窗體上顯示的結(jié)果為(C)A) 1516B) 156C) 155D) 5665設(shè)a=3,b=5,則以下表達(dá)式值為真的是(B)A) a>=bAndb>10B) (a>b)Or(b>0)C) (a<0)Eqv

24、(b>0)D) (-3+5>a)And(b>0)66設(shè)有語(yǔ)句x=InputBox("輸入數(shù)值","0","示例")程序運(yùn)行后，如果從鍵盤(pán)上輸入數(shù)值10并按回車(chē)鍵，則下列敘述中正確的是(D)A) 變量X的值是數(shù)值10B) 在InputBox對(duì)話框標(biāo)題欄中顯示的是“示例”C) 0是默認(rèn)值D) 變量X的值是字符串“10”67從鍵盤(pán)上輸入兩個(gè)字符串，分別保存在變量字符串中起始位置的函數(shù)是(D)A) LeftB) MidC) StringD) Instr68設(shè)a="VisualBasic",下面使b=&qu

25、ot;Basic'A) b=Left(a，8，12)B) b=Mid(a，8，5)C) b=Right(a，5，5)D) b=Left(a，8，5)69下列程序PrivateSubForm_click()DimaAsInteger,bAsInteger,xAsIntegera=InputBox(“a=?”)b=InputBox(“b=?”)x=a+bIfa>bThenx=a-bPrintxEndSub運(yùn)行時(shí)從鍵盤(pán)輸入3和4，輸出的x的值是(str1、str2中。確定第二個(gè)字符串在第一個(gè)C)。A3B5C7D970下列程序PrivateSubForm_click()E=1:F=1Fo

26、rJ=1to3E=E+F:F=F+ENextJPrintE;FEndSub該程序的輸出結(jié)果是(C)。A66B58C132171 下列程序PrivateSubForm_click()Forx=1to2a=0Fory=1tox+1a=a+1NextyPrinta;NextxEndSub運(yùn)行時(shí)輸出的結(jié)果是(D)。A11B00C1272 下列程序PrivateSubForm_click()s=Val(InputBox(“inputvalueofs:”)SelectCasesCaseIs<6f=s+1CaseIs<5f=s+2CaseIs<4f=s+3CaseElseF=s+4EndS

27、electPrints;fEndSub運(yùn)行時(shí)從鍵盤(pán)輸入6，輸出的結(jié)果是(D)。A67B68C69D3455D61073 下列程序PrivateSubForm_click()m=1Fork=3to1Step1x$=String(k,“*”)Printm;x$M=m+1NextkEndSub運(yùn)行后輸出是(D)。A1*B1*2*2*3*3*C3*2*1*D1*2*3*D36D318274 下列程序PrivateSubForm_click()Sum=0Forj=1to10Ifj=10ThenElseSum=Sum+jEndIfNextjPrintsumEndSub運(yùn)行時(shí)輸出結(jié)果是(A)。A45B55C

28、顯示錯(cuò)誤信息75 下列程序PrivateSubForm_click()s=0Dos=(s+1)*(s+2)Number=Number+1LoopUntils>=30PrintNumber;sEndSub運(yùn)行輸出的結(jié)果是(D)。A01B3030C43076 下列程序PrivateSubForm_click()a=70Forj=1to4x=Val(InputBox(“請(qǐng)輸入一個(gè)數(shù)”)IfxMod5=0Thenb=b+x:a=xElseb=b+aEndIfNextjPrintbEndSub運(yùn)行時(shí)輸入75,55,42,80,輸出的結(jié)果是(B)。A252B265C280D28577 下列程序Pri

29、vateSubForm_click()c=4d=Val(InputBox(“請(qǐng)輸入一個(gè)數(shù)”)DoWhiled>0Ifd>cThenc=c+1d=Val(InputBox(“請(qǐng)輸入一個(gè)數(shù)”)LoopPrintc+dEndSub運(yùn)行時(shí)輸入9,8,7,6,5,4,3,2,1,0，輸出的結(jié)果是(C)。A5B6C7D878 下列程序PrivateSubForm_click()c=4x=Val(InputBox(“請(qǐng)輸入一個(gè)數(shù)”)Whilex<>-999Ifx>cThenc=xX=Val(InputBox(“請(qǐng)輸入一個(gè)數(shù)”)WendPrintc;:PrintAbs(x)End

30、Sub運(yùn)行時(shí)輸入5,9,8,2,-999，輸出的結(jié)果是(C)。A98B92C9999D2999二、填空題1 在對(duì)象名與事件名之間用_符號(hào)連接。窗體的對(duì)象名用Form表示。2 VisualBasic的窗體和控件是具有自己的屬性、事件和方法的對(duì)象。3 窗體和控件的大部分屬性可以通過(guò)屬性窗口設(shè)置、也可以通過(guò)程序代碼設(shè)置。4在面向?qū)ο蟪绦蛟O(shè)計(jì)中，對(duì)象是一個(gè)由代碼和數(shù)據(jù)組成的概念。5 VisualBasic中的對(duì)象包括窗體、控件和可訪問(wèn)的實(shí)體。6 .Name屬性的含義是設(shè)置對(duì)象名稱(chēng),窗體的默認(rèn)Name屬性是Forml7 .Show方法的作用是顯示一個(gè)窗體,Hide方法的作用是隱藏一個(gè)窗體。8 .一個(gè)窗體

31、對(duì)象，其最先發(fā)生的事件是Load事件，最后發(fā)生的事件是Unload事件。9 .移動(dòng)窗體時(shí)，為了初始化該窗體中的各控件，可選用窗體的Load事件；關(guān)閉窗體用Unload事件。10 .窗體對(duì)象可以識(shí)別KeyPress、KeyUp、KeyDown事件，在按下某鍵時(shí)，這三個(gè)事件發(fā)生的順序是：KeyDown卜KeyPress卜KeyUp。11 .設(shè)A=37,貝UHex(A)=25,Oct(A尸45。12 .若A=120,B=80,C=70、D=30,貝U式A+B>160Or(B*C>200AndNotd>60)的值是True。13 .VisualBasic中，變量名字只能由英文字母、數(shù)

32、上下劃線組成,總長(zhǎng)度不得超過(guò)255。14 .表達(dá)式6Mod2*6A2/62的值為0。15 .表達(dá)式Len(Str(1.3)的值為4。1ox/(0.5+x2)的VisualBasic表達(dá)式為(logx/log10)/(0.5+xA2)。(注：超過(guò)要求)17 .表達(dá)式Int(Rnd*10+0.5)可能的全部值0,1,2345678,9,10。18 .Format(10,"0.00%”)的返回值為1000.00%。19 .設(shè)有如下程序段:a$="BeijingShanghaib$=Mid(a$,InStr(a$,"g")+1)執(zhí)行上面的程序段后，變量b$的值為

33、Shanghai。20 .VisualBasic應(yīng)用程序中工程文件的擴(kuò)展名是vbp21Picture1.picture=loadpicture(");而將與工程文件同在一目錄下的Picture1.picture=loadpicture(app.path+)22在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框，然后畫(huà)三個(gè)單選按鈕，并用這三個(gè)單選按鈕建立一個(gè)控件數(shù)組，名稱(chēng)為Option1,程序運(yùn)行后，如果單擊某個(gè)單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換，如圖所示，請(qǐng)?zhí)羁?。PrivateSubOption1_Click(IndexAsInteger)SelectCase_indexCas

34、e0a="宋體"Case 1 a="黑體"Case 2 a="楷體GB2312”EndSelecttext1.fontname=aEndSub23在窗體上畫(huà)兩個(gè)組合框，其名稱(chēng)分別為Combol、Combo2,然后畫(huà)兩個(gè)標(biāo)簽，名稱(chēng)分別為L(zhǎng)abell、Label2,如圖所示，程序運(yùn)行后，如果在某個(gè)組合框中選擇一個(gè)項(xiàng)目，則把所選中的項(xiàng)目在其下面的標(biāo)簽中顯示出來(lái)。請(qǐng)?zhí)羁铡rivateSubCombo1_Click()CallShowItem(Combo1,Label1)EndSubPrivateSubCombo2_Click()CallShowIte

35、m(Combo2,Label2)EndSubPublicSubShowItem(tmpComboAsComboBox,tmpLabelAsLabel)tmpLabel.Caption=_tmpCombo.TextEndSubE24下面程序的功能是計(jì)算1到10之間的奇數(shù)之和及偶數(shù)之和，請(qǐng)?jiān)谔幪钊胝_的語(yǔ)句。PrivateSubForm_Click()a=0c=0Fori=1To10Step2a=a+ic=c+i+1NextIPrint奇數(shù)之和="aPrint偶數(shù)之和="cEndSub25 .下面程序的功能是：輸出100以?xún)?nèi)能被3整除且個(gè)位數(shù)為6的所有整數(shù)。PrivateSub

36、Form_Click()Fori=1To=10一j=i*10+6If_jmod3=0ThenPrintj;EndIfNextiEndSub26 .設(shè)有以下程序PrivateSubForm_Click()n2=Val(InputBox(請(qǐng)輸入一個(gè)數(shù)”)DoWhilen2<>0n1=n2Mod10n2=n210PrintStr(n1)LoopEndSub程序運(yùn)行后，如果從鍵盤(pán)上輸入1298,則輸出結(jié)果為8,9,2,1。27 .下列程序運(yùn)行的輸出結(jié)果是8。PrivateSubForm_Click()i=10:j=0Doj=j+1i=i-1LoopWhilei>2Printj;End

37、Sub28下列程序是在鍵盤(pán)上輸入月份的數(shù)值，即112之間的一個(gè)整數(shù)，計(jì)算機(jī)即打印出該月份的季節(jié)(12,1,2為冬季，其余類(lèi)推)。如輸入7,則打印出Summer,請(qǐng)?jiān)谔幯a(bǔ)充完整程序。PrivateSubForm_Click()Don=InputBox(Thenumberofmouth-")LoopUntiln>0Andn<13m=_nSelectCasemCase3,4,5PrintSpring”Case6,7,8PrintSummer”Case9,10,11PrintAutumn”CaseElsePrintWinter”EndSelectEndSub、寫(xiě)程序運(yùn)行結(jié)果設(shè)有以

38、下函數(shù)過(guò)程：Functionfun(mAsInteger)AsIntegerDimkAsInteger,sumAsIntegersum=0Fork=mTo1Step-2sum=sum+kNextkfun=sumEndFunction若在程序中用語(yǔ)句s=fun(10)調(diào)用此函數(shù)，則s的值為30設(shè)有如下程序：PrivateSubForm_Click()DimnAsInteger,sAsIntegern=8s=0Dos=s+nn=n-1LoopWhilen>0PrintsEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果為36。四、程序設(shè)計(jì)題1、編寫(xiě)程序，(1)計(jì)算1-2+3-+99的值使用For循環(huán)

39、語(yǔ)句，相應(yīng)的程序如下：PrivateSubForm_Click()Dimsum,iasintegersum作為存放總和的變量sum=0(2)計(jì)算1-1/2+1/3-+1/n的值(N值由鍵盤(pán)輸入)使用While循環(huán)語(yǔ)句，相應(yīng)的程序如下：PrivateSubForm_Click()Dimsum,iasintegersum作為存放總和的變量2、驗(yàn)證哥德巴赫猜想(使用函數(shù)過(guò)程)3、用選擇法對(duì)數(shù)組a(10)進(jìn)行排序(a數(shù)組元素的值在1100之間)4、編寫(xiě)費(fèi)波拉契序列的遞歸過(guò)程第四章控制結(jié)構(gòu)第二題、單選題(共45分，每項(xiàng)1.5分)1. If結(jié)構(gòu)的結(jié)束語(yǔ)句是。5A.EndSelectB.EndSubC.En

40、dIfVD.EndDo2. InputBox函數(shù)的返回值的類(lèi)型為。4A.數(shù)值B.字符串V3. MsgBox函數(shù)的返回值的類(lèi)型為。5A.整數(shù)，4. 通過(guò)代碼在運(yùn)行時(shí)設(shè)置屬性的語(yǔ)法格式為。14A.對(duì)象名=屬性.新值B.對(duì)象名.屬性=新值,C.對(duì)象名.新值=屬性.新值D.對(duì)象名.屬性=屬性.新值第三題、簡(jiǎn)單程序(共15分，每項(xiàng)1.5分)1 .從鍵盤(pán)輸入一個(gè)實(shí)數(shù)mm,利用字符串函數(shù)對(duì)輸入的數(shù)進(jìn)行處理，如果輸出的內(nèi)容不是字符則輸出“END“，程序的輸出結(jié)果是。11PrivateSubCommand1_Click()mm=Val(InputBox("請(qǐng)輸入一個(gè)實(shí)數(shù)")n$=Str$(m

41、m)p=InStr(n,".")'InSt)函數(shù)：指定一字符串在另一字符串中最先出現(xiàn)的位置Ifp>0ThenPrintMid(n,p)Mid語(yǔ)句來(lái)得到某個(gè)字符串中的幾個(gè)字符ElsePrint"END"EndIfEndSubC.輸出數(shù)據(jù)的小數(shù)部分VD.只去掉數(shù)據(jù)部分的小數(shù)點(diǎn)，保留所有數(shù)碼輸出2.運(yùn)行下面程序后，在彈出的消息窗口中顯示的是。7PrivateSubForm_Click()score=Int(Rnd)+5當(dāng)參數(shù)為負(fù)數(shù)時(shí)，Int函數(shù)返回小于或等于該參數(shù)之最大整數(shù)，rem而Fix函數(shù)則返回大于或等于該參數(shù)之最小整數(shù)。SelectCase

42、scoreCase5a$="Good"Case4a$="Ok"Case3a$="Pass"CaseElsea$="Bad"EndSelectMsgBoxa$EndSubA.BadB.PassC.OkD.Good，3. 以下程序的輸出結(jié)果是。8PrivateSubCommand1_Click()a=100Dos=s+aa=a+1LoopUntila>100printaEndSubA.100B.120C.201D.101Vz4. 以下程序的循環(huán)次數(shù)是。11PrivateSubCommand1_Click()For

43、j=8To35Step3Printj;NextjEndSubA.10iM(35-8)/3+1,5. 執(zhí)行下面程序段后，變量a的值為。20ForI=1To3Forj=1ToIFork=jTo3a=a+1NextkNextjNextIB.9C.14Vz6. 執(zhí)行下面程序段后，變量x的值為。20x=5ForI=1To20step2x=x+I5NextIA.21Vz7. 當(dāng)輸入4時(shí)，以下程序的輸出結(jié)果是。7PrivateSubCommand1_Click()x=InputBox(x)IfxA2<15Theny=1/xIfxA2>15Theny=xA2+1PrintyEndSubA.4B.1

44、7Vz8. 運(yùn)行下面程序后，在彈出的消息窗口中顯示的是。3PrivateSubForm_Click()Dimcountercounter=0Whilecounter<20counter=counter+1WendMsgBoxcounterEndSubA.0B.21C.20Vz9. 運(yùn)行下面程序后，在窗體中顯示的是。4PrivateSubForm_Click()a$="*":b$="$"Fork=1To3x$=String$(Len(a$)+k,b$)指定長(zhǎng)度重復(fù)字符的字符串。Printx$;NextkPrintEndSubA.、*B.*$*$*$C

45、.1*$2*$3*$D.、$，10. 下面程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為。7PrivateSubCommand1_Click()x=0DoWhilex<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSubA.1和0B.2和72Vz11. 執(zhí)行下面的程序段后，I的值為。3s=2s=s+1NextIA.6.4BV12. 執(zhí)行下面的程序段后，變量S的值為。3S=5ForI=2.6To4.9Step0.6S=S+1NextIA.7B.8C.9Vz13. 在窗體中添加一個(gè)文本框(其中Name屬性為T(mén)

46、ext1),然后編寫(xiě)如下代碼：2PrivateSubForm_click()Text1.Text=""ForI=1To10Sum=Sum+INextIText1.Text=SumEndSub上述程序運(yùn)行后，單擊窗體，則運(yùn)行的結(jié)果。A.在文本框Textl中輸出55Vz14. 運(yùn)行下面程序后，在彈出的消息窗口中顯示的是。2PrivateSubForm_Click()k=0DoWhilek<70k=k+2k=k*k+ka=a+kLoopMsgBoxaEndSubA.64B.72C.78Vz第二卷主觀題填空題(共30分，每項(xiàng)2分。注意：填兩個(gè)空的題的時(shí)候，要按照從上至下，從左

47、至右的順序添入答題卡！)1 .請(qǐng)用正確的內(nèi)容填空。以下程序找出50以?xún)?nèi)所有能構(gòu)成直角三角形的整數(shù)組。14PrivateSubForm_Click()Forx=1To50Fory=xTo50z=Sqr(x*x+y*y)Ifz<=50Andz=Int(z)ThenPrintx;y;zZ是小于50的整數(shù)嗎NextyNextxPrintEndSub2 .在窗體上畫(huà)一個(gè)名稱(chēng)為Commandl的命令按鈕，編寫(xiě)如下事件過(guò)程2PrivateSubCommand1_C1ick()DimaAsStringa=123456789”Fori=1To5PrintSpc(6-I);Mid$(a,6-1,2*I-1)NextIEndSub程序運(yùn)行后，單擊命令按鈕，要求窗體上顯示的輸出結(jié)果為5456345672345678123456789請(qǐng)?zhí)羁铡? .請(qǐng)用正確的內(nèi)容填空。下面程序運(yùn)行后，輸出的結(jié)果是：*PrivateSubForm_Click()ForI=1To4PrintTab(10+I);Forj=1To8Print"*"NextjPrintNextIEndSub4 .請(qǐng)用正確的內(nèi)容填空。以下程序的功能是統(tǒng)計(jì)字符串a(chǎn)中出現(xiàn)字符串b的次數(shù)，然后輸出。PrivateSubForm_Click()a$=&