華南理工大學(xué)VB答案

第1章程序設(shè)計(jì)語(yǔ)言與程序設(shè)計(jì)1．1填空題1．VB是以（事件驅(qū)動(dòng)）作為運(yùn)行機(jī)制的新一代可視化程序設(shè)計(jì)語(yǔ)言。2．程序設(shè)計(jì)語(yǔ)言是（人）與（計(jì)算機(jī)）交流的工具。3．若從機(jī)器執(zhí)行的角度來(lái)對(duì)程序設(shè)計(jì)語(yǔ)言進(jìn)行分類(lèi)，則可以分為（低級(jí)語(yǔ)言）和（高級(jí)語(yǔ)言）兩種。4．計(jì)算機(jī)系統(tǒng)中，對(duì)高級(jí)語(yǔ)言的翻譯工具稱(chēng)為（編譯）程序或（解釋?zhuān)┏绦颉?．源程序中的錯(cuò)誤一般分為（編譯）錯(cuò)誤、（運(yùn)行）錯(cuò)誤和（邏輯）錯(cuò)誤等三種。6．VB把一個(gè)應(yīng)用程序稱(chēng)為一個(gè)（工程），它包含各種文件。1．2選擇題1．把a(bǔ)和b的乘積寫(xiě)成ab的錯(cuò)誤屬于（c）錯(cuò)誤。a)編譯 b)運(yùn)行 c)邏輯 d)編譯和運(yùn)行2．用戶(hù)在什么時(shí)候都可以按（b）鍵來(lái)查看與當(dāng)前進(jìn)行的工作相關(guān)的幫助。a)Held b)F1 c)ESC d)F104 窗體文件的擴(kuò)展名為（d）。a).vbp b).bas c).exe d).frm4．指示一個(gè)窗體位置的值是窗體的（c）。a)對(duì)象 b)事件 c)屬性 d)方法5．下面選項(xiàng)中不能運(yùn)行VB程序的操作是（a）。a)雙擊窗體 b)單擊“啟動(dòng)”按鈕圖標(biāo)c)從菜單欄運(yùn)行菜單中選“全編譯執(zhí)行”菜單命令 d)按F5鍵1．3問(wèn)答題1．低級(jí)語(yǔ)言和高級(jí)語(yǔ)言的各自特點(diǎn)是什么？答：參見(jiàn)教材1.1。2．什么是數(shù)據(jù)描述和數(shù)據(jù)處理？答：參見(jiàn)教材1.2。3．源程序的翻譯方式有哪兩種，簡(jiǎn)述它們的工作過(guò)程。答：參見(jiàn)教材1.1。4．一個(gè)好程序的基本要求是什么？答：參見(jiàn)教材1.2。5．VisualBASIC集成開(kāi)發(fā)環(huán)境的主窗口由哪些部分構(gòu)成？各自的主要功能是什么？答：參見(jiàn)教材1.3。6．簡(jiǎn)述在VB的環(huán)境下，對(duì)象、屬性、方法、事件和事件驅(qū)動(dòng)程序的概念，并用例子進(jìn)行說(shuō)明。答：在VB的環(huán)境下，對(duì)象是系統(tǒng)中的基本運(yùn)行實(shí)體，它封裝了數(shù)據(jù)和操作。工具箱中的命令按鈕、標(biāo)簽、文本框等是對(duì)象摸板?？丶怯蒝B工具箱創(chuàng)建的對(duì)象。屬性是對(duì)象的性質(zhì)或狀態(tài)特征。例如，窗體的Caption（標(biāo)題）、BackColor（背景顏色）、Height（高度）和Width（寬度）等都是窗體的屬性。事件是對(duì)象之間傳遞的消息。VB控件的事件由系統(tǒng)預(yù)先定義。例如，Click（單擊）事件、DblClick（雙擊）事件。方法是對(duì)象在某些事件驅(qū)動(dòng)下執(zhí)行的特定操作。它可以執(zhí)行系統(tǒng)預(yù)定義的操作，例如窗體的Print（打?。┓椒?、Show（顯示窗體）方法；當(dāng)事件由用戶(hù)或VB系統(tǒng)觸發(fā)時(shí)，對(duì)象會(huì)感受到該事件并對(duì)該事件作出響應(yīng)，響應(yīng)某個(gè)事件后所執(zhí)行的程序就是事件驅(qū)動(dòng)程序。事件驅(qū)動(dòng)程序有時(shí)也稱(chēng)為事件過(guò)程。例如，以下是命令按鈕Command1在接受單擊事件時(shí)驅(qū)動(dòng)的程序：PrivateSubCommand1_Click()Print"Helloworld！"EndSub7．總結(jié)使用VisualBASIC開(kāi)發(fā)一個(gè)應(yīng)用程序的過(guò)程。答：參見(jiàn)教材1.5。8．下面程序是什么事件驅(qū)動(dòng)程序？如何執(zhí)行該事件驅(qū)動(dòng)程序？執(zhí)行的結(jié)果如何？PrivateSubCommand1_Click()Print"歡迎你使用VB！"EndSub答：略。1．4編程題編寫(xiě)一個(gè)程序。要求設(shè)置窗體的標(biāo)題是“這是我的第一個(gè)練習(xí)”，且在程序執(zhí)行后，單擊窗體顯示如下一行文字：我可以用VisualBASIC編寫(xiě)程序了！解答：（1）用戶(hù)界面設(shè)計(jì)：設(shè)計(jì)用戶(hù)界面由一個(gè)窗體構(gòu)成。（2）對(duì)用戶(hù)界面上的控件對(duì)象的屬性進(jìn)行設(shè)置：把窗體的Caption屬性值設(shè)置為“這是我的第一個(gè)練習(xí)”。（3）編寫(xiě)控件對(duì)象的事件驅(qū)動(dòng)程序：PrivateSubForm_Click()Print"我可以用VisualBASIC編寫(xiě)程序了！"EndSub第2章基本數(shù)據(jù)類(lèi)型與表達(dá)式2．1填空題1．在程序設(shè)計(jì)語(yǔ)言系統(tǒng)中具有固定語(yǔ)法含義的符號(hào)串稱(chēng)為（關(guān)鍵字），它們通常用來(lái)表示系統(tǒng)提供的標(biāo)準(zhǔn)過(guò)程、函數(shù)、運(yùn)算符、常量等。2．（標(biāo)識(shí)符）用于標(biāo)記用戶(hù)自定義的常量、類(lèi)型、變量、控件、過(guò)程、函數(shù)等名字。3．整型數(shù)據(jù)占（2）字節(jié)的內(nèi)存空間。長(zhǎng)整型數(shù)據(jù)占（4）個(gè)字節(jié)的內(nèi)存空間。單精度浮點(diǎn)型數(shù)據(jù)占（4）個(gè)字節(jié)的內(nèi)存空間。雙精度浮點(diǎn)型數(shù)據(jù)占（8）個(gè)字節(jié)的內(nèi)存空間。日期型數(shù)據(jù)占（8）個(gè)字節(jié)的內(nèi)存空間。4．100%表示100為（整）型數(shù)據(jù)；100！表示100為（單精度浮點(diǎn)）型數(shù)據(jù)；100＠表示100為(貨幣)型數(shù)據(jù)。6 符號(hào)常量在某一過(guò)程中說(shuō)明，則該符號(hào)常量只能在（該過(guò)程內(nèi)）內(nèi)有效。6．若一個(gè)整型變量說(shuō)明了之后沒(méi)有給它賦值，則它的值為（0）。7．在VB中可以把類(lèi)型說(shuō)明符放在變量名的（末尾）來(lái)說(shuō)明變量的類(lèi)型。8．為使VB的編譯程序自動(dòng)檢查變量聲明，遇到未經(jīng)說(shuō)明的標(biāo)識(shí)符發(fā)出錯(cuò)誤警告信息，在程序中要加上（OptionExplicit）語(yǔ)句。1)(3+6)`\22)18\4*4.0^2/1.63)25\3Mod3.2*Int（2.5）4)“xyz”+“438”5)“abc”&“123”&“abc”6)349.25+“0.75”=3507)“china”>=“canada”8)“abc”<=“abc”&“123”9)3>4And5=510)TrueOrNot7–3<=4答案：1)42)03)24)xyz4385)abc123abc6)True7)True8)True9)False10)True2．7設(shè)a1，a2，a3是布爾變量，其值依次為：True，True，F(xiàn)alse，寫(xiě)出下列布爾表達(dá)式的值1)Nota1AndNota22)Nota1EqvNota23)a1Ora2Anda34)a1Xora2Ora35)（Nota1Ora2）And（a2Ora3）6)Nota1Anda2Impa3答案：1)False2)True3)True4)False5)True6)True2．8用關(guān)系表達(dá)式或邏輯表達(dá)式表示下列條件1)i整除j2)n是小于正整數(shù)k的偶數(shù)3)1<=x<104)x，y其中有一個(gè)小于z5)y[–100,–10]，并且y[10,100]6)坐標(biāo)點(diǎn)（x,y）落在以（10,20）為圓心，以35為半徑的圓內(nèi)7)三條邊a，b和c構(gòu)成三角形8)年份Year能被4整除，但不能被100整除或者能被400整除答案：1)iModj=02)n<kAndnMod2=03)1<=xAndx<104)x<zOry<z5)Not(y>=-100Andy<=-10)AndNot(y>=10Andy<=100)6)Sqr((x-10)^2+(y-15)^2)<357)a+b>cAndb+c>aAndc+a>b8)YearMod4=0AndyearMod400<>0OrYearMod400=02．9問(wèn)答題1.標(biāo)識(shí)符的選取必須遵循什么規(guī)則？答：參見(jiàn)教材2.1.2。2.各種基本數(shù)據(jù)類(lèi)型的取值范圍如何？答：參見(jiàn)教材2.2表2-1。3.空串與空格有什么不同？答：參見(jiàn)教材2.1.1。4.什么是符號(hào)常量？使用符號(hào)常量有什么好處？答：參見(jiàn)教材2.3.1。5.自動(dòng)變量與靜態(tài)變量如何定義？它們之間有什么不同？答：參見(jiàn)教材2.3.2。6.兩個(gè)字符串如何進(jìn)行比較(關(guān)系)運(yùn)算,如何確定運(yùn)算結(jié)果?試舉例說(shuō)明。答：參見(jiàn)教材2.4.3。第3章程序流程控制3．1填空題1．設(shè)變量r表示圓的半徑，則計(jì)算圓的面積并賦給變量s使用的賦值語(yǔ)句為（s=3.14159*r*r）。2．給命令按鈕Command2的Caption屬性賦予字符串“退出”使用的賦值語(yǔ)句為（Command2.Caption=＂退出＂）。3．為了求n的階乘，要求用戶(hù)輸入n的值。程序使用InputBox函數(shù)輸入，要求對(duì)話(huà)框提示信息為“請(qǐng)輸入一個(gè)求階乘的數(shù)：”，標(biāo)題為“求數(shù)的階乘”，并且正確地把輸入的信息轉(zhuǎn)換為數(shù)值存放到變量n中，則使用的賦值語(yǔ)句為（n=val（InputBox（＂請(qǐng)輸入一個(gè)求階乘的數(shù)：＂，＂求數(shù)的階乘＂））。４．如果使用MsgBox對(duì)話(huà)框顯示提示信息“退出本系統(tǒng)？”，并顯示“是（Yes）”和“否（No）”兩個(gè)按鈕，顯示圖標(biāo)“？”號(hào)，指定第一個(gè)按鈕為默認(rèn)值以及標(biāo)題為“提示信息”，則調(diào)用MsgBox函數(shù)的形式為（MsgBox（＂退出本系統(tǒng)?＂，4+32+0，＂提示信息＂））。５．如果使用MsgBox對(duì)話(huà)框顯示提示信息“文件未找到！”，并顯示“確定”按鈕、圖標(biāo)“！”號(hào)和標(biāo)題“文件查找”，則使用的MsgBox語(yǔ)句為（MsgBox＂文件未找到＂，0+48+0，＂文件查找＂）。６．要在當(dāng)前窗體Form和立即窗口輸出字符串“VisualBASIC6.0”使用的Print方法分別是(Print“VisualBASIC6.0”)和(Debug.Print“VisualBASIC6.0”)。７．使用Print方法時(shí)，若用逗號(hào)分隔，則按(標(biāo)準(zhǔn))格式輸出各表達(dá)式的值，若用分號(hào)分隔，則按(緊湊)格式輸出各表達(dá)式的值。８．注釋語(yǔ)句是一個(gè)（非執(zhí)行）語(yǔ)句，VB不對(duì)它們進(jìn)行編譯，對(duì)程序的執(zhí)行結(jié)果沒(méi)有任何影響。９．判別變量i是否為偶數(shù)，若為偶數(shù)就把它顯示出來(lái)。使用單行結(jié)構(gòu)條件語(yǔ)句為（IfiMod2=0Thenprintx）。10．判別變量x是否大于0，若大于0，則累加到變量s1中，否則，累加到變量s2中，使用的單行結(jié)構(gòu)條件語(yǔ)句為（Ifx>0Thens1=s1+xElses2=s2+x）。11．給定分段函數(shù)，求y的值，使用的單行結(jié)構(gòu)條件語(yǔ)句為（Ifx>0Theny=2*x+1ElseIfx=0Theny=0Elsey=2*x-1）。12．判別a是否等于b，若a=b，則輸出字符串“aisequaltob”的塊結(jié)構(gòu)條件語(yǔ)句為（）。答案：Ifa=bThenPrint“aisequaltob”End13．判別ch是否為小寫(xiě)字母，若是，輸出“yes”；否則，輸出“No”的塊結(jié)構(gòu)條件語(yǔ)句為（）。答案：IfAsc(ch)>=97AndAsc(ch)<=122ThenPrint“Yes”ElsePrint“No”EndIf14．若一個(gè)case子句中的表達(dá)式表由逗號(hào)分隔的若干個(gè)常數(shù)組成，則它的含義是：當(dāng)測(cè)試表達(dá)式的值等于（這些常數(shù)中的某一個(gè)）時(shí)，執(zhí)行該case子句相應(yīng)的程序塊。15．若case子句中的表達(dá)式表列具有形式：<表達(dá)式1>To<表達(dá)式2>，則它的含義是：當(dāng)測(cè)試表達(dá)式的值等于（這個(gè)范圍內(nèi)的值）時(shí)，執(zhí)行該case子句相應(yīng)的程序塊。16．若case子句中的表達(dá)式表列具有形式：Is<關(guān)系運(yùn)算符><表達(dá)式>，則它的含義是：當(dāng)測(cè)試表達(dá)式的值滿(mǎn)足（Is后的關(guān)系）時(shí)，執(zhí)行該case子句相應(yīng)的程序塊。17．在循環(huán)語(yǔ)句中，反復(fù)執(zhí)行的程序段稱(chēng)為（循環(huán)體）；進(jìn)入循環(huán)體的條件稱(chēng)為（循環(huán)條件）；中止循環(huán)體執(zhí)行的條件稱(chēng)為（結(jié)束循環(huán)條件）。3．2選擇題１．下列賦值語(yǔ)句中，(d)是正確的。ａ)x?。剑bc＂ b)a％＝＂10e＂ c)x＋１＝５ d)s＄＝1002．下列選項(xiàng)中，(d)不能交換變量a和b的值。a)t=b:b=a:a=tb)a=a+b:b=a-b:a=a-bc)t=a:a=b:b=td)a=b:b=a3．若在消息框MsgBox中顯示“確定(Ok)”和“取消(Cancel)”兩個(gè)按鈕，則buttons參數(shù)的設(shè)置值是(b)。a)0 b)1 c)2 d)34．若在消息框MsgBox中選擇第二個(gè)按鈕為默認(rèn)值，則buttons參數(shù)的設(shè)置值是(b)。a)0 b)256 c)512 d)7685．若單擊了“終止（Abort）”按鈕，則MsgBox函數(shù)的返回值是（c）。a)1 b)2 c)3 d)46．以下不正確的單行結(jié)構(gòu)條件語(yǔ)句是（d）。a)Ifx>yThenPrint“x>y” b)IfxThent=t*xc)IfxMod3=2Then?x d)Ifx<0Theny=2*x-1:PrintxEndIf7．給定程序段DimaAsInteger,bAsInteger,cAsIntegera=1：b=2：c=3Ifa=c-bThenPrint"#####"ElsePrint"*****"以上程序（c）。a)沒(méi)有輸出b)有語(yǔ)法錯(cuò)c)輸出#####d)輸出*****8．把a(bǔ),b之中的最大值存放于max，下面語(yǔ)句書(shū)寫(xiě)正確的是（d）。a)Ifa>bThenmax=aElsemax=bEndIfb)Ifa>bThenmax=aElsemax=bEndIfc)Ifa>bThenmax=aElsemax=bd)Ifa>bThenmax=aElsemax=bEndIf9.下列Case語(yǔ)句中正確的是（c）。a) SelectCasexCase1Or3Or5y=x*x-1CaseIs>10y=x+1EndSelectb)SelectCasexCase1,3,5y=2*x-1CaseIsx<=1Y=2*x+1EndSelectc)SelectCasexCaseIs<=0y=x-1CaseIs>0y=Sqr(x)+1EndSelectd)SelectCasexCasex>=1Andx<=5y=x-1CaseIs>10y=x*x+1EndSelect10．執(zhí)行下列程序段后屏幕上（c）。i%=10:Sum=0Whilei>1Sum=Sum+ii=i-1WendPrintSuma)無(wú)顯示 b)顯示10 c)顯示54 d)顯示5511．執(zhí)行下列程序段輸出結(jié)果是（c）。x%=2Dowhilex<8Print“*”；x=x+2Loopa)* b)** c)*** d)****12．設(shè)有程序段Dimk%k=5Dountilk=0k=k-1Loop則下面對(duì)循環(huán)語(yǔ)句描述正確的是（c）。a)循環(huán)體1次也不執(zhí)行b)循環(huán)體執(zhí)行1次c)循環(huán)體執(zhí)行5次d)循環(huán)體執(zhí)行無(wú)限次13．下面描述中錯(cuò)誤的是（a,c）。a)執(zhí)行Dountil<條件>…loop語(yǔ)句中，當(dāng)循環(huán)<條件>為false時(shí)，結(jié)束循環(huán)體的執(zhí)行。b)執(zhí)行While<條件>…Wend語(yǔ)句時(shí)，循環(huán)體可能一次也不執(zhí)行。c)Do…loopWhile<條件>語(yǔ)句的循環(huán)體可能一次也不執(zhí)行。d)執(zhí)行Do…loopUntil<條件>語(yǔ)句中，當(dāng)循環(huán)條件為true時(shí)，結(jié)束循環(huán)體的執(zhí)行。14．下面程序段中循環(huán)語(yǔ)句的循環(huán)次數(shù)是（b）。Forx=10To1Step-3PrintxNextxa)0 b)4 c)5 d)1015．執(zhí)行語(yǔ)句Fori=1to3:i=i+1:Nexti后變量i的值是（c）。a)3 b)4 c)5 d)616．下面程序段執(zhí)行后輸出結(jié)果是（b）。Fori=1To2s=1Forj=0Toi-1s=s+s*jNextjPrints,Nextia)11 b)12 c)21 d)223．3閱讀下列程序，寫(xiě)出執(zhí)行結(jié)果1.PrivateSubForm_ClickPrint–2*3/2,“Visual”&“BASIC”，Not5>3，0.75Print–2*3/2;“Visual”&“BASIC”;Not5>3;0.75x=12.34Print“x=”；PrintxEndSub答案：-3VisualBASICFalse.75-3VisualBASICFalse.75x=12.342．PrivateSubForm_ClickPrintTab(10);-100;Tab(20);200;Tab(30);-300PrintSpc(10);-100;Spc(10);200;Spc(10);-300EndSub答案：-100200-300-100200-3003．PrivateSubForm_Clickx=12.35PrintFormat(x,”###.##”)PrintFormat(x,”##.##”)PrintFormat(x,”000.00”)PrintFormat(x,”00.0”)PrintFormat(x,”0.00%”)PrintFormat(x,”$##.##”)PrintFormat(x,”+##.##”)PrintFormat(x,”00.00E+00”)EndSub答案：12．3512．35012．3512．41235．00%$12.35+12.3512.35e+004．PrivateSubCommand1_Click()Dima%,b%,c%,s%,w%,t%a=-1:b=3:c=3s=0:w=0:t=0Ifc>0Thens=a+bIfa<=0ThenIfc<=0Thenw=a-bEndIfElseIfc>0Thenw=a-bElset=cEndIfc=a+bPrinta,b,cPrints,w,tEndSub答案：-1322005．PrivateSubCommand1_Click()Dimx%,y%x=InputBox("請(qǐng)輸入x的值：")SelectCasexCase1,3,5y=x-1Case6To10y=x+1Case2,4y=2*xCaseIs>10y=x*x+1EndSelectPrint"x=";x,"y=";yEndSub（x的輸入值為2.5、8、4和15）答案：x=2y=4x=8y=9x=4y=8x=15y=2266．PrivateSubCommand1_Click()Dimi%,t!t=1:i=1Whilei<10t=t*ii=i+2WendPrint"t=";tEndSub答案：t=9457．PrivateSubCommand1_Click()Dimi%,x%,y%x=1:y=1:i=1DoUntili>8IfiMod2=1Thenx=x*iElsey=y*iEndIfi=i+1LoopPrint"x=";x,"y=";yEndSub答案：x=105y=3848．PrivateSubCommand1_Click()Dimp%,s%p=1:s=1Dop=p+2:s=s+pLoopWhilep<10Print"s=";sEndSub答案：s=369．PrivateSubCommand1_Click()Dimm%,n%Form=1to3n=0Whilen<=m-1Printm,nn=n+1WendNextmEndSub答案:1020213031323．4編程題1.輸入一個(gè)學(xué)生成績(jī)，若成績(jī)?cè)?5分以上，則輸出“verygood”；若成績(jī)?cè)?0分到80分之間，則輸出“good”；若成績(jī)低于60分，則輸出“nogood”。解答：(1) 界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)標(biāo)簽、兩個(gè)文本框和兩個(gè)命令按鈕。窗體和窗體上控件的主要屬性設(shè)置如表3-3-1所示。表3-3-1第1題的屬性設(shè)置控件名稱(chēng) 屬性名 屬性值Form1 Caption 根據(jù)分?jǐn)?shù)給定評(píng)語(yǔ)Label1 Caption 分?jǐn)?shù)Label2 Caption 評(píng)語(yǔ)Text1 Text 空串Text2 Text 空串Command1 Caption 開(kāi)始Command2 Caption 結(jié)束(2) 程序代碼PrivateSubCommand1_Click()Dimscore!score=Val(Text1.Text)Ifscore>=85ThenText2.Text="Verygood!"ElseIfscore>=60ThenText2.Text="Good!"ElseText2.Text="Nogood!"EndIfEndSubPrivateSubCommand2_Click()EndEndSub(3) 運(yùn)行情況運(yùn)行程序后，屏幕出現(xiàn)用戶(hù)界面。把鼠標(biāo)移到Text1文本框并單擊，輸入分?jǐn)?shù)。然后，單擊“開(kāi)始”命令按鈕，系統(tǒng)執(zhí)行Command1_Click事件過(guò)程。執(zhí)行結(jié)果如圖3.3.1所示。單擊標(biāo)題為“結(jié)束”的命令按鈕，執(zhí)行Command2_Click事件過(guò)程，結(jié)束程序的執(zhí)行。圖3.3.1第1題的執(zhí)行結(jié)果2.求一元二次方程ax+bx+c=0的根。解答：(1) 界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-2所示。表3-3-2第2題的屬性設(shè)置控件名稱(chēng) 屬性名 屬性值Form1 Caption 求一元二次方程的根Command1 Caption 開(kāi)始Command2 Caption 結(jié)束(2) 程序代碼由中學(xué)數(shù)學(xué)知識(shí)知道，求一元二次方程的根的公式為：，編程時(shí)要考慮如下各種情況：①當(dāng)a=0時(shí)，方程不是二次方程；②當(dāng)b2-4ac=0時(shí),有兩個(gè)相同的實(shí)根：；③當(dāng)b2-4ac>0時(shí),有兩個(gè)不同的實(shí)根：；④當(dāng)b2-4ac<0時(shí),有兩個(gè)共軛復(fù)根：。PrivateSubCommand1_Click()ClsDima!,b!,c!,disc!,x1!,x2!,realpart!,imagpart!a=InputBox("請(qǐng)輸入方程的系數(shù)a：")b=InputBox("請(qǐng)輸入方程的系數(shù)b：")c=InputBox("請(qǐng)輸入方程的系數(shù)c：")Print:PrintPrintTab(10);"輸入方程的系數(shù)為：";"a=";a;"b=";b;"c=";cPrintIfAbs(a)<=0.000001ThenPrintTab(15);"方程不是一個(gè)二次方程！"Elsedisc=b^2-4*a*cIfAbs(disc)<=0.000001ThenPrintTab(10);"方程有兩個(gè)相同的實(shí)根：";"x1=x2=";-b/(2*a)ElseIfdisc>0.000001Thenx1=(-b+Sqr(disc))/(2*a)x2=(-b-Sqr(disc))/(2*a)PrintTab(5);"方程有兩個(gè)實(shí)根："PrintTab(18);"x1=";x1PrintTab(18);"x2=";x2ElseIfdisc<0.000001Thenrealpart=-b/(2*a):imagpart=Sqr(-disc)/(2*a)PrintTab(5);"方程有兩個(gè)虛根：";PrintTab(18);"x1=";realpart;"+";imagpart;"i"PrintTab(18);"x2=";realpart;"-";imagpart;"i"EndIfEndIfEndSubPrivateSubCommand2_Click()EndEndSub注意，程序中的條件“fabs(a)<=0.000001”和“fabs(disc)<=0.000001”分別用來(lái)判斷a和disc的值是否為0。因?yàn)閷?shí)數(shù)在計(jì)算機(jī)計(jì)算和存儲(chǔ)時(shí)會(huì)有微小的誤差，若用“a=0”和“disc=0”來(lái)判斷a和disc是否為0，則會(huì)由于誤差導(dǎo)致條件不成立，無(wú)法得到正確的運(yùn)行結(jié)果。(3)運(yùn)行情況運(yùn)行程序后，單擊“開(kāi)始”命令按鈕，執(zhí)行Command1_Click事件過(guò)程。執(zhí)行時(shí)，在InputBox框中輸入a、b和c三個(gè)系數(shù)。圖3.3.2～圖3.3.5顯示了不同系數(shù)輸入的執(zhí)行結(jié)果。圖3.3.2執(zhí)行結(jié)果(a)圖3.3.3執(zhí)行結(jié)果(b)圖3.3.4執(zhí)行結(jié)果(c)圖3.3.5執(zhí)行結(jié)果(d)3.給定函數(shù)y=,從鍵盤(pán)上輸入x的值，求y的值。(要求使用Case語(yǔ)句)解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-3所示。表3-3-3第3題的屬性設(shè)置控件名稱(chēng) 屬性名 屬性值Form1 Caption 求給定分段函數(shù)的值Command1 Caption 開(kāi)始Command2 Caption 結(jié)束(2) 程序代碼PrivateSubCommand1_Click()ClsDimx!,y!x=InputBox("請(qǐng)輸入x的值：")Ifx>=1Andx<=5ThenSelectCasexCaseIs<2y=3*x-5CaseIs<4y=2*Cos(x)+1CaseIs<=5y=Sqr(1+x*x)EndSelectElsey=x*x-4*x+5EndIfPrintTab(10);"x=";x,"y=";yEndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況運(yùn)行程序后，單擊“開(kāi)始”命令按鈕，執(zhí)行事件過(guò)程Command1_Click。執(zhí)行時(shí)，按InputBox對(duì)話(huà)框提示，輸入x的值。計(jì)算結(jié)果在窗體上顯示。4.輸入圓的半徑R和運(yùn)算標(biāo)志，按照運(yùn)算標(biāo)志進(jìn)行指定運(yùn)算。給定的運(yùn)算標(biāo)志及其表示的運(yùn)算如下：C（Circle）表示計(jì)算周長(zhǎng)A（Area）表示計(jì)算面積B（Both）表示周長(zhǎng)和面積都計(jì)算(要求使用Case語(yǔ)句)解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上放置兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-4所示。表3-3-4第4題的屬性設(shè)置控件名稱(chēng) 屬性名 屬性值Form1 Caption 計(jì)算圓周長(zhǎng)或圓面積或兩者都計(jì)算Command1 Caption 開(kāi)始Command2 Caption 結(jié)束(2)程序代碼PrivateSubCommand1_Click()ClsDimr!,fAsString*1Constpi!=3.14159265r=InputBox("請(qǐng)輸入圓的半徑r：")Ifr>=0Thenf=UCase(InputBox("輸入運(yùn)算標(biāo)志："+Chr(13)&_"C___(計(jì)算周長(zhǎng))"+Chr(13)&_"A___(計(jì)算面積)"+Chr(13)&_"B___(兩者都計(jì)算)"))'提示信息分多行顯示SelectCasefCase"C"PrintTab(10);"半徑r=";r;"圓周長(zhǎng)=";r*2*piCase"A"PrintTab(10);"半徑r=";r;"圓面積=";r^2*piCase"B"PrintTab(10);"半徑r=";r;"圓周長(zhǎng)=";r*2*piPrintTab(10);"半徑r=";r;"圓面積=";r^2*piCaseElsePrintTab(18);"輸入的運(yùn)算標(biāo)志錯(cuò)！"EndSelectElsePrintTab(18);"半徑不能是負(fù)數(shù)！"EndIfEndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況運(yùn)行程序后，單擊標(biāo)題為“開(kāi)始”的命令按鈕，執(zhí)行Command1_Click事件過(guò)程。按InputBox對(duì)話(huà)框的提示輸入半徑r和運(yùn)算標(biāo)志。計(jì)算結(jié)果在窗體上顯示。5.求滿(mǎn)足12+22+…+n2>1000的最小n值。(要求使用While…WEnd語(yǔ)句)解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-5所示。表3-3-5第5題的屬性設(shè)置控件名稱(chēng) 屬性名 屬性值Form1 Caption 求滿(mǎn)足1^2+2^2+…+n^2>1000的最小n值Command1 Caption 開(kāi)始Command2 Caption 結(jié)束(2)程序代碼PrivateSubCommand1_Click()Dimn%,s&n=0:s=0Whiles<=1000n=n+1s=s+n^2WendPrint:Print:PrintPrintTab(8);"滿(mǎn)足1^2+2^2+…+n^2>1000的最小n值為：";nEndSubPrivateSubCommand2_Click()EndEndSub6．輸入若干個(gè)正實(shí)數(shù)，個(gè)數(shù)預(yù)先不能確定，求這些正實(shí)數(shù)之和。(要求分別使用DoWhile…Loop語(yǔ)句和DoUntil…Loop語(yǔ)句)解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立三個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-6所示。表3-3-6第6題的屬性設(shè)置控件名稱(chēng) 屬性名 屬性值Form1 Caption 求正實(shí)數(shù)之和Command1 Caption DoWhile…LoopCommand2 Caption DoUntil…LoopCommand3 Caption 結(jié)束(2)程序代碼PrivateSubCommand1_Click()ClsDima!,s!a=InputBox("輸入一個(gè)實(shí)數(shù)：")DoWhilea>=0s=s+aa=InputBox("輸入一個(gè)實(shí)數(shù)：")LoopPrint:PrintPrintTab(15);"輸入的正實(shí)數(shù)之和為：";sEndSubPrivateSubCommand2_Click()ClsDima!,s!a=InputBox("輸入一個(gè)實(shí)數(shù)：")DoUntila<0s=s+aa=InputBox("輸入一個(gè)實(shí)數(shù)：")LoopPrint:Print:PrintPrintTab(15);"輸入的正實(shí)數(shù)之和為：";sEndSubPrivateSubCommand3_Click()EndEndSub(3)運(yùn)行情況運(yùn)行程序后，屏幕出現(xiàn)用戶(hù)界面如圖3.3.6所示。單擊標(biāo)題為“DoWhile…Loop”或標(biāo)題為“DoWhile…Loop”的命令按鈕，系統(tǒng)執(zhí)行相應(yīng)的Click事件過(guò)程。用戶(hù)可以輸入一系列數(shù)據(jù)，以輸入-1作結(jié)束。窗體顯示運(yùn)算結(jié)果。單擊“結(jié)束”按鈕，結(jié)束程序執(zhí)行。圖3.3.6第6題的執(zhí)行結(jié)果7．使用公式來(lái)求π的近似值，直到最后一項(xiàng)的值小于10-8為止。(要求使用Do…LoopWhile語(yǔ)句)解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-7所示。表3-3-7第7題的屬性設(shè)置控件名稱(chēng) 屬性名 屬性值Form1 Caption 求圓周率的近似值Command1 Caption 開(kāi)始Command2 Caption 結(jié)束(2)程序代碼PrivateSubCommand1_Click()Dimi&,s#,term#i=1s=0Doterm=1/(i*i)s=s+termi=i+1LoopWhileterm>=0.00000001Print:Print:PrintPrintTab(8);"圓周率的近似值為：";Sqr(6*s)EndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況運(yùn)行程序后，單擊標(biāo)題為“開(kāi)始”的命令按鈕，執(zhí)行Command1_Click事件過(guò)程。計(jì)算結(jié)果在窗體上顯示。8.由數(shù)值計(jì)算方法可知，用牛頓迭代法解方程f(x)=0的迭代公式為：試用牛頓迭代法求解方程x5－3x2＋2x＋1=0在x0=0附近的根。(要求使用Do…LoopUntil語(yǔ)句)解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-8所示。表3-3-8第8題的屬性設(shè)置控件名稱(chēng) 屬性名 屬性值Form1 Caption 用牛頓法求方程的根Command1 Caption 開(kāi)始Command2 Caption 結(jié)束(2)程序代碼根據(jù)迭代公式，牛頓迭代法的計(jì)算過(guò)程為：①令n=0，由迭代公式得，然后判別∣x1－x0∣是否小于ε(給定精度)。若是，則迭代結(jié)束，x1作為方程的近似根；否則，進(jìn)行下一步。②令n=1，由迭代公式得，然后判別∣x2－x1∣是否小ε。若是，則迭代結(jié)束，x2作為方程的近似根；否則，由x2求x3的值，判斷∣x3－x2∣。┇按這樣迭代下去，一直到∣xi＋1－xi∣<ε(i=0，1，2，…)為止。根據(jù)上述計(jì)算過(guò)程可以編寫(xiě)程序?yàn)椋篜rivateSubCommand1_Click()Dimx0!,x1!x1=0Dox0=x1x1=x0-(x0^5-3*x0^2+2*x0+1)/(5*x0^4-6*x0+2)LoopUntilAbs(x1-x0)<0.00001PrintTab(10);"方程的根為：";x1EndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況運(yùn)行程序后，單擊標(biāo)題為“開(kāi)始”的命令按鈕，執(zhí)行Command1_Click事件過(guò)程。在窗體上顯示計(jì)算結(jié)果。9．求S=的值。解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-9所示。表3-3-9第9題的屬性設(shè)置控件名稱(chēng) 屬性名 屬性值Form1 Caption 求s=1-1/2+1/3-1/4+…+1/99-1/100的值Command1 Caption 開(kāi)始Command2 Caption 結(jié)束(2)程序代碼PrivateSubCommand1_Click()Dimi%,s!,sign%sign=1:s=0Fori=1To100s=s+sign*1/isign=-signNextiPrint:Print:PrintPrintTab(18);"s的值為：";sEndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況運(yùn)行程序后，單擊標(biāo)題為“開(kāi)始”的命令按鈕，執(zhí)行Command1_Click事件過(guò)程。窗體顯示計(jì)算結(jié)果。10．求100到999中的水仙花數(shù)。所謂水仙花數(shù)是指一個(gè)三位數(shù)，它的各位數(shù)字的立方之和等于該數(shù)。例如，因?yàn)?53=13+53+33，所以153是水仙花數(shù)。解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-10所示。表3-3-10第10題的屬性設(shè)置控件名稱(chēng) 屬性名 屬性值Form1 Caption 求水仙花數(shù)Command1 Caption 開(kāi)始Command2 Caption 結(jié)束(2)程序代碼PrivateSubCommand1_Click()Dimi%,a%,b%,c%PrintPrintTab(5);"100--999之間的水仙花數(shù)為："Fori=100To999a=i\100b=(i-a*100)\10c=i-a*100-b*10Ifi=a^3+b^3+c^3ThenPrintTab(10);iEndIfNextiEndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況執(zhí)行結(jié)果如圖3.3.7所示。圖3.3.7第10題的執(zhí)行結(jié)果11.求1000之內(nèi)的所有完數(shù)。所謂完數(shù)是指一個(gè)數(shù)恰好等于它的所有因子之和。例如，因?yàn)?=1+2+3，所以6為完數(shù)。解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-11所示。表3-3-11第11題的屬性設(shè)置控件名稱(chēng) 屬性名 屬性值Form1 Caption 求完數(shù)Command1 Caption 開(kāi)始Command2 Caption 結(jié)束(2)程序代碼PrivateSubCommand1_Click()Dimi%,j%,s%PrintPrintTab(5);"1--1000之內(nèi)的完數(shù)為："Fori=1To1000s=0Forj=1Toi-1IfiModj=0Thens=s+jNextjIfi=sThenPrintTab(5);iNextiEndSubPrivateSubCommand2_Click()EndEndSub(3) 運(yùn)行情況程序執(zhí)行結(jié)果如圖3.3.8所示。圖3.3.8第11題的執(zhí)行結(jié)果12.在窗體上輸出形如以下圖形，其中第一行的起始字母和終止字母由用戶(hù)從鍵盤(pán)上輸入。ABCDEBCDEACDEABDEABCEABCD解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-12所示。表3-3-12第12題的屬性設(shè)置控件名稱(chēng) 屬性名 屬性值Form1 Caption 輸出由字母構(gòu)成的圖形Command1 Caption 開(kāi)始Command2 Caption 結(jié)束(2)程序代碼PrivateSubCommand1_Click()ClsDimstargAsString*1,endgAsString*1,stargc%,endgc%,i%,j%,k%starg=UCase(InputBox("請(qǐng)輸入起始字母："))endg=UCase(InputBox("請(qǐng)輸入終止字母："))stargc=Asc(starg)endgc=Asc(endg)PrintIfstargc<=endgcThenFori=0Toendgc-stargcPrintTab(24);Forj=stargc+iToendgcPrintChr(j);NextjFork=stargcTostargc+i-1PrintChr(k);NextkPrintNextiElsePrintTab(15);"起始字母必須先于終止字母！"EndIfEndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況運(yùn)行程序后，需在InputBox對(duì)話(huà)框輸入起始字母和終止字母。執(zhí)行結(jié)果在窗體上顯示。13．已知XYZ+YZZ=532，其中X，Y和Z為0～9的數(shù)字，編程求出X、Y和Z，并在窗體上把算式顯示出來(lái)。解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-13所示。表3-3-13第13題的屬性設(shè)置控件名稱(chēng) 屬性名 屬性值Form1 Caption 求算式中的數(shù)字Command1 Caption 開(kāi)始Command2 Caption 結(jié)束(2)程序代碼PrivateSubCommand1_Click()Dimx%,y%,z%,i%PrintPrintTab(23);"x";"y";"z"PrintTab(22);"+";"y";"z";"z"PrintTab(21);"------------"PrintTab(23);5;3;2Forx=1To9Fory=1To9Forz=0To9i=100*x+10*y+z+100*y+10*z+zIfi=532ThenPrint:PrintTab(10);"算式中的數(shù)字為：";_"x=";x;"y=";y;"z=";z;"即":GoTolNextzNextyNextxl:PrintPrintTab(23);x;y;zPrintTab(22);"+";y;z;zPrintTab(21);"------------"PrintTab(23);5;3;2EndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況執(zhí)行結(jié)果如圖3.3.9所示。圖3.3.9第13題的執(zhí)行結(jié)果第4章常用控件4．1填空題1．在圖片框上放置的控件稱(chēng)為圖片框的（子）對(duì)象，而窗體是圖片框的（父）對(duì)象。2．窗體的“名稱(chēng)”（Name）屬性只能在（屬性窗口中）設(shè)置。3．在程序中設(shè)置窗體Forml的Caption屬性為“主窗體”，使用的賦值語(yǔ)句是（Forml.Caption=”主窗體”）。4．當(dāng)窗體的Enabled屬性為（True）時(shí)，指定窗體響應(yīng)事件。5．窗體的Unload事件是在QueryUnload事件發(fā)生之（后）發(fā)生。6．程序中，把當(dāng)前窗體移動(dòng)到屏幕左上角使用的方法為（Move0,0）。7．在窗體Form1中坐標(biāo)為（1600，800）的位置上輸出字符串“VisualBASIC6.0”使用的語(yǔ)句為（Form1.Currrentx=1600）、（Form1.Currenty=800）、和（Form1.Print“VisualBASIC6.0”）。8．若使文本框有邊框，需設(shè)置BorderStyle屬性的值為（1）。9．在程序運(yùn)行期間，用戶(hù)可以用文本框顯示信息。文本框接受輸入的內(nèi)容的屬性是（Text）。10．若使文本框內(nèi)能夠接受多行文本，則要設(shè)置Multiline屬性的值為（True）。11．要把圖形文件“c:\sample\diannt.jpg”裝載到圖片框Picture1上，使用的語(yǔ)句為（Picture1.Picture=LoadPicture(“c:\sample\diannt.jpg”)）。12．若使圖片框自動(dòng)調(diào)整大小以適應(yīng)裝入的圖形，則要設(shè)置Autosize屬性的值為（True）。13．除了在程序使用LoadPicture函數(shù)裝載圖形外，還可以在設(shè)計(jì)階段通過(guò)修改（Picture）屬性裝載圖形。14．若程序中要把一些文本內(nèi)容輸出到圖片框PictureBox，應(yīng)使用（Print）方法。15．當(dāng)單選按鈕OptionButton的Value屬性為（False）時(shí)，表示該單選按鈕處于未選中狀態(tài)。16．若使命令按鈕Command1重新生效，則使用的賦值語(yǔ)句為（Command1.Enabled=True）。17．若使命令按鈕不能接收和響應(yīng)任何事件，可以設(shè)置Visible屬性的值為（False）。18．只有控件對(duì)象的Enabled和Visible屬性值都為（True）時(shí)，該控件對(duì)象才能接受焦點(diǎn)。19．Tab順序是由建立控件時(shí)的（先后順序）來(lái)確定。20．設(shè)置框架Frame上的文本內(nèi)容需要使用（Caption）屬性。21．在框架上可以設(shè)置一組相關(guān)控件，這些控件作為框架的（子）控件，它們具有總體的激活/屏蔽特性。22．若屏蔽框架上的控件對(duì)象，則需設(shè)置（Enabled）屬性的值為False。23．列表框ListBox中項(xiàng)目的序號(hào)從（0）開(kāi)始到（Listcount-1）結(jié)束。24．要顯示列表框List1中序號(hào)為3項(xiàng)目?jī)?nèi)容，語(yǔ)句為（PrintList1.List(3)）。25．向組合框Combo2添加序號(hào)為5，內(nèi)容為“計(jì)算機(jī)學(xué)院”的項(xiàng)目，使用的語(yǔ)句為（Combo2.AddItem“計(jì)算機(jī)學(xué)院”，5）。26．要?jiǎng)h除組合框Combo1序號(hào)為3的項(xiàng)目，使用的語(yǔ)句為（Combo1.ReMoveItem3）。27．使用滾動(dòng)條ScrollBar時(shí)，若要設(shè)置當(dāng)用鼠標(biāo)單擊兩個(gè)滾動(dòng)箭頭之間區(qū)域的滾動(dòng)幅度，需使用（LargeChange）屬性。28．若要設(shè)置水平或垂直滾動(dòng)條的最小值，需使用（Min）屬性。29．計(jì)時(shí)器Timer每經(jīng)過(guò)一個(gè)由InterVal屬性指定的時(shí)間間隔就會(huì)觸發(fā)一次（Timer）事件。30．若要使計(jì)時(shí)器每0.5鈔鐘觸發(fā)一次Timer事件，則要把InterVal屬性值設(shè)置為（500）。4．2選擇題1．窗體標(biāo)題欄的顯示內(nèi)容由窗體的（b）屬性決定。a)Name b)Caption c)BackColor d)Enabled2．當(dāng)窗體被裝入內(nèi)存時(shí)，系統(tǒng)將自動(dòng)執(zhí)行（a,b)事件過(guò)程。a)Load b)Activate c)Unload d)QueryUnload3．在標(biāo)簽框上顯示的內(nèi)容由（b）屬性來(lái)實(shí)現(xiàn)。a)Name b)Caption c)Text d)ForeColor4．要使標(biāo)題在標(biāo)簽框內(nèi)居中顯示，Alignment屬性的取值應(yīng)為（2）。a)0 b)1 c)2 d)35．若使標(biāo)簽框根據(jù)所顯示內(nèi)容自動(dòng)調(diào)整其大小，則可以通過(guò)設(shè)置（a）屬性值為T(mén)rue來(lái)實(shí)現(xiàn)。a)AutoSize b)Alignment c)Enabled d)Visible6．文本框沒(méi)有（d）屬性。a)BackColor b)Enabled c)Visible d)Caption7．若設(shè)置文本框最多可以接受的字符數(shù)，則可以使用（d）屬性。a)Length b)Multiline c)Max d)MaxLength8．在文本框中設(shè)置垂直滾動(dòng)條，要使ScrollBars的值為（c）。a)0 b)1 c)2 d)39．在運(yùn)行程序時(shí)，要使文本框獲得焦點(diǎn)，則需使用（b）方法。a)Change b)SetFocus c)GotFocus d)Move10．下列控件中，沒(méi)有AutoSize屬性的是（b,d）。a)標(biāo)簽 b)文本框 c)圖片框 d)圖像框11．若把圖片框Picture1中的圖形清除，可以使用的語(yǔ)句是（b,c,d）。a)Picture1.Delb)Picture1.Picture=LoadPicture("")c)Picture1.Picture=LoadPicture()d)Picture1.Picture=Nothing12．命令按鈕上的文本內(nèi)容由（b）屬性來(lái)設(shè)置。a)Text b)Caption c)Name d)Show13．若將命令按鈕設(shè)置為默認(rèn)選擇命令按鈕，可以通過(guò)（c）屬性來(lái)實(shí)現(xiàn)。a)Value b)Cancel c)Default d)Enabled14．要使命令按鈕失效，則可以設(shè)置（b）屬性的值為False來(lái)實(shí)現(xiàn)。a)Value b)Enabled c)Visible d)Cancel15．若使命令按鈕在屏幕不可見(jiàn)，則可以通過(guò)修改（c）屬性實(shí)現(xiàn)。a)Value b)Enabled c)Visible d)Cancel16．當(dāng)復(fù)選框Value屬性值為（b）表示該復(fù)選框被選中。a)0 b)1 c)2 d)317．改變控件的Tab順序可以修改（d）屬性值。a)Visible b)Enabled c)TabStop d)TabIndex18．下列控件中（d）不能接受GotFocus和LostFocus事件。a)命令按鈕 b)組合框 c)復(fù)選按鈕 d)計(jì)時(shí)器19．要使列表框中的項(xiàng)目垂直滾動(dòng)，應(yīng)設(shè)置Columns屬性值為（a）。a)0 b)1 c)2 d)320．若要得到列表框中項(xiàng)目的數(shù)目，可以訪問(wèn)（c）屬性。a)List b)ListIndex c)ListCount d)Text21．設(shè)置列表框的選擇方式，應(yīng)使用（b）屬性。a)Columns b)MultiSelect c)Style d)List22．若要清除列表框的所有項(xiàng)目?jī)?nèi)容，可以使用（c）方法。a)AddItem b)ReMove c)Clear d)Print23．刪除列表框中的某一個(gè)項(xiàng)目，需要使用（d）方法。a)Clear b)ReMove c)Move d)ReMoveItem24．在組合框中選擇某一項(xiàng)目?jī)?nèi)容，可以通過(guò)（d）屬性獲得。a)List b)ListIndex c)ListCount d)Text25．若要獲得滾動(dòng)條的當(dāng)前位置，可以通過(guò)訪問(wèn)（a）屬性來(lái)實(shí)現(xiàn)。a)Value b)Max c)Min d)LargeChange26．當(dāng)用鼠標(biāo)拖動(dòng)滾動(dòng)塊時(shí)觸發(fā)（b,c）事件。a)Move b)Change c)Scroll d)GotFocus27．設(shè)置計(jì)時(shí)器的時(shí)間間隔可以通過(guò)（d）屬性來(lái)實(shí)現(xiàn)。a)Value b)Text c)Max d)InterVal28．暫時(shí)關(guān)閉計(jì)時(shí)器，需設(shè)置（ b）屬性。a)Visible b)Enabled c)Lock d)Cancel4．3問(wèn)答題1.在VB集成環(huán)境中，用屬性窗口設(shè)置字體（Font）屬性時(shí)，系統(tǒng)將彈出一個(gè)對(duì)話(huà)框（見(jiàn)圖4-10），指出該對(duì)話(huà)框中包含些什么控件？答：在該對(duì)話(huà)框中包含列表框、命令按鈕、框架、復(fù)選框和文本框等控件。2．設(shè)Text1為某一文本框名，下列程序段的輸出結(jié)果是什么？Text1.Text="abcdefghijk"Text1.selstart=3Text1.sellength=5PrintText1.SelText答：輸出結(jié)果是：defgh3．標(biāo)簽和文本框有什么區(qū)別？答：參見(jiàn)教材4.3。4.比較用Print方法輸出和用標(biāo)簽輸出的優(yōu)缺點(diǎn)。答：窗體、圖片框和打印機(jī)等具有Print方法，用于直接輸出文本。輸出格式、字體風(fēng)格通過(guò)語(yǔ)句中的格式控制和對(duì)象的字體屬性共同完成。Print方法只有在程序運(yùn)行后，執(zhí)行代碼才能顯示結(jié)果。標(biāo)簽控件利用Caption屬性輸出文本，可以通過(guò)字體屬性設(shè)置顯示風(fēng)格。其屬性可以在設(shè)計(jì)階段給定，也可以在程序運(yùn)行時(shí)改變。標(biāo)簽控件是窗體的子對(duì)象，主要用于界面設(shè)計(jì)，不能輸出復(fù)雜格式的數(shù)據(jù)，特別地，不能直接把輸出送到外部設(shè)備，如打印機(jī)。5．圖片框和圖象框的作用是什么？它們之間有什么區(qū)別？在什么情況下可以相互代替？在什么情況下必須使用圖片框？答：參見(jiàn)教材4.4。6．框架的作用是什么？如何在框架中建立控件？答：參見(jiàn)教材4.6。4．4編程題1.編一程序能夠?qū)崿F(xiàn)：每次單擊命令按鈕Command1能使標(biāo)簽Label1上的文字在窗體Form1上往右移動(dòng)100緹，當(dāng)標(biāo)簽在窗體Form1上往右移出窗體的右邊界時(shí)，再次單擊命令按鈕Command1能使標(biāo)簽回到窗體的左邊界。解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立一個(gè)標(biāo)簽和兩個(gè)命令按鈕。窗體和窗體上控件的主要屬性設(shè)置如表3-4-1所示。表3-4-1第1題的屬性設(shè)置控件名稱(chēng) 屬性名 屬性值Form1 Caption 使標(biāo)簽往右移Label1 CaptionFontNameFontSize 歡迎使用VB！隸書(shū)三號(hào)字Command1 Caption 移動(dòng)Command2 Caption 結(jié)束（2）程序代碼PrivateSubCommand1_Click()IfLabel1.Left>Form1.ScaleWidthThenLabel1.Left=0ElseLabel1.Left=Label1.Left+100EndIfEndSubPrivateSubCommand2_Click()EndEndSub（3）運(yùn)行情況運(yùn)行程序后，屏幕出現(xiàn)用戶(hù)界面。每單擊一次標(biāo)題為“移動(dòng)”的命令按鈕，執(zhí)行Command1_Click事件過(guò)程，使標(biāo)簽往右移100緹。右移出窗體的右邊界時(shí)，再次單擊“移動(dòng)”命令按鈕，標(biāo)簽回到窗體的左邊界。執(zhí)行情況如圖3.4.1所示。圖3.4.1第1題的執(zhí)行情況2．編寫(xiě)一個(gè)把某些英文單詞翻譯為中文單詞的簡(jiǎn)單程序。要求用戶(hù)界面為一個(gè)窗體，窗體左側(cè)是一個(gè)文本框，用戶(hù)在這里輸入想要翻譯的英文單詞（注意輸入一個(gè)新的單詞之前應(yīng)清除原有內(nèi)容）；窗體中間是一個(gè)命令按鈕，在該命令按鈕上面顯示“翻譯”兩字；窗體右側(cè)也是一個(gè)文本框；當(dāng)程序運(yùn)行時(shí)，用戶(hù)按下命令按鈕后，窗體右側(cè)的文本框顯示單詞的中文意思。如果找不到想要翻譯的英文單詞，則給出相應(yīng)的信息。解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)標(biāo)簽、兩個(gè)文本框和一個(gè)命令按鈕。窗體和窗體上控件的主要屬性設(shè)置如表3-4-2所示。表3-4-2第2題的屬性設(shè)置控件名稱(chēng) 屬性名 屬性值Form1 Caption 英文單詞翻譯為中文單詞Label1 Caption 英文Label2 Caption 中文Text1 Text 空串Text2 Text 空串Command1 Caption 翻譯(2)程序代碼PrivateSubForm_Load()Text1.Text="":Text2.Text=""EndSubPrivateSubCommand1_Click()SelectCaseLCase(Trim(Text1.Text))Case"china"Text2.Text="中國(guó)"Case"france"Text2.Text="法國(guó)"Case"england"Text2.Text="英國(guó)"Case"america"Text2.Text="美國(guó)"Case"india"Text2.Text="印度"CaseElseText2.Text="找不到該單詞！"EndSelectEndSubPrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Text1.Text="":Text2.Text=""EndSub(3)運(yùn)行情況上機(jī)運(yùn)行程序后，屏幕出現(xiàn)用戶(hù)界面。此時(shí)，把鼠標(biāo)移到Text1文本框并單擊，然后輸入英文國(guó)家名，例如，China。英文國(guó)家名輸入后，單擊標(biāo)題為“翻譯”的命令按鈕，系統(tǒng)執(zhí)行相應(yīng)的Click事件過(guò)程。執(zhí)行結(jié)果如圖3.4.2所示。單擊工具欄上的“結(jié)束”按鈕，系統(tǒng)結(jié)束程序的執(zhí)行。圖3.4.2第2題的執(zhí)行結(jié)果3．在文本框中輸入算術(shù)表達(dá)式，并以回車(chē)符作為輸入結(jié)束標(biāo)志。對(duì)表達(dá)式中的圓括號(hào)是否配對(duì)進(jìn)行檢查，且給出配對(duì)或不配對(duì)信息。若配對(duì)，則給出“左右圓括號(hào)配對(duì)”的信息；否則，給出“左圓括號(hào)多于右圓括號(hào)”或“右圓括號(hào)多于左圓括號(hào)”的信息。解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立一個(gè)文本框。窗體和文本框的主要屬性設(shè)置如表3-4-3所示。表3-4-3第3題的屬性設(shè)置控件名稱(chēng) 屬性名 屬性值Form1 Caption 判別算術(shù)表達(dá)式中的圓括號(hào)是否配對(duì)Text1 Text 空串(2)程序代碼DimnAsIntegerPrivateSubText1_KeyPress(KeyAsciiAsInteger)ClsIfChr(KeyAscii)="("Thenn=n+1ElseIfChr(KeyAscii)=")"The