可視化程序設(shè)計VB模擬題

1、一、單項選擇題：（每小題2分，共24分）1、通過設(shè)置Shape控件的（）屬性可以繪制多種形狀的圖形。A、ShapeB、BorderstyleC、FillstyleD、Style2、通過設(shè)置Line控件的（）屬性可以繪制虛線、點劃線等多種樣式的直線。A、ShapeB、StyleC、FillstyleD、Borderstyle3、通用過程可以通過執(zhí)行“工具”菜單中的（）命令來建立。A、添加過程B、通用過程C、添加窗體D、添加模塊4、在窗體模塊的通用聲明段中聲明變量時，不能使用（）關(guān)鍵字。A、DimB、PublicC、PrivateD、Static5、使用Public Const語句聲明一個全局的符

2、號常量時，該語句應(yīng)放在（ ）。A、過程中B、窗體模塊的通用聲明段C、標(biāo)準(zhǔn)模塊的通用聲明段D、窗體模塊或標(biāo)準(zhǔn)模塊的通用聲明段6、可以在窗體模塊的通用聲明段中聲明（）。A、全局變量B、全局常量C、全局?jǐn)?shù)組D、全局用戶自定義類型7、在Visual Basic中按文件的訪問方式不同，可以將文件分為（）。A、順序文件、隨機(jī)文件和二進(jìn)制文件B、文本文件和數(shù)據(jù)文件C、數(shù)據(jù)文件和可執(zhí)行文件D、ASCII文件和二進(jìn)制文件8、在順序文件中（）。A、每條記錄的記錄號接從小到大排序B、每條記錄的長度按從小到大排序C、按記錄的某個關(guān)鍵數(shù)據(jù)項的排序順序組織文件D、記錄按寫入的先后順序存放，并按寫入的先后順序讀出9、在隨機(jī)

3、文件中（）。A、記錄號是通過隨機(jī)數(shù)產(chǎn)生的B、可以通過記錄號隨機(jī)讀取記錄C、記錄的內(nèi)容是隨機(jī)產(chǎn)生的D、記錄的長度是任意的10、使用驅(qū)動器列表框的（ ）屬性可以返回或設(shè)置磁盤驅(qū)動器的名稱。A、ChDriveB、DriveC、ListD、ListIndex11、改變驅(qū)動器列表框的Drive屬性值將激活（ ）事件。A、ChangeB、ScrollC、KeyDownD、KeyUP12、下列（）組關(guān)鍵字是Select語句中不可缺少的。A、Select、FromB、Select、AllC、From、OlrByD、Select、here 二、填空題：（每空1分，共26分）1、GUI是指。2、傳統(tǒng)的編程方法是面

4、向的，Visual Basic是一種面向的程序設(shè)計開發(fā)工具。3、VB用于開發(fā)環(huán)境下的應(yīng)用程序。4、VB6.0有、三種版本。5、一個工程可包括多種類型的文件，其中，擴(kuò)展名為Vbp的文件表示文件；擴(kuò)展名為Frm的文件表示文件；擴(kuò)展名為上Bas的文件表示文件；包含ActiveX控件的文件擴(kuò)展名為。6、對象是代碼和數(shù)據(jù)的集合，例如，Visual Basic中的、等都是對象。7、一個VB應(yīng)用程序可以包括三種模塊：、和。8、每一個過程都有一個使用范圍，過程的使用范圍稱為。9、在過程中用；定義的變量都是局部變量。10、列表框中的和屬性是數(shù)組。列表框中項目的序號是從開始的。列表框 Listl中最后一項的序號用

5、表示。11、要設(shè)置Data控件連接數(shù)據(jù)庫的名稱，需要設(shè)置其屬性。要設(shè)置Data控件連接的數(shù)據(jù)庫類型，需要設(shè)置其屬性。三、閱讀程序，寫出結(jié)果：（每小題5分，共25分）1、下面程序是什么結(jié)構(gòu)，功能是什么?Public Function fn（n As Integer）As IntegerIf n=1 ThenFn=1ElseFn=n*fn(n-1)End if2、下面程序運行后的輸出結(jié)果是什么?Private Sub Command1_Click() X$=“A”Y$=“B”Z$=“C”For I=1 To 2X$=Y$：Y$=Z$：Z$=X$Next IPrint X$+Y$+Z$End Sub

6、3、下面程序的功能是什么?Private Sub Command1_Click() Dim x As Integer, y As IntegerX=1:y=0Do while x5y=y+x：x=x+1loopprint x,yEnd Sub4、有如下事件過程，寫出程序的功能（數(shù)學(xué)表達(dá)式）。Private Sub Command1_Click()T=0:M=1Sum=0DoT=T+MSum=Sum+TM=M+2Loop While Ma ThenD=a:a=b:b=dEnd IfIf ca Thend=a:a=c:c=dEnd IfIf cb Thend=b:b=c:c=dEnd IfLabe

7、l1.Coption=aLabel2.Coption=bLabel3.Coption=cEnd sub2、程序代碼如下：Private Sub Command1_Click()a=Val(Text1.Text)d=fac(a)Label3.Caption=Str$(d)End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Command3_Click()Text1.Text=Label3.Caption=Text1.SetFocusEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)a=Chr(KeyAscii)If Val(a)0 Theni=MsgBox( 請重新輸入, 64, 消息框)T