vb程序設(shè)計(jì)書習(xí)題和參考標(biāo)準(zhǔn)答案

1、vb程序設(shè)計(jì)書習(xí)題和參考答案作者:日期:練習(xí)題習(xí)題一一、判斷題1 . Visual Basic是以結(jié)構(gòu)化的Basic語(yǔ)言為基礎(chǔ)、以事件驅(qū)動(dòng)作為運(yùn)行機(jī)制的可視化程序 設(shè)計(jì)語(yǔ)言。2 .面向?qū)ο蟮某绦蛟O(shè)計(jì)是一種以對(duì)象為基礎(chǔ)，由事件驅(qū)動(dòng)對(duì)象的編程技術(shù)。3 .事件是由Visual Basic預(yù)先定義的對(duì)象能夠識(shí)別的動(dòng)作。4 .新建工程時(shí)系統(tǒng)會(huì)自動(dòng)將窗體標(biāo)題設(shè)置為Forml。5 .控件的屬性值不可以在程序運(yùn)行時(shí)動(dòng)態(tài)地修改。6 .決定對(duì)象是否可見(jiàn)的屬性為Visible 屬性，決定對(duì)象可用性的屬性是Enabled屬性。7 .保存Visual Basic 文件時(shí)，若一個(gè)工程包含多個(gè)窗體或模塊，則系統(tǒng)先保存工程文

2、件， 再分別保存窗體或模塊文件。8 .單擊“啟動(dòng)”菜單項(xiàng)將窗體裝入內(nèi)存時(shí)，一定觸發(fā)窗體的 Load事件。9 .“事件過(guò)程”是用來(lái)完成事件發(fā)生后所要執(zhí)行的程序代碼。10 .在打開(kāi)某窗體時(shí)，初始化該窗體中的各控件，應(yīng)選用 Load事件。二、選擇題1 .工程文件的擴(kuò)展名為 。A、.frxB、.basC、.vbpD、.frm2.下列不屬于對(duì)象的基本特征是 。A屬性B、方法C、事件D、函數(shù)3.在設(shè)計(jì)模式雙擊窗體將顯示的窗口是 A工程窗口B 、工具箱C、代碼窗口D、屬性窗口4. VB中運(yùn)行程序的快捷鍵是 A F2B、F5C、Alt+F3D、F85.改變控件在窗體中的上下位置應(yīng)修改該控件的A TopB、Le

3、ftC、Width_屬性。D、Right6.窗體模塊的文件擴(kuò)展名是 A .exeB、.basC、.frxD、frm7.設(shè)置窗體的字體用 屬性。A FontName B 、FontSize C、FontBoldD、FontItalic8.設(shè)置窗體的字號(hào)用 屬性。A FontName B 、FontSize C、FontBoldD、FontItalic9.卜列選項(xiàng)中不屬于事件的是 。A Dblclick B、LoadC、ShowD、KeyUp10. VB編制的程序保存在磁盤上，至少會(huì)產(chǎn)生何種文件 A、.doc 與.txtB 、.com 與.exe. C 、.bat 與.frm D 、.vbp 與.

4、frm三、程序設(shè)計(jì)題1 .新建一個(gè)工程，單擊窗體時(shí)，在窗體上顯示“歡迎使用Visual Basic程序”。生成可執(zhí)行文件，保存到D盤根目錄下。2 .建立一個(gè)工程，界面如圖1-28所示。它由一個(gè)窗體、兩個(gè)文本框和兩個(gè)命令按鈕組成。單擊“拷貝”按鈕，可以將第一個(gè)文本框中顯示的內(nèi)容復(fù)制到第二個(gè)文本框中；單擊“退出”按鈕退出應(yīng)用程序。、Fnrml|口| Jti7圖1-28題2界面圖1-29題3界面3 .在窗體上添加一個(gè)標(biāo)簽和兩個(gè)命令按鈕，并把兩個(gè)命令按鈕的標(biāo)題分別設(shè)置為“隱藏標(biāo) 簽”和“顯示標(biāo)簽”。當(dāng)單擊第一個(gè)命令按鈕時(shí)，標(biāo)簽消失；而當(dāng)單擊第二個(gè)命令按鈕時(shí), 標(biāo)簽重新出現(xiàn)，并且標(biāo)簽中顯示“ VB程序設(shè)

5、計(jì)”。界面如圖1-29所示。習(xí)題二一、判斷題1 .用DIM定義數(shù)值變量時(shí)，該數(shù)值變量自動(dòng)賦初值為0。2 .整型數(shù)值常量有整數(shù)，長(zhǎng)整數(shù)兩種。3在邏輯運(yùn)算符 Not、Or、And中，運(yùn)算優(yōu)先級(jí)由高到低依次為Not、Or、And。4關(guān)系表達(dá)式是用來(lái)比較兩個(gè)數(shù)據(jù)的大小關(guān)系的，結(jié)果為邏輯值。5一個(gè)表達(dá)式中若有多種運(yùn)算，同一層括號(hào)內(nèi)，計(jì)算機(jī)按邏輯運(yùn)算一關(guān)系運(yùn)算一算術(shù)運(yùn)算的順序?qū)Ρ磉_(dá)式求值。6賦值語(yǔ)句的功能是計(jì)算機(jī)表達(dá)式并轉(zhuǎn)換為相同類型數(shù)據(jù)后為變量或控件屬性賦值。二、單選題1 .以下合法的 Visual Basic標(biāo)識(shí)符是 。A、ForLoop B、Const C、9abc D、A#x2 .下列可作為 Vi

