第28頁共28頁《》綜合復習資料一、填空題：（第一章VisualBasic程序設計概述）1、VisualBasic是一種面向_對象_的可視化程序設計語言，采取了__事件驅動__的編程機制。2、在VB中工程文件的擴展名是_Vbp，窗體文件的擴展名是frm_，標準模塊文件的擴展名是_bas_。3、執行“工程”菜單下的部件命令，可選擇并添加ActiveX控件。4、VisualBasic6.0用于開發_WINDOWS環境下的應用程序。第二章簡單的VB程序設計1、設置是否可以用Tab鍵來選取命令按鈕，應該用_Tabstop___屬性。2、一個控件在窗體的位置由__Left___和_top___屬性決定，其大小由__height_和_width_屬性決定。3、利用對象的屬性setfocus可獲得焦點，對于一個對象，只有其visible屬性和_enabled__屬性為true，才能接受焦點。4、設置控件背景顏色的屬性名稱是_backcolor__。5、所有控件都具有的共同屬性是__name__屬性。6、一般情況下，控件有兩個屬性項的缺省值是相同的，這兩個屬性項是_name和caption。7、VB中的每個對象（控件）都有一組特征，這組特征稱為_屬性_，我們通過修改它可以控制對象的外觀和操作。8、通常情況下，VB中一個工程主要包括如下四個文件：窗體文件、工程文件、類模塊文件和_標準模塊文件_文件，后者的擴展名為.Bas，通常由Basic語言編寫，是一個可共用的子程序。9、VB有三種工作模式，分別是設計（Design）模式、_運行模式__和中斷（Break）模式。第三章1、一般可以使用____Const______關鍵字聲明常量。2、_Variant_類型也稱變體類型，是一種通用的、可變的數據類型，它可表示或存儲任何一種數據類型。3、變量的聲明分為兩種方法：_隱式聲明__和__顯示聲明__。、4、在VB中，用_optionbase_語句設定數組的下界，用ubound_和_lbound語句分別返回數組的上、下界。5、在代碼模塊中加入OptionExplicit的目的是_強制變量聲明。6、functionaa(a1asdate,optionala2asboolean)assingle，寫出optional命令的作用表示a2是一個可選參數__。7、在VB中，我們用一個簡單的_End__語句就能實現退出程序。8、生成消息框的命令是_Msgbox_，生成輸入框的命令是Inputbox__。9、通用對話框（commondialog）屬activex控件，它可以顯示多個標準對話框，包括打開/另存為、字體、打印等對話框，若要顯示所有文件，則應設置其屬性filter=_*.*__，若要使它顯示為打印對話框，則應使用什么方法_、showprint__。10、從字符串中任意位置截取字符的函數是_Mid()__。11、語句Forj=3To20Step3使循環體執行了___6___次。12、對于正在使用的動態數組Arraya()，要增加一個單元，但不能破壞數組內的數據，則應使用語句__redimpreservearraya(ubound(arraya())+1)__。13、在VisualBasic中聲明靜態變量的關鍵字是___static___。14、表達式10Mod6\4的值為___0___。15、表達式chr(Asc("a")+5)的值為___f______。16、VB中使用注釋有2種方法，即__rem_和__’______。17、VB中的數據以四種形式存儲：常量、_變量、數組和記錄。18、為了在VB中存儲一個4行5列的二維矩陣，需要定義一個整型的數組，請把數組定義語句補充完整：DimJuzhen(_1to4,1to5_)asInteger。19、控件數組由一組相同類型的控件組成，這些控件共用一個相同的控件名，但是每個控件都有一個唯一的下標來區分，我們使用屬性_Index__來設置下標。20、在過程調用中，實現調用過程的實參和被調用過程的形參之間的數據傳遞有兩種方式：按值傳遞和_按地址__。21、為了保證程序中必須對變量的強制性定義，需要在代碼模塊的聲明部分加入_OptionExplicit__語句。22、分析For……Next循環結構的實例：Fori=5To30Step2中，循環體一共執行了_13_____次。23、表達式Mid("UniversityOfPetroleum",8,4)的值為_ityo__。24、常量分為普通常量和_符號_常量。25、要將大寫字母轉換為小寫字母，可使用_LCase__函數。26、不管焦點在哪個控件上，按___ESC__鍵相當于按了取消按鈕。27、執行“工程”菜單下的_部件__命令，可選擇并添加ActiveX控件。28、斷點_是程序中VB停止執行的地方。29、邏輯常量為True或__False___。30、使用了_OptionExplicit__的聲明后，當程序中使用未經聲明的變量時，程序運行時會報錯。31、要將小寫字母轉換為大寫字母，可使用UCase__函數。32、自字符串N1位開始向右取N2個字符，要使用_Mid__函數。33、日期常量表示時，用符號___#___將日期型數據括起來。34、局部變量只能在_過程_中聲明和使用。35、模塊級變量的聲明關鍵字是Dim或__private___。36、函數Abs(x)的功能是_求x的絕對值____。37、表達式3/6*5的值是_2.5___。第四章1、向列表框控件添加新項目的方法是__AddItem__。2、在VB中，最主要的兩種對象是_窗體___和__控件___。3、當窗體啟動時可通過StartUpPostion__屬性控制窗體位于所有者的中心位置。4、若要將窗體Form1隱藏起來，則可通過執行代碼__form1.hide__來實現。5、要使裝入到列表框中的數據項能自動按字母順序排序，應設置該控件的___sorted______屬性為___ture___。6、窗體上放置了若干個文本框和命令按鈕，當窗體裝入后，要將焦點自動定位到文本框Text1上，則在設計時需要將__text1__控件的_tabindex__屬性設置為__0____。7、在標簽控件中通過編程使文字換行用的代碼是__chr(10)___。8、設置計時器控件只能觸發___timer____事件。9、設置計時器對象觸發事件的時間間隔用__interval___屬性。10、滾動條控件主要支持兩個事件，它們是__scroll和change__事件。11、要使鼠標停留在按鈕上顯示特殊的鼠標形狀，應設置的屬性值是_mousepointer_。12、設某列表框共有10項，按題目要求補齊程序，完成相應的功能。（1）按下命令按鈕Command1時將列表框第8項的內容顯示在窗體上：PrivateSubCommand1_Click()List.__selected__(7)=TruePrintList1._text_EndSub（2）單擊列表框某一項時立即將該項打印在窗體上：PrivateSubList1_Click()Print___list1.text___EndSub（3）按下命令按鈕Command1時在窗體上刪除第1、3、5、7、9項：PrivateSubCommand1_Click()ForI=1To5List1.__removeitem2*i-1__________NextIEndSub（4）在列表框的每一項之后插入一個新的項：PrivateSubCommand1_Click()ForI=1to10X=InputBox(“請輸入插入的第”&I&“項內容”)List1.AddItem__x,2*i-1__________NextIEndSub13、設在界面上放置了一個滾動條Hscroll1和一個標簽控件Label1，要使每次單擊滾動條兩端箭頭時，或單擊滾動條滑塊與兩端箭頭之間的空白區域時，標簽內容能夠反映滾動條的值，補齊以下代碼。PrivateSubHscroll1.___change____()Label1.Caption=Hscroll1.___value__EndSub要使拖動滾動條滑塊時標簽內容能夠反映滾動條的值，補齊以下代碼。PrivateSubHscroll1.__scrol___()Label1.Caption=Hscroll1.__value____EndSub14、列表框（ListBox）用于列出可供選擇的項目的列表，用戶可以選擇一個或多個項目。它具有幾個非常重要的數組屬性，其中__List__屬性存放了列表框中所有項目的值。15、菜單項一般由標題、訪問鍵、快捷鍵和復選標志等構成，通過對相應的屬性進行設置可以改變這些項目的狀態，其中與復選標志相對應的屬性是__Checked_。16、keydown與keypress事件各有其參數，若需獲得用戶按下"a"還是"A"需用__keypress___事件。17、控件組合框組合了文本框和列表框的功能，是VB中一種功能非常強大的選擇類控件。18、若需要將窗體Form2以模態窗口的形式顯示出來，可通過執行代碼_Form2.Show1__來實現。19、菜單中的分隔條是一種菜單控件，不響應__Click（或鼠標單擊）_事件，不能被選中。第五章1、文件按存取方式及其組成結構可分為_順序__文件、隨機__文件和、二進制____文件。2、為了使文件列表框List1和目錄列表框Dir1之間能產生同步效果，必須在_dir1的chang__事件過程中加入語句_list1.path=dir1.path__。3、文件系統控件的作用是向用戶顯示系統中的文件，方便用戶選擇，它是一組控件的組合，包括：驅動器列表框、__目錄列表框__和文件列表框。第六章圖形操作1、使用__print__方法可在窗體中進行文本的輸出，用_circle__方法可畫圓，用_line___方法可畫直線。2、用___loadpicture___函數可加載圖形。3、為了使一個Picture控件能自動根據裝入的圖片調整大小，應設置該控件的_autosize___屬性為True。第七章面向對象的編程1、類是具有相同性質的對象的__集合_______。2、語句DIMTEMPASObject的作用是____定義了一個對象類型的變量TEMP_。二、選擇題1、下面不是VB工作模式的是（C）A．設計模式 B．運行模式 C．匯編模式 D．中斷模式2、可視化編程的最大優點是（C）A．具有標準工具箱 B．一個工程文件由若干個窗體文件組成C．不需要編寫大量代碼來描述圖形對象 D．所見即所得3、下列不能打開屬性窗口的操作是（C）A．執行“視圖”菜單中的“屬性窗口”命令B．按F4鍵C．按Ctrl+TD．單擊工具欄上的“屬性窗口”按鈕4、下列可以打開立即窗口的操作是（D）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、VisualBasic的編程機制是（D）A．可視化B．面向對象C．面向圖形D．事件驅動1、以下能夠觸發文本框Change事件的操作是（D）A．文本框失去焦點 B．文本框獲得焦點C．設置文本框的焦點 D．改變文本框的內容2、應用程序設計完成后，應將程序保存，保存的過程是（D）A．只保存窗體文件即可B．只保存工程文件即可C．先保存工程文件，之后保存窗體文件D．先保存窗體文件（或標準模塊文件），之后還要保存工程文件3、VB應用程序的運行模式是（C）A．解釋運行模式 B．編譯運行模式 C．兩者都有 D．匯編模式4、任何控件都具有的屬性是（C）A．TEXT B．CAPTION C．NAME D．FORECOLOR5、決定控件上文字的字體、字形、大小及效果的屬性是（D）A．TEXT B．CAPTION C．NAME D．FONT6、在窗體上建立了多個控件，如TEXT、LABEL1、COMMAND1，若要使程序一運行焦點就定位在COMMAND1控件上，應將COMMAND1控件的（B）設置為0A．INDEX B．TABINDEX C．TABSTOP D．ENABLED7、運行時，當用戶向文本框輸入新的內容，或在程序代碼中對文本框的TEXT屬性進行賦值從而改變了文本框的TEXT屬性值時，將觸發文本框的（D）事件A．CLICK B．DBLCLICK C．GOTFOCUS D．CHANGE8、在運行時，按TAB鍵跳過了一個可以獲得焦點的控件（如文本框），則可能是因為（D）A．該控件的TABSTOP屬性值為TRUE B．該控件的TABINDEX屬性值為FALSEC．該控件的ENABLED屬性值為TRUE D．該控件的ENABLED屬性值為FALSE9、為了防止用戶隨意將光標置于控件上，應（D）A．將控件的TABINDEX屬性設置為0B．將控件的TABSTOP屬性設置為TRUEC．將控件的TABSTOP屬性設置為FALSED．將控件的ENABLED屬性設置為FALSE10、若要使標簽控件顯示時，不覆蓋其背景內容，應設置標簽控件的（D）屬性A．BACKCOLOR B．BORDERSTYLEC．FORECOLOR D．BACKSTYLE11、如果要在文本框中輸入字符時，只顯示某個字符，如星號（*），運行時，在文本框中輸入的字符仍然顯示出來，而不顯示星號，原因可能是（B）A．文本框的MULTILINE屬性值為TRUEB．文本框的LOCKED屬性值為TRUEC．文本框的MULTILINE屬性值為FALSED．文本框的LOCKED屬性為FALSE12、在運行階段，要在文本框TEXT1獲得焦點時選中文本框中所有內容，對應的事件過程是（A）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語言簡單易用的語法特點，同時支持面向對象的編程機制，其中構成其控件（對象）的三要素是（D）A．屬性、事件、事件過程 B．控件、窗體、事件C．屬性、過程、方法 D．屬性、事件、方法14、決定標簽（Label）顯示的屬性是（C）A．TextB．NameC．CaptionD．Alignment15、命令按鈕的標題文字由（B）屬性來設置。A．TextB．CaptionC．NameD．(名稱)16、若要設置文本的顯示顏色，則可用（B）屬性來實現。A．BackColor B．ForecolorC．FillColorD．Backstyle17、在運行時，若要調用某命令鈕的Click事件過程，則可設置該命令鈕對象的（B）屬性為Ture來實現。A．EnabledB．ValueC．DefaultD．Cancel18、在運行時，若要獲得用戶在文本框中所選擇的文本，可通過訪問（D）屬性來實現。A．SelStart B．SelLenght C．Text D．SelText第三章VB基本語言1、以下哪個是合法的變量（D）A．right B．abc@123 C．123_abc D．ab123c2、下列說法錯誤的是（B）A．在同一模塊不同過程中的變量可以同名B．不同模塊中定義的全局變量不可以同名C．引用另一模塊中的全局變量時，必須在變量名前加模塊名D．同一模塊中不同級的變量可以同名3、把MsgBox的返回值轉換為數值應該使用的函數是（D）A．LogB．StrC．LenD．Val4、語句DIMAA(3,4,5)中定義的數組有（C）個元素A．12B．60C．120D．3455、下面程序運行后輸出的結果是（B）A$="CHINA"B$=STRING$(3,A$)PRINTB$ENDA．CHIB．CCCC．INAD．AAA6、以下語句的輸出結果是（C）PrintFormat$(32548.5,"000,000.00")A．32548.5B．325,485.00C．032,548,50D．32,548,507、以下敘述中錯誤的是（D）A．如果過程被定義為Static類型，則該過程中的局部變量都是Static類型B．Sub過程中不能嵌套定義Sub過程C．Sub過程中可以嵌套調用Sub過程D．事件過程可以像通用過程一樣由用戶定義過程名8、VisualBasic提供的OnErrorResumenext錯誤陷阱語句表示（C）A．當發生錯誤時，使程序轉跳到語句標號為0的程序塊B．當發生錯誤時，不使用錯誤處理程序塊C．當發生錯誤時，忽略錯誤行，繼續執行下一語句D．當發生錯誤時，終止本過程執行，繼續執行下一過程9、在VisualBasic中，若要將控制權交給操作系統則通過（D）的語句。A．EndB．ExitDoC．ExitSubD．DoEvents10、在VisualBasic中語句的續行號采用（A）A．空格與下劃線 B．下劃線與空格C．空格與短線D．短線與空格11、假定有以下程序段：Fori=1to3 Forj=5to1Step–1 Printi*j Nextj,i則語句Printi*j的執行次數是（A）A．15B．.16C．17D．1812、從鍵盤上輸入兩個字符串，分別保存在變量str1、str2中。確定第二個字符串在第一個字符串中起始位置的函數是（D）A．LeftB．MidC．StringD．Instr13、如果將布爾常量值TRUE賦值給一個整型變量，則整型變量的值為（B）A．0 B．-1 C．TRUE D．FALSE14、下列敘述不正確的是（B）A．注釋語句是非執行語句，僅對程序的內容起注釋作用，它不被解釋和編譯B．注釋語句可以放在代碼中的任何位置C．注釋語句不能放在續行符的后面D．代碼中加入注釋語句的目的是提高程序的可讀性15、語句PRINT“INT(-13.2)”；INT(-13.2)的輸出結果為（D）A．INT(-13.2)=-13.2 B．INT(-13.2)=13.2C．INT(-13.2)=-13 D．INT(-13.2)=-1416、如果TAB函數的參數小于1，則打印位置在第（B）列A．0 B．1 C．2 D．317、變量未賦值時，數值型變量的值為（A）A、0 B．空 C．1 D．無任何值18、下列語句中正確的是（D）A．txt1.text+txt2.text=txt3.text B．=cmdokC．12label.caption=1234 D．a=inputbox(“hello”)19、假設變量BOOLVAR是一個布爾型變量，則下面正確的賦值語句是（D）A．BOOLVAR=‘TRUE’ B．BOOLVAR=.TRUEC．BOOLVAR=#TRUE# D．BOOLVAR=3<420、以下（）程序段可以實施X、Y變量值的變換（C）A．Y=X：X=Y B．Z=X：Y=Z：X=YC．Z=X：X=Y：Y=Z D．Z=X：W=Y：Y=Z：X=Y21、語句PRINT“SGN(-26)=”；SGN(-26)的輸出結果為（D）A．SGN(-26)=26 B．SGN(-26)=-26C．SGN(-26)=+1 D．SGN(-26)=-122、讀下面程序段，判斷變量Str2的取值是（B）DimStr1,Str2asStringStr1="University"Str2=STRING$(3,Str1)A．Uni B．UUUC．ity D．yyy23、VB支持自定義數據類型，在某程序中我們定義了如下類型：TypeStudentnumberAsstringnameAsStringageAsIntegerEndType針對上述定義，如下幾項用法正確的是（B）A．S="張三"B．DimsAsS＝"張紅"C．DimsAsTypeStudentD．DimsAsT="張三"="張三"24、一個工程中包含兩個名稱分別為Form1、Form2的窗體，一個名稱為mdlFunc的標準模塊。假定在Form1、Form2和mdlFunc中分別建立了自定義過程，其定義格式為：Form1中定義的過程：PrivateSubfrmfunction1()EndSubForm2中定義的過程：PublicSubfrmfunction2()EndSubmdlFunc中定義的過程：PublicSubmdlFunction()EndSub在調用上述過程的程序中，如果不指明窗體或模塊的名稱，則以下敘述中正確的是（B）A．上述三個過程都可以在工程中的任何窗體或模塊中直接被調用B．只有mdlFunction過程能夠被工程中各個窗體或模塊直接被調用C．frmfunction1只能在form1中調用，而frmfunction2則可以在所有模塊或窗體中被直接調用D．上述三個過程都只能在各自被定義的模塊中直接調用25、VB中Do……Loop結構既可以構成當型循環，也可以構成直到型循環，根據下面的代碼：Dimi,nasIntegern=20i=1DoPrinti;i=i+2LoopUntili>20判斷循環結構的類型和循環體的執行次數，正確的選項是（B）A．當型循環，20次 B．直到型循環，10次C．當型循環，10次 D．直到型循環，20次26、在程序中，使用InputBox函數可以接受用戶的輸入，如果要把它的返回值轉換為數值型的數據，應該使用的函數是（A）A．Val B．LenC．Str D．Log27、動態數組因為在程序運行前無法確定數組的大小，所以經常根據程序的運行情況，對數組進行重新定義，以下關于VB中動態數組的敘述中不正確的是（B）A．可以用ReDim語句重新定義動態數組，并且可以進行多次重定義B．首次用Dim進行動態數組聲明的時候，必須指明它的類型和上下界C．Preserve為ReDim語句的可選參數，用于保留動態數組原來的內容D．當對動態數組使用Erase語句進行釋放操作時，將釋放其內存28、VB中的控件也叫做部件或組件，主要包括三類，以下哪一項不屬于VB控件的分類（C）A．控件 B．可插入對象C．ADO控件 D．ActiveX控件29、表達式4+5\6*7/8Mod9的值是（B）A．4 B．5 C．6 D．730、可以同時刪除字符串前導和尾部空白的函數是（C）A．Ltrim B．Rtrim C．Trim D．Mid第四章常用控件與窗體1、當程序運行時，在窗體上單擊鼠標，以下哪個事件是窗體不會接收到(C)A．MouseDown B．MouseUp C．Load D．Click2、窗體Form1的Name屬性是Frm1，它的單擊事件過程名是（B）A．Form1_ClickB．Form_ClickC．Frm1_ClickD．Me_Click3、用于設置通用對話框控件顯示文件類型的屬性是（A）A．FilterB．PathC．ParternD．FoleName4、用于從內存刪除窗體的命令是（C）A．MoveB．HideC．UnloadD．Delete5、用于返回窗體可用區域寬度的屬性是（A）A．ScaleWidthB．ScaleLeftC．ScaleHeightD．ScaleTop6、下列關于屬性設置的敘述錯誤的是：（A）A．一個控件具有什么屬性是VB預先設計好的，用戶不能改變B．一個控件具有什么屬性是VB預先設計好的，用戶可以改變C．一個控件的屬性即可以在屬性窗口中設置，也可以用程序代碼設置D．一個控件的屬性在屬性窗口中設置，還可以利用程序代碼為其設置新值7、下列說法正確的是（C）A．對象屬性只能在“屬性窗口”中設置B．一個新的工程可以在“工程窗口”中建立C．必須先建立一個工程，才能開始設計應用程序D．只能在“代碼窗口”中編寫程序代碼8、下列關于窗體上控件的基本操作錯誤的是（A）A．按下一次DEL鍵只能刪除一個控件B．按下一次DEL鍵可以同時刪除多個控件C．按住SHIFT鍵，然后單擊每個要選擇的控件，可以同時選中多個控件D．按住ALT鍵，然后單擊每個要選擇的控件，可以同時選中多個控件9、下列關于設置控件屬性的敘述正確的是（C）A．用戶必須設置屬性值B．所有的屬性值都可以由用戶隨意設定C．屬性值不必一一重新設置D．不同控件的屬性項都完全一樣10、不可以通過下列（B）操作將焦點賦給對象A．運行時使用TAB鍵 B．在代碼中用CALL語句調用C．在代碼中用SETFOCUS方法 D．用訪問鍵或用鼠標單擊選擇對象11、要在FORM_LOAD事件過程中使用PRINT方法在窗體上輸出一定的內容，應（C）A．設置窗體的VISIBLE屬性 B．設置窗體的CAPTIONC．調用窗體的SHOW方法 D．設置窗體ENABLED屬性12、下面（C）對象無CAPTION屬性A．FORM B．COMMANDBUTTON C．TEXTBOX D．LABEL13、通用對話框控件和文件列表框控件中，都能根據文件的類型對要顯示的文件進行篩選過濾，后者使用（A）屬性進行該項設置。A．Pattern B．Path C．Filter D．FileName14、對于復選框控件chkBoy，如果在程序中設置它為選中狀態，下面語句正確的是（D）A．chkBoy.Checked=true B．chkBoy.Value=trueC．chkBoy.Selected=true D．chkBoy.Value=115、計時器（Timer）控件用于每隔一段時間自動觸發一次Timer事件，可以有規律地重復執行一段程序，它用于設置兩次事件時間間隔的屬性是（A）A．Interval B．SmallChange C．LargeChange D．Max16、以下關于VB中窗體（Form）的說法中，不正確的描述為（A）A．執行UnloadForm語句后，窗體Form消失，但仍在內存中B．當窗體的Enabled屬性為False時，通過鼠標和鍵盤對窗體的操作都被禁止C．窗體的Height、width屬性用于設置窗體的高和寬D．窗體的load事件在加載窗體時發生17、關于滾動條控件，下面說法錯誤的是（D）A．點擊滾動條的箭頭，可以改變它的value值，從而引發Change事件B．拖動滾動框，可以觸發Scroll事件C．通常，水平滾動條的值從左向右遞增，垂直滾動條的值自上而下遞增D．拖動滾動框，可以觸發Change事件，而且是連續觸發的18、在窗體上放置一個命令按鈕，名稱為Command1。單擊命令按鈕時，執行如下事件過程：PriVateSubCommand1_C1ick()a$="softwareandhardware"b$＝Right(a$,8)c$=Mid(a$,1,8)Msgboxa$,b$,c$,1EndSub則在彈出的信息框的標題欄中顯示的信息是（D）A．softWareandhardware B．softwareC．hardwafe D．出現錯誤19、在多重窗體程序設計中，關鍵的問題是要解決不同窗體之間的銜接和窗體的顯示、關閉等問題，以下關于窗體的相關語句和方法的敘述中，錯誤的是（D）A．Load語句用于加載指定窗體，即在內存中創建該窗體B．Show方法兼具Load語句的功能，可以將窗體顯示出來C．Hide方法用于將窗體隱藏起來D．Unload語句用來釋放窗體，但窗體并沒從內存中消20、滾動條控件的屬性中，表示取值范圍最大值的屬性是（A）A．Max B．LargeChangeC．Min D．Value21、程序中如果需要檢測和控制鼠標的位置和狀態的改變，就需要使用鼠標事件，其中下面哪個選項用于表示拖動事件（C）A．DragDrop B．MouseDownC．MouseUp D．MouseMove22、為了使用通用對話框進行打開文件的操作，應將通用對話框的Action屬性設定為（B）。A．0 B．1 C．2 D．3第五章文件1、利用下面哪個函數可判定訪問文件時是否已到文件尾（C）A．LOFB．LOCC．EOFD．BOF2、用于設置文件列表框控件顯示文件類型的屬性是（C）A．FilterB．PathC．ParternD．FileName第六章圖形操作1、下列關于控件畫法的敘述錯誤的是（D）A．單擊一次工具箱中的控件圖標，只能在窗體上畫出一個相應的控件B．按住CTRL鍵后單擊一次工具箱中的控件圖標，可以在窗體上畫出多個相同類型的控件C．雙擊工具箱中的控件圖標，所畫控件的大小和位置是固定的D．不使用工具箱中的控件工具，不可以在窗體上畫出圖形對象，但可以寫入文字字符2、當一個對象（如窗體或圖片框）被移動或改變大小之后，或當一個覆蓋該窗體被移開之后，如果要保持該所畫圖形的完整性，可以選擇觸發（A）事件來完成圖形的重畫工作A．Paint B．Load C．Click D．Active三、簡答題第一章1、代碼窗口主要包括哪幾部分？2、在工程資源管理器窗口中，主要列出了哪三類文件？3、窗體布局窗口的主要用途是什么？4、VB的基本特點是什么？5、怎樣理解可視化設計？6、怎要理解事件驅動編程？1、事件驅動的含意是什么？舉例說明。2、交互式開發方法和傳統的應用程序開發過程有什么不同？3、文本框在什么情況下使用？4、什么是工程？5、結構化程序設計的三種基本結構是什么？6、對象的三要素是什么？并分別進行簡單的解釋。7、為什么要生成可執行文件和制作安裝盤？8、使用變量前先聲明有什么好處？9、如何使用幫助功能？10、結構化程序設計的特點是什么？11、為了把焦點移到某個指定的控件，在代碼中應使用的方法是什么？12、啟動VisuaBasic后，只創建了一個窗體，若此時保存，需要保存幾個文件？各是什么文件？先保存的是哪一個？13、為了防止文本框中的信息運行后被用戶修改，應設置什么屬性？第二章1、全局變量聲明有哪些限制？2、字符串是否可以自動轉換為數字類型？3、用Format函數格式化后的字符格式在不同區域環境下的輸出是否相同？為什么？4、在InputBox函數中，哪一個參數是必需的？5、在MsgBox函數中哪一個參數是必須的？6、在什么情況下使用過程？7、為什么要進行程序調試？8、調試程序有哪些手段？9、用語句DimA(-3To5)AsInteger定義的數組的元素個數是多少？10、設有如下的VisualBasic表達式：5*x^2-3*x-2*Sin(a)/3，與它對應的數學式是什么？11、數學式對應的VB表達式是什么？12、表達式2>3And4<=5Or4>4的值是什么？13、怎樣在程序中設置斷點？14、在什么情況下可以設置斷點？15、程序出錯的類型有哪幾種？16、在同一模塊、不同過程中聲明的相同變量名，兩者是否表示同一個變量？為什么？17、什么情況下會出現“數組下標越界錯誤”？18、逐語句和逐過程有什么區別？19、表達式2.75*2\3.45的值是什么？20、在程序設計中為什么盡量不用GoTo語句？第四章1、什么是單選按鈕？什么是復選框？在使用上有什么不同？單選按鈕用來顯示一個可以打開或關閉選項，而且在同一組中的單選按鈕控件，用戶只能選擇其中的一項。2、滾動條的change事件和scroll事件有什么不同？主要是用鼠標拖動滑塊時對Value屬性的影響不同。3、快捷鍵和訪問鍵有什么區別？快捷鍵是執行某一個菜單項的鍵盤命令，常用形式Ctrl+字母，訪問鍵是打開一個菜單的鍵盤命令，常用形式Alt+字母。4、在程序運行期間，如果拖動滾動條上的滾動塊（即滑塊），則觸發滾動條的什么事件？Scroll事件5、假定有一個菜單項，名為MenuItem，為了在運行時使該菜單項失效（變灰），應使用什么語句？MenuItem.Enabled=False6、為了暫時關閉計時器（即時鐘控件），應把該計時器的什么屬性設置為False？Interval屬性7、單選按鈕和復選框（即檢查框）各用于什么情況？單選按鈕用于只能選擇一個的情況下，復選框（即檢查框）用于可以選擇多個的情況下8、如何為一個菜單項設置熱鍵和快捷鍵？為一個菜單項設置熱鍵時需要在相應字符前面加&，設置快捷鍵需要在菜單編輯器中選擇9、菜單的形式有哪兩種？菜單的形式有兩種：下拉式菜單和彈出式菜單10、在KeyPress事件中，如何取消用戶剛輸入的字符？在KeyPress事件中，若想取消用戶剛輸入的字符，只要將該事件的參數設置為0即可11、框架的作用是什么？框架主要是用作容器，可以實現多組單選按鈕，并且可以美化界面12、如果要計時器每秒鐘發生4個Timer事件，則Interval屬性值應設多少？如果要計時器每秒鐘發生4個Timer事件，則Interval屬性值應設25013、在一個窗體的程序代碼中能否訪問另一個窗體上控件的屬性？若不行則請說明理由；若行則請說明如何訪問。在一個窗體的程序代碼中可以訪問另一個窗體上控件的屬性，在訪問時只要寫上窗體名稱即可14、如何在框架中建立控件？先建立框架，然后再在其中建立控件15、組合框有哪幾種類型？下拉式組合框、簡單組合框、下拉式列表框第五章1、什么是文件？存放在外部存儲介質上的數據和程序等。2、文件存取分成幾類，幾種模式？文件的存取分為順序型、隨機型、二進制型，其編碼方式分為ASCⅡ碼文件和二進制文件。3、順序文件、隨機文件和二進制文件各有什么特點和用途？順序文件：文件中每一個字符都被假設為代表一個文本字符或者文本格式序列，數據被存儲ANSI字符，這類文件的信息按照順序從頭到尾排列，只提供第一條記錄的存儲位置，因而順序文件只用于要求少量空間，不經常進行數據修改的有規律的文件。隨機文件：隨機文件由記錄組成，能夠隨機存取相同長度的數據記錄，每一數據記錄內可以設計各種欄位，以容納不同的數據，各數據記錄長度相同，數據類型可以不同，隨機文件有一定的磁盤空間的浪費。二進制文件：二進制文件與隨機文件類似，但不必限制記錄的長度，可以用喜歡的方式存取文件，二進制訪問能提供對文件的完全控制，通過使用二進制型訪問可使磁盤空間的使用降到最小。4、文件有哪幾種類型？它們的區別是什么？****書本有5、請說明PRINT#和WRITE#語句的區別Print#語句用來將一個或多個格式化的數據寫入順序文件，Write#語句的用法和Print#語句相似，不同的是：輸出的數據采用緊湊格式存放，數據項之間自動用逗號分開；輸出的字符串自動用引號擴起來。6、EOF函數的功能是什么？在讀取數據時，如果已到達文件結尾，繼續讀會被終止并產生一個錯誤。為了避免出錯，常在讀操作前用EOF函數檢測是否已經達到文件末尾第六章、1、在什么情況下使用Image控件而不使用PictureBox控件？Image控件中圖形可以伸展以適應控件的大小，而在PictureBox控件中權可通過調整控件的大小以適合圖形的大小，圖形本身單不伸縮，因此，當需要調整圖形大小時，應使用Image控件。2、在程序運行時怎樣在圖形框中裝入和刪除圖形？程序運行時，在圖形框中裝入和刪除圖形是利用LoadPicture函數，只要參數為空或為零長度字符串，即可刪除圖形；否則，即為裝入圖形3、顏色函數主要有哪些？顏色函數主要有：RGB、QBColor第七章、1、什么是模塊？模塊是具有一定功能的代碼的集合，VB中提供了三種類型的模塊：窗體模塊、標準模塊、類模塊。第八章、1、什么是多文檔界面（MDI）？多文檔界面是指在一個父窗口下面可以同時打開多個子窗口。子窗口歸屬于父窗口，如果父窗口關閉，則所有子窗口全部關閉。2、說明菜單欄、菜單、選項和工具欄之間的關系。窗體的頂部一般含有菜單欄和工具欄，菜單欄中是菜單，菜單中含有菜單項，工具欄上有工具按鈕，工具欄上的工具按鈕實際上就是菜單中某一菜單選項的功能，工具欄上的工具體現了大部分菜單的功能。3、結束MDI應用程序時，需要注意什么？應關閉所有窗體，防止數據丟失。第九章、1、表間的關系類型有三種：一對一、一對多和多對多2、VisuaBasic中的記錄集有三種類型，具體請參見教材第九章第三章VB基本語言四、讀程序題1、分析以下程序，寫出運行結果。PrivateSubForm_Click()score=Int(Rnd*10)+80SelectCasescoreCaseIs<60A$="F"Case60To69A$="D"Case70To79A$="C"Case80To89A$="B"CaseElseA$="A"EndSelectPrintA$EndSub結果如下：B2、讀下面的程序，分析其功能，寫出運行結果。在窗體上有一個命令按鈕，名稱為Command1。然后編寫如下程序：PrivateSubCommand1_Click()ForI=1To4ForJ=0ToIPrintChr$(65+I);NextJPrintNextIEndSub程序運行后，如果單擊命令按鈕，則在窗體上顯示的內容是什么？結果如下：BBCCCDDDDEEEEE3、閱讀下面的程序，分析并寫出其功能。Subinsert(a()AsSingle,ByValxAsSingle)Dimmasinteger,nasintegern=1DoWhilen<20Andx>a(n) n=n+1LoopForm=20-1TonStep–1 a(m+1)=a(m)Nextma(n)=xEndSub功能如下：在20個由小到大排列的數據中插入一個數，插入數據后的數據仍按由小到大的順序排列。4、分析以下程序，寫出運行結果。SubsubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommandl_Click()Dima(1To4)AsIntegera(1)=5a(2)=6a(3)=7a(4)=8subPa()Fori=1To4Printa(i)NextiEndSub運行上面的程序，單擊命令按鈕，輸出結果是什么？輸出結果為：24685、分析以下程序，寫出運行結果。Subsele()DimnasIntegeri=21:n=3DoWhilei>ni=i－nLoopPrintiEndSub輸出結果為：36、分析以下程序，寫出運行結果。SubselectPrint()DimaasIntegerDimbasIntegerDimcasIntegera=2:b=5:c=2If(a>=b)and(a>=c)or(b>c)ThenPrintaa=a+2ElsePrintbEndIfPrinta;b;cEndSub輸出結果為：24527、分析以下程序，寫出運行結果。Subswap()DimxasIntegerDimyasIntegerDimzasIntegerx=1:y=2:z=0Printx;y;zx=x+yx=x*zPrintx,y,zEndSub輸出結果為：1200208、分析以下程序，寫出運行結果。SubselectPrint()DimaasIntegerDimbasIntegerDimcasIntegera=3:b=3:c=2If(a>=b)and(a>c)ThenPrintaPrinta,b,cEndSub輸出結果為：3332第四章常用控件與窗體1、對窗體編寫如下代碼：OptionBase1PrivateSubForm_KeyPress(KeyAsciiAsInteger)a=Array(237,126,87,48,498)m1=a(1)m2=1IfKeyAscii=13ThenFori=2To5Ifa(i)>mlThenm1=a(j)m2=iEndIfNextiEndIfPrintm1Printm2EndSub程序運行后，按回車鍵，輸出結果是什么？輸出結果為：49852、閱讀下面的程序，寫出執行結果。PrivateSubForm_load()Form1.showd=0Fora=1To2Forb=1ToaForc=bTo5d=d+1NextcNextbNextaPrintdEndSub結果如下：14五、編程題1、輸入一年號，判斷它是否是閏年。界面如下圖所示，包括兩個標簽、一個文本框和一個命令按鈕。提示：如果此年號能被400整除或者不能被400除盡，也不能被100除盡，但能被4整除，則它是閏年；否則，不是閏年。1、參考代碼如下：PrivateSubCommand1_Click()Dimyear,xAsIntegeryear=Val(Text1.Text)IfyearMod400=0ThenLabel2.Caption="是閏年"Else'下面是嵌套塊If語句IfyearMod4=0AndyearMod100<>0ThenLabel2.Caption="是閏年"ElseLabel2.Caption="不是閏年"EndIfEndIfEndSub2、輸入兩個正整數m、n，求m和n的最大公約數。要求建立如下圖所示的窗體，其中主要的控件包括：兩個標簽（Lable1、Lable2）、兩個文本框（Text1、Text2）和一個按鈕（Command1）。2、程序參考代碼如下：PrivateSubCommand1_Click()Dimm,n,rAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)Ifm<0Orn<0Then‘若判斷為非法數據，Then子句輸出相應信息Label2.Caption="輸入數據有錯！"Else‘若判斷為合法數據，Else子句用輾轉相除法求余數r=mModnDoWhiler<>0m=nn=rr=mModnLoop‘循環結束后n中存放的就是最大公約數，輸出n值Label2.Caption="最大公約數為："&nEndIfEndSub3、輸入某學生成績（百分制），若是100≥成績≥90輸出優秀；若是90＞成績≥80輸出良好；若是80＞成績≥70輸出中等；若是70＞成績≥60輸出及格；若是60＞成績≥0，輸出不及格；若是其他數則輸出error信息。3、參考代碼如下：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="優秀"EndIfEndSub4、在窗體中顯示從9號字型到16號字型。4、參考代碼如下：PrivateSubForm_Load()DimiAsIntegerShow'使輸出可見Form1.Font="新宋體"Fori=9To16Step1Form1.FontSize=iPrinti;"號字型"NextiEndSub5、在有序序列中插入一個數，使插入后的數列仍然有序（設按由小到大排列）。5、參考代碼如下：PrivateSubCommand1_Click()Dima(1To11)AsSingle'定義靜態數組a含11個元素Dimi,jAsIntegerDimnumAsSingle'給數組元素賦初值，即原始隊列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'輸出原始隊列Fori=1To10Label2.Caption=Label2.Caption&a(i)&","Nextinum=Val(Text1.Text)'把輸入的數插入隊列中Fori=10To1Step-1Ifnum<a(i)Thena(i+1)=a(i)'元素后移一個位置elsea(i+1)=numExitFor'退出循環EndIfNexti'輸出新隊列 Fori=1To11Label3.Caption=Label3.Caption&a(i)&","NextiEndSub6、編程實現二維數組轉置。6、參考代碼如下：OptionBase1PrivateSubForm_Load()ConstN=4'常量N決定二維數組大小Dima(N,N)AsIntegerDimi,j,TempAsIntegerShow'數組初始化Fori=1ToN'For循環i從1變化到NForj=1ToNa(i,j)=i*10+jNextjNexti'輸出原始數組Print"轉置前的數組："Fori=1ToN'For循環i從1變化到NForj=1ToNPrinta(i,j);NextjPrintNexti'數組轉置Fori=1ToN'For循環i從1變化到NForj=1Toi'交換Temp=a(i,j)a(i,j)=a(j,i)a(j,i)=TempNextjNexti'輸出轉置后的數組Print"轉置后的數組："Fori=1ToN'For循環i從1變化到NForj=1ToNPrinta(i,j);NextjPrintNextiEndSub7、隨機輸入10個100以內的整型數，計算其和及平均值。7、參考代碼如下：PrivateSubForm_Click()Dima(10)AsInteger,iAsIntegerDimsumAsInteger,aveAsIntegersum=0Fori=1To10a(i)=Int(Rnd*101)sum=sum+a(i)Nextiave=sum/10Printsum,aveEndSub8、找出所有的水仙花數。水仙花數是個三位數，它的各位數字的立方和等于這個三位數本身。例如371＝33+73+13，則371是水仙花數。8、參考代碼如下：PrivateSubForm_Load()Dimi,j,k,FlowerAsIntegerShowFori=1To9Forj=0To9Fork=0To9Flower=i*100+j*10+kIfFlower=i^3+j^3+k^3ThenPrintFlower;"是水仙花數"NextkNextjNextiEndSub9、從鍵盤輸入一個大于2的正整數，判斷該數是否是素數。9、程序參考代碼如下：PrivateSubCommand1_Click()Dimm,i,yAsIntegerm=Val(Text1.Text)Ifm<=2ThenLabel2.Caption="輸入數據有錯"Elsek=Sqr(m)+1Fori=2Toky=mModiIfy=0ThenExitForNextiIfy=0ThenLabel2.Caption=m&"不是素數"ElseLabel2.Caption=m&"是素數"EndIfEndIfEndSub10、求二維數組中的最小值及其所在行號、列號。10、程序參考代碼如下：OptionBase1PrivateSubForm_Load()ConstN=5'常數N確定數組的大小Dima(N,N)AsIntegerDimi,j,row,line,minAsIntegerShowFori=1ToN'For循環i從1變化到NForj=1ToN'For循環j從1變化到Na(i,j)=Int(100*Rnd)+1'產生N*N個1~100間的隨機數NextjNexti'輸出二維數組Print"數組內容是："Fori=1ToNForj=1ToNPrinta(i,j);NextjPrint'輸完一行元素后輸出一個換行Nexti'設定初始值min=a(1,1):row=1:line=1'尋找最小數Fori=1ToNForj=1ToNIfa(i,j)<minThenmin=a(i,j)row=iline=jEndIfNextjNexti'輸出結果Print"最小值是：";minPrint"在第";row;"行第";line;"列"EndSub11、求一元二次方程ax2+bx+c=0的根（包括實根和復根）。11、參考代碼如下：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="是一元一次方程:"Ifb<>0thenText4.Text="x1="&-c/bElse Ifc=0thenText4.Text="有無窮根"ElseText4.Text="無根"EndifEndifElse'下面嵌套塊If語句Ifdelt=0ThenLabel2.Caption="有兩個相等的實根:"Text4.Text="x1="&-b/2/aText5.Text="x2="&-b/2/bElseIfdelt>0ThenLabel2.Caption="有兩個不等的實根:"Text4.Text="x1="&(-b+Sqr(delt))/(2*a)Text5.Text="x2="&(-b-Sqr(delt))/(2*a)ElseLabel2.Caption="有兩個共軛復根:"realpart=-b/(2*a)imagpart=Sqr(-delt)/(2*a)Text4.Text="x1="&realpart&"+"&imagpart&"i"Text5.Text="x2="&realpart&"-"&imagpart&"i"EndIf'此行EndIf部分與內層的塊If語句對應EndIf'此行EndIf部分與外層的塊If語句對應EndSub12、輸入一個正整數n，計算出n!并輸出。12、參考代碼如下：PrivateSubCommand1_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&"!="&tEndIfEndSub13、Faibonacci數列為0，1，1，2，3，5，8，13…，計算并輸出第20項以及前20項的和。13、參考代碼如下：PrivateSubForm_Load()DimPrev,Last,NewOne,sumAsLongDimiAsIntegerPrev=0:Last=1:sum=Prev+LastFori=3To20NewOne=Prev+Lastsum=sum+NewOnePrev=LastLast=NewOneNextiLabel1.Caption="第20項為"&NewOneLabel2.Caption="前20項的和為"&sumEndSub第四章常用控件與窗體五、編程題1、在窗體上有一個文本框控件，名稱為TxtTime；一個計時器控件，名稱為Timer1，要求每一秒在文本框中顯示一次當前的時間，請編程實現。1、參考代碼如下：PrivateSubForm_Load()Timer1.Interval=1000EndSubPrivateSubTimer1_Timer()Txttime.text=TimeEndSub2、在Text1中輸入任一英文字母，在Text2中顯示該英文字母及其ASCII碼值。要求在文本框Text2中顯示出所有輸入的英文字母及其ASCII碼值，如下圖所示。Text1Text1Text2Command12、參考代碼如下：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=0Text1.SelLength=Len(Text1.Text)EndSub3、編寫一個程序，能夠實現任意個整數的排序。4、編程實現以下功能：用戶首先分別在兩個文本框中輸入兩個數，然后在具有“加、減、乘、除”等四個菜單項的“計算”菜單中單擊某一項，即可在標簽中顯示出相應的結果或者錯誤提示。5、編程實現任意兩個數的“加、減、乘、除”。6、編寫一個程序，能夠求任意個正整數的最大值和最小值。7、編程求任意兩個正整數的最大公約數。六、程序分析填空題六、程序分析填空題1、建立一個如圖所示的簡單編輯器。用戶在文本框（text1）中輸入正文后，選中某些文本時可進行“剪切”、“復制”和“粘貼”操作。假設在窗體聲明部分定義了一個變量str1，用于保存復制和剪切的內容，請把剪切按鈕(btnCut)的Click事件補充完整。程序運行界面：PrivateSubbtnCut_Click()‘請補充Str1=text1.selTexttext1.selText=“”EndSub2、計算1+2+3+……+100的和并輸出。請把下面用Do