VisualBasic程序設(shè)計教程第三版課后習(xí)題答案

.《VB》綜合復(fù)習(xí)資料第一章VisualBasic程序設(shè)計概述一、填空題1VisualBasic是一種面的可視化程序設(shè)計語言，采取的程機(jī)制。2在VB中工程文件的擴(kuò)展名，窗體文件的擴(kuò)展名，準(zhǔn)模塊文件的擴(kuò)展名。3、執(zhí)行“工程”菜單下命令，可選擇并添加ActiveX控件4VisualBasic6.0用于開環(huán)境下的應(yīng)用程序。二、選擇題1、下面不是VB工作模式的是（）A．設(shè)計模式 B．運(yùn)行模式 C．匯編模式 D．中斷模2、可視化編程的最大優(yōu)點(diǎn)是（）A．具有標(biāo)準(zhǔn)工具箱BCD．所見即所得3、下列不能打開屬性窗口的操作是（）A．執(zhí)行“視圖”菜單中的“屬性窗口”命B．按F4鍵 C．按Ctrl+TD．單擊工具欄上的“屬性窗口”按鈕4、下列可以打開立即窗口的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5VisualBasic的編程機(jī)制是（）A．可視化 B．面向?qū)ο?C．面向圖形 D．事件驅(qū)動三、簡答題1、代碼窗口主要包括哪幾部分？..2、在工程資源管理器窗口中，主要列出了哪三類文件？3、窗體布局窗口的主要用途是什么？4、VB的基本特點(diǎn)是什么？5、怎樣理解可視化設(shè)計？6、怎要理解事件驅(qū)動編程？第二章簡單的VB程序設(shè)計一、填空題1、設(shè)置是否可以用Tab鍵來選取命令按鈕，應(yīng)該屬性。2、一個控件在窗體的位置由 和 屬性決定，其大小由 和 屬性決定。3、利用對象的屬性setfocus可獲得焦點(diǎn)，對于一個對象，只有其 visible屬性和 屬性為true，才能接受焦點(diǎn)。4、設(shè)置控件背景顏色的屬性名稱。5、所有控件都具有的共同屬性屬性。一般情況下控件有兩個屬性項(xiàng)的缺省值是相同的這兩個屬性項(xiàng)。7VB中的每個對象（控件）都有一組特征，這組特征稱，我們通過修它可以控制對象的外觀和操作。8、通常情況下中一個工程主要包括如下四個文件：窗體文件、工程文件、類模文件文件后者的擴(kuò)展名通常由Basic語言編寫是一個可共用的子程序。9VB有三種工作模式，分別是設(shè)計模式和中斷模式。二、選擇題1、以下能夠觸發(fā)文本框Change事件的操作是（）A．文本框失去焦點(diǎn) B．文本框獲得焦點(diǎn)C．設(shè)置文本框的焦點(diǎn) D．改變文本框的內(nèi)容2、應(yīng)用程序設(shè)計完成后，應(yīng)將程序保存，保存的過程是（）A．只保存窗體文件即可B．只保存工程文件即可..C．先保存工程文件，之后保存窗體文件D．先保存窗體文件（或標(biāo)準(zhǔn)模塊文件，之后還要保存工程文件3VB應(yīng)用程序的運(yùn)行模式是（）A．解釋運(yùn)行模式 B．編譯運(yùn)行模式 C．兩者都有 D．匯編模4、任何控件都具有的屬性是（）A．TEXT B．CAPTION C．NAME D．FORECOLOR5、決定控件上文字的字體、字形、大小及效果的屬性是（）A．TEXT B．CAPTION C．NAME D．FONT6、在窗體上建立了多個控件，如TEXT、LABEL1、COMMAND1，若要使程序一運(yùn)行焦點(diǎn)就定位在COMMAND1控件上，應(yīng)將COMMAND1控件的（）設(shè)置為0A．INDEX B．TABINDEX C．TABSTOP D．ENABLED7、運(yùn)行時，當(dāng)用戶向文本框輸入新的內(nèi)容，或在程序代碼中對文本框的TEXT行賦值從而改變了文本框的TEXT屬性值時，將觸發(fā)文本框的（）事件A．CLICK B．DBLCLICK C．GOTFOCUS D．CHANGE8在運(yùn)行時按TAB鍵跳過了一個可以獲得焦點(diǎn)的控（如文本框則可能是因（A．該控件的TABSTOP屬性值為TRUE 該控件的TABINDEX屬性值為FALSEC．該控件的ENABLED屬性值為TRUE D．該控件的ENABLED屬性值為FALSE9、為了防止用戶隨意將光標(biāo)置于控件上，應(yīng)（）將控件的TABINDEX0將控件的TABSTOP屬性設(shè)置為TRUE將控件的TABSTOP屬性設(shè)置為FALSE將控件的ENABLED屬性設(shè)置為FALSE10、若要使標(biāo)簽控件顯示時，不覆蓋其背景內(nèi)容，應(yīng)設(shè)置標(biāo)簽控件的（）屬性A．BACKCOLORC．FORECOLOR

B．BORDERSTYLED．BACKSTYLE1、如果要在文本框中輸入字符時，只顯示某個字符，如星號中輸入的字符仍然顯示出來，而不顯示星號，原因可能是（）文本框的MULTILINE屬性值為TRUE文本框的LOCKED屬性值為TRUE文本框的MULTILINE屬性值為FALSE..文本框的LOCKED屬性為FALSE12、在運(yùn)行階段，要在文本框TEXT1獲得焦點(diǎn)時選中文本框中所有內(nèi)容，對應(yīng)的事件過程是（）PrivateSubText1_GotFocus()Text1.SelStart=0Text1.Sellength=Len(Text1.Text)EndSubPrivateSubText1_LostFocus()Text1.SelStart=0Text1.Sellength=Len(Text1.Text)EndSubPrivateSubText1_Change()Text1.SelStart=0Text1.Sellength=Len(Text1.Text)EndSubPrivateSubText1_SetFocus()Text1.SelStart=0Text1.Sellength=Len(Text1.Text)EndSub13VisualBasic繼承了Basic其中構(gòu)成其控件（對象）的三要素是（）C．屬性、過程、方法