6、sual Basic 變量名的是 。A、a#a B、4aC、?xy D、Consta3 .表達(dá)式6*7/8 Mod 9 的值是。A、4B、5 C、6 D、74 .將數(shù)學(xué)表達(dá)式cos2(a+b)+5e 2寫成 Visual Basic表達(dá)式，其正確的形式是A、cos(a+b)A2+5*Exp(2)B、cosA2(a+b)+5*Exp(2)C、cos(a+b)A2+5*Ln(2) D、cosA2(a+b)+5*Ln(2)5 .數(shù)學(xué)關(guān)系3Wxv10表示成正確的 VB表達(dá)式為 。A、3<=x<10B、3<=x and x<10C、x>3 or x<10D、3<

7、=x and <106 .設(shè) x=4 , y=8 , z=7 ,表達(dá)式 x<y and (not y>z) or z<x 的值是。A、1 B、-1 C、True D、False7 .已知變量a、b、c中c最小，下列判別 a、b、c能否構(gòu)成三角形的邏輯表達(dá)式 為 。A、a>=b and b>=c and c>0B、a+c>b and b+c>a and c>0C、(a+b>=c or a-b<=c) and c>0D、a+b>c and a-b<c and c>08 .下面進(jìn)行算術(shù)運(yùn)算符號(hào)的是 。A、

