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

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

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

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

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

5、表示。11、要設(shè)置Data控件連接數(shù)據(jù)庫(kù)的名稱(chēng)，需要設(shè)置其屬性。要設(shè)置Data控件連接的數(shù)據(jù)庫(kù)類(lèi)型，需要設(shè)置其屬性。三、閱讀程序，寫(xiě)出結(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、下面程序運(yùn)行后的輸出結(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、有如下事件過(guò)程，寫(xiě)出程序的功能（數(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( 請(qǐng)重新輸入, 64, 消息框)T