控件、窗體、事件D14、決定標(biāo)簽（Label）顯示的屬性是（）A．Text B．Name C．Caption 15、命令按鈕的標(biāo)題文字由（）屬性來設(shè)置。A．Text B．Caption C．Name D．(名稱16、若要設(shè)置文本的顯示顏色，則可用（）屬性來實(shí)現(xiàn)。A．BackColor B．Forecolor C．FillColor D．Backstyle17、在運(yùn)行時，若要調(diào)用某命令鈕的Click事件過程，則可設(shè)置該命令鈕對象的（）性為Ture來實(shí)現(xiàn)。A．Enabled B．Value C．Default D．Cancel18、在運(yùn)行時，若要獲得用戶在文本框中所選擇的文本，可通過訪問（）屬性來實(shí)現(xiàn)。A．SelStart B．SelLenght C．Text D．SelText三、簡答題..1、事件驅(qū)動的含意是什么？舉例說明。2、交互式開發(fā)方法和傳統(tǒng)的應(yīng)用程序開發(fā)過程有什么不同？3、文本框在什么情況下使用？4、什么是工程？5、結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu)是什么？6、對象的三要素是什么？并分別進(jìn)行簡單的解釋。7、為什么要生成可執(zhí)行文件和制作安裝盤？8、使用變量前先聲明有什么好處？9、如何使用幫助功能？10、結(jié)構(gòu)化程序設(shè)計的特點(diǎn)是什么？11、為了把焦點(diǎn)移到某個指定的控件，在代碼中應(yīng)使用的方法是什么？12、啟動VisuaBasic么文件？先保存的是哪一個？13、為了防止文本框中的信息運(yùn)行后被用戶修改，應(yīng)設(shè)置什么屬性？第三章VB基本語言一、填空題1、一般可以使關(guān)鍵字聲明常量。2類型也稱變體類型，是一種通用的可變的數(shù)據(jù)類型，它可表示或存儲任何種數(shù)據(jù)類型。3、變量的聲明分為兩種方法和 。4、在VB中，用 語句設(shè)定數(shù)組的下界，用 和 語句分別返回數(shù)組的上、下界。5、在代碼模塊中加入OptionExplicit的目的。6、functionaa(a1asdate,optionala2asboolean)assingle，寫出optional命令的作用 。7、在VB中，我們用一個簡單語句就能實(shí)現(xiàn)退出程序。8、生成消息框的命令，生成輸入框的命令。9、通用對話框（commondialog）屬activex控件，它可以顯示多個標(biāo)準(zhǔn)對話框，包括打開/另存為字體打印等對話框若要顯示所有文件則應(yīng)設(shè)置其屬性filter= ..若要使它顯示為打印對話框，則應(yīng)使用什么方。10、從字符串中任意位置截取字符的函數(shù)。、語句Forj=3To20Step3使循環(huán)體執(zhí)行次。12、對于正在使用的動態(tài)數(shù)組Arraya()，要增加一個單元，但不能破壞數(shù)組內(nèi)的數(shù)據(jù)則應(yīng)使用語。13、在VisualBasic中聲明靜態(tài)變量的關(guān)鍵字14、表達(dá)式10Mod6\4的值。15、表達(dá)式chr(Asc("a")+的值。16VB中使用注釋有2種方法，。17VB中的數(shù)據(jù)以四種形式存儲：常量和記錄。18、為了在VB中存儲一個4行5列的二維矩陣，需要定義一個整型的數(shù)組，請把數(shù)定義語句補(bǔ)充完整Juzhen(_ _)asInteger。19、控件數(shù)組由一組相同類型的控件組成，這些控件共用一個相同的控件名，但是每個控件都有一個唯一的下標(biāo)來區(qū)分，我們使用屬來設(shè)置下標(biāo)。20、在過程調(diào)用中，實(shí)現(xiàn)調(diào)用過程的實(shí)參和被調(diào)用過程的形參之間的數(shù)據(jù)傳遞有兩種方式：按值傳遞。21、為了保證程序中必須對變量的強(qiáng)制性定義，需要在代碼模塊的聲明部分加入 語句。22、分析For……Next循環(huán)結(jié)構(gòu)的實(shí)例：Fori=5To30Step2中，循環(huán)體一共執(zhí)行了 次。23、表達(dá)式Mid("UniversityOfPetroleum",8,4)的值為 。24、常量分為普通常量常量。25、要將大寫字母轉(zhuǎn)換為小寫字母，可使函數(shù)。26、不管焦點(diǎn)在哪個控件上，鍵相當(dāng)于按了取消按鈕。27、執(zhí)行“工程”菜單下命令，可選擇并添加ActiveX控件。28、 是程序中VB停止執(zhí)行的地方。29、邏輯常量為True或 。30、使用的聲明后，當(dāng)程序中使用未經(jīng)聲明的變量時，程序運(yùn)時會報錯。31、要將小寫字母轉(zhuǎn)換為大寫字母，可使函數(shù)。..32、自字符串N1位開始向右取N2個字符，要使函數(shù)。33、日期常量表示時，用符將日期型數(shù)據(jù)括起來。34、局部變量只能中聲明和使用。35、模塊級變量的聲明關(guān)鍵字是Dim或 。36、函數(shù)的功能。37、表達(dá)式3/6*5的值是 。二、選擇題1、以下哪個是合法的變量（ ）A．right B．a(chǎn)bc@123 C．123_abc D2、下列說法錯誤的是（ ）A．在同一模塊不同過程中的變量可以同名B．不同模塊中定義的全局變量不可以同名C．引用另一模塊中的全局變量時，必須在變量名前加模塊名D．同一模塊中不同級的變量可以同名3、把MsgBox的返回值轉(zhuǎn)換為數(shù)值應(yīng)該使用的函數(shù)是（ A．Log B．Str C．Len D．Val4、語句DIM中定義的數(shù)組有（ ）個元素A．12 B．60 C．120 D．3455、下面程序運(yùn)行后輸出的結(jié)果是（ A$="CHINA"B$=STRING$(3,A$)PRINTB$ENDA．CHI B．CCC C．INA D．AAA6、以下語句的輸出結(jié)果是（ ）PrintFormat$(32548.5,"000,000.00")A．32548.5 B．325,485.00 C．032,548,50 D．32,548,507、以下敘述中錯誤的是（ ）AStatic型，則該過程中的局部變量都是Static型B．SubSub..C．Sub過程中可以嵌套調(diào)用Sub過程D．事件過程可以像通用過程一樣由用戶定義過程名8VisualBasic提供的OnErrorResumenext錯誤陷阱語句表示（ A．當(dāng)發(fā)生錯誤時，使程序轉(zhuǎn)跳到語句標(biāo)號為0的程序塊B．當(dāng)發(fā)生錯誤時，不使用錯誤處理程序塊C．當(dāng)發(fā)生錯誤時，忽略錯誤行，繼續(xù)執(zhí)行下一語句D．當(dāng)發(fā)生錯誤時，終止本過程執(zhí)行，繼續(xù)執(zhí)行下一過程9、在VisualBasic中，若要將控制權(quán)交給操作系統(tǒng)則通過（ ）的語句。A．End B．ExitDo C．ExitSub 10、在VisualBasic中語句的續(xù)行號采用（ ）A．空格與下劃線 B．下劃線與空格 C．空格與短線 D．短線與空格11、假定有以下程序段：Fori=1to3Forj=5to1Step–1Printi*jNextj,i則語句Printi*j的執(zhí)行次數(shù)是（ ）A．15 B．.16 C．17 D．1812、從鍵盤上輸入兩個字符串，分別保存在變str1str2中。確定第二個字符串在第個字符串中起始位置的函數(shù)是（ ）A．Left B．Mid C．String D．Instr13、如果將布爾常量值TRUE賦值給一個整型變量，則整型變量的值為（）A．0 B．-1 C．TRUE 14、下列敘述不正確的是（）AB．注釋語句可以放在代碼中的任何位置C．注釋語句不能放在續(xù)行符的后面D．代碼中加入注釋語句的目的是提高程序的可讀性15、語句PRINT“INT(-13.2)”；INT(-13.2)的輸出結(jié)果為（）..A．INT(-13.2)=C．INT(-13.2)=-13

B．INT(-13.2)=13.2D．INT(-13.2)=-1416、如果TAB函數(shù)的參數(shù)小于1，則打印位置在第（）列A．0 B．1 C．2 17、變量未賦值時，數(shù)值型變量的值為（）A0 B．空 C．1 D．無任何18、下列語句中正確的是（）A．txt1.text+txt2.text=txt3.text C．12label.caption=1234 D．a(chǎn)=inputbox(“hello”)19、假設(shè)變量BOOLVAR是一個布爾型變量，則下面正確的賦值語句是（）A．BOOLVAR=‘TRUE’

B．BOOLVAR=.TRUED．BOOLVAR=3<420、以下（）程序段可以實(shí)施XY變量值的變換（A．Y=X：X=Y B．Z=X：Y=Z：X=YC．Z=X：X=Y：Y=ZD．Z=X：W=Y：Y=Z：X=Y21、語句PRINT“SGN(-26)=”；SGN(-26)的輸出結(jié)果為（）A．SGN(-26)=26C．SGN(-26)=

B．SGN(-26)=-26D．SGN(-26)=-122、讀下面程序段，判斷變量Str2的取值是（）DimStr1,Str2asStringStr1="University"Str2=STRING$(3,Str1)A．UniC．ity

B．UUUD．yyy23、VB支持自定義數(shù)據(jù)類型，在某程序中我們定義了如下類型：TypeStudentnumber AsnameAsStringageAsIntegerEndType..針對上述定義，如下幾項(xiàng)用法正確的是（）A．S="張三" B．DimsA＝"張紅"C．DimsAsTypeStudent D．DimsAsT="張三" ="張三24、一個工程中包含兩個名稱分別為Form1、Form2的窗體，一個名稱為mdlFunc準(zhǔn)模塊。假定在Form1、Form2mdlFunc中分別建立了自定義過程，其定義格式為：Form1中定義的過程：PrivateSubfrmfunction1()EndSubForm2中定義的過程：PublicSubfrmfunction2()EndSubmdlFunc中定義的過程：PublicSubmdlFunction()EndSub在調(diào)用上述過程的程序中，如果不指明窗體或模塊的名稱，則以下敘述中正確的是（）A．上述三個過程都可以在工程中的任何窗體或模塊中直接被調(diào)用B．只有mdlFunctionC．frmfunction1form1frmfunction2直接調(diào)用D．上述三個過程都只能在各自被定義的模塊中直接調(diào)用25VB中Do……Loop代碼：Dimi,nasIntegern=20i=1DoPrinti;i=i+2..LoopUntili>20判斷循環(huán)結(jié)構(gòu)的類型和循環(huán)體的執(zhí)行次數(shù)，正確的選項(xiàng)是（）C次

次D26、在程序中，使用InputBox函數(shù)可以接受用戶的輸入，如果要把它的返回值轉(zhuǎn)換為數(shù)值型的數(shù)據(jù)，應(yīng)該使用的函數(shù)是（）A．Val B．LenC．Str 27、動態(tài)數(shù)組因?yàn)樵诔绦蜻\(yùn)行前無法確定數(shù)組的大小，所以經(jīng)常根據(jù)程序的運(yùn)行情況，對數(shù)組進(jìn)行重新定義，以下關(guān)于VB中動態(tài)數(shù)組的敘述中不正確的是（）可以用ReDim語句重新定義動態(tài)數(shù)組，并且可以進(jìn)行多次重定義首次用Dim進(jìn)行動態(tài)數(shù)組聲明的時候，必須指明它的類型和上下界PreserveReDim語句的可選參數(shù)，用于保留動態(tài)數(shù)組原來的內(nèi)容當(dāng)對動態(tài)數(shù)組使用Erase語句進(jìn)行釋放操作時，將釋放其內(nèi)存28VBVB控件的分類（）A．控件 B．可插入對象C．ADO控件 D．ActiveX控件294+5\6*7/8Mod9的值是（）A．4 B．5 C．6 D．730、可以同時刪除字符串前導(dǎo)和尾部空白的函數(shù)是（）A．Ltrim B．Rtrim C．Trim D．Mid三、簡答題1、全局變量聲明有哪些限制？2、字符串是否可以自動轉(zhuǎn)換為數(shù)字類型？3、用Format函數(shù)格式化后的字符格式在不同區(qū)域環(huán)境下的輸出是否相同？為什么？4、在InputBox函數(shù)中，哪一個參數(shù)是必需的？5、在MsgBox函數(shù)中哪一個參數(shù)是必須的？6、在什么情況下使用過程？7、為什么要進(jìn)行程序調(diào)試？8、調(diào)試程序有哪些手段？..9、用語句DimA(-3To5)AsInteger定義的數(shù)組的元素個數(shù)是多少？10、設(shè)有如下的VisualBasic表達(dá)式：5*x^2-3*x-2*Sin(a)/3，與它對應(yīng)的數(shù)學(xué)式是什么？11、數(shù)學(xué)式(2xa)(3yb)對應(yīng)的VB表達(dá)式是什么？12、表達(dá)式2>3And4<=5Or4>4的值是什么？13、怎樣在程序中設(shè)置斷點(diǎn)？14、在什么情況下可以設(shè)置斷點(diǎn)？15、程序出錯的類型有哪幾種？16、在同一模塊、不同過程中聲明的相同變量名，兩者是否表示同一個變量？為什么？17、什么情況下會出現(xiàn)“數(shù)組下標(biāo)越界錯誤”？18、逐語句和逐過程有什么區(qū)別？19、表達(dá)式2.75*2\3.45的值是什么？20、在程序設(shè)計中為什么盡量不用GoTo語句？四、讀程序題1、分析以下程序，寫出運(yùn)行結(jié)果。PrivateSubForm_Click()score=Int(Rnd*10)+80SelectCasescoreCaseIs<60A$="F"Case60ToA$="D"Case70ToA$="C"Case80ToA$="B"CaseElseA$="A"EndSelectPrintA$..EndSub2、讀下面的程序，分析其功能，寫出運(yùn)行結(jié)果。在窗體上有一個命令按鈕，名稱為Command1。然后編寫如下程序：PrivateSubCommand1_Click()ForI=1To4ForJ=0ToIPrintChr$(65+I);NextJPrintNextIEndSub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是什么？3、閱讀下面的程序，分析并寫出其功能。Subinsert(a()AsSingle,ByValxAsSingle)Dimmasinteger,nasintegern=1DoWhilen<20Andx>a(n)n=n+1LoopForm=20-1TonStepa(m+1)=a(m)Nexta(n)=xEndSub4、分析以下程序，寫出運(yùn)行結(jié)果。SubsubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSub..PrivateSubCommandl_Click()Dima(1To4)Asa(1)=5a(2)=6a(3)=7a(4)=8subPa()Fori=1To4Printa(i)NextiEndSub運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果是什么？5、分析以下程序，寫出運(yùn)行結(jié)果。Subsele()Dimnasi=21:n=3DoWhilei=i－nLoopPrintEndSub6、分析以下程序，寫出運(yùn)行結(jié)果。SubselectPrint()DimaasIntegerDimbasIntegerDimcasIntegera=2:b=5:c=2If(a>=b)and(a>=c)or(b>c) ThenPrinta..a=a+2ElsePrintEndIfPrintEndSub7、分析以下程序，寫出運(yùn)行結(jié)果。Subswap()DimxasIntegerDimyasIntegerDimzasIntegerx=1:y=2:z=0Printx;y;zx=x+yx=x*zPrintx,y,zEndSub8SubselectPrint()DimaasIntegerDimbasDimcasIntegera=3:b=3:c=2If(a>=b)and(a>c)ThenPrintaPrinta,b,cEndSub五、編程題1、輸入一年號，判斷它是否是閏年。界面如下圖所示，包括兩個標(biāo)簽、一個文本框和一個命令按鈕。提示：如果此年號能被400整除或者不能被400除盡，也不能被100除盡，但能被4整除，則它是閏年；否則，不是閏年。..、輸入兩個正整數(shù)n，求m和n主要的控件包括：兩個標(biāo)簽（Lable1、Lable2、兩個文本框（Text、Text）和一個按鈕Command。3（百分制10909080輸出80輸出中等；若是70輸出及格；若是60出不及格；若是其他數(shù)則輸出error信息。4、在窗體中顯示從9號字型到16號字型。5、在有序序列中插入一個數(shù)，使插入后的數(shù)列仍然有序（設(shè)按由小到大排列。6、編程實(shí)現(xiàn)二維數(shù)組轉(zhuǎn)置。7、隨機(jī)輸入10個100以內(nèi)的整型數(shù)，計算其和及平均值。371＝33+73+13371是水仙花數(shù)。9、從鍵盤輸入一個大于2的正整數(shù)，判斷該數(shù)是否是素數(shù)。10、求二維數(shù)組中的最小值及其所在行號、列號。、求一元二次方程ax2+bx+c=0的根（包括實(shí)根和復(fù)根。12、輸入一個正整數(shù)n，計算出n!并輸出。13、Faibonacci數(shù)列為0，1，1，2，3，5，8，13…，計算并輸出第20項(xiàng)以及前20項(xiàng)的和。