8、Imp B、ModC、Not D、Like9 .可以同時(shí)刪除字符串前導(dǎo)和尾部空白的函數(shù)是 。A、Ltrim B、Rtrim C、Trim D、Mid10 . Rnd函數(shù)不可能為下列 值。A、0 B、1 C、0.1234 D、0.000511 . Int(198.555*100+0.5)/100 的值是A、198 B、199.6 C、198.56D、20012 .如果x是一個(gè)正實(shí)數(shù)，對(duì) x的第3位小數(shù)四舍五入的表達(dá)式是 A、0.01*Int(x+0.005)B、0.01*Int(100*(x+0.005)C.、0.01*Int(100*(x+0.005)D.、0.01*Int(x+0.05)13

9、 .執(zhí)行語(yǔ)句 s=len(Mid( Visual Basic ”,1,6)后，s 的值為。A、Visual B、Basic C、6 D、1114 .描述x、y中有一個(gè)小于z的邏輯表達(dá)式是 。A.x<z and y<z B.x<z or y<z C.x<z not y<z D.x<y<z15 . Int(Rnd*100)表示的是 范圍內(nèi)的數(shù)。A、0,100 B、1,99C、0,99 D、1,10016 .輸入對(duì)話框inputbox的返回值的類型是 。A、字符串 B、整數(shù) C、浮點(diǎn)數(shù) D、長(zhǎng)整數(shù)17 .在一行內(nèi)寫多個(gè)語(yǔ)句時(shí)，每個(gè)語(yǔ)句之間要用 符號(hào)分隔

10、。A、，B、；C、：D、18 . 一個(gè)語(yǔ)句要在下一行中繼續(xù)書寫，可以用 符號(hào)作為續(xù)行符。A、+ B、 - C、_ D、19 .下列聲明語(yǔ)句中錯(cuò)誤的是 。A、Const var1=123B、Dim var2= 'abc'C、dim a,b as stringD、dim var3 as integer20 . Print Not 10>15 And 8<5+2 的輸出結(jié)果為 。A、8B、7C、trueD、false三、程序設(shè)計(jì)題1 .編寫窗體的單擊事件代碼，求一任意三角形的面積，三角形的三條邊 a、b、c通過(guò)Inputbox函數(shù)輸入，計(jì)算的結(jié)果存入S變量中，并以消息框的

11、形式輸出。提示：任意三角形的面積公式s . t(t a)(t b)(t c), t (a b c)/22 .編寫一段代碼，求給定的一個(gè)圓的周長(zhǎng)和面積。要求：(1)圓的半徑r利用Inputbox函數(shù)從鍵盤任意輸入(r>0)。(2)圓周率定義為符號(hào)常量。(3)利用賦值語(yǔ)句將求出的周長(zhǎng)和面積賦給變量L和S。(4)用Print方法輸出詳細(xì)結(jié)果。習(xí)題三、選擇題執(zhí)行以下語(yǔ)句后的結(jié)果為Dim x As IntegerIf x Then Print x Else Print x-1A、1B、0C、-1D、不確定2 .下列關(guān)于Select Case測(cè)試表達(dá)式的敘述中，錯(cuò)誤的是 。A、只能是變量名B、可以是

12、整型C、可以是字符型D、可以是浮點(diǎn)類型3 .下列關(guān)于Select Case的敘述中，錯(cuò)誤的是 A、Case 10 To 100B、Case "abc","ABCC、Case "X"D、Case -7,0,100表示判斷Is是否介于10與100之間表示判斷Is是否和"abc"、"ABC"兩個(gè)字符串中的一個(gè)相同表示判斷Is是否為大寫字母X表示判斷Is是否等于字符串"-7, 0, 100"4 .由“ For i=1 To 16 Step 3 ”決定的循環(huán)結(jié)構(gòu)被執(zhí)行 次。A、4B、5C、6D、

13、75 .若i的初值為8,則下列循環(huán)語(yǔ)句的循環(huán)次數(shù)為 次。Do While i<=17i=i+2LoopA、3次B、4次C、5次D、6次6 .由“ For i=1 To 9 Step-3 ”決定的循環(huán)結(jié)構(gòu)被執(zhí)行 次。A、4B、5C、6D、0二、程序閱讀題(寫出下列程序的運(yùn)行結(jié)果) 程序1.請(qǐng)寫出單擊窗體后，窗體上的顯示結(jié)果。Private Sub Form_Click()Dim x As Integer, y As Integerx = 5y = -20If Not x > 0 Then x = y - 3 Else y = x + 3 Print x - y; y - xEnd S

14、ub程序2.請(qǐng)寫出單擊窗體后，窗體上的顯示結(jié)果。Private Sub Form_Click() Dim a As String, b As String a ="abcd" b = "cdef" e = Right(a, 3) f = Mid(b, 2, 3)If e < f Then Print e + f Else Print f + e End Sub程序3.請(qǐng)寫出單擊窗體后，窗體上的顯示結(jié)果。Private Sub Form_Click()Dim i As Integer, j As IntegerDim n As Integer n =

15、 0Fori = 1 To 3For j = 5 To 1 Step -1 n = n + 1Next j, i Print n; j; i End Sub程序4.請(qǐng)寫出單擊窗體后，窗體上的顯示結(jié)果。Private Sub Form_Click() Dim i As Integer Static Sum As Integer For i=1 To 10Sum= Sum+iNext i Print Sum End Sub程序5.請(qǐng)寫出單擊命令按鈕后，窗體上的顯示結(jié)果。Private Sub Command1_Click() Dim s As Integer, i As Integer s = 1

16、 i = 1Do While i <= 4 s = s * i i = i + 1LoopPrint "s=" s8End Sub程序6.請(qǐng)寫出單擊命令按鈕后，窗體上的顯示結(jié)果。Private Sub Command1_Click() Dim i As Integer Do Until i >= 3Print Tab(4 * i + 1); "A" i = i + 1 Loop End Sub三、程序填空題234n i ni .【程序說(shuō)明】下面是一段計(jì)算數(shù)學(xué)表達(dá)式1 0 5W!1所的程序。Private Sub Form_Click()Dim

17、 n As Integer, p As Integer, s As Sigle, q As Integer, i As Integer n = InputBox("請(qǐng)輸入 N 的值:") s = 0: p = -1 : q = 1 For i = 1 To n p = -p: q =(1)s = 22)(3)Print s End Sub 2.【程序說(shuō)明】下列程序用于計(jì)算1+ (1+3) + (1+3+5) + ,-,+ ( 1+3+5+39)。Private Sub Form_Click()Dim t As Integer, m As IntegerDim sum As

18、Integer t = 0 m = 1 sum = 0 Do t =(1)sum = sum + t (2)Loop While£3) Print "sum=" sum End Sub3.【程序說(shuō)明】下列程序在文本框Text1中輸入任一字符串，并按相反的順序顯示在文本框Text2 中。Private Sub Command1_Click()Dim n As String, c As String, d As String n = Text1.Text m = C10For i = m To 1 Step -1 8c = Mid(n, i, 1)d =(2)Next

19、 i(3)End Sub四、程序設(shè)計(jì)題1 .用InputBox函數(shù)輸入3個(gè)任意整數(shù)，按從大到小的順序輸出。2 .編程，輸入x值，按下式計(jì)算并輸出 y值。y f (x)x 5x52 x1x5、x0x10x0x與n3.計(jì)算下式的和,變量的數(shù)值用輸入對(duì)話框輸入。3j x x sin x13!5x5!7x7!(Dn12n 1x(2n 1)!4.用近似公式求自然對(duì)數(shù)的底數(shù)e的值，直到前后兩項(xiàng)之差小于10-4為止。11111 !2 !3!習(xí)題四、選擇題1 .窗體通用部分的語(yǔ)句" Option Base 1”,決定本窗體中數(shù)組下標(biāo)界 。A、下界必須為1 B、缺省的下界為1 C、下界必須為0 D、缺

20、省的下界為 02 .用Dim c(2 to 5) As Integer語(yǔ)句定義的數(shù)組占用 個(gè)字節(jié)的內(nèi)存空間。A、4B、8C、6D、103 .以下 是VB合法的數(shù)組元素。A、x9 B、x9C、x(9)D、x94 .設(shè)有數(shù)組聲明語(yǔ)句：Dim a(2,3 to 4) As Integer以上語(yǔ)句所定義的數(shù)組a為 維數(shù)組，共有 個(gè)元素，第一維下標(biāo)從 到,第二維下標(biāo)從 到。A、0 B、1 C、2 D、3E、4 F、5 G、6 H、9二、程序閱讀題(寫出下列程序的運(yùn)行結(jié)果)程序1.在窗體中添加一個(gè)命令按鈕，名稱為 Command1,然后編寫如下程序：Private Sub Command1_Click()

21、Dim a(5) As Integer,b(5) As IntegerFor j =1 to 4a(j)=3*jb(j)=a(j)*3Next jText1.text=b(j2) End Sub程序運(yùn)行后，單擊命令按鈕，寫出程序的運(yùn)行結(jié)果。程序2.在窗體中添加一個(gè)命令按鈕(其 Name屬性為Commandl),然后編寫如下代碼: Private Sub Command1_Click() Dim a(10) As Integer Dim p(3) As Integer k = 1 Fori = 1 To 10 a(i) = i Next i Fori = 1 To 3 p(i) = a(i *

22、2) Next i Fori = 1 To 3k = k + p(i) * 2 Next i Print k End Sub 程序運(yùn)行后，單擊命令按鈕，寫出程序的運(yùn)行結(jié)果。程序3.請(qǐng)寫出單擊窗體后，窗體上的顯示結(jié)果。 Private Sub Form_Click()Dim a(5, 5) As Byte, i AsByte, j As Byte For i = 1 To 5 : For j = 1 To 5 a(i, j) = i * j Next j, i For i = 1 To 5 : Print a(i, i); : Next i End Sub程序4.請(qǐng)寫出單擊窗體后，窗體上的顯示結(jié)

23、果。 Private Sub Form_Click()Dim a(1 To 2,1 To 3) As Integer, i As Integer, j As Integer Fori = 1 To 2 Forj = 1 To 3 a(i,j) = i + j: Print Tab(j * 5 + 2); a(i,j), Next j Print Next i End Sub1 .【程序說(shuō)明】以下程序產(chǎn)生a中，再三、程序填空題30個(gè)兩位隨機(jī)整數(shù)、并按從小到大的順序存入數(shù)組將其中的奇數(shù)按從小到大的順序在窗體中用緊湊格式輸出。Private Sub Form_Click()Dim a(30) As

24、byte, i as Byte, j As Byte, m As ByteFor i = 1 To 30: a(i)=：Next iFor i = 1 To 29Forj =If a(i) > a(j) Thenm = a(i):(3):a(j) = mEnd IfNext j,iFor i = 1 To 30If Then Print a(i);Next i50的數(shù),End Sub2 .【程序說(shuō)明】以下程序產(chǎn)生20個(gè)兩位隨機(jī)整數(shù)存于數(shù)組之中，打印數(shù)組中大于并求出這些數(shù)的和。Private Sub Command1_Click()Dim arr(1 To 20) As IntegerDi

25、m i As Integer, sum As IntegerFor i = 1 To 20 arr(i) = Next isum = 0For i = 1 To 20If Then Print arr(i);sum = (3)End IfNext iPrint Tab(2); "sum=" sumEnd Sub3.【程序說(shuō)明】下列程序用來(lái)在窗體上輸出如圖Dim a() As IntegerPrivate Sub Form_Click()Dim n As Integer, i As IntegerDim j As Integer, k As Integer n = Val(I

26、nputBox("請(qǐng)輸入數(shù)據(jù)：")Fori = 1 To For j = i To n - i + 1For k = i To n - i + 1 Next k, j, iFor i = 1 To n4-2所示大小可變的正方形數(shù)據(jù)。Forml-lei X|12 3 3 3 2- 112 3 4 3 2 11 Z 3 3 3 _z 112 2 22 2 1 1 1 1111-1圖4-2 n為7時(shí)的輸出圖形Forj = 1 To nPrint Tab(j * 3); a(i, j);Next jNext iEnd Sub四、程序設(shè)計(jì)題1 .設(shè)有a, b兩矩陣，編程完成兩個(gè)矩陣的

27、相乘，結(jié)果存入c矩陣中。2 2 23 3 34 4 45 5 56 6 62 .編程產(chǎn)生10個(gè)20, 40之間的隨機(jī)整數(shù)存于一維數(shù)組a中，將a數(shù)組中的元素依次向后移動(dòng)一個(gè)位置，最后一個(gè)元素移動(dòng)到第一個(gè)元素的位置上。3 .用二分法對(duì)已排好序(升序)的數(shù)據(jù)進(jìn)行檢索。說(shuō)明：二分查找法是對(duì)一批有序的數(shù)，取其中間元素，如果該元素是要找的數(shù)(key),輸出該數(shù)的位置，否則，如果該元素大于key,則查找數(shù)列的范圍縮小到該元素的前一個(gè)元素；如果該元素小于 key,則查找數(shù)列的范圍縮小為該元素的后一個(gè)元素到數(shù)列尾。重復(fù)上 述方法，直到查找的數(shù)列范圍縮小到0個(gè)元素。習(xí)題五一、選擇題1 .在過(guò)程調(diào)用中，參數(shù)的傳遞可

28、以分為 和 兩種方式。A、按值傳遞 B、按地址傳遞C、按參數(shù)傳遞 D、按位置傳遞2 .在參數(shù)傳遞過(guò)程中，使用關(guān)鍵字 來(lái)修飾參數(shù)，可以使之按值傳遞。A、ByVal B、ByRefC、Value D、Reference3 .在窗體模塊的通用聲明段中聲明變量時(shí)，不能使用 關(guān)鍵字。A、Dim B、Public C、PrivateD、Static4 .要想在過(guò)程調(diào)用后返回兩個(gè)結(jié)果，下面的過(guò)程定義語(yǔ)句合法的是 。A、Sub p(Byval n,Byval m) B、Sub p(n,byval m)C、Sub p(n,m)D、Sub p(Byval n,m)5 . Sub過(guò)程與Function過(guò)程最根本的區(qū)

29、別是。A、Sub過(guò)程可以使用 Call語(yǔ)句或直接使用過(guò)程名調(diào)用，而 Function過(guò)程不可以B、Function過(guò)程可以有參數(shù)，Sub過(guò)程不可以C、兩種過(guò)程參數(shù)的傳遞方式不同D、Sub過(guò)程的過(guò)程名不能返回值，而 Function過(guò)程能通過(guò)過(guò)程名返回值二、程序閱讀題(寫出下列程序的運(yùn)行結(jié)果)程序1.請(qǐng)寫出三次單擊命令按鈕后，窗體上的顯示結(jié)果。Private Sub p()Static s As Integer13Dim i As IntegerFori = 1 To 10 Step 2 s = s + iNext iPrint s;End SubPrivate Sub Command1_Cli

30、ck()Call p End Sub程序2.請(qǐng)寫出單擊命令按鈕后，窗體上的顯示結(jié)果。Private Sub s(x As Single, y As Single)Dim m As Single m = x x = m / y y = t Mod y End SubPrivate Sub Command1_Click() Dim a As Single, b As Single a = 8 b = 5 Call s(a, b) Print a, bEnd Sub100三、程序填空題1 .【程序說(shuō)明】如果兩個(gè)質(zhì)數(shù)的差為2,就稱這兩個(gè)質(zhì)數(shù)為質(zhì)數(shù)對(duì)。下列程序用于輸出以內(nèi)的質(zhì)數(shù)對(duì)。Private Fun

31、ction p(m As Integer) As BooleanDim i As Integer(1For i = 2 To Sqr(m)If (2)Then p = False: Exit ForNext iEnd FunctionPrivate Sub Command1_Click()Dim i As IntegerDim pl As Boolean, p2 As Boolean pl = p(3)For i = 5 To 99 Step 2p2 = p(i)14If pl And p2 Then Print(3)pl = p2Next iEnd Sub2 .【程序說(shuō)明】下列過(guò)程用選擇法對(duì)

32、double類型數(shù)組按值從小到大排序。Private Sub Sort(1)Dim i As Integer, j As Integer, k As Integer, t As DoubleFori = 1 To k=iFor j = i + 1 To nIf Then k = jNext jt=a(i): a(i)=a(k): a(k)=tNext iEnd Sub3 .【程序說(shuō)明】下列程序用于將一維數(shù)組反序排放。Private Sub swap(b() As Integer, n As Integer) Dim m As Integer, i As Integer Fori = 1 To

33、m = b(i)b(i) = (2b(n - i + 1) = mNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 10) As IntegerDim i As IntegerFori = 1 To 10a(i) = iPrint a(i);Next iPrintCall swap(3)Fori = 1 To 10Print a(i);Next iEnd Sub四、程序設(shè)計(jì)題1 .編制通用函數(shù)過(guò)程，計(jì)算Double類型一維數(shù)組所有元素的平均值。2 .編制通用Sub過(guò)程，在一個(gè) m行n列二維數(shù)組中查找絕對(duì)值最大的元素，以及該元素的 行號(hào)、列號(hào)

34、(提示：Sub 過(guò)程的形參列表如 x() As Single, m As byte, n As Byte, xmax As Single,kiAs Byte,kj As Byte )。選擇題一習(xí)題六、.5.要為按鈕設(shè)一個(gè)訪問(wèn)鍵 A,應(yīng)該在 Caption中加入。A. &AB. AC. $AD. #A要把按鈕設(shè)置為不可使用，應(yīng)設(shè)置 屬性為False。A .EnableB.DefaultC.CancelD .Caption要使按鈕能夠顯示圖片，應(yīng)先設(shè)置 屬性。A .StyleB.EnableC.IndexD .Caption將命令按鈕Command1設(shè)置為囪體的缺管按鈕，可修

35、改該控件的 A .EnabledB.ValueC.DefaultD .Cancel將焦點(diǎn)主動(dòng)設(shè)置到指定的控件或窗體上，應(yīng)采用方法。_屬性。6.7.A . SetDateB . SetFocusC. SetText要使標(biāo)簽控件白大小能隨Caption屬性的大小自動(dòng)調(diào)整,True。A . EnabledB.VisibleC.AutoSize要使文本框顯示滾動(dòng)條，需先設(shè)置 屬性。A . AutoSizeB.MultiLineC.Alignmenti" t2x 1- k1 _L|t-L-t、生t-L-tD. SelText應(yīng)該設(shè)置 D. AlignmentD. ScrollBars屬性為8.

36、9.10.卜夕”屬性表小文本框中選7E的 內(nèi)谷。A. SelLengthB. TextC. Caption卜列控件沒(méi)有Caption屬性。A.命令按鈕B.標(biāo)簽C.框架卜列不能接收焦點(diǎn)的控件是。D.D.SelText文本框0.A.命令按鈕B.文本框C.標(biāo)簽D.列表框現(xiàn)發(fā)乂本世中乂子的顏色，業(yè)該修改屬住。A. BackColorB. ForeColorC. FontD. FontBold選中單選按鈕控件時(shí)，Value屬性的值為。A.TrueB.FalseC.0D.1選中復(fù)選框控件時(shí)，Value屬性的值為。A.TrueB.FalseC.0D.1

37、若要在同一窗體中安排兩組單選按鈕( OptionButton )可用控件予以分隔。A.文本框B.框架C.列表框D.組合框卜列對(duì)象具有編輯功能，即運(yùn)行時(shí)可以進(jìn)行輸入或修改。A,下拉式列表框B.下拉式組合框C.復(fù)選框 D.標(biāo)簽不能通過(guò)來(lái)刪除列表框中的表項(xiàng)。A . RemoveItem 方法 B. Clear 方法C. Text 屬性若要把"XXX"成為L(zhǎng)ist1清單中的第三項(xiàng)，則可執(zhí)行語(yǔ)句 。A . List1.AddItem "XXX",3B . List1.AddItem "XXX",2C. List1.AddItem 3,"

38、;XXX"D. List1.AddItem 2,"XXX"設(shè)置列表框各表項(xiàng)中的文本，用 屬性。A. SelectedB. ListC. TextD. Caption下面表示列表框控件 List1的最舟-個(gè)項(xiàng)目。A . List1.List(List1.ListIndex)B . List1.List(List1.ListIndex-1)C. List1.List(List1.ListCount)D. List1.List(List1.ListCount-1)執(zhí)行 List.RemoveItemList1.ListCount 語(yǔ)句的結(jié)果為 。42A.刪除最后一項(xiàng)B.

39、刪除所有項(xiàng)C.出錯(cuò) D.顯示所有項(xiàng)21.下列關(guān)于組合框的說(shuō)法中，正確的是 。A .組合框有Click事件，沒(méi)有 Change事件。B.組合框有Change事件，沒(méi)有Click事件。C.組合框既有 Change事件，也有 Click事件。D.組合框沒(méi)有 Change事件和Click事件。22 .滾動(dòng)條的屬性用于指定用戶單擊滾動(dòng)條的滾動(dòng)箭頭時(shí)，Value屬性值的增減量。A. LargeChange B. SmallChange C. ValueD. Change23 .單擊滾動(dòng)條兩端的任意一個(gè)滾動(dòng)箭頭，都將觸發(fā)該滾動(dòng)條的 事件。A. KeyDownB. ChangeC. ScrollD. Clic

40、k24 .下列事件中，能夠觸發(fā)滾動(dòng)條的 Scroll事件。A.單擊滾動(dòng)條兩端的滾動(dòng)箭頭 B.單擊滾動(dòng)條上滑塊兩側(cè)的空白處C.單擊滾動(dòng)條上的滑塊D.拖動(dòng)滾動(dòng)條上的滑塊25 .在任何情況下，控件在運(yùn)行時(shí)都不可見(jiàn)。 A.標(biāo)簽B.按鈕C.復(fù)選框D.定時(shí)器26 .下列 控件沒(méi)有Value屬性。A.滾動(dòng)條B.復(fù)選框C.定時(shí)器D.單選按鈕27 .下列設(shè)置中，可以使定時(shí)器Timer1停止計(jì)時(shí)的是。A . Timer1.Locked=TrueB. Timer1.Locked=FalseC. Timer1. Enabled =TrueD . Timer1. Enabled = False28 .定時(shí)器控件的 屬性

41、決定Timer事件發(fā)生的時(shí)間間隔。A . IntervalB . TopC. VisibleD . Enabled29 .要將一個(gè)控件設(shè)置成為一個(gè)控件數(shù)組，應(yīng)該設(shè)置 屬性。A. IndexB. TabIndexC. CaptionD. Enabled30 .下面有關(guān)控件數(shù)組的說(shuō)法，錯(cuò)誤的是： 。A.控件數(shù)組由一組具有共同名稱和相同類型的控件組成。B.控件數(shù)組中的每一個(gè)控件共享同樣的事件過(guò)程。C.控件數(shù)組中的每個(gè)元素的下標(biāo)由控件的Index屬性指定。D.同一控件數(shù)組中的元素只能有相同的屬性設(shè)置。 二、程序填空題1、程序說(shuō)明：密碼驗(yàn)證程序。在窗體上已建立一個(gè)標(biāo)簽Label1、文本框Text1和命令

42、按鈕Command!請(qǐng)將以下事件過(guò)程填完整。Private Sub Form_Load() Textl.="*"End SubPrivate Sub Command1_Click()If ="ABC" Then'密碼不區(qū)分大小寫MsgBox "密碼正確"ElseMsgBox "密碼錯(cuò)誤"End IfEnd Sub2、以下程序用于實(shí)現(xiàn)字符串的反轉(zhuǎn)。在 Textl中輸入字符串并按回車確認(rèn)后，在 Text2中 顯示反轉(zhuǎn)字符串，請(qǐng)將程序補(bǔ)充完整。Private Sub Text1_KeyPress(KeyAscii

43、 As Integer)Dim i As Integer, x As String, y As StringIf Thenx = Text1.TextFor i = n To 1 Step -1(3)Next i(4)End IfEnd Sub3、以下程序可以將列表框中同時(shí)選中的多個(gè)列表項(xiàng)刪除，請(qǐng)將程序補(bǔ)充完整。Private Sub Command1_Click()1 = 0Do While i<If List1.Selected(i) = True ThenElseEnd IfLoopEnd Sub4、程序說(shuō)明：在窗體上有一個(gè)標(biāo)簽 Label1和一個(gè)水平滾動(dòng)條 Hscroll1,其M

44、in的值為0, Max的值為100,程序運(yùn)行后，單擊滾動(dòng)條兩端的箭頭和拖動(dòng)滾動(dòng)滑塊時(shí)，在標(biāo)簽中實(shí) 時(shí)顯示滾動(dòng)條的值。Private Sub HScroll1_()Label1.Caption =(2)End SubPrivate Sub HScroll1_()End Sub三、程序設(shè)計(jì)題1、編程實(shí)現(xiàn)文本框內(nèi)文本信息的剪切、復(fù)制和粘貼的功能。界面設(shè)計(jì)如圖1所示，要求各命令按鈕為一個(gè)控件數(shù)組。a) 程序剛運(yùn)行時(shí)3個(gè)命令按鈕都不能響應(yīng)。b) 選擇文本后，“剪切”和“復(fù)制”按鈕能響應(yīng)。c) 單擊“剪切”或“復(fù)制”按鈕后，只有“粘貼”按鈕能響應(yīng)。d) 單擊“粘貼”按鈕后，3個(gè)命令按鈕都不能響應(yīng)。圖6-3

