VB程序設(shè)計(jì)綜合復(fù)習(xí)資料習(xí)題

1/31VisualBasic程序設(shè)計(jì)概述一、填空題1、VisualBasic是一種面向__________的可視化程序設(shè)計(jì)語(yǔ)言，采取了__________的編模塊文件的擴(kuò)展名是____________。veX4、VisualBasic6.0用于開發(fā)__________環(huán)境下的應(yīng)用程序。二、選擇題1、下面不是VB工作模式的是()A．設(shè)計(jì)模式B．運(yùn)行模式C．匯編模式D．中斷模式2、可視化編程的最大優(yōu)點(diǎn)是()A．具有標(biāo)準(zhǔn)工具箱B．一個(gè)工程文件由若干個(gè)窗體文件組成C．不需要編寫大量代碼來描述圖形對(duì)象D．所見即所得3、下列不能打開屬性窗口的操作是()A．執(zhí)行"視圖"菜單中的"屬性窗口"命令D．單擊工具欄上的"屬性窗口"按鈕4、下列可以打開立即窗口的操作是()A．Ctrl+DB．Ctrl+EC．Ctrl+FD．Ctrl+G5、VisualBasic的編程機(jī)制是()A．可視化B．面向?qū)ο驝．面向圖形D．事件驅(qū)動(dòng)三、簡(jiǎn)答題5、怎樣理解可視化設(shè)計(jì)？6、怎要理解事件驅(qū)動(dòng)編程？一、填空題1、設(shè)置是否可以用Tab鍵來選取命令按鈕，應(yīng)該用______________屬性。2、一個(gè)控件在窗體的位置由_______和________屬性決定，其大小由__________和_________屬性決定。3、利用對(duì)象的屬性setfocus可獲得焦點(diǎn)，對(duì)于一個(gè)對(duì)象，只有其visible屬性和____屬性為true，才能接受焦點(diǎn)。4、設(shè)置控件背景顏色的屬性名稱是______________________。5、所有控件都具有的共同屬性是__________________屬性。7、VB中的每個(gè)對(duì)象(控件)都有一組特征，這組特征稱為__________，我們通過修改它2/31可以控制對(duì)象的外觀和操作。B9、VB有三種工作模式，分別是設(shè)計(jì)(Design)模式、_____________和中斷(Break)模二、選擇題1、以下能夠觸發(fā)文本框Change事件的操作是()A．文本框失去焦點(diǎn)B．文本框獲得焦點(diǎn)C．設(shè)置文本框的焦點(diǎn)D．改變文本框的內(nèi)容2、應(yīng)用程序設(shè)計(jì)完成后，應(yīng)將程序保存，保存的過程是()A．只保存窗體文件即可B．只保存工程文件即可C．先保存工程文件，之后保存窗體文件D．先保存窗體文件(或標(biāo)準(zhǔn)模塊文件)，之后還要保存工程文件3、VB應(yīng)用程序的運(yùn)行模式是()A．解釋運(yùn)行模式B．編譯運(yùn)行模式C．兩者都有D．匯編模式4、任何控件都具有的屬性是()A．TEXTB．CAPTIONC．NAMED．FORECOLOR5、決定控件上文字的字體、字形、大小及效果的屬性是()A．TEXTB．CAPTIONC．NAMED．FONT6、在窗體上建立了多個(gè)控件，如TEXT、LABEL1、COMMAND1，若要使程序一運(yùn)行焦點(diǎn)就定位在COMMAND1控件上，應(yīng)將COMMAND1控件的()設(shè)置為0A．INDEXB．TABINDEXC．TABSTOPD．ENABLED值從而改變了文本框的TEXT屬性值時(shí)，將觸發(fā)文本框的()事件A．CLICKB．DBLCLICKC．GOTFOCUSD．CHANGE8、在運(yùn)行時(shí)，按TAB鍵跳過了一個(gè)可以獲得焦點(diǎn)的控件(如文本框)，則可能是因?yàn)?)9、為了防止用戶隨意將光標(biāo)置于控件上，應(yīng)()B控件的TABSTOP屬性設(shè)置為TRUEC將控件的TABSTOP屬性設(shè)置為FALSED將控件的ENABLED屬性設(shè)置為FALSE10、若要使標(biāo)簽控件顯示時(shí)，不覆蓋其背景內(nèi)容，應(yīng)設(shè)置標(biāo)簽控件的()屬性A．BACKCOLORB．BORDERSTYLEC．FORECOLORD．BACKSTYLE個(gè)字符，如星號(hào)(*)，運(yùn)行時(shí)，在文本框中輸入的字符仍然顯示出來，而不顯示星號(hào)，原因可能是()BLOCKED屬性值為TRUE3/31是()A．PrivateSubText1_GotFocus()Text1.SelStart=0Text1.Sellength=Len(Text1.Text)EndSubB．PrivateSubText1_LostFocus()Text1.SelStart=0Text1.Sellength=Len(Text1.Text)EndSubC．PrivateSubText1_Change()Text1.SelStart=0Text1.Sellength=Len(Text1.Text)EndSubD．PrivateSubText1_SetFocus()Text1.SelStart=0Text1.Sellength=Len(Text1.Text)EndSub13、VisualBasic繼承了Basic語(yǔ)言簡(jiǎn)單易用的語(yǔ)法特點(diǎn)，同時(shí)支持面向?qū)ο蟮木幊虣C(jī)制，其中構(gòu)成其控件(對(duì)象)的三要素是()A．屬性、事件、事件過程B．控件、窗體、事件C．屬性、過程、方法D．屬性、事件、方法14、決定標(biāo)簽(Label)顯示的屬性是()A．TextB．NameC．CaptionD．Alignment15、命令按鈕的標(biāo)題文字由()屬性來設(shè)置。ATextBCaptionCNameD．(名稱)16、若要設(shè)置文本的顯示顏色，則可用()屬性來實(shí)現(xiàn)。A．BackColorB．ForecolorC．FillColorD．Backstyle17、在運(yùn)行時(shí)，若要調(diào)用某命令鈕的Click事件過程，則可設(shè)置該命令鈕對(duì)象的()屬A．EnabledB．ValueC．DefaultD．Cancel18、在運(yùn)行時(shí)，若要獲得用戶在文本框中所選擇的文本，可通過訪問()屬性來實(shí)現(xiàn)。A．SelStartB．SelLenghtC．TextD．SelText三、簡(jiǎn)答題1、事件驅(qū)動(dòng)的含意是什么？舉例說明。7、為什么要生成可執(zhí)行文件和制作安裝盤？8、使用變量前先聲明有什么好處？9、如何使用幫助功能？4/31一、填空題1、一般可以使用__________關(guān)鍵字聲明常量。2、______類型也稱變體類型，是一種通用的、可變的數(shù)據(jù)類型，它可表示或存儲(chǔ)任何一__________________語(yǔ)句分別返回?cái)?shù)組的上、下界。中加入OptionExplicit的目的是_____________________。6、functionaa(a1asdate,optionala2asboolean)assingle，寫出optional命令的作用__________________。B8、生成消息框的命令是____________，生成輸入框的命令是____________。_______。10、從字符串中任意位置截取字符的函數(shù)是__________。11、語(yǔ)句Forj=3To20Step3使循環(huán)體執(zhí)行了______次。12、對(duì)于正在使用的動(dòng)態(tài)數(shù)組Arraya()，要增加一個(gè)單元，但不能破壞數(shù)組內(nèi)的數(shù)據(jù)，則應(yīng)使用語(yǔ)句__________________________________。VisualBasic___。chr(Asc("a")+5)的值為_________。義語(yǔ)句補(bǔ)充完整：DimJuzhen(__)asInteger。19、控件數(shù)組由一組相同類型的控件組成，這些控件共用一個(gè)相同的控件名，但是每個(gè)控件都有一個(gè)唯一的下標(biāo)來區(qū)分，我們使用屬性____來設(shè)置下標(biāo)。按值傳遞和____。21、為了保證程序中必須對(duì)變量的強(qiáng)制性定義，需要在代碼模塊的聲明部分加入______________語(yǔ)句。行了______次。23、表達(dá)式Mid("UniversityOfPetroleum",8,4)的值為_________。24、常量分為普通常量和__________常量。25、要將大寫字母轉(zhuǎn)換為小寫字母，可使用____________函數(shù)。_________鍵相當(dāng)于按了取消按鈕。ActiveX。5/3131、要將小寫字母轉(zhuǎn)換為大寫字母，可使用____________函數(shù)。33、日期常量表示時(shí)，用符號(hào)__________將日期型數(shù)據(jù)括起來。34、局部變量只能在__________中聲明和使用。mAbsx)的功能是__________。二、選擇題1、以下哪個(gè)是合法的變量()A．rightB．a(chǎn)bc@123C．123_abcD．a(chǎn)b123c2、下列說法錯(cuò)誤的是()A．在同一模塊不同過程中的變量可以同名B．不同模塊中定義的全局變量不可以同名C．引用另一模塊中的全局變量時(shí)，必須在變量名前加模塊名D．同一模塊中不同級(jí)的變量可以同名3、把MsgBox的返回值轉(zhuǎn)換為數(shù)值應(yīng)該使用的函數(shù)是()A．LogB．StrC．LenD．Val4、語(yǔ)句DIMAA(3,4,5)中定義的數(shù)組有()個(gè)元素A．12B．60C．120D．3455、下面程序運(yùn)行后輸出的結(jié)果是()A$="CHINA"B$=STRING$(3,A$)PRINTB$ENDA．CHIB．CCCC．INAD．AAA6、以下語(yǔ)句的輸出結(jié)果是()PrintFormat$(32548.5,"000,000.00")A．32548.5B．325,485.00C．032,548,50D．32,548,507、以下敘述中錯(cuò)誤的是()cD．事件過程可以像通用過程一樣由用戶定義過程名8、VisualBasic提供的OnErrorResumenext錯(cuò)誤陷阱語(yǔ)句表示()B．當(dāng)發(fā)生錯(cuò)誤時(shí)，不使用錯(cuò)誤處理程序塊9、在VisualBasic中，若要將控制權(quán)交給操作系統(tǒng)則通過()的語(yǔ)句。A．EndB．ExitDoC．ExitSubD．DoEvents6/3110、在VisualBasic中語(yǔ)句的續(xù)行號(hào)采用()A．空格與下劃線B．下劃線與空格C．空格與短線D．短線與空格Fori=1to3Forj=5to1Step-1Printi*jNextj,i則語(yǔ)句Printi*j的執(zhí)行次數(shù)是()A．15B．.16C．17D．1812、從鍵盤上輸入兩個(gè)字符串，分別保存在變量str1、str2中。確定第二個(gè)字符串在第一個(gè)字符串中起始位置的函數(shù)是()A．LeftB．MidC．StringD．Instr13、如果將布爾常量值TRUE賦值給一個(gè)整型變量，則整型變量的值為()A．0B．-1C．TRUED．FALSE14、下列敘述不正確的是()A．注釋語(yǔ)句是非執(zhí)行語(yǔ)句，僅對(duì)程序的內(nèi)容起注釋作用，它不被解釋和編譯B．注釋語(yǔ)句可以放在代碼中的任何位置C．注釋語(yǔ)句不能放在續(xù)行符的后面D．代碼中加入注釋語(yǔ)句的目的是提高程序的可讀性15、語(yǔ)句PRINT"INT(-13.2)"；INT(-13.2)的輸出結(jié)果為()A．INT(-13.2)=-13.2B．INT(-13.2)=13.2C．INT(-13.2)=-13D．INT(-13.2)=-1416、如果TAB函數(shù)的參數(shù)小于1，則打印位置在第()列17、變量未賦值時(shí)，數(shù)值型變量的值為()A、0B．空C．1D．無(wú)任何值18、下列語(yǔ)句中正確的是()A．txt1.text+txt2.text=txt3.textB．=cmdokC．12label.caption=1234D．a(chǎn)=inputbox("hello")19、假設(shè)變量BOOLVAR是一個(gè)布爾型變量，則下面正確的賦值語(yǔ)句是()A．BOOLVAR='TRUE'B．BOOLVAR=.TRUEC．BOOLVAR=#TRUE#D．BOOLVAR=3<420、以下()程序段可以實(shí)施X、Y變量值的變換()A．Y=X：X=YB．Z=X：Y=Z：X=YC．Z=X：X=Y：Y=ZD．Z=X：W=Y：Y=Z：X=Y21、語(yǔ)句PRINT"SGN(-26)="；SGN(-26)的輸出結(jié)果為()A．SGN(-26)=26B．SGN(-26)=-26C．SGN(-26)=+1D．SGN(-26)=-122、讀下面程序段，判斷變量Str2的取值是()DimStr1,Str2asStringStr1="University"Str2=STRING$(3,Str1)A．UniB．UUUC．ityD．yyy7/31VB中我們定義了如下類型：TypeStudentnumberAsstringnameAsStringageAsIntegerEndType針對(duì)上述定義，如下幾項(xiàng)用法正確的是()A．S="張三"B．DimsAsS＝"張紅"C．DimsAsTypeStudentD．DimsAsT="張三"="張三"PrivateSubfrmfunction1()EndSubPublicSubfrmfunction2()EndSubPublicSubmdlFunction()EndSubA．上述三個(gè)過程都可以在工程中的任何窗體或模塊中直接被調(diào)用BmdlFunction夠被工程中各個(gè)窗體或模塊直接被調(diào)用直接調(diào)用D．上述三個(gè)過程都只能在各自被定義的模塊中直接調(diào)用Dimi,nasIntegern=20i=1oPrinti;i=i+2LoopUntili>20判斷循環(huán)結(jié)構(gòu)的類型和循環(huán)體的執(zhí)行次數(shù)，正確的選項(xiàng)是()26、在程序中，使用InputBox函數(shù)可以接受用戶的輸入，如果要把它的返回值轉(zhuǎn)換為數(shù)值型的數(shù)據(jù)，應(yīng)該使用的函數(shù)是()A．ValB．LenC．StrD．Log8/31數(shù)組進(jìn)行重新定義，以下關(guān)于VB中動(dòng)態(tài)數(shù)組的敘述中不正確的是()AReDim語(yǔ)句重新定義動(dòng)態(tài)數(shù)組，并且可以進(jìn)行多次重定義BDim進(jìn)行動(dòng)態(tài)數(shù)組聲明的時(shí)候，必須指明它的類型和上下界mDErase句進(jìn)行釋放操作時(shí)，將釋放其內(nèi)存A．控件B．可插入對(duì)象C．ADO控件D．ActiveX控件29、表達(dá)式4+5\6*7/8Mod9的值是()30、可以同時(shí)刪除字符串前導(dǎo)和尾部空白的函數(shù)是()A．LtrimB．RtrimC．TrimD．Mid三、簡(jiǎn)答題2、字符串是否可以自動(dòng)轉(zhuǎn)換為數(shù)字類型？6、在什么情況下使用過程？r10、設(shè)有如下的VisualBasic表達(dá)式：5*x^2-3*x-2*Sin(a)/3，與它對(duì)應(yīng)的數(shù)學(xué)式是什16、在同一模塊、不同過程中聲明的相同變量名，兩者是否表示同一個(gè)變量？為什么？17、什么情況下會(huì)出現(xiàn)"數(shù)組下標(biāo)越界錯(cuò)誤"？20、在程序設(shè)計(jì)中為什么盡量不用GoTo語(yǔ)句？PrivateSubForm_Click()score=Int(Rnd*10)+80SelectCasescoreCaseIs<60A$="F"Case60To69A$="D"Case70To79A$="C"Case80To89A$="B"CaseElseA$="A"EndSelectPrintA$EndSub2、讀下面的程序，分析其功能，寫出運(yùn)行結(jié)果。一個(gè)命令按鈕，名稱為Command1。然后編寫如下程序：PrivateSubCommand1_Click()ForI=1To4ForJ=0ToIPrintChr$(65+I);NextJPrintNextIEndSub內(nèi)容是什么？3、閱讀下面的程序，分析并寫出其功能。Subinsert(a()AsSingle,ByValxAsSingle)Dimmasinteger,nasintegern1DoWhilen<20Andx>a(n)n=n+1LoopForm=20-1TonStep-1a(m+1)=a(m)Nextma(n)=xEndSub4、分析以下程序，寫出運(yùn)行結(jié)果。SubsubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommandl_Click()Dima(1To4)AsIntegera(1)=5a(2)=6a(3)=79/3110/31a(4)=8ubPaFori=1To4Printa(i)NextiEndSub5、分析以下程序，寫出運(yùn)行結(jié)果。Subsele()DimnasIntegerDoWhilei>nLoopPrintiEndSub6、分析以下程序，寫出運(yùn)行結(jié)果。SubselectPrint()DimaasIntegerDimbasIntegerDimcasIntegera=2:b=5:c=2If(a>=b)and(a>=c)or(b>c)ThenPrintaa=a+2ElsePrintbEndIfPrinta;b;cEndSub7、分析以下程序，寫出運(yùn)行結(jié)果。Subswap()DimxasIntegerDimyasIntegerDimzasIntegerx=1:y=2:z=0Printx;y;zx=x+yx=x*zPrintx,y,zEndSub8、分析以下程序，寫出運(yùn)行結(jié)果。SubselectPrint()DimaasInteger11/31DimbasIntegerDimcasIntegera=3:b=3:c=2If(a>=b)and(a>c)ThenPrintaPrinta,b,cEndSub五、編程題1、輸入一年號(hào)，判斷它是否是閏年。界面如下圖所示，包括兩個(gè)標(biāo)簽、一個(gè)文本框和一mn要的控件包括：兩個(gè)標(biāo)簽(Lable1、Lable2)、兩個(gè)文本框(Text1、Text2)和一個(gè)按鈕 (Command1)。3、輸入某學(xué)生成績(jī)(百分制)，若是100≥成績(jī)≥90輸出優(yōu)秀；若是90＞成績(jī)≥80輸出5、在有序序列中插入一個(gè)數(shù)，使插入后的數(shù)列仍然有序(設(shè)按由小到大排列)。6、編程實(shí)現(xiàn)二維數(shù)組轉(zhuǎn)置。8、找出所有的水仙花數(shù)。水仙花數(shù)是個(gè)三位數(shù)，它的各位數(shù)字的立方和等于這個(gè)三位數(shù)。10、求二維數(shù)組中的最小值及其所在行號(hào)、列號(hào)。11、求一元二次方程ax2+bx+c=0的根(包括實(shí)根和復(fù)根)。13、Faibonacci數(shù)列為0，1，1，2，3，5，8，13...，計(jì)算并輸出第20項(xiàng)以及前20第四章常用控件與窗體1、向列表框控件添加新項(xiàng)目的方法是__________。VB_____和____________。3、當(dāng)窗體啟動(dòng)時(shí)可通過__________屬性控制窗體位于所有者的中心位置。4、若要將窗體Form1隱藏起來，則可通過執(zhí)行代碼_________________來實(shí)現(xiàn)。為__________。為6、窗體上放置了若干個(gè)文本框和命令按鈕，當(dāng)窗體裝入后，要將焦點(diǎn)自動(dòng)定位到文本框Text1上，則在設(shè)計(jì)時(shí)需要將__________控件的_________屬性設(shè)置為__________。7、在標(biāo)簽控件中通過編程使文字換行用的代碼是___________________。8、設(shè)置計(jì)時(shí)器控件只能觸發(fā)______________________事件。9、設(shè)置計(jì)時(shí)器對(duì)象觸發(fā)事件的時(shí)間間隔用_____________________屬性。10、滾動(dòng)條控件主要支持兩個(gè)事件，它們是_______________事件。_____________。12/31(1)按下命令按鈕Command1時(shí)將列表框第8項(xiàng)的內(nèi)容顯示在窗體上：PrivateSubCommand1_Click()PrintList1.______________EndSub(2)單擊列表框某一項(xiàng)時(shí)立即將該項(xiàng)打印在窗體上：PrivateSubList1_Click()Print_______________EndSub(3)按下命令按鈕Command1時(shí)在窗體上刪除第1、3、5、7、9項(xiàng)：PrivateSubCommand1_Click()ForI=1To5List1.____________NextIEndSub(4)在列表框的每一項(xiàng)之后插入一個(gè)新的項(xiàng)：PrivateSubCommand1_Click()ForI=1to10X=InputBox("請(qǐng)輸入插入的第"&I&"項(xiàng)內(nèi)容")List1.AddItem____________NextIEndSub條兩端箭頭時(shí)，或單擊滾動(dòng)條滑塊與兩端箭頭之間的空白區(qū)域時(shí)，標(biāo)簽內(nèi)容能夠反映滾動(dòng)條碼。Label1.Caption=Hscroll1.___________________EndSub要使拖動(dòng)滾動(dòng)條滑塊時(shí)標(biāo)簽內(nèi)容能夠反映滾動(dòng)條的值，補(bǔ)齊以下代碼。Label1.Caption=Hscroll1.__________________EndSub它具有幾個(gè)非常重要的數(shù)組屬性，其中____屬性存放了列表框中所有項(xiàng)目的值?？梢愿淖冞@些項(xiàng)目的狀態(tài)，其中與復(fù)選標(biāo)志相對(duì)應(yīng)的屬性是____。16、keydown與keypress事件各有其參數(shù)，若需獲得用戶按下"a"還是"A"需用____________事件。來實(shí)現(xiàn)。13/31二、選擇題1、當(dāng)程序運(yùn)行時(shí)，在窗體上單擊鼠標(biāo)，以下哪個(gè)事件是窗體不會(huì)接收到()A．MouseDownB．MouseUpC．LoadD．Click2、窗體Form1的Name屬性是Frm1，它的單擊事件過程名是()A．Form1_ClickB．Form_ClickC．Frm1_ClickD．Me_Click3、用于設(shè)置通用對(duì)話框控件顯示文件類型的屬性是()A．FilterB．PathC．ParternD．FoleName4、用于從內(nèi)存刪除窗體的命令是()A．MoveB．HideC．UnloadD．Delete5、用于返回窗體可用區(qū)域?qū)挾鹊膶傩允?)A．ScaleWidthB．ScaleLeftC．ScaleHeightD．ScaleTopAVB不能改變BVB變C．一個(gè)控件的屬性即可以在屬性窗口中設(shè)置，也可以用程序代碼設(shè)置D．一個(gè)控件的屬性在屬性窗口中設(shè)置，還可以利用程序代碼為其設(shè)置新值7、下列說法正確的是()A．對(duì)象屬性只能在"屬性窗口"中設(shè)置B．一個(gè)新的工程可以在"工程窗口"中建立C．必須先建立一個(gè)工程，才能開始設(shè)計(jì)應(yīng)用程序D．只能在"代碼窗口"中編寫程序代碼8、下列關(guān)于窗體上控件的基本操作錯(cuò)誤的是()9、下列關(guān)于設(shè)置控件屬性的敘述正確的是()A．用戶必須設(shè)置屬性值B．所有的屬性值都可以由用戶隨意設(shè)定C．屬性值不必一一重新設(shè)置D．不同控件的屬性項(xiàng)都完全一樣10、不可以通過下列()操作將焦點(diǎn)賦給對(duì)象ATABB碼中用CALL語(yǔ)句調(diào)用CSETFOCUSD或用鼠標(biāo)單擊選擇對(duì)象11、要在FORM_LOAD事件過程中使用PRINT方法在窗體上輸出一定的內(nèi)容，應(yīng)()ED12、下面()對(duì)象無(wú)CAPTION屬性A．FORMB．COMMANDBUTTONC．TEXTBOXD．LABEL過濾，后者使用()屬性進(jìn)行該項(xiàng)設(shè)置。A．PatternB．PathC．FilterD．14、對(duì)于復(fù)選框控件chkBoy，如果在程序中設(shè)置它為選中狀態(tài)，下面語(yǔ)句正確的是()A．chkBoy.Checked=trueB．chkBoy.Value=true14/31C．chkBoy.Selected=trueD．chkBoy.Value=115、計(jì)時(shí)器(Timer)控件用于每隔一段時(shí)間自動(dòng)觸發(fā)一次Timer事件，可以有規(guī)律地重復(fù)執(zhí)行一段程序，它用于設(shè)置兩次事件時(shí)間間隔的屬性是()A．IntervalB．SmallChangeC．LargeChangeD．Max16、以下關(guān)于VB中窗體(Form)的說法中，不正確的描述為()B．當(dāng)窗體的Enabled屬性為False時(shí)，通過鼠標(biāo)和鍵盤對(duì)窗體的操作都被禁止17、關(guān)于滾動(dòng)條控件，下面說法錯(cuò)誤的是()eC．通常，水平滾動(dòng)條的值從左向右遞增，垂直滾動(dòng)條的值自上而下遞增e18、在窗體上放置一個(gè)命令按鈕，名稱為Command1。單擊命令按鈕時(shí)，執(zhí)行如下事件過PriVateSubCommand1_C1ick()a$="softwareandhardware"b$＝Right(a$,8)c$=Mid(a$,1,8)Msgboxa$,b$,c$,1EndSub則在彈出的信息框的標(biāo)題欄中顯示的信息是()A．softWareandhardwareB．softwareC．hardwafeD．出現(xiàn)錯(cuò)誤閉等問題，以下關(guān)于窗體的相關(guān)語(yǔ)句和方法的敘述中，錯(cuò)誤的是()CHide將窗體隱藏起來D．Unload語(yǔ)句用來釋放窗體，但窗體并沒從內(nèi)存中消20、滾動(dòng)條控件的屬性中，表示取值范圍最大值的屬性是()A．MaxB．LargeChangeC．MinD．Value面哪個(gè)選項(xiàng)用于表示拖動(dòng)事件()A．DragDropB．MouseDownC．MouseUpD．MouseMove三、簡(jiǎn)答題1、什么是單選按鈕？什么是復(fù)選框？在使用上有什么不同？15/315、假定有一個(gè)菜單項(xiàng)，名為MenuItem，為了在運(yùn)行時(shí)使該菜單項(xiàng)失效(變灰)，應(yīng)使用6、為了暫時(shí)關(guān)閉計(jì)時(shí)器(即時(shí)鐘控件)，應(yīng)把該計(jì)時(shí)器的什么屬性設(shè)置為False？7、單選按鈕和復(fù)選框(即檢查框)各用于什么情況？13、在一個(gè)窗體的程序代碼中能否訪問另一個(gè)窗體上控件的屬性？若不行則請(qǐng)說明理由；行則請(qǐng)說明如何訪問。15、組合框有哪幾種類型？OptionBase1PrivateSubForm_KeyPress(KeyAsciiAsInteger)a=Array(237,126,87,48,498)m1=a(1)m2=1IfKeyAscii=13ThenFori=2To5Ifa(i)>mlThenm1=a(j)m2=iEndIfNextiEndIfPrintm1Printm2EndSubPrivateSubForm_load()Form1.showd=0Fora=1To2Forb=1ToaForc=bTo5d=d+1NextcNextb16/31NextaPrintdEndSub五、編程題本框控件，名稱為TxtTime；一個(gè)計(jì)時(shí)器控件，名稱為Timer1，要求每一秒在文本框中顯示一次當(dāng)前的時(shí)間，請(qǐng)編程實(shí)現(xiàn)。I3、編寫一個(gè)程序，能夠?qū)崿F(xiàn)任意個(gè)整數(shù)的排序。4、編程實(shí)現(xiàn)以下功能：用戶首先分別在兩個(gè)文本框中輸入兩個(gè)數(shù)，然后在具有"加、減、5、編程實(shí)現(xiàn)任意兩個(gè)數(shù)的"加、減、乘、除"。6、編寫一個(gè)程序，能夠求任意個(gè)正整數(shù)的最大值和最小值。7、編程求任意兩個(gè)正整數(shù)的最大公約數(shù)。六、程序分析填空題1、建立一個(gè)如圖所示的簡(jiǎn)單編輯器。用戶在文本框(text1)中輸入正文后，選中某些文本時(shí)可進(jìn)行"剪切"、"復(fù)制"和"粘貼"操作。假設(shè)在窗體聲明部分定義了一個(gè)變量str1，用于utClick程序運(yùn)行界面：PrivateSubbtnCut_Click()'請(qǐng)補(bǔ)充EndSub結(jié)構(gòu)實(shí)現(xiàn)這一功能的代碼補(bǔ)充完整。PrivateSubForm_Load()Dimsum,countasInteger'請(qǐng)補(bǔ)充Dowhilecount<=100'請(qǐng)補(bǔ)充LoopText1.Text=sumEndSub3、列表框控件(ListBox)支持多項(xiàng)選擇，這項(xiàng)功能在對(duì)用戶的興趣愛好進(jìn)行調(diào)查的時(shí)候請(qǐng)把下列代碼補(bǔ)充完整，能夠取得用戶的所選愛好選項(xiàng)：PrivateSubCommand1_Click()DimiAsInteger17/31DimsAsStrings=txtname.Text&"愛好"Fori=0ToList1.ListCount-1請(qǐng)補(bǔ)充NextLabel3.Caption=sEndSubPrivateSubForm_Load()ow請(qǐng)補(bǔ)充EndSubPrivateSubTimer1_Timer()請(qǐng)補(bǔ)充EndSub第五章文件一、填空題1、文件按存取方式及其組成結(jié)構(gòu)可分為________________文件、__________文件和______________文件。2、為了使文件列表框List1和目錄列表框Dir1之間能產(chǎn)生同步效果，必須在______________事件過程中加入語(yǔ)句__________________________。3、文件系統(tǒng)控件的作用是向用戶顯示系統(tǒng)中的文件，方便用戶選擇，它是一組控件的組二、選擇題1、利用下面哪個(gè)函數(shù)可判定訪問文件時(shí)是否已到文件尾()A．LOFB．LOCC．EOFD．BOF2、用于設(shè)置文件列表框控件顯示文件類型的屬性是()A．FilterB．PathC．ParternD．1、什么是文件？3、順序文件、隨機(jī)文件和二進(jìn)制文件各有什么特點(diǎn)和用途？E1、實(shí)現(xiàn)二進(jìn)制方式文件的復(fù)制。第六章圖形操作18/31一、填空題1、使用____________方法可在窗體中進(jìn)行文本的輸出，用____________方法可畫圓，用____________方法可畫直線。2、用____________函數(shù)可加載圖形。3、為了使一個(gè)Picture控件能自動(dòng)根據(jù)裝入的圖片調(diào)整大小，應(yīng)設(shè)置該控件的True。二、選擇題1、下列關(guān)于控件畫法的敘述錯(cuò)誤的是()A．單擊一次工具箱中的控件圖標(biāo)，只能在窗體上畫出一個(gè)相應(yīng)的控件B．按住CTRL鍵后單擊一次工具箱中的控件圖標(biāo)，可以在窗體上畫出多個(gè)相同類型的控件C．雙擊工具箱中的控件圖標(biāo)，所畫控件的大小和位置是固定的D．不使用工具箱中的控件工具，不可以在窗體上畫出圖形對(duì)象，但可以寫入文字字符2、當(dāng)一個(gè)對(duì)象(如窗體或圖片框)被移動(dòng)或改變大小之后，或當(dāng)一個(gè)覆蓋該窗體被移開之后，如果要保持該所畫圖形的完整性，可以選擇觸發(fā)()事件來完成圖形的重畫工作A．PaintB．LoadC．ClickD．Active2、在程序運(yùn)行時(shí)怎樣在圖形框中裝入和刪除圖形？1、如下圖顯示當(dāng)前目錄下的圖片文件列表，并能夠預(yù)覽選定的圖片。第七章面向?qū)ο蟮木幊桃?、填空題1、類是具有相同性質(zhì)的對(duì)象的_________。DIMTEMPASObject的作用是________________________________。第八章界面設(shè)計(jì)1、什么是多文檔界面(MDI)？2、說明菜單欄、菜單、選項(xiàng)和工具欄之間的關(guān)系。alBasic2、VisualBasic中的記錄集有哪幾種類型？1、請(qǐng)編程實(shí)現(xiàn)每?jī)擅朐跇?biāo)簽中顯示一次當(dāng)前的時(shí)間。3、有一個(gè)m×n的實(shí)型矩陣A(m,n)，找出其中最大的那個(gè)元素所在的行和列。19/317、有一種數(shù)，正序讀與反序讀都相同，這種數(shù)叫回文數(shù)，如88、858、2332等。求出4位數(shù)以內(nèi)(0~9999)的所有回文數(shù)。8、輸出"九九乘法表參考答案VisualBasic程序設(shè)計(jì)概述一、填空題1、對(duì)象、事件驅(qū)動(dòng)2、Vbp、frm、bas3、部件4、WINDOWS二、選擇題一、填空題heightwidthenabledbackcolornameamecaption二、選擇題D14、C15、B16、B17、B18、D一、填空題1、Const2、Variant3、隱式聲明、顯示聲明4、optionbase、ubound、lboundOptionExplicit22、1323、ityo24、符號(hào)25、LCase26、ESC27、部件28、斷點(diǎn)29、False30、OptionExplicit31、UCase32、Midprivatex絕對(duì)值37、2.5二、選擇題AAB24、B25、B26、A27、B28、C28、B30、CE在20個(gè)由小到大排列的數(shù)據(jù)中插入一個(gè)數(shù)，插入數(shù)據(jù)后的數(shù)據(jù)仍按由小到大的順序排5、輸出結(jié)果為：36、輸出結(jié)果為：24527、輸出結(jié)果為：1200208、輸出結(jié)果為：333220/31五、編程題PrivateSubCommand1_Click()Dimyear,xAsIntegeryear=Val(Text1.Text)IfyearMod400=0ThenLabel2.Caption="是閏年"ElseIfyearMod4=0AndyearMod100<>0ThenLabel2.Caption="是閏年"ElseLabel2.Caption="不是閏年"EndIfEndIfEndSubPrivateSubCommand1_Click()Dimm,n,rAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)r=mModnDoWhiler<>0m=nn=rr=mModnLoopEndIfEndSubPrivateSubCommand1_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)秀"EndIfEndSubPrivateSubForm_Load()DimiAsIntegerShow'使輸出可見Form1.Font="新宋體"Fori=9To16Step1Form1.FontSize=iPrinti;"號(hào)字型"NextiEndSubPrivateSubCommand1_Click()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)'元素后移一個(gè)位置a(i+1)=numExitFor'退出循環(huán)EndIfNexti'輸出新隊(duì)列Fori=1To11Label3.Caption=Label3.Caption&a(i)&","21/31NextiEndSubOptionBase1PrivateSubForm_Load()tNNDima(N,N)AsIntegerDimi,j,TempAsIntegerw'數(shù)組初始化Forj=1ToNa(i,j)=i*10+jNextjNexti'輸出原始數(shù)組Forj=1ToNPrinta(i,j);NextjPrintNexti'數(shù)組轉(zhuǎn)置Forj=1Toi'交換Temp=a(i,j)a(i,j)=a(j,i)a(j,i)=TempNextjNexti'輸出轉(zhuǎn)置后的數(shù)組Forj=1ToNPrinta(i,j);NextjPrintNextiEndSubPrivateSubForm_Click()Dima(10)AsInteger,iAsIntegerDimsumAsInteger,aveAsInteger22/3123/31sum=0Fori=1To10a(i)=Int(Rnd*101)sum=sum+a(i)Nextiave=sum/10Printsum,aveEndSubPrivateSubForm_Load()Dimi,j,k,FlowerAsIntegerFori=1To9Forj=0To9Fork=0To9Flower=i*100+j*10+kIfFlower=i^3+j^3+k^3ThenPrintFlower;"是水仙花數(shù)"NextkNextjNextiEndSubPrivateSubCommand1_Click()Dimm,i,yAsIntegerm=Val(Text1.Text)Ifm<=2ThenLabel2.Caption="輸入數(shù)據(jù)有錯(cuò)"Elsek=Sqr(m)+1Fori=2Toky=mModiIfy=0ThenExitForNextiIfy=0ThenLabel2.Caption=m&"不是素?cái)?shù)"ElseLabel2.Caption=m&"是素?cái)?shù)"EndIfEndIfEndSubOptionBase1PrivateSubForm_Load()24/31ConstN=5'常數(shù)N確定數(shù)組的大小Dima(N,N)AsIntegerDimi,j,row,line,minAsIntegerNextjNexti'輸出二維數(shù)組Fori=1ToNForj=1ToNPrinta(i,j);NextjPrint'輸完一行元素后輸出一個(gè)換行Nexti'設(shè)定初始值min=a(1,1):row=1:line=1'尋找最小數(shù)Fori=1ToNForj=1ToNIfa(i,j)<minThenmin=a(i,j)row=iline=jEndIfNextjNexti'輸出結(jié)果Print"在第";row;"行第";line;"列"EndSubPrivateSubCommand1_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="是一元一次方程:"Ifb<>0thenText4.Text="x1="&-c/bElseIfc=0then25/31Text4.Text="有無(wú)窮根"ElseText4.Text="無(wú)根"EndifEndifElseIfdelt=0ThenLabel2.Caption="有兩個(gè)相等的實(shí)根:"Text4.Text="x1="&-b/2/aText5.Text="x2="&-b/2/bElseIfdelt>0ThenLabel2.Caption="有兩個(gè)不等的實(shí)根:"Text4.Text="x1="&(-b+Sqr(delt))/(2*a)Text5.Text="x2="&(-b-Sqr(delt))/(2*a)ElseLabel2.Caption="有兩個(gè)共軛復(fù)根:"realpart=-b/(2*a)imagpart=Sqr(-delt)/(2*a)Text4.Text="x1="&realpart&"+"&imagpart&"i"Text5.Text="x2="&realpart&"-"&imagpart&"i"EndSubPrivateSubCommand1_Click()Dimn,i,tAsLongn=Val(Text1.Text)i=1:t=1Ifn<0ThenLabel2.Caption="error"ElseIfn=0ThenLabel2.Caption="0!=1"ElseDoWhilei<=nt=t*ii=i+1LoopLabel2.Caption=n&"!="&tEndIfEndSubPrivateSubForm_Load()DimPrev,Last,NewOne,sumAsLong26/31DimiAsIntegerPrev=0:Last=1:sum=Prev+LastFori=3To20NewOne=Prev+Lastsum=sum+NewOnePrev=LastLast=NewOneNextimEndSub第四章常用控件與窗體一、填空題6、text1、tabindex、07、chr(10)8、timer9、interval10、scroll和change13、change、value、scrol、value14、List15、Checked16、keypress17、組合框18、Form2.Show119、Click(或鼠標(biāo)單擊)二、選擇題C13、A14、D15、A16、A17、D18、D19、D20、A21、C22、B三、簡(jiǎn)答題e3、快捷鍵是執(zhí)行某一個(gè)菜單項(xiàng)的鍵盤命令，常用形式Ctrl+字母，訪問鍵是打開一個(gè)菜5、MenuItem.Enabled=False7、單選按鈕用于只能選擇一個(gè)的情況下，復(fù)選框(即檢查框)用于可以選擇多個(gè)的情況下8、為一個(gè)菜單項(xiàng)設(shè)置熱鍵時(shí)需要在相應(yīng)字符前面加&，設(shè)置快捷鍵需要在菜單編輯器中選擇9、菜單的形式有兩種：下拉式菜單和彈出式菜單可以美化界面名稱即可14、先建立框架，然后再在其中建立控件15、下拉式組合框、簡(jiǎn)單組合框、下拉式列表框27/315五、編程題PrivateSubForm_Load()Timer1.Interval=1000EndSubPrivateSubTimer1_Timer()Txttime.text=TimeEndSubPrivateSubCommand1_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=0Text1.SelLength=Len(Text1.Text)EndSub六、程序分析填空題PrivateSubbtnCut_Click()'請(qǐng)補(bǔ)充Str1=text1.selTexttext1.selText=""EndSubPrivateSubForm_Load()Dimsum,countasInteger'請(qǐng)補(bǔ)充Sum=0Count=0Dowhilecount<=100'請(qǐng)補(bǔ)充Count=count+1Sum=sum+countLoopText1.Text=sumEndSub28/31PrivateSubCommand1_Click()DimiAsIntegerDimsAsStrings=txtname.Text&"愛好"Fori=0ToList1.ListCount-1請(qǐng)補(bǔ)充IfList1.Selected(i)ThenS=s&List1.List(i)EndIfNextLabel3.Caption=sEndSubPrivateSubForm_Load()ow請(qǐng)補(bǔ)充Timer1.Interval=1000EndSubPrivateSubTimer1_Timer()請(qǐng)補(bǔ)充Form1.PrintInt(Rnd*10)+1EndSub第五章文件一、填空題隨機(jī)、二進(jìn)制2、dir1的chang、list1.path=dir1.path3、目錄列表框二、選擇題三、簡(jiǎn)答題1、存放在外部存儲(chǔ)介質(zhì)上的數(shù)據(jù)和程序等。2、文件的存取分為順序型、隨機(jī)型、二進(jìn)制型，其編碼方式分為ASCⅡ碼文件和二進(jìn)制3、順序文件：文件中每一個(gè)字符都被假設(shè)為代表一個(gè)文本字符或者文本格式序列，數(shù)據(jù)ANSI只提供第一條記錄的存儲(chǔ)位置，因而順序文件只用于要求少量空間，不經(jīng)常進(jìn)行數(shù)據(jù)修改的有規(guī)律的文件。隨機(jī)文件：隨機(jī)文件由記錄組成，能夠隨機(jī)存取相同長(zhǎng)度的數(shù)據(jù)記錄，每一數(shù)據(jù)記錄內(nèi)可以設(shè)計(jì)各種欄位，以容納不同的數(shù)據(jù)，各數(shù)據(jù)記錄長(zhǎng)度相同，數(shù)據(jù)類型可以不同，隨機(jī)文件有一定的磁