第四章常用控件與窗體一、填空題1、向列表框控件添加新項(xiàng)目的方法。2、在VB中，最主要的兩種對象和 。3、當(dāng)窗體啟動時可通屬性控制窗體位于所有者的中心位置。4、若要將窗體Form1隱藏起來，則可通過執(zhí)行代來實(shí)現(xiàn)。5、要使裝入到列表框中的數(shù)據(jù)項(xiàng)能自動按字母順序排序，應(yīng)設(shè)置該控件屬..性為 。窗體上放置了若干個文本框和命令按鈕當(dāng)窗體裝入后要將焦點(diǎn)自動定位到文本Text1上，則在設(shè)計時需要控件屬性設(shè)置。7、在標(biāo)簽控件中通過編程使文字換行用的代碼。8、設(shè)置計時器控件只能觸事件。9、設(shè)置計時器對象觸發(fā)事件的時間間隔屬性。10、滾動條控件主要支持兩個事件，它們事件。要使鼠標(biāo)停留在按鈕上顯示特殊的鼠標(biāo)形狀應(yīng)設(shè)置的屬性值。12、設(shè)某列表框共有10項(xiàng)，按題目要求補(bǔ)齊程序，完成相應(yīng)的功能。按下命令按鈕Command18PrivateSubCommand1_Click()List. (7)=TruePrintList1. EndSub單擊列表框某一項(xiàng)時立即將該項(xiàng)打印在窗體上：PrivateSubList1_Click()Print EndSub按下命令按鈕Command1、3、、、9PrivateSubCommand1_Click()ForI=1To5List1. NextIEndSub在列表框的每一項(xiàng)之后插入一個新的項(xiàng)：PrivateSubCommand1_Click()ForI=1to10X=InputBox(“請輸入插入的第”&I&“項(xiàng)內(nèi)容”)List1.AddItem NextI..EndSub13、設(shè)在界面上放置了一個滾動條Hscroll1和一個標(biāo)簽控件Label1，要使每次單擊滾動的值，補(bǔ)齊以下代碼。PrivateSubHscroll1. ()Label1.Caption=Hscroll1. EndSub要使拖動滾動條滑塊時標(biāo)簽內(nèi)容能夠反映滾動條的值，補(bǔ)齊以下代碼。PrivateSubHscroll1. ()Label1.Caption=Hscroll1. EndSub14、列表框（ListBox）用于列出可供選擇的項(xiàng)目的列表，用戶可以選擇一個或多個項(xiàng)目。它具有幾個非常重要的數(shù)組屬性，其屬性存放了列表框中所有項(xiàng)目的值。15、菜單項(xiàng)一般由標(biāo)題、訪問鍵、快捷鍵和復(fù)選標(biāo)志等構(gòu)成，通過對相應(yīng)的屬性進(jìn)行設(shè)置可以改變這些項(xiàng)目的狀態(tài)，其中與復(fù)選標(biāo)志相對應(yīng)的屬性。16、keydown與keypress事件各有其參數(shù)，若需獲得用戶按下 "a"還是"A"需用 事件。17、控組合了文本框和列表框的功能，是VB中一種功能非常強(qiáng)大的選擇控件。18、若需要將窗體Form2 以模態(tài)窗口的形式顯示出來，可通過執(zhí)行代碼 來實(shí)現(xiàn)。19、菜單中的分隔條是一種菜單控件，不響事件，不能被選中。二、選擇題1、當(dāng)程序運(yùn)行時，在窗體上單擊鼠標(biāo)，以下哪個事件是窗體不會接收( A．MouseDown B．MouseUp C．Load D．Click2、窗體Form1的Name屬性是Frm1，它的單擊事件過程名是（ ）A．Form1_Click B．Form_Click C．Frm1_Click D．Me_Click3、用于設(shè)置通用對話框控件顯示文件類型的屬性是（ ）A．Filter B．Path C．Partern D．FoleName4、用于從內(nèi)存刪除窗體的命令是（ ）..A．Move B．Hide C．Unload 5、用于返回窗體可用區(qū)域?qū)挾鹊膶傩允牵? ）A．ScaleWidth B．ScaleLeft C．ScaleHeight D．ScaleTop6、下列關(guān)于屬性設(shè)置的敘述錯誤的是（）A．一個控件具有什么屬性是VB預(yù)先設(shè)計好的，用戶不能改變B．一個控件具有什么屬性是VB預(yù)先設(shè)計好的，用戶可以改變C．一個控件的屬性即可以在屬性窗口中設(shè)置，也可以用程序代碼設(shè)置D．一個控件的屬性在屬性窗口中設(shè)置，還可以利用程序代碼為其設(shè)置新值7、下列說法正確的是（）A．對象屬性只能在“屬性窗口”中設(shè)置B．一個新的工程可以在“工程窗口”中建立CD．只能在“代碼窗口”中編寫程序代碼8、下列關(guān)于窗體上控件的基本操作錯誤的是（）按下一次DEL鍵只能刪除一個控件按下一次DEL鍵可以同時刪除多個控件按住SHIFT鍵，然后單擊每個要選擇的控件，可以同時選中多個控件按住ALT9、下列關(guān)于設(shè)置控件屬性的敘述正確的是（）A．用戶必須設(shè)置屬性值BC．屬性值不必一一重新設(shè)置D．不同控件的屬性項(xiàng)都完全一樣10、不可以通過下列（）操作將焦點(diǎn)賦給對象A．運(yùn)行時使用TAB鍵 B．在代碼中用CALL語句調(diào)用C．在代碼中用SETFOCUS方法 D．用訪問鍵或用鼠標(biāo)單擊選擇對象11、要在FORM_LOAD事件過程中使用PRINT方法在窗體上輸出一定的內(nèi)容，應(yīng)（）設(shè)置窗體的VISIBLEC．調(diào)用窗體的SHOW方法