45、5程序設(shè)計(jì)題1的界面設(shè)計(jì)+、2、設(shè)計(jì)一個(gè)程序，要求在文本框中輸入兩個(gè)操作數(shù)后，通過(guò)單選按鈕來(lái)選擇進(jìn)行或/的運(yùn)算，同時(shí)，在標(biāo)簽框中顯示相應(yīng)地操作符，結(jié)果顯示在第三個(gè)文本框中。圖2為第二個(gè)文本框中輸入 0時(shí)的情況。圖6-36 程序設(shè)計(jì)題2的運(yùn)行界面3、設(shè)計(jì)一個(gè)程序，在列表框和組合框之間進(jìn)行信息的移動(dòng)，沒(méi)有選擇項(xiàng)時(shí)給出相應(yīng)的提示。程序運(yùn)行情況如圖 3所示。圖6-37 程序設(shè)計(jì)題3的運(yùn)行界面4、利用定時(shí)器設(shè)計(jì)一個(gè)滾動(dòng)標(biāo)簽(從左到右) ，標(biāo)簽在程序剛開(kāi)始運(yùn)行時(shí)不可見(jiàn)。習(xí)題七一、選擇題1. 控件在窗體上的上下位置由下列 屬性決定。A. TopB. LeftC. WidthD. Height2. 執(zhí)行語(yǔ)句F

