第1頁共1頁在您完成作業過程中，如有疑難，請登錄學院網站“輔導答疑”欄目，與老師進行交流討論！《可視化程序設計》作業一、選擇題1．用來將窗體隱藏，而并非從內存中刪除的方法是（）。A.窗體名稱.HideB.Exit窗體名稱C.窗體名稱.ExitD.Unload窗體名稱2．將列表框（ListBox）上要顯示的內容放到列表框控件上的方法是（）。A.AdditemB.DataSourceC.ListIndexD.ToolTipText3．為了在運行時能顯示窗體左上角的控制框（系統菜單），必須（）。A．把窗體的Contro1Box屬性設置為Fale,其他屬性任意B．把窗體的ControlBox屬性設置為True,并且把BoderStyle屬性設置為1-5C．把窗體的ControlBox屬性設置為False,同時把BoderStyle屬性調協為非0值D．把窗體的ControlBox屬性設置為True,同時把BoderStyle屬性設置為0值4．有關多文檔界面（Multipledocument．nbspInterface）的不正確描述是（）。A．多文檔界面（MDI）是指在一個父窗口下面可以同時打開多個子窗口B．子窗口歸屬于父窗口C．如果父窗口關閉，則所有子窗口全部關閉D．如果所有子窗口全部關閉，則父窗口關閉5．程序運行后，在窗體上單擊鼠標，此時窗體不會接收到的事件是（）。A.MouseDownB.MouseUpC.LoadD.Click6．下列選項中全部屬于SQL語言的常用命令的是（）。A．Create、From、Drop、InsertB．Where、From、Drop、InsertC．Create、Alter、Drop、InsertD．Between、From、Drop、Insert7．在窗體上按下鼠標左鍵后釋放，不會觸發窗體的哪個事件()。A．MouseDownB．MouseUpC．DblclickD．Click8．為了把焦點移到某個指定的控件，所使用的方法是()A．SetFocusB．VisibleC．RefreshD．GetFocus9．可以同時刪除字符串前導和尾部空白的函數是()A．LtrimB．RtrimC．TrimD．Mid10．表達式4+5\6*7/8Mod9的值是()A．4B．5C．6D．711．下列語句中的語句()可以實現順序文件的按行讀取操作。A.Input＃B．LineInput#C．Print#D．Get#12．MsgBox函數中哪一個參數是必須的()A．promptB．buttonsC．titleD．context13．為了在按下回車鍵時執行某個命令按鈕的事件過程，需要把該命令按鈕的一個屬性設置為True，這個屬性是()。A．ValueB．DefaultC．CancelD．Enabled14．一個對象可以執行的動作和可被對象識別的動作分別稱為：（）A．事件、方法B．方法、事件C．屬性、方法D．過程、事件15．下列數值型數據類型中表示精度最高的是（）A．SingleB．DoubleC．LongD．Currency16．使用PublicConst語句來聲明一個全局變量，該語句可放在下列什么地方。（）A．過程中B．窗體模塊的聲明段C．標準模塊的聲明段D．窗體模塊或標準模塊的聲明段17．執行下面的程序段后，x的值為。（）x=5Fori=1To20Step2x=x+i\5NextIA．21B．22C．23D．2418．在菜單設計時，在某菜單項（Caption）中一個字母前加以“&”符號的含義是。（）A．設置該菜單項的“訪問鍵”，即該字母帶有下劃線，可以通過鍵盤操作Ctrl+帶下劃線的字母選擇該菜單項B．設置該菜單項的“訪問鍵”，即該字母帶有下劃線，可以通過鍵盤操作Alt+帶下劃線的字母選擇該菜單項C．設置該菜單項的“訪問鍵”，即該字母帶有下劃線，可以通過鍵盤操作Shift+帶下劃線的字母選擇該菜單項D．在此菜單項前加上選擇標記19．為了在按下回車銉時執行某個命令按鈕的事件過程，需要把該命令按鈕的一個屬性設置為True.A.ValueB.DefanltC.CancelD.Enabled20．用下面語句定義的數組的元素個數是()。DimA(-3To5)AsIntegerA．6B．7C．8D．921．利用以下哪個函數可以判斷在訪問文件時是否已經到達了文件尾（）。A．LOFB．LOCC．EOFD．BOF22．假定有一個菜單項，名為MenuItem，為了在運行時使該菜單項失效（變灰），應使用的語句為（）。A．MenuItem.Enabled=FalseB．MenuItem.Enabled=TrueC．MenuItem.Visible=TrueD．Menultem.Visible=False23．工程文件的擴展名是（）。A．.vbgB．.vbpC．.vbwD．.vbl24．以下控件中可以作為容器控件的是（）。A．Image圖像框控件B．PictureBox圖片框控件C．TextBox文本框控件D．ListBox列表框控件二、填空題1．執行下面的程序段后，s的值為（）。s=5Fori=2.6To4.9Step0.6s=s+1NextI2．為了在運行時把圖形文件picfile.jpg裝入圖片框Picture1,所使用的語句為（）。3．為了把焦點移到某個指定的控件，所使用的方法是（）。4．表達式（-3）Mod8的值為（）。5．當窗體第一次顯示時或者改變窗體的大小時所觸發的事件是（）。6．VisualBasic提供的對數據文件的三種訪問方式為隨機訪問方式、（）和二進制訪問方式。7．VisualBasic中有一種控件組合了文本框和列表框的特性，這種控件是（）。8．定時器控件的Interval屬性值是指時間間隔，單位為（1）；當每隔此間隔的時間，定時器會觸發一次（2）事件。9．語句OptionEcplicit的作用是（）。10．VB中使用Do...Loop循環語句（循環體中不包含ExitDo語句）和While...Wend循環語句時，在循環體中一定要有（）的功能，否則會造成死循環。11．要使按鈕表面上顯示的文字為“退出（Q）”（其中“Q”為快捷鍵），則按鈕的Caption屬性的值應為（）。12．編譯錯誤是指VB在編譯應用程序時發現的錯誤，其產生的主要原因是（）。13．Activex控件其文件擴展名是（）。14．寫出PrintNot(3>8),(3>9)Or(5<6)And(7>=0),(8>3)語句執行后的結果：（）。15．默認情況下實際參數與形式參數之間是按（）傳遞的。16．根據事件產生的來源，可以將事件分為（1），（2），（3）三種。17．用語句DimA(-3To5)AsInteger定義的數組的元素個數是（）。18．在VB中向組合框中增加數據項所采用的方法為（）。19．在窗體中添加一個命令按鈕，然后編寫如下代碼：PrivateSubCommand1_Click()a=InputBox("請輸入一個整數")B=InputBox("請輸入一個整數")PrintVal(a)+Val(B)EndSub程序運行后，單擊命令按鈕，在輸入對話框中分別輸入21和45，輸出結果為（）。20．設A=5，B=6，C=7，D=8，計算表達式3>2*BORA=CANDB<>CORC>D的值是（）。21．如果變量a、b、c均為整型，下列程序段的輸出結果為（）。a=2b=3c=a*bPrinta&“*”&b&“=”&c22．執行mid(“Youareagoodstudent”,11,4)的值為（）。23．文件號參數是VB分配給一個文件的編號，它的范圍是（）。24．在程序中用print方法將某些變量，表達式或屬性的值直接輸出到立即窗口中，其語法格式為（）。25．將窗體裝載到內存中時發生的第一個被執行的事件是（）。26．在VB中窗體可分為（1）和（2）兩種類型。27．用于清除窗體中用Print方法顯示的信息和用繪圖方法生成的圖形的方法是（1），用于移動并改變窗體的位置和大小的方法是（2）。28．使用Frame控件將其他控件分組時，應先畫（1），再畫（2）。29．VB中的控件分為內部控件、ActiveX控件和（）三類。30．通用過程和函數過程最根本的區別是（）。31．公用對話框中用于設置或返回所產生的對話框的類型的屬性是（）。32．文本框中所顯示的內容是它的（）屬性的值。33．如果要使一個普通窗體成為一個MDI子窗體應該將該窗體的（1）屬性修改為（2）。34．可以惟一標識控件數組中的每一個控件屬性的是（）。35．執行下面的程序段后，b的值為（）。a=300b=20a=a+bb=a-ba=a-b36．以下程序段的輸出結果是（）。num=0Whilenum<=2num=num+1WendPrintnum37．局部變量只能在（）中聲明和使用。38．通過設置控件的（）屬性，可使該控件不能通過Tab鍵得到焦點。39．若要使用戶不能修改文本框TextBox1中內容，應修改（）屬性。40．寫在一行上的多條語句，應以（）為分隔符。41．圖像框有一個屬性，可以自動調整圖形的大小，以適應圖像框的尺寸，這個屬性是（）。三、判斷題1．VisualBasic程序的運行可以從main()過程啟動,也可以從某個窗體啟動。（）2．在按地址傳遞參數時，實際參數不能是常量或表達式，否則不能實現按地址傳遞參數。（）3．Err對象的方法Clear可以使Err對象的屬性值重置為0或空字符串。（）4．窗體文件的擴展名為.frm，每個窗體對應一個窗體文件。（）5．Mid(S,2,3)可以獲得字符串S從第2個字符開始的3個字符。（）6．ReDim語句只能出現在過程中。（）7．利用Cls方法也可以清除圖片框中Picture屬性指定的圖片。（）8．在MDI界面中，當父窗體關閉，子窗體也隨之關閉。（）9．比較圖片框PictureBox和圖像框Image的使用，兩類控件都可以設置AutoSize屬性，以保證裝入的圖形可以自動改變大小。（）10．resize事件與窗體的autoredraw屬性有關。當其值設置為true時，如果窗體顯示或改變大小，則引發resize事件，同時觸發paint事件。（）11．在執行redim語句時存儲在數組中的數據會全部丟失。（）12．菜單項的訪問鍵在菜單的標題屬性中設置。（）13．使用Dim語句聲明了一個變量后，可使用ReDim語句把此變量重新聲明為其他的類型。（）14．設A=5,B=6,C=7,D=8,計算表達式3>2*BORA=CANDB<>CORC>D的值是True。（）15．滾動條控件的LargeChange屬性所設置的是滾動條中滾動塊的最大移動位置。（）16．過程的遞歸調用，指的是一個過程可以通過調用自己來完成某個特定的任務。（）17．以.BAS為擴展名的文件是標準模塊文件。（）18．窗體標題欄的內容取決于Name屬性。（）19．一般數組的索引號必須連續，控件數組的下標可以不連續。（）20．下列符號都可作為變量名來使用：temp、sub1、3flag、if、my.1。（）21．利用clear方法可以從listimages集合中刪除一個listimage對象。（）22．在VB中除采用close語句關閉文件之外，沒有其它的方法可以關閉已經打開的文件。（）23．編譯錯誤指的是VB在編譯應用程序的過程中發現的錯誤。（）24．內部控件可根據需要插入控件箱中或從控件箱刪除。（）四、讀程題1．窗體中有一公共對話框Comdialog1和一個命令按鈕Command1，當單擊按鈕時打開顏色對話框。請在[1]處將程序補充完整。PrivateSubCommand1_Click（）ComDialog1.（1）EndSub2．運行下面的程序單擊窗體后x＝（1）、y＝（2）。DimxAsIntegerDimyAsIntegerSubsub1()DimxAsIntegerx=x+1y=y+5EndSubPrivateSubForm_Click()Callsub1x=x*1y=y+1EndSub3．以下程序的功能是：隨機生成20個200到300之間的隨機整數，輸出其中能被5整除的數并求出它們的和。請填空（1）、（2）、（3）。Subsubname()DimyAsIntegery=0Whiley<>20x=Int(（1）*200+100)IfxMod5=0ThenPrintx（2）s=s+（3）EndIfWendPrint"Sum＝";sEndSub4．運行下面的程序，當窗體被點擊兩次后窗體上顯示：（）（假設窗體的name屬性值為Form1）PrivateSubForm_Click()Form1.clsStaticSumAsIntegerI=1Whilei<=10Sum=Sum+II=I+1WendPrintSumEndSub5．閱讀下面程序，當單擊窗體之后，窗體上輸出的是（）。PrivateSubForm_Clic（）DimiAsInteger,jAsIntegerDimkAsIntegerk=0Fori=0To10Step3Forj=1To10Ifj>=5Theni=i+4:ExitForj=j+1k=k+1NextIfi>8ThenExitForNextPrintkEndSub6．以下程序的功能是：從鍵盤上輸入若干個學生的考試分數，統計并輸出最高分數和最低分數，當輸入負數時結束輸入，輸出結果，請將程序補充完整。PrivateSubForm_Click()Dimx,amax,aminAsSinglex=InputBox("Enterascore")amax=xamin=xDoWhile（1）Ifx>amaxThenamax=xEndIfIf（2）Thenamin=xEndIfx=InputBox("Enterascore")LoopPrint"max=";amax,"min=";aminEndSub7．有一計算程序，該程序用戶界面如圖所示，由4個文本框：文本框1（Text1）、文本框2（Text2）、文本框3（Text3）、文本框4（Text4）和三個按鈕：清除（Command1）、計算（Command2）、退出（Command3）組成。程序運行后，單擊清除按鈕，則清除文本框中顯示的內容；單擊計算按鈕，則計算3科平均成績并將結果存放在文本框4中；單擊退出按鈕則退出。請將下列程序補充完整。PrivateSubCommand1_Click()Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand2_Click()IfText1.Text=""OrText2.Text=""OrText3.Text=""ThenMsgBox"成績輸入不全"ElseText4.Text=(（1）+Val(Text2.Text)+Val(Text3.Text))/3EndifEndSubPrivateSubCommand3_Click()Unload（2）EndSub8．下列代碼要求工程裝入時彈出輸入窗口，輸入數據后關閉窗體。請完成代碼。PrivateSubForm_(1)()InputBox"請輸入數據(2)EndSub9．當執行完下面這一段程序后y的值為：（）Subsubname(x)x=x+1printxendsubdimyasintegery=0fori=1to3callsubname(y)next10．完成下面的求2到50以內奇數的積的過程Submult（）DimsumasIntegersum=1DimiasintegerFori=2to50ifiMOD2=1Then（1）（2）PrintsumEndSub11．一個過程用來輸出1到10之間