設(shè)置窗體的CAPTIOND．設(shè)置窗體ENABLED12、下面（）對象無CAPTION屬性..A．FORM B．COMMANDBUTTON C．TEXTBOX D．LABEL13、通用對話框控件和文件列表框控件中，都能根據(jù)文件的類型對要顯示的文件進(jìn)行篩選過濾，后者使用（）屬性進(jìn)行該項(xiàng)設(shè)置。A．Pattern B．Path C．Filter D．FileName14、對于復(fù)選框控件chkBoy，如果在程序中設(shè)置它為選中狀態(tài)，下面語句正確的是（）A．chkBoy.Checked=trueC．chkBoy.Selected=true

B．chkBoy.Value=trueD．chkBoy.Value=115、計時器（Timer）控件用于每隔一段時間自動觸發(fā)一次Timer事件，可以有規(guī)律地重復(fù)執(zhí)行一段程序，它用于設(shè)置兩次事件時間間隔的屬性是（）A．Interval B．SmallChangeC．LargeChange D．Max16、以下關(guān)于VB中窗體（Form）的說法中，不正確的描述為（）執(zhí)行UnloadForm語句后，窗體Form消失，但仍在內(nèi)存中當(dāng)窗體的Enabled屬性為False時，通過鼠標(biāo)和鍵盤對窗體的操作都被禁止窗體的Height、width屬性用于設(shè)置窗體的高和寬窗體的load事件在加載窗體時發(fā)生17、關(guān)于滾動條控件，下面說法錯誤的是（）A．點(diǎn)擊滾動條的箭頭，可以改變它的value值，從而引發(fā)Change事件B．拖動滾動框，可以觸發(fā)Scroll事件C．D．拖動滾動框，可以觸發(fā)Change事件，而且是連續(xù)觸發(fā)的18、在窗體上放置一個命令按鈕，名稱為Command1。單擊命令按鈕時，執(zhí)行如下事件過程：PriVateSubCommand1_C1ick()a$="softwareandhardware"b$＝Right(a$,8)c$=Mid(a$,1,8)Msgboxa$,b$,c$,1EndSub則在彈出的信息框的標(biāo)題欄中顯示的信息是（）..softWareandC．hardwafe