46、orm1.Scale(-200,-100)-(2000,1000)后，窗體 Form1 的 ScaleWidth 屬性值為。A. 200B. 1800C. 2000D. 22003. 用Scale方法改變窗體坐標(biāo)系后，下面 屬性值發(fā)生改變。A. ScaleWidth B. WidthC. HeightD. DrawMode4.在VB窗體中，默認(rèn)的坐標(biāo)單位是 A . PixelB . TwipC. cmD . mm5.設(shè)置屬性可以使圖片顯示在圖片框或影像框中。A . PictureB . ImageC. IconD . DownPicture6.程序運(yùn)行時(shí)，可用 函數(shù)把圖形裝入窗體、圖片框或影像

47、框。A . AutoSizeB . StretchC. PictureD . LoadPicture7.將圖片框的 屬性設(shè)置為True時(shí)，可使圖片框根據(jù)圖片調(diào)整大小。A . PictureB . AutoSizeC. StretchD . AutoRedraw8.將影像框的 屬性設(shè)置為False時(shí)，可使影像框根據(jù)圖片調(diào)整大小。A . PictureB . AutoSizeC. StretchD . AutoRedraw9.在VisualBasic中，不能作為其他控件的容器。A.框架B.圖片框C.影像框D.窗體10.要使Shape控件以實(shí)心方式填充，應(yīng)設(shè)置 屬性。A. FillColorB. F

