第一篇：北師大網(wǎng)網(wǎng)絡(luò)教育VB程序設(shè)計(jì)一(答案)
《VB程序設(shè)計(jì)》作業(yè)
（一）答案
客觀題部分：
選擇題（每題1分，共15題）
參考答案：
1D，2D，3C，4A，5C
6B，7D，8A，9A，10C
11B，12B，13C，14D，15D
主觀題部分：
編程題（每題15分，共1題）
參考答案：
Private Sub Command1_ Click()
Dim x As Single
Dim amax As Single，amin As Singlex=InputBox(“請(qǐng)輸入分?jǐn)?shù)”)
amax=x amin=x Do While x>=0If x> amax Then
amax=x
End If
IF x amin=x End If x=InputBox(“請(qǐng)輸入分?jǐn)?shù)”) Loop Print amax , amin End Sub VB程序設(shè)計(jì)試題及答案 （一）一、單選題 1.VB6.0是一種面向 B 的編程環(huán)境。 (A)機(jī)器(B)對(duì)象 (C)過(guò)程(D)應(yīng)用 2.要使FormI窗體的標(biāo)題欄顯示“歡迎使用VB”，以下 D 語(yǔ)句是正確的。 (A)Forml.Caption=“歡迎使用VB” (B)Forml.Caption='歡迎使用VB' (C)Forml.Caption=歡迎使用VB (D)Forml.Caption=“歡迎使用VB” 3.若要使命令按鈕不可操作，要對(duì) A 屬性進(jìn)行設(shè)置。 (A)EnabIed(B)Visible (C)Backcolor(D)Caption 4.如果在窗體上已經(jīng)創(chuàng)建了一個(gè)文本框?qū)ο骉extI，可以通過(guò) C 事件獲得輸入鍵值的ASCII碼。 (A)Change(B)LostFocus (C)KeyPress(D)GotFocus 5.下面 A 是合法的變量名。 (A)X_yz(B)123ab。(C)integer(D)X-Y 6.以下關(guān)系表達(dá)式 中，其值為False的是 A。 (A)“ABC”>“AbC”(B)“女”>“男” (C)“BASIC”=UCase(“basic)(D)”123“<”23“ 7.為了給x、y、z三個(gè)變量賦初值1，下面正確的賦值語(yǔ)句是 A。 (A)x=1:y=1:z=1(B)x=1,y=1,z= 1(C)x=y=z=1(D)xyz=1 8.VB提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是 D。 (A)遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu) (B)選擇結(jié)構(gòu)、過(guò)程結(jié)構(gòu)、順序結(jié)構(gòu) (C)過(guò)程結(jié)構(gòu)、輸入輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu) (D)選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu) 9.下面If語(yǔ)句統(tǒng)計(jì)滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數(shù)，不正確的語(yǔ)句是 D。 (A)If sex=”男“ And age=4O And InStr(duty，”教授“)>O Then n=n+l (B)If sex=”男“ And age=4O And(duty=”教授“ Or duty=”副教授“)Then n=n+l (C)If sex=”男“ And age=4O And Right(duty，2)=”教授“ Then n=n+l (D)If sex=”男“ And age=4O And duty=”教授“ And duty=”副教授“ Then n=n+l 10.下列關(guān)于Do…Loop循環(huán)結(jié)構(gòu)執(zhí)行循環(huán)次數(shù)的描述正確的是 D。(A)Do While…Loop循環(huán)和Do…Loop Until循環(huán)至少都執(zhí)行一次(B)Do While…Loop循環(huán)和Do…Loop Until循環(huán)可能都不執(zhí)行 (C)Do While…Loop循環(huán)至少執(zhí)行一次和Do…Loop Until循環(huán)可能不執(zhí)行 (D)Do While…Loop循環(huán)可能不執(zhí)行和Do…Loop Until循環(huán)至少執(zhí)行一次 11.以下 B 是正確的For…Next結(jié)構(gòu)。 (A)For x=1 To Step 10(B)For x=3 To-3 Step-3 … … Next x Next x(C)For x=1 To 10(D)For x=3 to 10 step re: … … Next x Next y If i=10 Then GoTO re 12.如下數(shù)組聲明語(yǔ)句，B 是正確的。 (A)Dim a[3,4] As Integer (B)Dim a(3,4)As Integer (C)Dim a(n,n)As Integer (D)Dim a(3 4)As Integer 13.下列語(yǔ)句中（假定變量n有值），能正確聲明可變長(zhǎng)數(shù)組的是 A。 (A)Dim a()As Integer(B)Dim a()As Integer ReDim a(n)ReDim a(n)As String (C)Dim a()As Integer(D)Dim a(10)As Integer ReDim a(3, 4)ReDim a(n+10) ReDim Preserve a(4, 4) 14.要想從子過(guò)程調(diào)用后返回兩個(gè)結(jié)果，下面子過(guò)程語(yǔ)句說(shuō)明合法的是 C。 (A)Sub f2(ByVal n%, ByVal m%)(B)Sub f1(n%, ByVal m%) (C)Sub f1(n%, m%)(D)Sub f1(ByVal n%, m%) 15.設(shè)有如下程序段： Public Sub F1(n%) … n=3*n+… End Sub Private Sub Command1_Click() Dim n%, m% n=3 m=4 … ‘調(diào)用F1語(yǔ)句 … End Sub 則在Command1_Click事件中有效的調(diào)用語(yǔ)句是 B。(A)Call F1(n+m)(B)Call F1(m)(C)Call F1(5)(D)Call F1(m+5) 16.用來(lái)設(shè)置粗體字的屬性是 C。 (A)FontItalic(B)FontName(C)FontBold(D)FontSize 17.假定定時(shí)器的Interval屬性為1000，Enabled屬性為True，調(diào)用下面的事件過(guò)程，程序運(yùn)行結(jié)束后變量x的值為 D。 Dim x As Integer Sub Timer1_Timer() For i=1 to 10 x=x+Next i End Sub (A)1000(B)10000(C)10(D)以上都不對(duì) 18.在下列關(guān)于通用對(duì)話框的敘述中，錯(cuò)誤的是 B。 (A)CommonDialog1.ShowFont顯示“字體”對(duì)話框 (B)在“打開”或“另存為”對(duì)話框中，用戶選擇的文件名可以經(jīng)FileTitle屬性返回 (C)在“打開”或“另存為”對(duì)話框中，用戶選擇的文件名機(jī)器路徑可以經(jīng)FileName屬性返回 (D) 19.當(dāng)用戶按下并且釋放一個(gè)鍵后會(huì)觸發(fā)KeyPress、KeyUp和KeyDown事件，這三個(gè)事件發(fā)生的順序是 C。 (A)KeyPress、KeyDown、KeyUp(B)KeyDown、KeyUp、KeyPress(C)KeyDown、KeyPress、KeyUp (D)沒有規(guī)律 20.在下面關(guān)于順序文件的描述中，正確的是 C。(A)順序文件中每行的長(zhǎng)度都是相同的。(B)可以通過(guò)編程對(duì)文件中的某行方便地進(jìn)行修改 (C)數(shù)據(jù)以ASCII碼的形式存放在文件中，所以可通過(guò)記事本打開(D)文件的組織結(jié)構(gòu)復(fù)雜 21.隨機(jī)文件是因?yàn)?C。 (A)文件中的內(nèi)容是通過(guò)隨機(jī)數(shù)產(chǎn)生的(B)文件中的記錄號(hào)通過(guò)隨機(jī)數(shù)產(chǎn)生的(C)可對(duì)文件中的記錄根據(jù)記錄號(hào)隨機(jī)地讀/寫(D)文件的每條記錄的長(zhǎng)度是隨機(jī)的 22.從磁盤上讀入一個(gè)文件名為“c:t1.txt”順序文件，如下 A 正確。 (A)F=“c:t1.txt” Open F For Input As #1(B)F=“c:t1.txt” Open “F” For Input As #2(C)Open “c:t1.txt” For Input As #1 (D)Open c:t1.txt For Input As #2 23.坐標(biāo)度量單位可由通過(guò)來(lái) D 改變。 (A)Drawstyle屬性(B)DrawWidth屬性 (C)Scale方法(D)ScaleMode屬性 24.指令“Circle(1000, 1000), 500, 8,-6,-3”將繪制 A。(A)畫圓(B)橢圓(C)圓弧(D)扇形 25.用ADO數(shù)據(jù)控件建立與數(shù)據(jù)源的鏈接，設(shè)置操作過(guò)程按 A 順序進(jìn)行。 ①選擇數(shù)據(jù)源連接方式；②選擇數(shù)據(jù)庫(kù)類型；③指定數(shù)據(jù)庫(kù)文件名；④指定記錄源 (A)① ② ③ ④(B)② ③ ④ ① (C)③ ① ② ④(D)① ③ ② ④ 二、填空題 1．VB是建立在BASIC語(yǔ)言基礎(chǔ)上的可見 化編程語(yǔ)言或編程環(huán)境。 2．在窗體上已建立多個(gè)控件如Text1、Label1、Command1，若要程序一運(yùn)行時(shí)焦點(diǎn)就定位在Command1控件上，應(yīng)對(duì)Command1控件設(shè)置 TabIndex 屬性的值為 0。 3．在VB中，1234、123456&、1.2346E+5、1.2346D+5這4個(gè)常數(shù)分別表示 整形、長(zhǎng)整形、單精度、雙精度 類型。4．表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達(dá)式為 x mod 5 = 0 or x mod 9=0。 5．?dāng)?shù)組聲明時(shí)下標(biāo)下界默認(rèn)為0，利用 Opation Base 1 語(yǔ)句可以使下標(biāo)為1。 6．傳地址方式是當(dāng)過(guò)程被調(diào)用時(shí)，形參和實(shí)參共享 存儲(chǔ)單元。7．窗體中的模塊級(jí)變量應(yīng)在 窗口模塊 段聲明，它作用于該窗體的全局范圍。 8．當(dāng)用戶單擊滾動(dòng)條的空白處時(shí)，滑塊移動(dòng)的增量值由 LargeChange 屬性決定。 9．如果菜單標(biāo)題的某個(gè)字母前輸入一個(gè)“&”符號(hào)，那么該字母就成了熱鍵字母；如果建立菜單時(shí)在標(biāo)題文本框中輸入一個(gè)“1) x(0)= 1 x(1)= 1 For i = 2 To n1)+ x(i1 Print x(i)，If(i + 1)Mod 5 = 0 Then Print Next End Sub 輸出結(jié)果： 1 2 3 8 13 21 34(2)Public Function f(m%, n%) Do While m< >n Do While m> n: m=m-n: Loop Do While m< n: n=n-m: Loop Loop f=m End Function Print f(24, 18) End Sub 輸出結(jié)果：6(3) Public x as Integer Private Sub Fomr_Click() Dim x as Integer x=10 print ＂x=＂;x End Sub 輸出結(jié)果: x=10 2.補(bǔ)充程序 (1)以下是冒泡法排序的程序，要求將數(shù)組里的數(shù)按升序排列，將其補(bǔ)充完整。 Private Sub Command1_Click() Dim a(), iMin%, n%, i%, j%, t% a = Array(8, 6, 9, 3, 2, 7) n = ubound(a)' 獲得數(shù)組的下標(biāo)上界 For i = 0 To n-1 For j = 0 To n-i-1 If a(j)>a(i)Then t = a(j): a(j)= a(j + 1): a(j + 1)= t End If Next j Next i For i = 0 To n Print a(i);Next i End Sub (2)用遞歸的方法求n!Private Sub Command1_Click()Print ”fac(4)=“;fac(4)End Sub Public Function fac As Integer If n = 1 Then fac = 1 Else Fac=fac*n End If End Function VB程序設(shè)計(jì)試題及答案 （三）一、單選題 1.Visual Basic是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)語(yǔ)言，采取了 A 的編程機(jī)制。 (A)事件驅(qū)動(dòng)(B)按過(guò)程順序執(zhí)行(C)從主程序開始執(zhí)行(D)按模塊順序執(zhí)行 2.若要使標(biāo)簽控件顯示時(shí)不覆蓋其背景內(nèi)容，要對(duì) D 屬性進(jìn)行設(shè)置。 n=n*j n=n*j Next j Next j Print n Print n Next I Next i(C)n=1(D)n=1(A)Backcolor(B)BorderStyle(C)Forecolor(D)Backstyle 3.在Visual Basic中最基本的對(duì)象是 C，它是應(yīng)用程序的基石，是其他控件的容器。 (A)文本框(B)命令按鈕(C)窗體 (D)標(biāo)簽 4.要判斷在文本框是否按下Enter鍵，應(yīng)在文本框的 D 事件中判斷。(A)Change(B)KeyDown(C)Click(D)KeyPress 5.數(shù)學(xué)表達(dá)式3≤x (A)3<=x<10(B)3<=x AND x>10(C)x>=3 Or x<10(D)x>=3 AND x<10 6.Rnd函數(shù)不可能為下列 B 值。 (A)0(B)1(C)0.1234(D)0.0005 7.賦值語(yǔ)句:a=123+Mid(”123456“，3，2)執(zhí)行后，a變量中的值是 D。 (A)”12334“(B)123(C)12334(D)157 8.對(duì)于語(yǔ)句If x=l Then y=l，下列說(shuō)法正確的是 C。 (A)x=l和y=l均為賦值語(yǔ)句 (B)x=l和y=l均為關(guān)系表達(dá)式 (C)x=l為關(guān)系表達(dá)式，y=l為賦值語(yǔ)句 (D)x=l為賦值語(yǔ)句，y=l為關(guān)系表達(dá)式 9.下面程序段表示求兩個(gè)數(shù)中的大數(shù)，D 不正確。 (A)Max=IIf(x>y，x，y)(B)If x>y Then Max=x Else Max=y(C)Max=x(D)Ify>=x Then Max=y If y>=x Then Max=y Max=x 10.當(dāng)在文本框中輸入“ABCD”4個(gè)字符時(shí)，窗體上顯示的是 C。 Private Sub Text1_Change()Print Text1;End Sub(A)ABCD(B)A(C)AABABCABCD(D)A B AB C ABC D ABCD 11.下列哪個(gè)程序段不能分別正確顯示1！、2！、3！、4！的值 B。(A)For i=1 to 4(B)For i=1 to 4 n=1 For j=1 to i For j=1 to I n=1 For j=1 to4 j=1 n=n*j Do While j<=4 Print n n=n*j Next j Print n j=j+1 Loop 12.如下數(shù)組聲明語(yǔ)句，則數(shù)組a包含元素的個(gè)數(shù)有 A。 Dim a(3,-2 to 2, 5) (A)120(B)75(C)60(D)13 13.以下程序的輸出結(jié)果是 D。 Dim a a=Array(1, 2, 3, 4, 5, 6, 7)For i=Lbound(a)to Ubound(a) a(i)=a(i)*a(i)Next i Print a(i) (A)49(B)0(C)不確定(D)程序出錯(cuò) 14.在過(guò)程中定義的變量，若希望離開該過(guò)程后，還能保存過(guò)程中局部變量的值，則應(yīng)使用關(guān)鍵字 D 在過(guò)程中定義局部變量。 (A)Dim(B)Private(C)Public(D)Static 15.如下程序，運(yùn)行的結(jié)果是 B。 Dim a%, b%, c% Public Sub p1(x%, y%) Dim c% x=2*x: y=y+2: c=x+y End Sub Public Sub p2(x%, ByVal y%) Dim c% x=2*x: y=y+2: c=x+y End Sub Private Sub Command1_Click() a=2: b=4: c=6 Call p1(a, b) Print “a=”;a;“b=”;b;“c=”;c Call p2(a, b) Print “a=”;a;“b=”;b;“c=”;c End Sub (A)a=2 b=4 c=6(B)a=4 b=6 c=10 a=4 b=6 c=10 a=8 b=8 c=16(C)a=4 b=6 c=6(D)a=4 b=6 c=14 a=8 b=6 c=6 a=8 b=8 c=6 16.復(fù)選框的Value屬性為1時(shí)，表示 B。 (A)復(fù)選框未被選中(B)復(fù)選框被選中 (C)復(fù)選框內(nèi)有灰色的勾(D)復(fù)選框操作有誤 17.下面關(guān)于菜單的說(shuō)法中，錯(cuò)誤的是 B。 (A)每個(gè)菜單項(xiàng)都是一個(gè)控件與其他控件一樣也有自己的屬性和事件 (B)除了Click事件之外，菜單項(xiàng)還能響應(yīng)其他的，如DbClick事件 (C)菜單項(xiàng)的快捷鍵不能任意設(shè)置 (D)在程序執(zhí)行時(shí)，如果菜單項(xiàng)的Enabled屬性為False，則該菜單項(xiàng)變成灰色，不能被用戶選擇 18.下面關(guān)于多重窗體的敘述中，正確的是 B。(A)作為啟動(dòng)對(duì)象的Main子過(guò)程中能放在窗體模塊中(B)如果啟動(dòng)對(duì)象是Main子過(guò)程，則程序啟動(dòng)時(shí)不加載任何窗體，以后由該過(guò)程根據(jù)不同情況決定是否加載或加載哪一個(gè)窗體 (C)沒有啟動(dòng)窗體，程序不能執(zhí)行(D)以上都不對(duì) 19.當(dāng)用戶將焦點(diǎn)移到另一個(gè)應(yīng)用程序時(shí)，當(dāng)前應(yīng)用程序的活動(dòng)窗體將 D。(A)發(fā)生DeActivate事件(B)發(fā)生LostFocus事件 (C)發(fā)生DeActivate和LostFocus事件(D)DeActivate和LostFocus事件都不發(fā)生 20.順序文件是因?yàn)?D。 (A)文件中的數(shù)據(jù)按每行的長(zhǎng)度從小到大排序好的(B)文件中的數(shù)據(jù)按某個(gè)關(guān)鍵數(shù)據(jù)項(xiàng)從大到小進(jìn)行排序(C)文件中的數(shù)據(jù)按某個(gè)關(guān)鍵數(shù)據(jù)項(xiàng)從小到大進(jìn)行排序(D)數(shù)據(jù)按進(jìn)入的先后順序存放的，讀出也是按原寫入的先后順序讀出 21.文件號(hào)最大可取值為 B。 (A)255(B)511(C)512(D)256 22.Print #1, STR$1中的Print是 A。 (A)文件的寫語(yǔ)句(B)在窗體上顯示的方法 (C)子程序名(D)以上均不是 23.以下的屬性和方法中 C 可重定義坐標(biāo)系。(A)Drawstyle屬性(B)DrawWidth屬性 (C)Scale方法(D)ScaleMode屬性 24.封閉圖形的填充方式由下列 C 屬性決定。(A)DrawStyle, DrawMode(B)AutoRedraw, ClipControls (C)FillStyle, FillColor(D)ForeColor, BorderColor 25.下列字符串中，D 不包含在ADO數(shù)據(jù)控件的ConnectionString屬性中。(A)Microsoft Jet 4.0 OLE DB Provider(B)Data Source=C:Mydb.mdb(C)Persist Security Info=False(D)2-adCmdTable 二、填空題 1．在代碼窗口對(duì)窗體的BorderStyle、MaxButton屬性進(jìn)行了設(shè)置，但運(yùn)行后沒有效果，原因是這些屬性 在運(yùn)行時(shí)設(shè)計(jì)是無(wú)效的。 2．在文本框中，通過(guò) SelStart 屬性能活得當(dāng)前插入點(diǎn)所在的位置。 3．表達(dá)式Ucase(Mid(“abcdefgh”, 3, 4))的值是 CDEF。4．已知a=3.5，b=5.0，c=2.5，d=True，則表達(dá)式：a>=0 And a+c>b+3 Or Not d的值是 False。 5．要獲得動(dòng)態(tài)數(shù)組的上界通過(guò) UBound 函數(shù)，下界通過(guò) LBound 函數(shù)。 6．由Array函數(shù)建立的數(shù)組，其變量類型必須是 variant 類型。 7．VB中的變量按其作用域分為全局變量、模塊變量和 局部變量 變量。 8．復(fù)選框的 Value 屬性設(shè)置為2——Grayed時(shí)，變成灰色，禁止用戶選擇。 9．滾動(dòng)條響應(yīng)的重要事件有 Scroll 和Change。10．假定有一個(gè)通用對(duì)話框控件CommonDialog1，除了用COmmonDialog1.Action=3顯示顏色對(duì)話框之外，還可以用 showcolor 方法顯示。 11．窗體Form1的左上角坐標(biāo)為(-200, 250)，窗體Form1的右下角的坐標(biāo)為(300,-150)，則X軸的正向向 右，Y軸的正向向 上。 12．使用Circle方法畫扇形，起始角、終止角取值范圍為 0~2π。 13．在運(yùn)行狀態(tài)改變ADO數(shù)據(jù)控件的數(shù)據(jù)源連接屬性后，必須使用 Refresh 方法激活這些變化。14．VB中工程文件的擴(kuò)展名為 vbg。 15．如果在窗體上已經(jīng)創(chuàng)建了一個(gè)文本框?qū)ο骉ext1，可以通過(guò) Keypress 事件獲得輸入鍵值的ASCII碼。16．VB中對(duì)象的三要素是 屬性、事件 和 方法。 三、編程應(yīng)用題 1.程序閱讀 (1)Private Sub Command1_Click() Dim s as String, i% s=＂abcd＂ For i=Len(s)to 1 step-1 Print Mid(s, i, 1)Next i End Sub 輸出結(jié)果： d c b a(2)Sub Swap1(ByVal x%, ByVal y%)Dim t% t = x: x = y: y = t End Sub Sub Swap2(ByRef x%, ByRef y%)Dim t% t = x: x = y: y = t End Sub Sub Command1_Click() Dim a%, b% a = 10: b = 20 Print ”調(diào)用Swap1前 a和b的值為：“;a;b Call Swap1(a, b)Print ”調(diào)用Swap1后按傳值方式 a和b的值為：“;a;b a = 10: b = 20 Call Swap2(a, b)Print ”調(diào)用Swap2后按傳地址方式 a和b的值為：“;a;b End Sub 輸出結(jié)果 調(diào)用Swap1前 a和b的值為：10 20 調(diào)用Swap1后按傳值方式 a和b的值為：10 20 調(diào)用Swap2后按傳地址方式 a和b的值為： 20 10(3)Private Sub Command1_Click() Dim x%, y%, z% x=242: y=44 z=x*y Do Until x=y If x>y Then x=x-y Else y=y-x Loop Print x, z/x End Sub 輸出結(jié)果: 22 484 2.補(bǔ)充程序 (1)以下是求1～18之間某個(gè)數(shù)的階乘的程序，具體的數(shù)值n由滾動(dòng)條HScroll1獲得，結(jié)果顯示在窗體下部的兩個(gè)Label標(biāo)簽里。補(bǔ)充完整如下程序。 Private Sub HScroll1_Change()Dim i As Integer, s As Double s = 1 n = Hscroll1.Value If n <> 0 Then For i = 1 To n s = s*i Next i End If Label2.Caption = n & ”!= " Label3.Caption = s End Sub (2)以下程序的功能是：已知數(shù)組a，刪除數(shù)組中某個(gè)元素。 Private Sub Command1_Click() Dim a(), key%, i%, j% a=Array(1, 6, 8, 3, 5, 9, 10, 2, 4, 7) key=9 For i=0 to UBound(a)If a(i)=9 Then For j=i+1 to UBound(a)a(j)=a(j+1) Next j ReDim a(j)=a(i) MsgBox(＂刪除完成＂) Exit Sub End If Next i MsgBox(＂找不到要?jiǎng)h除的元素＂)End Sub 讀程序并填空 1．給定程序的功能是輸出一組數(shù)的最大值和最小值，在畫線處填入適當(dāng)內(nèi)容，將程序補(bǔ)充完整。 Private Sub End Function 4．給定程序的功能是建立并輸出除主、副對(duì)角線上的元素為5外，其余元素都為1的方陣，在畫線處填入適當(dāng)內(nèi)容，將程序補(bǔ)充完整。Command1_Click() X=Array(-112, 18, 20,-5,-100, 82, 91, 56, 78, 99, Private Sub Command1_Click()100) Max=x(0) Min=x(0) For I=1 To 10 If x(I)>Max Then _____________ End if If x(I)>Min Then _____________ End if Next I Print “MAX=”;Max , “MIN=”;Min End Sub 2．若A2+B2+C2 , 則A，B，C稱為一組勾股數(shù)，如下程序是找出100以內(nèi)的所有勾股數(shù)，并按A，B，C順序輸出。請(qǐng)?jiān)诋嬀€處填入適當(dāng)內(nèi)容。 Private Sub Command1_Click() For A=2 To 99 For B=A+1 To 100 C=_____________ If ____________ And C<=100 Then Print A, B, C End If Next B Next A End Sub 3．本程序的功能是計(jì)算輸入數(shù)的階乘，請(qǐng)?jiān)诋嬀€處填上適當(dāng)?shù)膬?nèi)容使程序完整。 Private Sub form_Click() Do N=Val(InputBox(“請(qǐng)輸入一個(gè)大于0的整數(shù)：”)) Loop Until N>0 Print Fact(N) End Sub Private Function Fact(M) Fact= _______________（1分） For I=2 To ____________（2分） Fact = ______________（2分） Next I Dim A(10,10) For I=1 To 10 For J=_______________（2分） If __ _____________ Then A(I, J)=5 Else A(I, J)=1（1分）Next J Next I For I=1 To 10 For J=1 To 10 Print A(I, J);Next J __ __________ （2分）Next I End Sub 編寫一個(gè)程序，在程序運(yùn)行時(shí)輸入一個(gè)0—99999之間的整數(shù)，判斷輸入的是幾位數(shù)，并在窗體輸出結(jié)果。 編寫一個(gè)程序，在窗體上添加兩個(gè)命令按鈕，運(yùn)行程序時(shí)，單擊[開始]按鈕，在窗體輸出1~100之間所有能被3整除的數(shù)。單擊[結(jié)束]按鈕，結(jié)束程序。 1.要使一個(gè)標(biāo)簽?zāi)軌蝻@示所需要的文本，應(yīng)設(shè)置該標(biāo)簽的()屬性的值(單)A.Caption B.Name C.Text D.AutoSize 2.為使計(jì)時(shí)器對(duì)象每隔5秒鐘產(chǎn)生一個(gè)時(shí)鐘事件(Timer事件)，則其Interval屬性值應(yīng)設(shè)置為()(單)A.5 B.300 C.500 D.5000 3.下列的()對(duì)象支持KeyPress事件(單)A.文本框 B.命令按鈕 C.標(biāo)簽框 D.圖像框 4.確定一個(gè)控件在窗體上的位置的屬性是()(單)A.Width或Height B.Top和Height C.Top或Width D.Top和Left 5.確定一個(gè)窗體或控件的大小的屬性是()(單)A.Width或Height B.Top和Width C.Top或Left D.Top和Left 6.用戶在屏幕上畫出應(yīng)用程序界面，并設(shè)置好對(duì)象的屬性，系統(tǒng)便可以自動(dòng)生成程序代碼，這稱為()(單)A.面向?qū)ο蟮某绦蛟O(shè)計(jì) B.結(jié)構(gòu)化程序設(shè)計(jì) C.事件驅(qū)動(dòng)的編程機(jī)制 D.程序設(shè)計(jì) 7.在VB中，工程文件的擴(kuò)展名是()(單)A..frm B..vbp C..bas D..frx 8.在VB中，窗體文件的擴(kuò)展名是()(單)A..frm B..vbp C..bas D..frx 9.VB集成開發(fā)環(huán)境可以(單)A.編輯、調(diào)試、運(yùn)行程序，但不能生成可執(zhí)行程序 B.編輯、生成可執(zhí)行程序、運(yùn)行程序，但不能調(diào)試程序 C.編輯、調(diào)試、生成可執(zhí)行程序，但不能運(yùn)行程序 D.編輯、調(diào)試、運(yùn)行程序，也能生成可執(zhí)行程序 10.英文“VISUAL”的含義是()(單)A.可視化 B.集成C.結(jié)構(gòu)化 D.調(diào)試 11.標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是()(單)A.frm B.vbp C.bas D.vbg 12.VB集成開發(fā)環(huán)境中，在()中編寫代碼(單)A.狀態(tài)欄 B.屬性列表框 C.代碼框 D.標(biāo)題欄 13.在面向?qū)ο蟮某绦蛟O(shè)計(jì)過(guò)程中，英文縮寫“OOP”的含義是()(單)A.事件驅(qū)動(dòng)的編程機(jī)制 B.結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言 C.面向?qū)ο蟮某绦蛟O(shè)計(jì) D.可視化程序設(shè)計(jì) 14.在窗體上畫一個(gè)名稱為Timer1的計(jì)時(shí)器控件，要求每隔0.5秒發(fā)生一次計(jì)時(shí)器事件，則以下正確的屬性設(shè)置語(yǔ)句是()(單)A.Timer1.Interval=0.5 B.Timer1.Interval=5 C.Timer1.Interval=50 D.Timer1.Interval=500 15在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程： Private Sub Command1_Click()a$=“VisualBasic” Print String(3,a$)End Sub 程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是()(單)A.VVV B.Vis C.sic D.11 16.以下關(guān)于多重窗體程序的敘述中，錯(cuò)誤的是()(單)A.用Hide方法不但可以隱藏窗體,且能清除內(nèi)存中的窗體 B.在多重窗體程序中，各窗體的菜單是彼此獨(dú)立的 C.在多重窗體程序中，可以根據(jù)需要指定啟動(dòng)窗體 D.對(duì)于多重窗體程序中，單獨(dú)保存每個(gè)窗體 17以下合法的Visual Basic變量的名稱是()(單)A.a3 B.Const C.9abc D.a#x! 18.當(dāng)一個(gè)復(fù)選框被選中時(shí)，它的Value屬性的值是()(單)A.3 B.2 C.1 D.0 19.表達(dá)式 5 Mod 3+53的值是()(單)A.0 B.3 C.4 D.6 20設(shè)x=4,y=8,z=7, 表達(dá)式：(x＜y)Or z＜x 的值是()(單)A.1 B.-1 C.TRUE D.FALSE 21設(shè)有如下程序段： x=2 For c=1 To 4 Step 2 x=x+c Next c 運(yùn)行以上程序后，x的值是()(單)A.6 B.7 C.8 D.9 22執(zhí)行如下兩條語(yǔ)句，窗體上顯示的是()(單)A=9.8596 Print Format(a,“000.00”)A.0,009.86 B.9.86 C.009.86 D.0,009.86 23下列說(shuō)法中正確的是：為了保存一個(gè)Visual Basic應(yīng)用程序，應(yīng)當(dāng)()(單)A.只保存窗體模塊文件(.frm)B.只保存工程文件(.vbp)C.分別保存工程文件和標(biāo)準(zhǔn)模塊文件(.bas)D.分別保存工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件 24.要使一個(gè)文本框?qū)ο竽軌蝻@示多行文字，應(yīng)設(shè)置該對(duì)象的()屬性值為True(單)A.Text B.MultiLine C.Style D.Visible 25.若要將窗體從內(nèi)存中卸載，其實(shí)現(xiàn)的方法或語(yǔ)句是()(單)A.Show B.Unload C.Load D.Hide 26.以下選項(xiàng)中，不是VB標(biāo)準(zhǔn)控件的是()(單)A.命令按鈕 B.定時(shí)器 C.通用對(duì)話框 D.單選框 27在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序： Dim a As Variant a = Array(1, 2, 3, 4, 5)Sum = 0 For i = 1 To 5 Sum = Sum + a(i1)“, a(i1)> x Then Print a(iNum2 Case 3 Op = ”ד Result = Num1 * Num2 Case 4 Op = ”÷“ Result = Num1 / Num2 End Select Label1= Num1 & Op & Num2 & ”=“ & Result End Sub 窗體運(yùn)行后，輸入1，則label1的標(biāo)題顯示結(jié)果為()(單)A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.5 42在窗體上畫一個(gè)名稱為Text1的文本框，然后畫一個(gè)名稱為HScroll1的滾動(dòng)條，其Min和Max屬性分別為0和100。程序運(yùn)行后，如果移動(dòng)滾動(dòng)框，則在文本框中顯示滾動(dòng)條的當(dāng)前值，以下能實(shí)現(xiàn)上述操作的程序段是()(單)A.Private Sub HScroll_Change()Text1.Text=HScroll1.Value End Sub B.Private Sub HScroll_Click()Text1.Text=HScroll1.Value End Sub C.Private Sub HScroll_Change()Text1.Text=HScroll.Caption End Sub D.Private Sub HScroll_Click()Text1.Text=HScroll.Caption End Sub 43.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程： Private Sub Command1_Click()x=InputBox(”Input“)Select Case x Case 1,3 Print ”分支 1“ Case Is＞4 Print ”分支 2“ Case Else Print ”Else 分支 “ End Select End Sub 程序運(yùn)行后，如果在輸入對(duì)話框中輸入2，則窗體上顯示的是（）A.分支1 B.分支2 C.Else分支 D.程序出錯(cuò) 44.隨機(jī)產(chǎn)生10個(gè)100～200之間的數(shù)，求它們的最大值程序如下： Private Sub Command1_Click()Max = 100 For i = 1 To 10 x = int【 】 Print x;If x ＞ Max Then Max=x Next i Print Print ”最大值=“;Max End Sub 45設(shè)a=10，b=5，c=1，執(zhí)行語(yǔ)句Print a ＞b ＞ c后，窗體上顯示的是()(單)A.True B.False C.1 D.出錯(cuò)信息 (46)在窗體上建立通用對(duì)話框需要添加的控件是 A)Data控件 B)From控件 C)CommonDialog控件 D)VBComboBox控件 (47)在Visual Basic中，要將一個(gè)窗體加載到內(nèi)存進(jìn)行預(yù)處理但不顯示，應(yīng)使用的語(yǔ)句是 A)Load B)Show C)Hide D)Unload 48)Sub過(guò)程與Function過(guò)程最根本的區(qū)別是 A)Sub過(guò)程可以用Call語(yǔ)句直接使用過(guò)程名調(diào)用，而Function過(guò)程不可以 B)Function過(guò)程可以有形參，Sub過(guò)程不可以 C)Sub過(guò)程不能返回值，而Function過(guò)程能返回值 D)兩種過(guò)程參數(shù)的傳遞方式不同 49保存一個(gè)工程至少應(yīng)保存兩個(gè)文件，這兩個(gè)文件分別是）A)文本文件和工程文件 B)窗體文件和工程文件 C)窗體文件和標(biāo)準(zhǔn)模塊文件 D)類模塊文件和工程文件 50.當(dāng)對(duì)命令按鈕的Picture屬性裝入.bmp圖形文件后，命令按鈕上并沒有顯示所需的圖形，原因是沒有對(duì)某個(gè)屬性設(shè)置為1，該屬性是 A)MousePicture B)Style C)DownPicture D)DisabledPicture 51假設(shè)變量bool_x是一個(gè)布爾型(邏輯型)的變量，則下面正確的賦值語(yǔ)句是）A)bool_x=”False“ B)bool_x=.False.C)bool_x=#False# D)bool_x=False 52.設(shè)S=“中華人民共和國(guó)”，表達(dá)式Left（S,1）+Right（S,1）+Mid（S,3,2）的值為（）A)“中華民國(guó)” B)“中國(guó)人民” C)“中共人民” D)“人民共和” 53下列表達(dá)式的值為2123的是（） A)Val(”123asd“)& 2000 B)Val(”123asd“)+ 2000 C)Str(123)& ”2000“ D)Str(123)+”2000“ 54假設(shè)在窗體上建立了一個(gè)通用對(duì)話框，其名稱為CommonDialog1，然后畫一個(gè)命令按鈕Command1,并編寫如下事件過(guò)程： Private Sub Command1_Click()CommonDialog1.Flags=4 CommonDialog1.Filter=”all files(*.*)|*.*|text Files(*.Txt)|*.txt|Batch Filse(*.bat)|*.bat“ CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)“打開”對(duì)話框，此時(shí)在“文件類型”對(duì)話框中顯示的是（） A)All Files(*.*)B)Text Files(*.Txt)C)Batch Files(.bat)D)不確定 55當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的某個(gè)事件過(guò)程。這個(gè)事件過(guò)程是（）A)Load B)Click C)Unload D)GotFocus 56.無(wú)論何控件，都具有一個(gè)共同屬性。這個(gè)屬性是（）A)Text B)Font C)Name D)Caption 57.在一行內(nèi)寫多條語(yǔ)句時(shí)，語(yǔ)句之間要用某個(gè)符號(hào)分隔。這個(gè)符號(hào)是（）A)，B)； C)、D)： 58.表達(dá)式12000 + ”129“ & 200的值是 A)12329 B)”12129200“ C)”12000129200“ D)”12329“ 59.Visual Basic是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，構(gòu)成對(duì)象的三要素是（） A)屬性、控件和方法 B)屬性、事件和方法 C)窗體、控件和過(guò)程 D)控件、過(guò)程和模塊 60表達(dá)式String(1,”I am student“)+ Replace(”am harass“,”rass“,”ppy“)& ”!“的值是（）A)”I am happy!“ B)”I am student I am s am harass studentam happy!“ C)”I am student am harass!“ D)”I am student am happy!“ 61.引用列表框（List1）最后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用的表達(dá)式是（）A)List1.List(List1.ListCount)B)List1.List(List1.ListCount-1)C)List1.List(ListCount)D)List1.List(ListCount-1)62.以下屬性和方法中，可重定義坐標(biāo)系的是） A)DrawStyle屬性 B)DrawWidth屬性 C)Scale方法 D)ScaleMode屬性 63.下面說(shuō)法不正確的是()A)滾動(dòng)條的重要事件是Change和Scroll B)框架的主要作用是將控件進(jìn)行分組，以完成各自相對(duì)獨(dú)立的功能 C)組合框是組合了文本框和列表框的特性而形成的一種控件 D)計(jì)時(shí)器控件可以通過(guò)對(duì)Visible屬性的設(shè)置，在程序運(yùn)行期間顯示在窗體上 64.在窗體上畫一個(gè)名稱為Check1復(fù)選框，在程序運(yùn)行的過(guò)程中，若選中復(fù)選框，則Check1.value的值是（）A)True B)2 C)0 D)1 65.下列關(guān)于過(guò)程敘述不正確的是（） A)過(guò)程的傳值調(diào)用是將實(shí)參的具體值傳值遞給形參 B)過(guò)程的傳址調(diào)用是將實(shí)參在內(nèi)存的地址傳遞給形參 C)過(guò)程的傳值調(diào)用參數(shù)是單向傳遞的，過(guò)程的傳址調(diào)用參數(shù)是雙向傳遞的 D)無(wú)論過(guò)程傳值調(diào)用還是過(guò)程傳址調(diào)用，參數(shù)傳遞都是雙向的 66.為了使標(biāo)簽?zāi)茏詣?dòng)調(diào)整大小以顯示全部文本內(nèi)容，應(yīng)把標(biāo)簽的【 】屬性設(shè)置為true。67.要想在文本框中顯示垂直滾動(dòng)條，必須把scrollbars屬性設(shè)置為2，同時(shí)還應(yīng)把【 】屬性設(shè)置為true。 68.假定有一個(gè)文本框，其名稱為text1，為了使該文本框具有焦點(diǎn)，應(yīng)執(zhí)行的語(yǔ)句是【 】.setfocus。 69.假定有一個(gè)名為pic2.bmp的圖形文件，要在運(yùn)行期間把該文件裝入一個(gè)圖片框，應(yīng)執(zhí)行的語(yǔ)句為 圖片控件名.picture=【 】。 70.為了能自動(dòng)放大或縮小圖像框中的圖形以與圖像框的大小相適應(yīng)，必須把該圖像框的【 】屬性設(shè)置為true。 71.窗體、圖片框或圖像框中圖形通過(guò)對(duì)象的【 】屬性設(shè)置。72.計(jì)時(shí)器事件之間的間隔通過(guò)【 】屬性設(shè)置。 73.有時(shí)候要暫關(guān)閉計(jì)時(shí)器，這可以通過(guò)【 】屬性設(shè)置為false來(lái)實(shí)現(xiàn)。74.設(shè)a=sqr(2),則語(yǔ)句Print format$(a,”000.0“)的輸出結(jié)果是【 】。75.設(shè)a=sqr(3),則語(yǔ)句Print format$(a,”###.0“)的輸出結(jié)果是【 】。76.VB應(yīng)用程序通常由3類模塊組成，即窗體模塊、【 】模塊和類模塊。 77在窗體上畫兩個(gè)文本框和一個(gè)命令按鈕，然后在命令按鈕的代碼窗口中編寫如下事件過(guò)程： Private sub command1_click()text1.text=”vb“ text2.text=text1.text text1.text=”abcd“ End Sub 程序運(yùn)行后，單擊命令按鈕，文本框text2中顯示的內(nèi)容為 ________。 78.在保存VB應(yīng)用程序時(shí)，窗體文件和工程文件的擴(kuò)展名分別為【.】和.vbp。79.下列可作為VB的變量名的是()(單)A.Filename B.A3B C.254D D.Print 80.與下列數(shù)學(xué)式cos2(c+d)對(duì)應(yīng)的VB表達(dá)式是【 】。81.與下列數(shù)學(xué)式2a(7＋b)對(duì)應(yīng)地VB表達(dá)式是【 】。82.在VB中，字符串常量要用【 】括起來(lái)。83.下面的事件不屬于鼠標(biāo)器事件的是()(單)A.MouseDown事件 B.MouseUp事件 C.MouseMove事件 D.Move事件 84.下面的事件不屬于鍵盤事件的是()(單)A.KeyPress事件 B.KeyDown事件 C.KeyUp事件 D.KeyMove事件 85.對(duì)以下程序說(shuō)法不正確的是()(單)Private Sub FileOpen_Click()CommonDialog1.InitDir = ”C:“ CommonDialog1.Filter = ”文本文件 | *.Txt“ CommonDialog1.ShowOpen End Sub A.顯示”文件“打開對(duì)話框 B.打開的對(duì)話框的初始目錄為C盤根目錄 C.打開的對(duì)話框的文件類型為文本文件 D.以上說(shuō)法都不正確 86.以下程序是求最大公約數(shù)和最小公倍數(shù)的程序，在【】處填寫合適的關(guān)系運(yùn)算符。Private Sub Form_Click()Dim m1, n1, m, n, r As Integer n1 = InputBox(”輸入自然數(shù)n“, ”輸入數(shù)“)m1 = InputBox(”輸入自然數(shù)m“, ”輸入數(shù)“)n = n1 m = m1 If m ＜n Then t = m: m = n: n = t End If r = m Mod n Do While r 【 】 0 m = n n = r r = m Mod n Loop Print ”最大公約數(shù)=“, n Print ”最小公倍數(shù)= “, m1 * n1 / n End Sub 87.下面是求100以內(nèi)素?cái)?shù)的程序。Private Sub Command1_Click()Dim i As Integer, m As Integer, tag As Boolean For m = 2 To 100 tag = True For i = 2 To m-1 If m Mod 【 】 = 0 Then tag = False Next i If tag Then Print m Next m End Sub 88.百元買百雞問(wèn)題： 假定小雞每只5角,公雞每只2元，母雞每只3元?，F(xiàn)在有100元錢要求買100只雞，以下程序列出了所有可能的購(gòu)雞方案。Private Sub Command1_Click()Dim x%, y%, z% For x = 0 To 33 For y = 0 To 50 For z = 0 To 100 If 3 * x + 2 * y + 0.5 * z = 100 And 【 】 Then Picture1.Print x, y, z End If Next z Next y Next x End Sub 89.隨機(jī)產(chǎn)生10個(gè)100～200之間的數(shù)，求它們的最大值程序如下： Private Sub Command1_Click()Max = 100 For i = 1 To 10 x = int【 】 Print x;If x ＞ Max Then Max=x Next i Print Print ”最大值=“;Max End Sub 90.以下是求1～100之間5或7的倍數(shù)的和，如下程序段： Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then 【】 End If Next i Print Sum 其中【】處書寫正確的是（）(單)A.Sum = i B.Sum = Sum +i C.Sum = Sum + 5+7 D.以上都不正確 91.要使得在按下鼠標(biāo)左鍵時(shí)，激發(fā)mousedown事件，可以設(shè)置此事件中的button參數(shù)為()(單) A.0 B.1 C.2 D.4 92.要使得在按下鼠標(biāo)右鍵時(shí)，激發(fā)mousedown事件，可以設(shè)置此事件中的button參數(shù)為()(單)A.0 B.1 C.2 D.4 93.刪除列表框中所有的項(xiàng)目所使用的方法為()(單)A.move B.remove C.clear D.removeitem 94.在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程： Private Sub command1_click()Dim a As String, b As String a = InputBox(”Enter the First integer“)b = InputBox(”Enter the Second integer“)Print b + a End Sub程序運(yùn)行后，單擊命令按鈕，先后在兩個(gè)輸入對(duì)話框中分別輸入456和111,則輸出結(jié)果是()(單)A.456 B.111 C.567 D.111456 95.傳值：形參得到的是實(shí)參的值，形參值的改變不會(huì)影響實(shí)參的值。在定義形參前加關(guān)鍵字Byval。 96.以下利用SUB關(guān)鍵字定義的子過(guò)程Rate，其調(diào)用格式不正確的是()(單)A.call Rate(12,56)B.Rate(12,56)C.Rate 12,56 D.以上A和C正確 97.以下程序的作用是單擊Check1檢查框?qū)⑹沟肨ext1文本框的字體在”加粗“和”常規(guī)“之間進(jìn)行切換。 Private Sub Check1_Click()Text1.FontItalic = Not Text1.FontItalic End Sub 98.窗體中有一個(gè)名稱為Slider1的可選擇性刻度滑塊控件，要設(shè)置它的如下屬性值，可以編寫程序()(單)(1)Slider控件的滑塊處于最小位置時(shí)值為8(2)Slider控件的滑塊處于最大位置時(shí)值為72(3)單擊Slider控件兩端箭頭時(shí)，滑塊的增量值為2(4)單擊Slider控件的空白處時(shí)，滑塊的增量值為8 A.Slider1.Min = 8： Slider1.Max = 72： Slider1.SmallChange =2： Slider1.LargeChange = 8 B.Slider1.Min = 2： Slider1.Max = 8： Slider1.SmallChange = 72： Slider1.LargeChange = 8 C.Slider1.Min = 8： Slider1.Max = 72： Slider1.SmallChange = 8： Slider1.LargeChange = 2 D.Slider1.Min = 72： Slider1.Max = 8： Slider1.SmallChange = 2： Slider1.LargeChange = 8 99.以下能判斷指針是否指向文件尾的函數(shù)是()(單)A.BOF B.LOC C.LOF D.EOF 00.窗體的過(guò)程Form_MouseDown(Button As Integer, Shift As Integer, X As Single, YAs Single)，有4個(gè)參數(shù)，關(guān)于這些參數(shù)，正確的描述是()(單)A.通過(guò)Button參數(shù)判定當(dāng)前按下的是鍵盤上哪一個(gè)鍵 B.Shift參數(shù)只能用來(lái)確定是否按下Shift鍵 C.Shift參數(shù)只能用來(lái)確定是否按下Alt和Ctrl鍵 D.參數(shù)x,y用來(lái)設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo) 01.設(shè)組合框Combo1中有3個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語(yǔ)句是()(單)A.Combo1.RemoveItem Text B.Combo1.RemoveItem 2 C.Combo1.RemoveItem 3 D.Combo1.RemoveItem Combo1.Listcount 1-10ADADA ABADA 11-20CCCDA AACBC 21-30ACDBB CDCCC 31-40ABDAB fontname BAAC 41-45AAC RND*101+100或100+RND*101或RND()*101+100或100+RND()*101 B 46-50CACBB 51-55DBBAA 56-60CDBBA 61-65BCDDD 66Autosize 67Multiline 68Text1 669loadpicture(”pic2.bmp")70Stretch 71Picture 72Interval 73Enabled 74 001.4 75 1.7 76【標(biāo)準(zhǔn)】77VB 78frm 79B 80cos(2*(c+d))81 2*a*(7+b)82【雙引號(hào)】83D 84D 85D 86<> 87【i】88x+y+z=100 89RND*101+100或100+RND*101或RND()*101+100或100+RND()*101 90B 91-95BBCDV 96-00BVADD 01B 13 《VB程序設(shè)計(jì)》綜合復(fù)習(xí)資料 三、簡(jiǎn)答題 1、代碼窗口主要包括哪幾部分？ 2、在工程資源管理器窗口中，主要列出了哪三類文件？ 3、窗體布局窗口的主要用途是什么？ 4、VB的基本特點(diǎn)是什么？ 5、怎樣理解可視化設(shè)計(jì)？ 6、怎要理解事件驅(qū)動(dòng)編程？ C．設(shè)置文本框的焦點(diǎn) D．改變文本框的內(nèi)容 2、應(yīng)用程序設(shè)計(jì)完成后，應(yīng)將程序保存，保存的過(guò)程是（d） A．只保存窗體文件即可 B．只保存工程文件即可 C．先保存工程文件，之后保存窗體文件 D．先保存窗體文件（或標(biāo)準(zhǔn)模塊文件），之后還要保存工程文件 3、VB應(yīng)用程序的運(yùn)行模式是（c） A．解釋運(yùn)行模式 B．編譯運(yùn)行模式 C．兩者都有 D．匯編模式 4、任何控件都具有的屬性是（a） A．TEXT B．CAPTION C．NAME D．FORECOLOR 5、決定控件上文字的字體、字形、大小及效果的屬性是（D） A．TEXT B．CAPTION C．NAME D．FONT 6、在窗體上建立了多個(gè)控件，如TEXT、LABEL1、COMMAND1，若要使程序一運(yùn)行焦點(diǎn)就定位在COMMAND1控件上，應(yīng)將COMMAND1控件的（B）設(shè)置為0 A．INDEX B．TABINDEX C．TABSTOP D．ENABLED 7、運(yùn)行時(shí)，當(dāng)用戶向文本框輸入新的內(nèi)容，或在程序代碼中對(duì)文本框的TEXT屬性進(jìn)行賦值從而改變了文本框的TEXT屬性值時(shí)，將觸發(fā)文本框的（A）事件 A．CLICK B．DBLCLICK C．GOTFOCUS D．CHANGE 8、在運(yùn)行時(shí)，按TAB鍵跳過(guò)了一個(gè)可以獲得焦點(diǎn)的控件（如文本框），則可能是因?yàn)椋˙） A．該控件的TABSTOP屬性值為TRUE B．該控件的TABINDEX屬性值為FALSE C．該控件的ENABLED屬性值為TRUE D．該控件的ENABLED屬性值為FALSE 9、為了防止用戶隨意將光標(biāo)置于控件上，應(yīng)（A） A．將控件的TABINDEX屬性設(shè)置為0 B．將控件的TABSTOP屬性設(shè)置為TRUE C．將控件的TABSTOP屬性設(shè)置為FALSE D．將控件的ENABLED屬性設(shè)置為FALSE 10、若要使標(biāo)簽控件顯示時(shí)，不覆蓋其背景內(nèi)容，應(yīng)設(shè)置標(biāo)簽控件的（D）屬性 A．BACKCOLOR C．FORECOLOR B．BORDERSTYLE D．BACKSTYLE 11、如果要在文本框中輸入字符時(shí)，只顯示某個(gè)字符，如星號(hào)（*），運(yùn)行時(shí)，在文本框中輸入的字符仍然顯示出來(lái)，而不顯示星號(hào)，原因可能是（B） A．文本框的MULTILINE屬性值為TRUE B．文本框的LOCKED屬性值為TRUE C．文本框的MULTILINE屬性值為FALSE D．文本框的LOCKED屬性為FALSE 12、在運(yùn)行階段，要在文本框TEXT1獲得焦點(diǎn)時(shí)選中文本框中所有內(nèi)容，對(duì)應(yīng)的事件過(guò)程是（B） A．Private Sub Text1_GotFocus()Text1.SelStart=0 Text1.Sellength=Len(Text1.Text)End Sub B．Private Sub Text1_LostFocus()Text1.SelStart=0 Text1.Sellength=Len(Text1.Text)End Sub C．Private Sub Text1_Change()Text1.SelStart=0 Text1.Sellength=Len(Text1.Text)End Sub D．Private Sub Text1_SetFocus()Text1.SelStart=0 Text1.Sellength=Len(Text1.Text)End Sub 13、Visual Basic繼承了Basic語(yǔ)言簡(jiǎn)單易用的語(yǔ)法特點(diǎn)，同時(shí)支持面向?qū)ο蟮木幊虣C(jī)制，其中構(gòu)成其控件（對(duì)象）的三要素是（D） A．屬性、事件、事件過(guò)程 C．屬性、過(guò)程、方法 B．控件、窗體、事件 D．屬性、事件、方法 14、決定標(biāo)簽（Label）顯示的屬性是（C） A．Text B．Name C．Caption D．Alignment 15、命令按鈕的標(biāo)題文字由（B）屬性來(lái)設(shè)置。 A．Text B．Caption C．Name D．(名稱) 16、若要設(shè)置文本的顯示顏色，則可用（A）屬性來(lái)實(shí)現(xiàn)。 A．BackColor B．Forecolor C．FillColor D．Backstyle 17、在運(yùn)行時(shí)，若要調(diào)用某命令鈕的Click事件過(guò)程，則可設(shè)置該命令鈕對(duì)象的（）屬性為Ture來(lái)實(shí)現(xiàn)。 A．Enabled B．Value C．Default D．Cancel 18、在運(yùn)行時(shí)，若要獲得用戶在文本框中所選擇的文本，可通過(guò)訪問(wèn)（）屬性來(lái)實(shí)現(xiàn)。 A．SelStart B．SelLenght C．Text D．SelText 三、簡(jiǎn)答題 1、事件驅(qū)動(dòng)的含意是什么？舉例說(shuō)明。 2、交互式開發(fā)方法和傳統(tǒng)的應(yīng)用程序開發(fā)過(guò)程有什么不同？ 3、文本框在什么情況下使用？ 4、什么是工程？ 5、結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)是什么？ 6、對(duì)象的三要素是什么？并分別進(jìn)行簡(jiǎn)單的解釋。 7、為什么要生成可執(zhí)行文件和制作安裝盤？ 8、使用變量前先聲明有什么好處？ 9、如何使用幫助功能？ 10、結(jié)構(gòu)化程序設(shè)計(jì)的特點(diǎn)是什么？ 11、為了把焦點(diǎn)移到某個(gè)指定的控件，在代碼中應(yīng)使用的方法是什么？ 12、啟動(dòng)Visua Basic后，只創(chuàng)建了一個(gè)窗體，若此時(shí)保存，需要保存幾個(gè)文件？各是什么文件？先保存的是哪一個(gè)？ 13、為了防止文本框中的信息運(yùn)行后被用戶修改，應(yīng)設(shè)置什么屬性？ 1、一般可以使用__________關(guān)鍵字聲明常量。 2、______類型也稱變體類型，是一種通用的、可變的數(shù)據(jù)類型，它可表示或存儲(chǔ)任何一種數(shù)據(jù)類型。 3、變量的聲明分為兩種方法：__________和____________。 4、在VB中，用___________________語(yǔ)句設(shè)定數(shù)組的下界，用_____________和__________________語(yǔ)句分別返回?cái)?shù)組的上、下界。 5、在代碼模塊中加入Option Explicit的目的是_____________________。 6、function aa(a1 as date,optional a2 as boolean)as single，寫出optional命令的作用__________________。 7、在VB中，我們用一個(gè)簡(jiǎn)單的______語(yǔ)句就能實(shí)現(xiàn)退出程序。 8、生成消息框的命令是____________，生成輸入框的命令是____________。 9、通用對(duì)話框（commondialog）屬activex控件，它可以顯示多個(gè)標(biāo)準(zhǔn)對(duì)話框，包括打開/另存為、字體、打印等對(duì)話框，若要顯示所有文件，則應(yīng)設(shè)置其屬性filter=____________，若要使它顯示為打印對(duì)話框，則應(yīng)使用什么方法____________。 10、從字符串中任意位置截取字符的函數(shù)是__________。 11、語(yǔ)句For j = 3 To 20 Step 3 使循環(huán)體執(zhí)行了______次。 12、對(duì)于正在使用的動(dòng)態(tài)數(shù)組Arraya()，要增加一個(gè)單元，但不能破壞數(shù)組內(nèi)的數(shù)據(jù)，則應(yīng)使用語(yǔ)句__________________________________。 13、在Visual Basic中聲明靜態(tài)變量的關(guān)鍵字是_________________。 14、表達(dá)式10 Mod 6 4的值為______。 15、表達(dá)式chr(Asc(“a”)+ 5)的值為_________。 16、VB中使用注釋有2種方法，即________和________。 17、VB中的數(shù)據(jù)以四種形式存儲(chǔ)：常量、_________、_________和記錄。 18、為了在VB中存儲(chǔ)一個(gè)4行5列的二維矩陣，需要定義一個(gè)整型的數(shù)組，請(qǐng)把數(shù)組定義語(yǔ)句補(bǔ)充完整：Dim Juzhen(_ _)as Integer。 19、控件數(shù)組由一組相同類型的控件組成，這些控件共用一個(gè)相同的控件名，但是每個(gè)控件都有一個(gè)唯一的下標(biāo)來(lái)區(qū)分，我們使用屬性__ __來(lái)設(shè)置下標(biāo)。 20、在過(guò)程調(diào)用中，實(shí)現(xiàn)調(diào)用過(guò)程的實(shí)參和被調(diào)用過(guò)程的形參之間的數(shù)據(jù)傳遞有兩種方式：按值傳遞和__ __。 21、為了保證程序中必須對(duì)變量的強(qiáng)制性定義，需要在代碼模塊的聲明部分加入______________語(yǔ)句。 22、分析For……Next循環(huán)結(jié)構(gòu)的實(shí)例：For i = 5 To 30 Step 2 中，循環(huán)體一共執(zhí)行了______次。 23、表達(dá)式Mid(“UniversityOfPetroleum”, 8, 4)的值為_________。 24、常量分為普通常量和__________常量。 25、要將大寫字母轉(zhuǎn)換為小寫字母，可使用____________函數(shù)。 26、不管焦點(diǎn)在哪個(gè)控件上，按__________鍵相當(dāng)于按了取消按鈕。 27、執(zhí)行“工程”菜單下的__________命令，可選擇并添加ActiveX控件。 28、__________是程序中VB停止執(zhí)行的地方。 29、邏輯常量為True或__________。 30、使用了__________________的聲明后，當(dāng)程序中使用未經(jīng)聲明的變量時(shí)，程序運(yùn)行時(shí)會(huì)報(bào)錯(cuò)。 31、要將小寫字母轉(zhuǎn)換為大寫字母，可使用____________函數(shù)。 32、自字符串N1位開始向右取N2個(gè)字符，要使用_________________函數(shù)。 33、日期常量表示時(shí)，用符號(hào)__________將日期型數(shù)據(jù)括起來(lái)。 34、局部變量只能在__________中聲明和使用。 35、模塊級(jí)變量的聲明關(guān)鍵字是Dim或__________。 36、函數(shù)Abs(x)的功能是__________。 37、表達(dá)式3/6*5的值是__________。 二、選擇題 1、以下哪個(gè)是合法的變量（） A．right B．a(chǎn)bc@123 C．123_abc D．a(chǎn)b123c 2、下列說(shuō)法錯(cuò)誤的是（） A．在同一模塊不同過(guò)程中的變量可以同名 B．不同模塊中定義的全局變量不可以同名 C．引用另一模塊中的全局變量時(shí)，必須在變量名前加模塊名 D．同一模塊中不同級(jí)的變量可以同名 3、把MsgBox的返回值轉(zhuǎn)換為數(shù)值應(yīng)該使用的函數(shù)是（） A．Log B．Str C．Len D．Val 4、語(yǔ)句DIM AA(3,4,5)中定義的數(shù)組有（）個(gè)元素 A．12 B．60 C．120 D．345 5、下面程序運(yùn)行后輸出的結(jié)果是（） A$=“CHINA” B$=STRING$(3,A$) PRINT B$ END A．CHI B．CCC C．INA D．AAA 6、以下語(yǔ)句的輸出結(jié)果是（） Print Format$(32548.5, “000,000.00”)A．32548.5 B．325,485.00 C．032,548,50 D．32,548,50 7、以下敘述中錯(cuò)誤的是（） A．如果過(guò)程被定義為Static類型，則該過(guò)程中的局部變量都是Static類型 B．Sub過(guò)程中不能嵌套定義Sub過(guò)程 C．Sub過(guò)程中可以嵌套調(diào)用Sub過(guò)程 D．事件過(guò)程可以像通用過(guò)程一樣由用戶定義過(guò)程名 8、Visual Basic提供的On Error Resume next錯(cuò)誤陷阱語(yǔ)句表示（） A．當(dāng)發(fā)生錯(cuò)誤時(shí)，使程序轉(zhuǎn)跳到語(yǔ)句標(biāo)號(hào)為0的程序塊 B．當(dāng)發(fā)生錯(cuò)誤時(shí)，不使用錯(cuò)誤處理程序塊 C．當(dāng)發(fā)生錯(cuò)誤時(shí)，忽略錯(cuò)誤行，繼續(xù)執(zhí)行下一語(yǔ)句 D．當(dāng)發(fā)生錯(cuò)誤時(shí)，終止本過(guò)程執(zhí)行，繼續(xù)執(zhí)行下一過(guò)程 9、在Visual Basic中，若要將控制權(quán)交給操作系統(tǒng)則通過(guò)（）的語(yǔ)句。 A．End B．Exit Do C．Exit Sub D．DoEvents 10、在Visual Basic 中語(yǔ)句的續(xù)行號(hào)采用（） A．空格與下劃線 B．下劃線與空格 C．空格與短線 D．短線與空格 11、假定有以下程序段： For i=1 to 3 For j=5 to 1 Step –1 Print i*j Next j,i 則語(yǔ)句Print i*j的執(zhí)行次數(shù)是（）A．15 B．.16 C．17 D．18 12、從鍵盤上輸入兩個(gè)字符串，分別保存在變量str1、str2中。確定 18、下列語(yǔ)句中正確的是（） A．txt1.text+txt2.text=txt3.text B．command1.name=cmdok C．12label.caption=1234 D．a(chǎn)=inputbox(“hello”) 19、假設(shè)變量BOOLVAR是一個(gè)布爾型變量，則下面正確的賦值語(yǔ)句是（） A．BOOLVAR=?TRUE? C．BOOLVAR=#TRUE# B．BOOLVAR=.TRUE D．BOOLVAR=3<4 20、以下（）程序段可以實(shí)施X、Y變量值的變換（） A．Y=X：X=Y B．Z=X：Y=Z：X=Y C．Z=X：X=Y：Y=Z D．Z=X：W=Y：Y=Z：X=Y 21、語(yǔ)句PRINT “SGN(-26)=”；SGN(-26)的輸出結(jié)果為（） A．SGN(-26)=26 C．SGN(-26)= +1 B．SGN(-26)=-26 D．SGN(-26)=-1 22、讀下面程序段，判斷變量Str2的取值是（） Dim Str1, Str2 as String Str1=“University” Str2=STRING$(3,Str1)A．Uni C．ity B．UUU D．yyy 23、VB支持自定義數(shù)據(jù)類型，在某程序中我們定義了如下類型： Student string As String As Integer Type 針對(duì)上述定義，如下幾項(xiàng)用法正確的是（） A．Student.name=“張三” B．Dim s As Student s.name＝“張紅” C．Dim s As Type Student D．Dim s As Type s.name=“張三” s.name=“張三” 24、一個(gè)工程中包含兩個(gè)名稱分別為Form1、Form2的窗體，一個(gè)名稱為mdlFunc的標(biāo)準(zhǔn)模塊。假定在Form1、Form2和mdlFunc中分別建立了自定義過(guò)程，其定義格式為： Form1中定義的過(guò)程： Private Sub frmfunction1()End Sub Form2中定義的過(guò)程： Public Sub frmfunction2()End Sub mdlFunc中定義的過(guò)程： Public Sub mdlFunction()End Sub 在調(diào)用上述過(guò)程的程序中，如果不指明窗體或模塊的名稱，則以下敘述中正確的是（）A．上述三個(gè)過(guò)程都可以在工程中的任何窗體或模塊中直接被調(diào)用 B．只有mdlFunction過(guò)程能夠被工程中各個(gè)窗體或模塊直接被調(diào)用 C．frmfunction1只能在form1中調(diào)用，而frmfunction2 則可以在所有模塊或窗體中被直接調(diào)用 D．上述三個(gè)過(guò)程都只能在各自被定義的模塊中直接調(diào)用 25、VB中Do……Loop結(jié)構(gòu)既可以構(gòu)成當(dāng)型循環(huán)，也可以構(gòu)成直到型循環(huán)，根據(jù)下面的代碼： Dim i,n as Integer n = 20 i = 1 Do Print i; i = i + 2 Loop Until i >20 判斷循環(huán)結(jié)構(gòu)的類型和循環(huán)體的執(zhí)行次數(shù)，正確的選項(xiàng)是（）A．當(dāng)型循環(huán)，20次 C．當(dāng)型循環(huán)，10次 B．直到型循環(huán)，10次 D．直到型循環(huán)，20次 26、在程序中，使用InputBox函數(shù)可以接受用戶的輸入，如果要把它的返回值轉(zhuǎn)換為數(shù)值型的數(shù)據(jù)，應(yīng)該使用的函數(shù)是（） A．Val B．Len C．Str D．Log 27、動(dòng)態(tài)數(shù)組因?yàn)樵诔绦蜻\(yùn)行前無(wú)法確定數(shù)組的大小，所以經(jīng)常根據(jù)程序的運(yùn)行情況，對(duì)數(shù)組進(jìn)行重新定義，以下關(guān)于VB中動(dòng)態(tài)數(shù)組的敘述中不正確的是（） A．可以用ReDim語(yǔ)句重新定義動(dòng)態(tài)數(shù)組，并且可以進(jìn)行多次重定義 B．首次用Dim進(jìn)行動(dòng)態(tài)數(shù)組聲明的時(shí)候，必須指明它的類型和上下界 C．Preserve為ReDim語(yǔ)句的可選參數(shù)，用于保留動(dòng)態(tài)數(shù)組原來(lái)的內(nèi)容 D．當(dāng)對(duì)動(dòng)態(tài)數(shù)組使用Erase語(yǔ)句進(jìn)行釋放操作時(shí)，將釋放其內(nèi)存 28、VB中的控件也叫做部件或組件，主要包括三類，以下哪一項(xiàng)不屬于VB控件的分類（） A．控件 B．可插入對(duì)象 D．ActiveX控件 C．ADO控件 29、表達(dá)式4+5 6 * 7 / 8 Mod 9 的值是（） A．4 B．5 C．6 D．7 30、可以同時(shí)刪除字符串前導(dǎo)和尾部空白的函數(shù)是（） A．Ltrim B．Rtrim C．Trim D．Mid 三、簡(jiǎn)答題 1、全局變量聲明有哪些限制？ 2、字符串是否可以自動(dòng)轉(zhuǎn)換為數(shù)字類型？ 3、用Format函數(shù)格式化后的字符格式在不同區(qū)域環(huán)境下的輸出是否相同？為什么？ 4、在InputBox函數(shù)中，哪一個(gè)參數(shù)是必需的？ 5、在MsgBox函數(shù)中哪一個(gè)參數(shù)是必須的？ 6、在什么情況下使用過(guò)程？ 7、為什么要進(jìn)行程序調(diào)試？ 8、調(diào)試程序有哪些手段？ 9、用語(yǔ)句Dim A(-3 To 5)As Integer定義的數(shù)組的元素個(gè)數(shù)是多少？ 10、設(shè)有如下的Visual Basic表達(dá)式：5*x^2-3*x-2*Sin(a)/3，與它對(duì)應(yīng)的數(shù)學(xué)式是什么？ 11、數(shù)學(xué)式(2x?a)(3y?b)對(duì)應(yīng)的VB表達(dá)式是什么？ 12、表達(dá)式2>3 And 4<=5 Or 4>4的值是什么？ 13、怎樣在程序中設(shè)置斷點(diǎn)？ 14、在什么情況下可以設(shè)置斷點(diǎn)？ 15、程序出錯(cuò)的類型有哪幾種？ 16、在同一模塊、不同過(guò)程中聲明的相同變量名，兩者是否表示同一個(gè)變量？為什么？ 17、什么情況下會(huì)出現(xiàn)“數(shù)組下標(biāo)越界錯(cuò)誤”？ 18、逐語(yǔ)句和逐過(guò)程有什么區(qū)別？ 19、表達(dá)式2.75 * 2 3.45的值是什么？ 20、在程序設(shè)計(jì)中為什么盡量不用GoTo語(yǔ)句？ 四、讀程序題 1、分析以下程序，寫出運(yùn)行結(jié)果。 Private Sub Form_Click() score = Int(Rnd * 10)+ 80 Select Case score Case Is < 60 A$ = “F” Case 60 To 69 A$ = “D” Case 70 To 79 A$ = “C” Case 80 To 89 A$ = “B” Case Else A$ = “A” End Select Print A$ End Sub 2、讀下面的程序，分析其功能，寫出運(yùn)行結(jié)果。 在窗體上有一個(gè)命令按鈕，名稱為Command1。然后編寫如下程序： Private Sub Command1_Click()For I = 1 To 4 For J = 0 To I Print Chr$(65 + I);Next J Print Next I End Sub 程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是什么？ 3、閱讀下面的程序，分析并寫出其功能。 Sub insert(a()As Single,ByVal x As Single)Dim m as integer,n as integer n=1 Do While n<20 And x>a(n)n=n+1 Loop For m=20-1 To n Step –1 a(m+1)=a(m)Next m a(n)=x End Sub 4、分析以下程序，寫出運(yùn)行結(jié)果。 Sub subP(b()As Integer)For i =1 To 4 b(i)=2*i Next i End Sub Private Sub Commandl_Click()Dim a(1 To 4)As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subP a()For i =1 To 4 Print a(i)Next i End Sub 運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果是什么？ 5、分析以下程序，寫出運(yùn)行結(jié)果。 Sub sele()Dim n as Integer i=21:n=3 Do While i>n i=i－n Loop Print i End Sub 6、分析以下程序，寫出運(yùn)行結(jié)果。 Sub selectPrint()Dim a as Integer Dim b as Integer Dim c as Integer a=2:b=5:c=2 If(a>=b)and(a>=c)or(b>c)Then Print a a=a+2 Else Print b EndIf Print a;b;c End Sub 7、分析以下程序，寫出運(yùn)行結(jié)果。 Sub swap()Dim x as Integer Dim y as Integer Dim z as Integer x=1:y=2:z=0 Print x;y;z x=x+y x=x*z Print x,y,z End Sub 8、分析以下程序，寫出運(yùn)行結(jié)果。 Sub selectPrint()Dim a as Integer Dim b as Integer Dim c as Integer a=3:b=3:c=2 If(a>=b)and(a>c)Then Print a Print a,b,c End Sub 五、編程題 1、輸入一年號(hào)，判斷它是否是閏年。界面如下圖所示，包括兩個(gè)標(biāo)簽、一個(gè)文本框和一個(gè)命令按鈕。提示：如果此年號(hào)能被400整除或者不能被400除盡，也不能被100除盡，但能被4整除，則它是閏年；否則，不是閏年。 2、輸入兩個(gè)正整數(shù)m、n，求m和n的最大公約數(shù)。要求建立如下圖所示的窗體，其中主要的控件包括：兩個(gè)標(biāo)簽（Lable1、Lable2）、兩個(gè)文本框（Text1、Text2）和一個(gè)按鈕（Command1）。 3、輸入某學(xué)生成績(jī)（百分制），若是100≥成績(jī)≥90輸出優(yōu)秀；若是90＞成績(jī)≥80輸出良好；若是80＞成績(jī)≥70輸出中等；若是70＞成績(jī)≥60輸出及格；若是60＞成績(jī)≥0，輸出不及格；若是其他數(shù)則輸出error信息。 4、在窗體中顯示從9號(hào)字型到16號(hào)字型。 5、在有序序列中插入一個(gè)數(shù)，使插入后的數(shù)列仍然有序（設(shè)按由小到大排列）。 6、編程實(shí)現(xiàn)二維數(shù)組轉(zhuǎn)置。 7、隨機(jī)輸入10個(gè)100以內(nèi)的整型數(shù)，計(jì)算其和及平均值。 8、找出所有的水仙花數(shù)。水仙花數(shù)是個(gè)三位數(shù)，它的各位數(shù)字的立方和等于這個(gè)三位數(shù)本身。例如371＝33+73+13，則371是水仙花數(shù)。 9、從鍵盤輸入一個(gè)大于2的正整數(shù)，判斷該數(shù)是否是素?cái)?shù)。 10、求二維數(shù)組中的最小值及其所在行號(hào)、列號(hào)。 11、求一元二次方程ax2+bx+c=0的根（包括實(shí)根和復(fù)根）。 12、輸入一個(gè)正整數(shù)n，計(jì)算出n!并輸出。 13、Faibonacci數(shù)列為0，1，1，2，3，5，8，13 ?，計(jì)算并輸出 Print List1.______________ End Sub（2）單擊列表框某一項(xiàng)時(shí)立即將該項(xiàng)打印在窗體上： Private Sub List1_Click()Print_______________ End Sub（3）按下命令按鈕Command1時(shí)在窗體上刪除 Label1.Caption = Hscroll1.__________________ End Sub 14、列表框（ListBox）用于列出可供選擇的項(xiàng)目的列表，用戶可以選擇一個(gè)或多個(gè)項(xiàng)目。它具有幾個(gè)非常重要的數(shù)組屬性，其中__ __屬性存放了列表框中所有項(xiàng)目的值。 15、菜單項(xiàng)一般由標(biāo)題、訪問(wèn)鍵、快捷鍵和復(fù)選標(biāo)志等構(gòu)成，通過(guò)對(duì)相應(yīng)的屬性進(jìn)行設(shè)置可以改變這些項(xiàng)目的狀態(tài)，其中與復(fù)選標(biāo)志相對(duì)應(yīng)的屬性是__ __。 16、keydown與keypress事件各有其參數(shù)，若需獲得用戶按下 “a” 還是 “A” 需用____________事件。 17、控件________組合了文本框和列表框的功能，是VB中一種功能非常強(qiáng)大的選擇類控件。 18、若需要將窗體Form2以模態(tài)窗口的形式顯示出來(lái)，可通過(guò)執(zhí)行代碼_________________來(lái)實(shí)現(xiàn)。 19、菜單中的分隔條是一種菜單控件，不響應(yīng)__________事件，不能被選中。 二、選擇題 1、當(dāng)程序運(yùn)行時(shí)，在窗體上單擊鼠標(biāo)，以下哪個(gè)事件是窗體不會(huì)接收到（）A．MouseDown B．MouseUp C．Load D．Click 2、窗體Form1的Name屬性是Frm1，它的單擊事件過(guò)程名是（） A．Form1_Click B．Form_Click C．Frm1_Click D．Me_Click 3、用于設(shè)置通用對(duì)話框控件顯示文件類型的屬性是（） A．Filter B．Path C．Partern D．FoleName 4、用于從內(nèi)存刪除窗體的命令是（） A．Move B．Hide C．Unload D．Delete 5、用于返回窗體可用區(qū)域?qū)挾鹊膶傩允牵ǎ?/p> A．ScaleWidth B．ScaleLeft C．ScaleHeight D．ScaleTop 6、下列關(guān)于屬性設(shè)置的敘述錯(cuò)誤的是：（） A．一個(gè)控件具有什么屬性是VB預(yù)先設(shè)計(jì)好的，用戶不能改變 B．一個(gè)控件具有什么屬性是VB預(yù)先設(shè)計(jì)好的，用戶可以改變 C．一個(gè)控件的屬性即可以在屬性窗口中設(shè)置，也可以用程序代碼設(shè)置 D．一個(gè)控件的屬性在屬性窗口中設(shè)置，還可以利用程序代碼為其設(shè)置新值 7、下列說(shuō)法正確的是（） A．對(duì)象屬性只能在“屬性窗口”中設(shè)置 B．一個(gè)新的工程可以在“工程窗口”中建立 C．必須先建立一個(gè)工程，才能開始設(shè)計(jì)應(yīng)用程序 D．只能在“代碼窗口”中編寫程序代碼 8、下列關(guān)于窗體上控件的基本操作錯(cuò)誤的是（） A．按下一次DEL鍵只能刪除一個(gè)控件 B．按下一次DEL鍵可以同時(shí)刪除多個(gè)控件 C．按住SHIFT鍵，然后單擊每個(gè)要選擇的控件，可以同時(shí)選中多個(gè)控件 D．按住ALT鍵，然后單擊每個(gè)要選擇的控件，可以同時(shí)選中多個(gè)控件 9、下列關(guān)于設(shè)置控件屬性的敘述正確的是（） A．用戶必須設(shè)置屬性值 B．所有的屬性值都可以由用戶隨意設(shè)定 C．屬性值不必一一重新設(shè)置 D．不同控件的屬性項(xiàng)都完全一樣 10、不可以通過(guò)下列（）操作將焦點(diǎn)賦給對(duì)象 A．運(yùn)行時(shí)使用TAB鍵 B．在代碼中用CALL語(yǔ)句調(diào)用 D．用訪問(wèn)鍵或用鼠標(biāo)單擊選擇對(duì)象 C．在代碼中用SETFOCUS方法 11、要在FORM_LOAD事件過(guò)程中使用PRINT方法在窗體上輸出一定的內(nèi)容，應(yīng)（） A．設(shè)置窗體的VISIBLE屬性 C．調(diào)用窗體的SHOW方法 B．設(shè)置窗體的CAPTION D．設(shè)置窗體ENABLED屬性 12、下面（）對(duì)象無(wú)CAPTION屬性 A．FORM B．COMMANDBUTTON C．TEXTBOX D．LABEL 13、通用對(duì)話框控件和文件列表框控件中，都能根據(jù)文件的類型對(duì)要顯示的文件進(jìn)行篩選過(guò)濾，后者使用（）屬性進(jìn)行該項(xiàng)設(shè)置。 A．Pattern B．Path C．Filter D．FileName 14、對(duì)于復(fù)選框控件chkBoy，如果在程序中設(shè)置它為選中狀態(tài)，下面語(yǔ)句正確的是（） A．chkBoy.Checked = true C．chkBoy.Selected = true B．chkBoy.Value = true D．chkBoy.Value = 1 15、計(jì)時(shí)器（Timer）控件用于每隔一段時(shí)間自動(dòng)觸發(fā)一次Timer事件，可以有規(guī)律地重復(fù)執(zhí)行一段程序，它用于設(shè)置兩次事件時(shí)間間隔的屬性是（） A．Interval B．SmallChange D．Max C．LargeChange 16、以下關(guān)于VB中窗體（Form）的說(shuō)法中，不正確的描述為（） A．執(zhí)行Unload Form語(yǔ)句后，窗體Form消失，但仍在內(nèi)存中 B．當(dāng)窗體的Enabled屬性為False時(shí)，通過(guò)鼠標(biāo)和鍵盤對(duì)窗體的操作都被禁止 C．窗體的Height、width屬性用于設(shè)置窗體的高和寬 D．窗體的load事件在加載窗體時(shí)發(fā)生 17、關(guān)于滾動(dòng)條控件，下面說(shuō)法錯(cuò)誤的是（） A．點(diǎn)擊滾動(dòng)條的箭頭，可以改變它的value值，從而引發(fā)Change事件 B．拖動(dòng)滾動(dòng)框，可以觸發(fā)Scroll事件 C．通常，水平滾動(dòng)條的值從左向右遞增，垂直滾動(dòng)條的值自上而下遞增 D．拖動(dòng)滾動(dòng)框，可以觸發(fā)Change事件，而且是連續(xù)觸發(fā)的 18、在窗體上放置一個(gè)命令按鈕，名稱為Command1。單擊命令按鈕時(shí)，執(zhí)行如下事件過(guò)程： PriVate Sub Command1_C1ick()a$=“software and hardware” b$＝Right(a$,8)c$=Mid(a$,1,8)Msgbox a$,b$,c$,1 End Sub 則在彈出的信息框的標(biāo)題欄中顯示的信息是（）A．softWare and hardware C．hardwafe B．software D．出現(xiàn)錯(cuò)誤 19、在多重窗體程序設(shè)計(jì)中，關(guān)鍵的問(wèn)題是要解決不同窗體之間的銜接和窗體的顯示、關(guān)閉等問(wèn)題，以下關(guān)于窗體的相關(guān)語(yǔ)句和方法的敘述中，錯(cuò)誤的是（） A．Load語(yǔ)句用于加載指定窗體，即在內(nèi)存中創(chuàng)建該窗體 B．Show方法兼具Load語(yǔ)句的功能，可以將窗體顯示出來(lái) C．Hide方法用于將窗體隱藏起來(lái) D．Unload語(yǔ)句用來(lái)釋放窗體，但窗體并沒從內(nèi)存中消 20、滾動(dòng)條控件的屬性中，表示取值范圍最大值的屬性是（） A．Max C．Min B．LargeChange D．Value 21、程序中如果需要檢測(cè)和控制鼠標(biāo)的位置和狀態(tài)的改變，就需要使用鼠標(biāo)事件，其中下面哪個(gè)選項(xiàng)用于表示拖動(dòng)事件（） A．DragDrop C．MouseUp B．MouseDown D．MouseMove 22、為了使用通用對(duì)話框進(jìn)行打開文件的操作，應(yīng)將通用對(duì)話框的Action屬性設(shè)定為（）。 A．0 B．1 C．2 D．3 三、簡(jiǎn)答題 1、什么是單選按鈕？什么是復(fù)選框？在使用上有什么不同？ 2、滾動(dòng)條的change事件和scroll事件有什么不同？ 3、快捷鍵和訪問(wèn)鍵有什么區(qū)別？ 4、在程序運(yùn)行期間，如果拖動(dòng)滾動(dòng)條上的滾動(dòng)塊（即滑塊），則觸發(fā)滾動(dòng)條的什么事件？ 5、假定有一個(gè)菜單項(xiàng)，名為MenuItem，為了在運(yùn)行時(shí)使該菜單項(xiàng)失效（變灰），應(yīng)使用什么語(yǔ)句？ 6、為了暫時(shí)關(guān)閉計(jì)時(shí)器（即時(shí)鐘控件），應(yīng)把該計(jì)時(shí)器的什么屬性設(shè)置為False？ 7、單選按鈕和復(fù)選框（即檢查框）各用于什么情況？ 8、如何為一個(gè)菜單項(xiàng)設(shè)置熱鍵和快捷鍵？ 9、菜單的形式有哪兩種？ 10、在KeyPress事件中，如何取消用戶剛輸入的字符？ 11、框架的作用是什么？ 12、如果要計(jì)時(shí)器每秒鐘發(fā)生4個(gè)Timer事件，則Interval屬性值應(yīng)設(shè)多少？ 13、在一個(gè)窗體的程序代碼中能否訪問(wèn)另一個(gè)窗體上控件的屬性？若不行則請(qǐng)說(shuō)明理由；若行則請(qǐng)說(shuō)明如何訪問(wèn)。 14、如何在框架中建立控件？ 15、組合框有哪幾種類型？ 四、讀程序題 1、對(duì)窗體編寫如下代碼： Option Base 1 Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1)m2 = 1 If KeyAscii = 13 Then For i =2 To 5 If a(i)>ml Then m1 =a(j)m2 =i End If Next i End If Print m1 Print m2 End Sub 程序運(yùn)行后，按回車鍵，輸出結(jié)果是什么？ 2、閱讀下面的程序，寫出執(zhí)行結(jié)果。 Private Sub Form_load() Form1.show d = 0 For a = 1 To 2 For b = 1 To a For c = b To 5 d = d + 1 Next c Next b Next a Print d End Sub 五、編程題 1、在窗體上有一個(gè)文本框控件，名稱為TxtTime；一個(gè)計(jì)時(shí)器控件，名稱為Timer1，要求每一秒在文本框中顯示一次當(dāng)前的時(shí)間，請(qǐng)編程實(shí)現(xiàn)。 2、在Text1中輸入任一英文字母，在Text2中顯示該英文字母及其ASCII碼值。要求在文本框Text2中顯示出所有輸入的英文字母及其ASCII碼值，如下圖所示。 Text1 Command1 Text2 3、編寫一個(gè)程序，能夠?qū)崿F(xiàn)任意個(gè)整數(shù)的排序。 4、編程實(shí)現(xiàn)以下功能：用戶首先分別在兩個(gè)文本框中輸入兩個(gè)數(shù)，然后在具有“加、減、乘、除”等四個(gè)菜單項(xiàng)的“計(jì)算”菜單中單擊某一項(xiàng)，即可在標(biāo)簽中顯示出相應(yīng)的結(jié)果或者錯(cuò)誤提示。 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，用于保存復(fù)制和剪切的內(nèi)容，請(qǐng)把剪切按鈕(btnCut)的Click事件補(bǔ)充完整。 程序運(yùn)行界面： Private Sub btnCut_Click() ?請(qǐng)補(bǔ)充 End Sub 2、計(jì)算1 + 2 + 3 + …… + 100的和并輸出。請(qǐng)把下面用Do While ……Loop循環(huán)結(jié)構(gòu)實(shí)現(xiàn)這一功能的代碼補(bǔ)充完整。 Private Sub Form_Load()Dim sum,count as Integer ?請(qǐng)補(bǔ)充 Do while count <=100 ?請(qǐng)補(bǔ)充 Loop Text1.Text = sum End Sub 3、列表框控件（ListBox）支持多項(xiàng)選擇，這項(xiàng)功能在對(duì)用戶的興趣愛好進(jìn)行調(diào)查的時(shí)候顯得非常好用，在下圖所示的界面中列表框List1用于列出愛好選項(xiàng)，供用戶進(jìn)行多項(xiàng)選擇。 請(qǐng)把下列代碼補(bǔ)充完整，能夠取得用戶的所選愛好選項(xiàng)： Private Sub Command1_Click() Dim i As Integer Dim s As String s = txtname.Text & “愛好” For i = 0 To List1.ListCount-1 ?請(qǐng)補(bǔ)充 Next Label3.Caption = s End Sub 4、要求利用計(jì)時(shí)器Timer1，在窗體Form1上每隔1秒鐘打印一個(gè)1到10的隨機(jī)整數(shù)，請(qǐng)把下列代碼補(bǔ)充完整： Private Sub Form_Load() Show ?請(qǐng)補(bǔ)充 End Sub Private Sub Timer1_Timer()?請(qǐng)補(bǔ)充 End Sub 5、請(qǐng)說(shuō)明PRINT #和WRITE #語(yǔ)句的區(qū)別 6、EOF函數(shù)的功能是什么？ 四、編程題 1、實(shí)現(xiàn)二進(jìn)制方式文件的復(fù)制。 2、如下圖所示，實(shí)現(xiàn)一個(gè)簡(jiǎn)單的文件管理器。 件 C．雙擊工具箱中的控件圖標(biāo)，所畫控件的大小和位置是固定的 D．不使用工具箱中的控件工具，不可以在窗體上畫出圖形對(duì)象，但可以寫入文字字符 2、當(dāng)一個(gè)對(duì)象（如窗體或圖片框）被移動(dòng)或改變大小之后，或當(dāng)一個(gè)覆蓋該窗體被移開之后，如果要保持該所畫圖形的完整性，可以選擇觸發(fā)（）事件來(lái)完成圖形的重畫工作 A．Paint B．Load C．Click D．Active 三、簡(jiǎn)答題 1、在什么情況下使用Image控件而不使用PictureBox控件？ 2、在程序運(yùn)行時(shí)怎樣在圖形框中裝入和刪除圖形？ 3、顏色函數(shù)主要有哪些？ 四、編程題 1、如下圖顯示當(dāng)前目錄下的圖片文件列表，并能夠預(yù)覽選定的圖片。 北師大網(wǎng)教憲法作業(yè) （三）及答案 1.我國(guó)現(xiàn)行《憲法》規(guī)定，當(dāng)選國(guó)家主席的公民應(yīng)年滿多少？45周歲 在我國(guó)，基層人民政府可以依法設(shè)立的派出機(jī)關(guān)是下列的哪一個(gè)？街道辦事處 列對(duì)我國(guó)法院審判工作的基本制度說(shuō)法錯(cuò)誤的是（）三審終審制度 根據(jù)憲法和法律，下列選項(xiàng)正確的是哪一項(xiàng)？地方各級(jí)人民檢察院對(duì)產(chǎn)生它的國(guó)家權(quán)力機(jī)關(guān)2.3.4.5.6.7.8.9.和上級(jí)人民檢察院負(fù)責(zé) 我國(guó)的人民檢察院是什么性質(zhì)的國(guó)家機(jī)關(guān)？法律監(jiān)督機(jī)關(guān) 下列關(guān)于國(guó)家結(jié)構(gòu)形式調(diào)整對(duì)象的表述中，哪一項(xiàng)最為恰當(dāng)？國(guó)家結(jié)構(gòu)形式主要是以國(guó)家整體與部分之間的關(guān)系為調(diào)整對(duì)象 下列關(guān)于中央與地方之間的行政關(guān)系，哪一項(xiàng)是錯(cuò)誤的？選舉關(guān)系 我國(guó)《憲法》第4條規(guī)定：“各少數(shù)民族聚居的地方實(shí)行（），設(shè)立自治機(jī)關(guān)，行使自治權(quán)。”區(qū)域自治 我國(guó)《憲法》第31條規(guī)定：國(guó)家在必要時(shí)得設(shè)立特別行政區(qū)。在特別行政區(qū)內(nèi)實(shí)行的制度按照具體情況由下列選項(xiàng)中的哪一機(jī)關(guān)以法律規(guī)定全國(guó)人民代表大會(huì) 10.在我國(guó)，對(duì)香港、澳門特別行政區(qū)行政首腦的稱謂是下列哪一項(xiàng)？行政長(zhǎng)官 多選題 11.全國(guó)人大及其常委會(huì)和國(guó)務(wù)院行使不同的職權(quán)，下列各項(xiàng)中屬于國(guó)務(wù)院行使的職權(quán)是哪些？1.批準(zhǔn)省、自治區(qū)和直轄市的區(qū)域劃分，批準(zhǔn)自治州、縣、自治縣、市的建置和區(qū)域化分2.、決定省、自治區(qū)、直轄市的范圍內(nèi)部分地區(qū)進(jìn)入緊急狀態(tài) 12.根據(jù)憲法和法律，下列選項(xiàng)中的哪些機(jī)關(guān)實(shí)行集體負(fù)責(zé)制？全國(guó)人大及其常委會(huì)、中央軍委、人民檢察院 13.根據(jù)我國(guó)《憲法》的規(guī)定，我國(guó)中央國(guó)家機(jī)構(gòu)從其行使權(quán)力的屬性來(lái)看，可分為下列選項(xiàng)中的哪幾種類型？1.國(guó)家權(quán)力機(jī)關(guān)2.國(guó)家元首和國(guó)家行政機(jī)關(guān)3.國(guó)家軍事機(jī)關(guān)4.審判機(jī)關(guān)和檢察機(jī)關(guān).14.下列各項(xiàng)中關(guān)于單一制說(shuō)法正確的是？國(guó)家立法權(quán)統(tǒng)一，只有一部憲法，一個(gè)中央政府，一套政府體系2.中央政府是代表國(guó)家進(jìn)行國(guó)際交往的唯一主體3.國(guó)防權(quán)力統(tǒng)一于中央 15.依據(jù)我國(guó)特別行政區(qū)基本法，下列哪些選項(xiàng)的表述是正確的？特別行政區(qū)可以自主決定外交、經(jīng)濟(jì)、財(cái)政等事項(xiàng)、中央人民政府可授權(quán)特別行政區(qū)依照基本法自行處理有關(guān)對(duì)外事務(wù) 簡(jiǎn)答題 16.行政機(jī)關(guān)的組織原則：答：1.民主原則。2.法治原則。3.行政機(jī)關(guān)系統(tǒng)內(nèi)部實(shí)行分權(quán)制衡。4.相容或不相容的原則。5.禁止兼職和從事營(yíng)業(yè)活動(dòng)的原則。6.行政機(jī)關(guān)成員必須為文職而非軍職的原則。7.實(shí)行行政首腦負(fù)責(zé)制的原則。17.我國(guó)最高人民法院的職權(quán)和職能。1.法律審判權(quán)：包括（1）證據(jù)調(diào)查與判斷權(quán)，（2)法律解釋權(quán)，（3）法律選擇權(quán)，（4）司法審查權(quán)。 2.司法解釋權(quán)：包括（1）整體性的司法解釋，（2）專題性的司法解釋，（3）個(gè)案性的司法解釋 3.規(guī)則制定權(quán) 4.判例選擇權(quán) 5.政策制 18單一制國(guó)家結(jié)構(gòu)形式的特征單一制特點(diǎn)：(1)從法律體系看：全國(guó)只有一部憲法(2)從國(guó)家機(jī)構(gòu)組成看：全國(guó)只有一個(gè)立法機(jī)關(guān)，一個(gè)中央政府(3)從公民的國(guó)籍看：公民只有一種國(guó)籍 (4)從中央與地方的權(quán)力劃分看：全國(guó)按地域劃分為若干行政區(qū)域，各行政區(qū)域接受中央政權(quán)機(jī)關(guān)的統(tǒng)一領(lǐng)導(dǎo) (5)從對(duì)外關(guān)系看：國(guó)家是一個(gè)完整的主權(quán)國(guó)家，中央政府統(tǒng)一行使外交權(quán)，地方政府不能代表國(guó)家行使外交權(quán) （6）國(guó)防決策權(quán)和軍隊(duì)統(tǒng)帥權(quán)統(tǒng)一于中央，且國(guó)家推行統(tǒng)一的稅收和貨幣制度。 19.我國(guó)民族自治地方的自治權(quán)答：民主自治地方的自治權(quán)是指民主自治地方的自治機(jī)關(guān)根據(jù)憲法、民族區(qū)域自治和其他法律的規(guī)定，根據(jù)實(shí)際情況自主地管理本地方、本民族內(nèi)部事務(wù)的自主權(quán)。主要有以下幾個(gè)方面： 1.制定自治條例和單行條例 2.根據(jù)當(dāng)?shù)孛褡宓膶?shí)際情況，貫徹執(zhí)行國(guó)家法律和政策 3.自主地管理地方財(cái)政 4.自主地管理地方性經(jīng)濟(jì)建設(shè) 5.自主地管理教育、科學(xué)、文化、衛(wèi)生、體育事業(yè) 6.組織維護(hù)社會(huì)治安的公安部隊(duì) 7.使用本民族的語(yǔ)言文字 論述題 20.試對(duì)單一制和聯(lián)邦制的特征進(jìn)行比較 以按地域劃分的普通行政區(qū)域或自治區(qū)域?yàn)榻M成單位的國(guó)家結(jié)構(gòu)形式。與復(fù)合制相對(duì)。在單一制國(guó)家，中央政權(quán)享有最高權(quán)力，地方政權(quán)在中央政權(quán)統(tǒng)一領(lǐng)導(dǎo)下，在憲法和法律規(guī)定的權(quán)限范圍內(nèi)行使其職權(quán)。在法理上，單一制國(guó)家的一切權(quán)力屬于中央，地方的權(quán)力具有中央授權(quán)性。單一制國(guó)家的明顯外部特征是：全國(guó)只有一個(gè)中央政權(quán)，一部憲法，一種法律體系，是國(guó)際交往中的國(guó)際關(guān)系主體，它的公民只有一個(gè)國(guó)籍。這種形式為現(xiàn)代大多數(shù)國(guó)家所采用。按照地方職權(quán)的大小，單一制國(guó)家又可分為中央集權(quán)型單一制國(guó)家和地方分權(quán)型單一制國(guó)家。在中央集權(quán)型單一制國(guó)家，地方政權(quán)在中央政權(quán)的嚴(yán)格控制下行使職權(quán)，由中央委派官員或由地方選出的官員代表中央管理地方行政事務(wù)，地方居民沒有自治權(quán)或地方雖設(shè)有自治機(jī)關(guān)，但自治機(jī)關(guān)受中央政權(quán)的嚴(yán)格控制。法國(guó)是典型的中央集權(quán)型單一制國(guó)家。在地方分權(quán)型單一制國(guó)家，地方居民依法自主組織地方公共機(jī)關(guān)，并在中央監(jiān)督下依法自主處理本地區(qū)事務(wù)，中央不得干涉地方具體事務(wù)。英國(guó)是典型的地方分權(quán)型單一制國(guó)家。 聯(lián)邦制 復(fù)合制（單一制的對(duì)稱。由若干個(gè)國(guó)家（邦、州、共和國(guó)等）通過(guò)協(xié)議聯(lián)合組成各種國(guó)家聯(lián)盟的一種國(guó)家結(jié)構(gòu)形式。實(shí)行復(fù)合制的國(guó)家為復(fù)合國(guó)。有聯(lián)邦、邦聯(lián)等形式。）國(guó)家結(jié)構(gòu)的主要形式。以享有相對(duì)主權(quán)的完整政治實(shí)體為組成單位的國(guó)家結(jié)構(gòu)形式。 在聯(lián)邦制國(guó)家中，國(guó)家整體與其組成部分之間的關(guān)系不是中央與地方的關(guān)系，而是權(quán)限范圍不同的中央與中央的關(guān)系。國(guó)家整體與其組成部分的權(quán)限范圍由聯(lián)邦憲法規(guī)定，它們各自在規(guī)定的權(quán)限范圍內(nèi)享有最高權(quán)力，并直接行使于人民，相互間不得進(jìn)行任何干涉。聯(lián)邦制國(guó)家明顯的外部特征是：除聯(lián)邦有中央政權(quán)外，各組成部分也有各自的中央政權(quán)；聯(lián)邦立法機(jī)關(guān)中通常有一院由聯(lián)邦各組成部分的代表組成；除有聯(lián)邦憲法和聯(lián)邦法律體系外，聯(lián)邦各組成部分也有自己的憲法和法律體系。有的聯(lián)邦制國(guó)家，其組成部分在某些問(wèn)題上可以成為國(guó)際交往主體；聯(lián)邦制國(guó)家的公民有統(tǒng)一的國(guó)籍。美利堅(jiān)合眾國(guó)是典型的聯(lián)邦制國(guó)家，加拿大、澳大利亞、瑞士等國(guó)家也采用聯(lián)邦制。 21.中央與特別行政區(qū)的關(guān)系 中央與特別行政區(qū)的關(guān)系 ：根據(jù)基本法的規(guī)定，特別行政區(qū)是中華人民共和國(guó)享有高度自治權(quán)的地方行政區(qū)域，直轄于中央人民政府。因此，中央與特別行政區(qū)的關(guān)系，是一個(gè)主權(quán)國(guó)家內(nèi)中央與地方的關(guān)系，或者說(shuō)是中央對(duì)特別行政區(qū)進(jìn)行管轄和特別行政區(qū)在中央監(jiān)督下實(shí)行高度自治而產(chǎn)生的相互關(guān)系。這種關(guān)系的核心在于中央與特別行政區(qū)的權(quán)利劃分和行使。 中央對(duì)特別行政區(qū)形式的權(quán)利主要有：中央人民政府負(fù)責(zé)管理與特別行政區(qū)有關(guān)的外交事務(wù)；中央人民政府負(fù)責(zé)管理特別行政區(qū)的防務(wù)；中央人民政府人民特別行政區(qū)行政長(zhǎng)官和執(zhí)行機(jī)關(guān)的主要官員；全國(guó)人大常委會(huì)有權(quán)決定特別行政區(qū)進(jìn)入緊急狀態(tài)；全國(guó)人大常委會(huì)享有對(duì)特別行政區(qū)基本法的解釋權(quán)；全國(guó)人大常委會(huì)對(duì)特別行政區(qū)基本法享有修改權(quán)；等等。第二篇：VB程序設(shè)計(jì)試題及答案(一)
第三篇：VB程序設(shè)計(jì)試題與答案
第四篇：VB程序設(shè)計(jì)練習(xí)題附加答案
第五篇：北師大網(wǎng)教憲法作業(yè)(三)及答案
點(diǎn)擊咨詢 