softwareD19、在多重窗體程序設(shè)計中，關(guān)鍵的問題是要解決不同窗體之間的銜接和窗體的顯示、關(guān)閉等問題，以下關(guān)于窗體的相關(guān)語句和方法的敘述中，錯誤的是（）Load語句用于加載指定窗體，即在內(nèi)存中創(chuàng)建該窗體Show方法兼具LoadC．Hide方法用于將窗體隱藏起來D．Unload語句用來釋放窗體，但窗體并沒從內(nèi)存中消20、滾動條控件的屬性中，表示取值范圍最大值的屬性是（）MaxC．Min

LargeChangeD．Value21、程序中如果需要檢測和控制鼠標(biāo)的位置和狀態(tài)的改變，就需要使用鼠標(biāo)事件，其中下面哪個選項(xiàng)用于表示拖動事件（）DragDropC．MouseUp

MouseDownD．MouseMove22Action（。A．0 B．1 C．2 D．3三、簡答題12、滾動條的change事件和scroll事件有什么不同？3、快捷鍵和訪問鍵有什么區(qū)別？4（即滑塊、假定有一個菜單項(xiàng)，名為MenuIte，為了在運(yùn)行時使該菜單項(xiàng)失效（變灰什么語句？6、為了暫時關(guān)閉計時器（即時鐘控件，應(yīng)把該計時器的什么屬性設(shè)置為Fals？7、單選按鈕和復(fù)選框（即檢查框）各用于什么情況？8、如何為一個菜單項(xiàng)設(shè)置熱鍵和快捷鍵？9、菜單的形式有哪兩種？10、在KeyPress事件中，如何取消用戶剛輸入的字符？11、框架的作用是什么？..12、如果要計時器每秒鐘發(fā)生4個Timer事件，則Interval屬性值應(yīng)設(shè)多少？13若行則請說明如何訪問。14、如何在框架中建立控件？15、組合框有哪幾種類型？四、讀程序題1、對窗體編寫如下代碼：OptionBase1PrivateSubForm_KeyPress(KeyAsciiAsInteger)a=Array(237,126,87,48,498)m1=a(1)m2=1IfKeyAscii=13ThenFori=2To5Ifa(i)>mlThenm1=a(j)m2=iEndIfNextiEndIfPrintm1Printm2EndSub程序運(yùn)行后，按回車鍵，輸出結(jié)果是什么？2、閱讀下面的程序，寫出執(zhí)行結(jié)果。PrivateSubForm_load()Form1.showd=0Fora=1To2Forb=1Toa..Forc=bTo5d=d+1NextcNextbNextaPrintdEndSub五、編程題1、在窗體上有一個文本框控件，名稱為TxtTime；一個計時器控件，名稱為Timer1，要求每一秒在文本框中顯示一次當(dāng)前的時間，請編程實(shí)現(xiàn)。Text1Command1Text22、在Text1中輸入任一英文字母，在Text2中顯示該英文字母及其ASCII碼值。要求在文本框Text2中顯示出所有輸入的英文字母及其Text1Command1Text23、編寫一個程序，能夠?qū)崿F(xiàn)任意個整數(shù)的排序。4錯誤提示。5、編程實(shí)現(xiàn)任意兩個數(shù)的“加、減、乘、除6、編寫一個程序，能夠求任意個正整數(shù)的最大值和最小值。7、編程求任意兩個正整數(shù)的最大公約數(shù)。六、程序分析填空題1、建立一個如圖所示的簡單編輯器。用戶在文本框（text1）中輸入正文后，選中某些文..(btnCut)Click事件補(bǔ)充完整。程序運(yùn)行界面：PrivateSubbtnCut_Click()‘請補(bǔ)充EndSub2、計算1+2+3+……+100的和并輸出。請把下面用DoWhile……Loop循環(huán)結(jié)構(gòu)實(shí)現(xiàn)這一功能的代碼補(bǔ)充完整。PrivateSubForm_Load()Dimsum,countasInteger‘請補(bǔ)充Dowhilecount<=100‘請補(bǔ)充LoopText1.Text=sumEndSub3、列表框控件（ListBox）支持多項(xiàng)選擇，這項(xiàng)功能在對用戶的興趣愛好進(jìn)行調(diào)查的時候顯得非常好用，在下圖所示的界面中列表框List1用于列出愛好選項(xiàng)，供用戶進(jìn)行多項(xiàng)選擇。..請把下列代碼補(bǔ)充完整，能夠取得用戶的所選愛好選項(xiàng)：PrivateSubCommand1_Click()DimiAsIntegerDimsAsStrings=txtname.Text&"愛好"Fori=0ToList1.ListCount-1‘請補(bǔ)充NextLabel3.Caption=EndSub4、要求利用計時器Timer1，在窗體Form1上每隔1秒鐘打印一個1到10的隨機(jī)整數(shù)，請把下列代碼補(bǔ)充完整：PrivateSubForm_Load()Show‘請補(bǔ)充EndSubPrivateSubTimer1_Timer()‘請補(bǔ)充EndSub