48、illStyleC. ForeColorD. BackStyle11.下面屬性決定Shape控件的圖形。A. ShapeB. FillColorC. FillStyleD. BorderWidth12.卜列表送式 中,不是紅顏色的，俏。A. VBRedB. RGB(255,0,0) C. QBColor(1) D. &HFF13.Visual Basic用下列哪條指令來(lái)繪制直線 。A. Line 方法B. Pset方法C. Circle 方法 D. Point 函數(shù)14.下列 屬性用來(lái)設(shè)置圖形的邊框類型。A. BorderWidth B. BorderStyle C. DrawWidt

49、h D. FillStyle 15. 屬性可用來(lái)設(shè)置所繪線條寬度。A. Draw StyleB. DrawWidth C. BorderStyle D. BorderWidth16 .使用Circle方法不能繪制的圖形是 。A.圓角矩形B.橢圓C.圓弧D.圓餅圖17 .語(yǔ)句 “ Line(1000,1000)-(3000,3000),B " 繪制的是 。A.直線B.矩形C.橢圓D.圓弧18 .語(yǔ)句 “ Circle(1000,1000),500,-j/3,-j/2” 繪制的是 。A.圓弧B.橢圓C.扇形D.同心圓19 .語(yǔ)句 “ Circle(1000,1000),500,2 &qu

50、ot; 繪制的是 。A.圓弧B.橢圓C.扇形D.同心圓20 .描述以(1000,1000)為圓心，以400為半徑畫1/4圓弧的語(yǔ)句，以下正確的是 A. Circle(1000,1000),400,0,5/2B. Circle(1000,1000),400,0, ji/2C. Circle(1000,1000),400,0, ji/2D. Circle(1000,1000),400,0, 90二、程序填空題1、程序完成在窗體上畫一條對(duì)角線(從右上角到左下角)，并在窗體中心畫一個(gè)半徑為窗體高度四分之一的紅色圓環(huán)。請(qǐng)將程序補(bǔ)充完整。Private Sub Form_Click()Dim x1, y2

51、, r As Integer x1 = (1)y2 = ScaleHeight r = y2/4(2)(3)'畫對(duì)角線'畫圓環(huán)End Sub1/4為直徑畫一紅邊實(shí)心黃圓。2、程序要求在窗體上以窗體中心為圓心，以窗體寬度 Private Sub Form_Click()Dim x As Integer, y As Integer, r As Integer x = ScaleWidth / 2 y = ScaleHeight / 2r = ScaleWidth / 4FillColor = RGB(255, 255, 0) End Sub三、程序設(shè)計(jì)題1.編程,在圖片框中畫余弦曲