第五章文件..一、填空題1、文件按存取方式及其組成結(jié)構(gòu)可分為 文件、 文件和 文件。2、為了使文件列表框List1和目錄列表框Dir1之間能產(chǎn)生同步效果，必須在 事件過程中加入語。3、文件系統(tǒng)控件的作用是向用戶顯示系統(tǒng)中的文件，方便用戶選擇，它是一組控件的組合，包括：驅(qū)動器列表框 二、選擇題

和文件列表框。1、利用下面哪個函數(shù)可判定訪問文件時是否已到文件尾（ ）A．LOF B．LOC C．EOF D．BOF2、用于設(shè)置文件列表框控件顯示文件類型的屬性是（ ）A．Filter B．Path C．Partern D．FileName三、簡答題1、什么是文件？2、文件存取分成幾類，幾種模式？3、順序文件、隨機(jī)文件和二進(jìn)制文件各有什么特點(diǎn)和用途？4、文件有哪幾種類型？它們的區(qū)別是什么？5、請說明PRINT和WRITE語句的區(qū)別6、EOF函數(shù)的功能是什么？四、編程題1、實(shí)現(xiàn)二進(jìn)制方式文件的復(fù)制。2、如下圖所示，實(shí)現(xiàn)一個簡單的文件管理器。..第六章圖形操作一、填空題使方法可在窗體中進(jìn)行文本的輸出用 方法可畫圓用 方法可畫直線。2、函數(shù)可加載圖形。3、為了使一個Picture控件能自動根據(jù)裝入的圖片調(diào)整大小 ，應(yīng)設(shè)置該控件的 屬性為。二、選擇題1、下列關(guān)于控件畫法的敘述錯誤的是（）單擊一次工具箱中的控件圖標(biāo)，只能在窗體上畫出一個相應(yīng)的控件按住CTRL控件雙擊工具箱中的控件圖標(biāo)，所畫控件的大小和位置是固定的D．不使用工具箱中的控件工具，不可以在窗體上畫出圖形對象，但可以寫入文字字符2（如窗體或圖片框）之后，如果要保持該所畫圖形的完整性，可以選擇觸發(fā)（）事件來完成圖形的重畫工作A．Paint B．Load C．Click D．Active三、簡答題1、在什么情況下使用Image控件而不使用PictureBox控件？..2、在程序運(yùn)行時怎樣在圖形框中裝入和刪除圖形？3、顏色函數(shù)主要有哪些？四、編程題1、如下圖顯示當(dāng)前目錄下的圖片文件列表，并能夠預(yù)覽選定的圖片。第七章面向?qū)ο蟮木幊桃弧⑻羁疹}1、類是具有相同性質(zhì)的對象。2、語句DIMTEMPASObject的作用。二、簡答題1、什么是模塊？