52、線。程序運(yùn)行情況如圖1所示。L Forml2.編程,圖1程序設(shè)計(jì)題1的運(yùn)行界面在窗體中心畫一個(gè)窗體所能容納的最大的藍(lán)色實(shí)心圓。習(xí)題八、判斷題1、在多重窗體程序中，各窗體的菜單是彼此獨(dú)立的。2、通用對(duì)話框的 FileName屬性返回值中不包含文件的路徑。3、可以在窗體上繪制任意位置任意大小的通用對(duì)話框。4、菜單中分隔線也可以響應(yīng)Click事件。5、在顯示字體對(duì)話框前必須設(shè)置Flags屬性，否則會(huì)產(chǎn)生不存在字體的錯(cuò)誤。6、一個(gè)菜單也是一個(gè)對(duì)象，它不能和當(dāng)前窗體中的其他控件同名。7、彈出式菜單只能設(shè)置成右鍵菜單。8、如果一個(gè)菜單項(xiàng)的Visible屬性為二、單選題False,則它的子菜單也不會(huì)顯示。1

53、、通用對(duì)話框控件所不具有的屬性為（A、BackColor2、以下敘述中錯(cuò)誤的是B、FileName)C、FlagsD、FilterA、在程序運(yùn)行時(shí)，通用對(duì)話框控件是不可見(jiàn)的B、在同一個(gè)程序中，用不同的方法 (如ShowOpen或ShowSave等)打開(kāi)的通用對(duì)話 框具有不同的作用C、調(diào)用通用對(duì)話框控件的 ShowOpen方法，可以直接打開(kāi)在該通用對(duì)話框中指定的 文件D、調(diào)用通用對(duì)話框控件的ShowC010r方法，可以打開(kāi)顏色對(duì)話框3、在用通用對(duì)話框控件建立“打開(kāi)”或“保存”文件對(duì)話框時(shí)，如果需要指定文件列表框所列出的文件類型是文本文件(即.txt文件)，則正確的描述格式是A、“text(.tx

54、t)|(*.txt)” B、 文本文件(.txt) | (.txt)”C、“text(.txt)|(*.txt)" D、 “ text(.txt)(*.txt)”4、在窗體上畫一個(gè)名稱為CommandDialog1的通用對(duì)話框，一個(gè)名稱為 Command1的命令按鈕。然后編寫如下事件過(guò)程：Private Sub Command1_Click()CommonDialog1.FileName =""CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt”CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle="VBTest"CommonDialog1.Action=1End Sub對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是A、該對(duì)話框被設(shè)置為打開(kāi)”對(duì)話框B、在該對(duì)話框中指定的默認(rèn)文件名為空C、該對(duì)話框的標(biāo)題為VBTestD、在該對(duì)話框中指定的默認(rèn)文件類型為文本文件(*.Txt)5、以下說(shuō)法中不正確的是()A、下拉式菜單通常出現(xiàn)在窗體標(biāo)題欄下方，啟動(dòng)應(yīng)用程序后始終可以看見(jiàn)。B、彈出式菜單是一種浮