第八章界面設(shè)計一、簡答題1、什么是多文檔界面（MDI）？2、說明菜單欄、菜單、選項(xiàng)和工具欄之間的關(guān)系。3、結(jié)束MDI應(yīng)用程序時，需要注意什么？第九章VisualBasic與數(shù)據(jù)庫一、簡答題1、表間的關(guān)系類型有哪幾種？2、VisualBasic中的記錄集有哪幾種類型？二、編程題..1、請編程實(shí)現(xiàn)每兩秒在標(biāo)簽中顯示一次當(dāng)前的時間。2、找出被3、5、7整除，余數(shù)為1的最小的2個正整數(shù)。3、有一個m×n的實(shí)型矩陣A(m,n)，找出其中最大的那個元素所在的行和列。4、找出能同時被5和7整除的最小的10個正整數(shù)。5、編寫一個程序，能夠輸出100~1000之間所有的素數(shù)。6、從鍵盤上任意輸入100個整數(shù)，統(tǒng)計負(fù)數(shù)的個數(shù)，并計算正數(shù)的和。7、有一種數(shù)，正序讀與反序讀都相同，這種數(shù)叫回文數(shù)，如88、858、2332等。求出4位數(shù)以內(nèi)（0～9999）的所有回文數(shù)。8、輸出“九九乘法表參考答案第一章VisualBasic程序設(shè)計概述一、填空題1、對象、事件驅(qū)動 2Vbp、、bas 、部件 4WINDOWS二、選擇題1C 、C 3C 、D 5D第二章簡單的VB程序設(shè)計一、填空題1Tabstop2、、top、height3enabled4、backcolor..5、name6、name和caption7、屬性8、標(biāo)準(zhǔn)模塊文件9、運(yùn)行模式二、選擇題1D2D3C4C5D6B7D8D9DB18、D

第三章VB基本語言一、填空題1Const23、隱式聲明、顯示聲明..4option、ubound、5、強(qiáng)制變量聲明6、表示a27End8、Msgbox、Inputbox9、*.*、showprint10、Mid()11、612、redimpreservearraya(ubound(arraya())+1)13、static14、015、f16、、’1718、1to4,1to519、Index20、按地址21、OptionExplicit22、1323、ityo24、符號25、LCase26、ESC28、斷點(diǎn)、30、OptionExplicit31、UCase32、Mid33、#..34、過程35、private36、求x的絕對值37、2.5二、選擇題1D2B3D4C5B6C7D8C9DA..四、讀程序題1、結(jié)果如下：B2、結(jié)果如下：BBCCCDDDDEEEEE3、功能如下：在20個由小到大排列的數(shù)據(jù)中插入一個數(shù)，插入數(shù)據(jù)后的數(shù)據(jù)仍按由小到大的順序排列。4、輸出結(jié)果為：24685、輸出結(jié)果為：36、輸出結(jié)果為：24527、輸出結(jié)果為：1200 2 08、輸出結(jié)果為：..33 3 2五、編程題1、參考代碼如下：PrivateSubCommand1_Click()Dimyear,xAsIntegeryear=Val(Text1.Text)IfyearMod400=0ThenLabel2.Caption="是閏年"Else'下面是嵌套塊If語句IfyearMod4=0AndyearMod100<>0ThenLabel2.Caption="是閏年"ElseLabel2.Caption="不是閏年"EndIfEndIfEndSub2、程序參考代碼如下：PrivateSubCommand1_Click()Dimm,n,rAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)Ifm<0Orn<0Then‘若判斷為非法數(shù)據(jù)，Then子句輸出相應(yīng)信息Label2.Caption="輸入數(shù)據(jù)有錯！"Else ‘子句用輾轉(zhuǎn)相除法求余數(shù)r=mModnDoWhiler<>0m=n..n=rr=mModnLoopn中存放的就是最大公約數(shù)，輸出n值Label2.Caption="最大公約數(shù)為："&nEndIfEndSub3、參考代碼如下：PrivateSubCommand1_Click()DimxAsSinglex=Val(Text1.Text)Ifx>100Orx<0ThenText2.Text="error"ElseIfx<60ThenText2.Text="不及格"ElseIfx<70ThenText2.Text="ElseIfx<80ThenText2.Text="ElseIfx<90ThenText2.Text="良好"ElseText2.Text="優(yōu)秀"EndIfEndSub4、參考代碼如下：PrivateSubForm_Load()DimiAsIntegerShow 使輸出可見Form1.Font="新宋體"..Fori=9To16Step1Form1.FontSize=iPrinti;"號字型"NextiEndSub5PrivateSubCommand1_Click()Dima(1To11)AsSingle'定義靜態(tài)數(shù)組a含11個元素Dimi,jAsIntegerDimnumAsSingle'給數(shù)組元素賦初值，即原始隊(duì)列a(1)=3:a(2)=5:a(3)=7:a(4)=8:a(5)=9a(6)=13:a(7)=16:a(8)=19:a(9)=33a(10)=38'輸出原始隊(duì)列Fori=1To10Label2.Caption=Label2.Caption&a(i)&","Nextinum=Val(Text1.Text)'把輸入的數(shù)插入隊(duì)列中Fori=10To1Step-1Ifnum<a(i)Thena(i+1)=a(i) '元素后移一個位置elsea(i+1)=numExitFor '退出循環(huán)EndIfNexti'輸出新隊(duì)列Fori=1To11..Label3.Caption=Label3.Caption&a(i)&","NextiEndSub6、參考代碼如下：OptionBase1PrivateSubForm_Load()ConstN=4 '常量N決定二維數(shù)組大小Dima(N,N)AsIntegerDimi,j,TempAsIntegerShow'數(shù)組初始化Fori=1ToN 'For循環(huán)i1變化到Forj=1ToNa(i,j)=i*10+jNextjNexti'輸出原始數(shù)組Print"轉(zhuǎn)置前的數(shù)組："Fori=1ToN 'For循環(huán)i1變化到Forj=1ToNPrinta(i,j);NextjPrintNexti'數(shù)組轉(zhuǎn)置Fori=1ToN 'For循環(huán)i從1變化到Forj=1Toi '交換Temp=a(i,j)a(i,j)=a(j,i)a(j,i)=Temp..NextjNexti'輸出轉(zhuǎn)置后的數(shù)組Print"轉(zhuǎn)置后的數(shù)組："Fori=1ToN 'For循環(huán)i1變化到Forj=1ToNPrinta(i,j);NextjPrintNextiEndSub7PrivateSubForm_Click()Dima(10)AsInteger,iAsIntegerDimsumAsInteger,aveAsIntegersum=0Fori=1To10a(i)=Int(Rnd*101)sum=sum+a(i)Nextiave=sum/10Printsum,aveEndSub8、參考代碼如下：PrivateSubForm_Load()Dimi,j,k,FlowerAsIntegerShowFori=1To9Forj=0To9Fork=0To9..Flower=i*100+j*10+kIf Flower=i^3+j^3+k^3ThenPrintFlower;"是水仙花數(shù)"NextkNextjNextiEndSub9、程序參考代碼如下：PrivateSubCommand1_Click()Dimm,i,yAsIntegerm=Val(Text1.Text)Ifm<=2ThenLabel2.Caption="輸入數(shù)據(jù)有錯"Elsek=Sqr(m)+1Fori=2Toky=mModiIfy=0ThenExitForNextiIfy=0ThenLabel2.Caption=m&"不是素數(shù)"ElseLabel2.Caption=m&"是素數(shù)"EndIfEndIfEndSub10、程序參考代碼如下：OptionBase1PrivateSubForm_Load()ConstN=5 '常數(shù)N確定數(shù)組的大小..Dima(N,N)AsIntegerDimi,j,row,line,minAsIntegerShowFori=1ToN 'For循環(huán)i1變化到NForj=1ToN 'For循環(huán)j1變化到Na(i,j)=Int(100*Rnd)+1 'N*N1~100間的隨機(jī)數(shù)NextjNexti'輸出二維數(shù)組Print"數(shù)組內(nèi)容是："Fori=1ToNForj=1ToNPrinta(i,j);NextjPrint '輸完一行元素后輸出一個換行Nexti'設(shè)定初始值min=a(1,1):row=1:line='尋找最小數(shù)Fori=1ToNForj=1ToNIfa(i,j)<minThenmin=a(i,j)row=iline=jEndIfNextjNexti'輸出結(jié)果Print"最小值是：";min..Print"在第";row;"行第";line;"列"EndSub11、參考代碼如下：PrivateSubCommand1_Click()Dima,b,c,delt,realpart,imagpartAsSinglea=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text):delt=b*b-4*a*cIfa=0ThenLabel2.Caption=是一元一次方If b<>0thenText4.Text="x1="&-c/bElseIfc=0thenText4.Text="有無窮根"ElseText4.Text="無根"EndifEndifElse'下面嵌套塊If語句Ifdelt=0ThenLabel2.Caption="有兩個相等的實(shí)根:"Text4.Text="x1="&-b/2/aText5.Text="x2="&-b/2/bElseIfdelt>0ThenLabel2.Caption="有兩個不等的實(shí)根:"Text4.Text="x1="&(-b+Sqr(delt))/(2*a)Text5.Text="x2="&(-b-Sqr(delt))/(2*a)ElseLabel2.Caption="有兩個共軛復(fù)根:"..realpart=-b/(2*a)imagpart=Sqr(-delt)/(2*Text4.Text="x1="&realpart&"+"&imagpart&"i"Text5.Text="x2="&realpart&"-"&imagpart&"i"EndIf 'EndIf部分與內(nèi)層的塊If語句對應(yīng)EndIf 'EndIf部分與外層的塊IfEndSub12、參考代碼如下：PrivateSubCommand1_Click()Dimn,i,tAsLongn=i=1:t=1Ifn<0ThenLabel2.Caption="error"ElseIfn=0ThenLabel2.Caption="0!=1"ElseDoWhilei<=nt=t*ii=i+1LoopLabel2.Caption=n&"!="&tEndIfEndSub13、參考代碼如下：PrivateSubForm_Load()DimPrev, Last, NewOne, sumAsDimiAsIntegerPrev=0:Last=1:sum=Prev+LastFori=3To20..NewOne=Prev+Lastsum=sum+NewOnePrev=LastLast=NewOneNextiLabel1.Caption="20項(xiàng)為"&NewOneLabel2.Caption="20"&sumEndSub

第四章常用控件與窗體一、填空題1、AddItem2、窗體、控件3、StartUpPostion4、form1.hide5、sorted、ture6、text1、tabindex、07、chr(10)8、timer9、interval10、scroll和change事件11、mousepointer12、selected、text、list1.text、removeitem2*i-1、x,2*i-113、change、value、scrol、value14、List15、Checked16、keypress17、組合框18、Form2.Show119、Click（或鼠標(biāo)單擊）..二、選擇題1C2B3A4C5A6A7C8A9CC三、簡答題1、單選按鈕用來顯示一個可以打開或關(guān)閉選項(xiàng)，而且在同一組中的單選按鈕控件，用戶只能選擇其中的一項(xiàng)。2、主要是用鼠標(biāo)拖動滑塊時對Value屬性的影響不同。3、快捷鍵是執(zhí)行某一個菜單項(xiàng)的鍵盤命令，常用形式Ctrl+字母，訪問鍵是打開一個菜單的鍵盤命令，常用形式Alt+字母。4、Scroll事件..5、MenuItem.Enabled=False6、Interval屬性7（即檢查框用于可以選擇多個的情況下8選擇9、菜單的形式有兩種：下拉式菜單和彈出式菜單10、在KeyPress事件中，若想取消用戶剛輸入的字符，只要將該事件的參數(shù)設(shè)置為0即可11、框架主要是用作容器，可以實(shí)現(xiàn)多組單選按鈕，并且可以美化界面13體名稱即可14、先建立框架，然后再在其中建立控件15、下拉式組合框、簡單組合框、下拉式列表框四、讀程序題1、輸出結(jié)果為：49852、結(jié)果如下：14五、編程題1、參考代碼如下：PrivateSubForm_Load()Timer1.Interval=1000EndSubPrivateSubTimer1_Timer()Txttime.text=TimeEndSub2、參考代碼如下：..PrivateSubCommand1_Click()DimCharAsString*1Char=Trim(Text1.Text)Text2.Text=Text2.Text&Spc(5)&Char&_Spc(10)&Str(Asc(Char))&chr(13)&chr(10)Text1.SetFocusText1.SelStart=Text1.SelLength=Len(Text1.Text)EndSub3、具體代碼略。4、具體代碼略。5、具體代碼略。6、具體代碼略。7、具體代碼略。六、程序分析填空題1、結(jié)果如下：PrivateSubbtnCut_Click()‘請補(bǔ)充Str1=text1.selTexttext1.selText=“”EndSub2、結(jié)果如下：PrivateSubForm_Load()Dimsum,countasInteger‘請補(bǔ)充Sum=0Count=0Dowhilecount<=100‘請補(bǔ)充Count=count+1..Sum=sum+countLoopText1.Text=sumEndSub3、結(jié)果如下：PrivateSubCommand1_Click()DimiAsIntegerDimsAsStrings=txtname.Text&"愛好"Fori=0ToList1.ListCount-1‘請補(bǔ)充IfList1.Selected(i)ThenS=s&List1.List(i)EndIfNextLabel3.Caption=EndSub4、結(jié)果如下：PrivateSubForm_Load()Show‘請補(bǔ)充Timer1.Interval=1000EndSubPrivateSubTimer1_Timer()‘請補(bǔ)充Form1.PrintInt(Rnd*10)+1EndSub

第五章文件一、填空題.