計(jì)算機(jī)程序設(shè)計(jì)期末考試試卷

1、計(jì)算機(jī)程序設(shè)計(jì)期末考試試卷一、判斷題(每題1分，共10分)1事件是由Visual Basic預(yù)先定義的對(duì)象能夠識(shí)別的動(dòng)作。2過(guò)程中的靜態(tài)變量是局部變量，當(dāng)過(guò)程再次被執(zhí)行時(shí)，它的值是上一次過(guò)程調(diào)用后值。3不論步長(zhǎng)是正值或負(fù)值，當(dāng)循環(huán)變量的值大于終值時(shí)，結(jié)束循環(huán)。4用DIM定義數(shù)值變量時(shí)，該數(shù)值變量自動(dòng)賦初值為0。5單選按鈕控件和復(fù)選框控件都具有Value屬性，它們的作用完全一樣。6可以通過(guò)合理設(shè)置組合框的MultiSelect屬性使組合框支持簡(jiǎn)單復(fù)選或擴(kuò)展復(fù)選。7滾動(dòng)條控件可作為用戶輸入數(shù)據(jù)的一種方法。8用OutPut模式打開(kāi)文件，如果指定文件和路徑不存在，則會(huì)自動(dòng)創(chuàng)建指定文件及路徑。9在圖片框

2、中添加的控件，其Top和Left屬性值是相對(duì)圖片框而言的，與窗體無(wú)關(guān)。10通用對(duì)話框的FileName屬性返回的是一個(gè)輸入或選取的文件名字符串。二、單選題(每題1分，共20分)1在Visual Basic中，稱對(duì)象的數(shù)據(jù)是 。 A、屬性 B、方法 C、事件 D、封裝2語(yǔ)句Print “5*5”的執(zhí)行結(jié)果為 。 A、25 B、“5*5” C、5*5 D、出現(xiàn)錯(cuò)誤3輸入對(duì)話框InputBox的返回值類型是 。 A、字符串 B、整數(shù) C、浮點(diǎn)數(shù) D、長(zhǎng)整數(shù)4若I的初值為8，則下列循環(huán)語(yǔ)句的循環(huán)次數(shù)為 次。 Do While I <= 17 I = I + 2 Loop A、3次 B、4次 C、

3、5次 D、6次5在下列關(guān)于Select Case的敘述中，錯(cuò)誤的是 。 A、Case 10 To 100 表示判斷Is是否介于10與100之間 B、Case "abc","ABC" 表示判斷Is是否和"abc"、"ABC"兩個(gè)字符串中的一個(gè)相同 C、Case "X" 表示判斷Is是否為大寫字母X D、Case -7,0,100 表示判斷Is是否等于字符串"-7，0，100"6標(biāo)簽控件的標(biāo)題和文本框控件的顯示文本的對(duì)齊方式由 屬性決定。 A、WordWrap B、AutoSiz

4、e C、Alignment D、Style7以下 語(yǔ)句將刪除列表框List1中的最后一項(xiàng)。List1.RemoveItem List1.ListCountList1.ClearList1.List（List1.ListCount-1）“”List1.RemoveItem List1.ListCount-18文本框中選定的內(nèi)容，由下列 屬性來(lái)反映。 A、Seltext B、Sellenght C、Text D、Caption9單擊滾動(dòng)條兩端的任意一個(gè)滾動(dòng)箭頭，將觸發(fā)滾動(dòng)條的 事件。 A、KeyDown B、Change C、Scroll D、Click10將圖片框的 屬性設(shè)置為True時(shí)，可使圖

5、片框根據(jù)圖片調(diào)整大小。 A、Picture B、Stretch C、AutoSize D、AutoRedraw11設(shè)計(jì)動(dòng)畫時(shí)通常用時(shí)鐘控件 屬性來(lái)控制動(dòng)畫速度。 A、Interval B、Timer C、Move D、Enabled12語(yǔ)句“Circle(1000,1000),800,-3.1415926/3,-3.1415926/2”繪制的是 。 A、弧 B、橢圓 C、扇形 D、同心圓13在VB中，以下控件不能作為其他控件的容器的是 。 A、框架 B、圖片框 C、影像框 D、窗體14形狀（Shape）控件所顯示的圖形不可能是 。 A、圓 B、橢圓 C、圓角正方形 D、等邊三角形15Visua

6、l Basic用下列哪一條指令來(lái)繪制直線 。 A、Line方法 B、Pset方法 C、Point方法 D、Circle方法16將通用對(duì)話框類型設(shè)置為“另存為”對(duì)話框，應(yīng)修改 屬性。 A、Filter B、Font C、Action D、FileName17每創(chuàng)建一個(gè)菜單，它的下面最多可以有 級(jí)子菜單。 A、1 B、3 C、5 D、618語(yǔ)句“open c:dat.txt for output”用于打開(kāi)一個(gè)順序文件，該語(yǔ)句的一個(gè)重要錯(cuò)誤是沒(méi)有 。 A、指定打開(kāi)方式 B、指定文件號(hào) C、指定文件名 D、指定打開(kāi)類型19已知A、B、C中C最小，則判斷A、B、C可否構(gòu)成三角形三條邊長(zhǎng)的邏輯表達(dá)式是 。

7、 A、A>=B And B>=C And C>0 B、A+C>B And B+C>A And C>0 C、(A+B>=C Or A-C<=C) And C>0 D、A+B>C And A-B>C And C>020若目錄列表框控件Dir1的Path屬性當(dāng)前值為“C：”，雙擊該列表框的表項(xiàng)“Pwin2000”后，控件Dir1的Path屬性當(dāng)前值為 。A、“c:Pwin2000” B、“c:Pwin2000” C、“c:Pwin2000” D、“c:Pwin2000”三、填空題(每題1分，共10分)1用Dim X(2 to 5

8、) As Integer 語(yǔ)句定義的數(shù)組占用 個(gè)字節(jié)的內(nèi)存空間。2算術(shù)式ln(x)+sin(30°)的VB表達(dá)式為 。3. 語(yǔ)句Print Not 10 > 15 And 8 < 5 + 2的輸出結(jié)果為 。4運(yùn)行時(shí)，若需要命令按鈕為灰色，即不被擊活，在設(shè)計(jì)時(shí)可以通過(guò) 屬性來(lái)實(shí)現(xiàn)。5組合框具有文本框和 兩種控件的基本功能。6定時(shí)器控件只能接收 事件。7以窗體Form1的中心為圓心，畫一個(gè)半徑為800緹的圓的方法是 。8在圖片框中加一幅圖片（從磁盤裝入）可用 函數(shù)來(lái)實(shí)現(xiàn)。9文件的當(dāng)前讀寫位置是否到達(dá)文件末尾，應(yīng)用 函數(shù)。10在設(shè)計(jì)菜單時(shí)，可在VB主窗口的菜單欄中選擇 ，單擊后

9、從它的下拉菜單中選擇 “菜單編輯器”菜單項(xiàng)。四、程序閱讀題（每題5分，共20分）程序1：當(dāng)程序運(yùn)行時(shí)，輸入n的值為7，寫出圖片框上的輸出結(jié)果。Private Sub Command1_Click() Dim i As Byte, j As Byte, n As Byte Do n = InputBox("n=","輸入1-9之間的整數(shù)") Loop While n<1 Or n>9 For i = 1 To n Picture1.Print Tab(n - i + 1); For j = 1 To 2 * i - 1 Picture1.Pri

10、nt Trim(Str(i); Next j Print Next i End Sub2程序2：寫出下列程序運(yùn)行時(shí)單擊窗體后屏幕上的顯示結(jié)果Dim x as IntegerPrivate Sub Form_Click() Dim y as Integer, z as Integer y = 1: z = 2 Call init (y, z) Print "y=" y, "z=" z y = op(y, z) Print "x=" x, "y=" y, "z=" zEnd SubPrivate S

11、ub init(ByVal a As Integer, b As Integer) a = a + 2: b = b + 2: x = x + 1End SubPrivate Function op(a As Integer, b As Integer) As Integer a = a + 1: b = b + 1: op = a + bEnd Function3程序3：寫出下列程序運(yùn)行時(shí)單擊窗體后屏幕上的顯示結(jié)果Private Sub Form_Click() Dim a(6) As Integer, k As Integer, j As Integer Open "c:a1.d

12、at" For Output As #1 For i% = 1 To 6 j = i% * i% : Print #1, j; Next i% Close #1 Open "c:a1.dat" For Input As #2 k = 0 Do While Not EOF(2) k = k + 1 : Input #2, a(k) Loop Close #2 For i% = k To 1 Step -1 : Form1.Print a(i%); : Next i%End Sub寫出程序運(yùn)行時(shí)單擊窗體后，a1.dat文件的結(jié)果和窗體上的輸出結(jié)果。4程序4：已知控件H

13、scroll1的屬性設(shè)置如下Hscroll1.Min =1Hscroll1.Max=9Hscroll1.Value=1Hscroll1.SmallChange=2Hscroll1.LargeChange=4下列程序運(yùn)行時(shí),4次單擊滾動(dòng)條右端箭頭,寫出各次單擊時(shí) Text1 上的顯示結(jié)果。Dim y As IntegerPrivate Sub HScroll1_Change() Dim x2 As Integer, i As Integer Static x1 As Integer x2 = HScroll1.Value For i = x1 To x2 y = y + i Next i Pri

14、nt "y=" y x1 = iEnd Sub五、程序(選擇) 填空題(每空2分，共20分)1【程序說(shuō)明】下列程序用來(lái)在窗體上輸出如下數(shù)據(jù)。1000101010001000101010001Private Sub Form_Click()Dim a(1 To 5, 1 To 5) As Integer, i As Integer, j As IntegerFor i = 1 To 5 For j = 1 To 5 if _（1）_ then _(2)_ End If Next jNext iFor i = 1 To 5 For j = 1 To 5 Print a(i, j

15、); Next j _(3)_Next I：End Sub（1）A、i=j B、i=j and i+j=6 C、i=j or i+j=6 D、i<>j and i+j<>6（2）A、a(i, j)=0 B、a(i, j)=1 C、Print a(i, j) D、Print a(i, j);（3）A 、Print B、 Print i C、 i=i+1 D、 a(i, j)=i2【程序說(shuō)明】創(chuàng)建一個(gè)彩色的演示程序，要求在Picture1中畫出水平方向半徑較長(zhǎng)的彩色橢圓50個(gè)，圓心均在一條水平線上，橢圓的長(zhǎng)軸與短軸之比a/b=2。Dim r!, g!, b!Dim i%Su

16、b circledemo() Dim radius! r = 255 * Rnd g = 255 * Rnd b = 255 * Rnd xpos = Picture1.ScaleWidth * Rnd ypos = （4） radius = (xpos * 0.9) + 1) * Rnd Picture1. （5） End SubPrivate Sub Command1_Click() For i = 1 To 50 Call （6） Next iEnd Sub（4）A、Picture1.Scaleheitht*rnd B、Picture1.Scaleheight*rnd C、Picture

17、1.Scalewidth*rnd D、Picture1.ScaleHeight / 2（5）A、Circle (xpos, ypos), radius, RGB(r, g, b), , ,1 / 2 B、Circle (xpos, ypos), radius, RGB(r, g, b), 1 / 2 C、Circle (xpos, ypos), radius, RGB(r, g, b), 2 D、Circle (xpos, ypos), radius, RGB(r, g, b), , , 2（6）A、Sub circledemo B、circledemo C、circledemo(50) D、

18、Sub circledemo()3.【程序說(shuō)明】利用1個(gè)計(jì)時(shí)器、1個(gè)標(biāo)簽框和2個(gè)命令按鈕制作一個(gè)動(dòng)態(tài)秒表。各控件名稱取缺省值，控件Command1、Command2標(biāo)題分別為“開(kāi)始”、“結(jié)束”。運(yùn)行時(shí)，單擊“開(kāi)始”秒表開(kāi)始記時(shí)，并在標(biāo)簽上顯示總秒數(shù)；單擊“結(jié)束”記時(shí)結(jié)束，在窗體上顯示出運(yùn)行的時(shí)間。（折算成小時(shí)，分鐘和秒數(shù)）Dim x As LongPrivate Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click() Cls x=0 （7） End SubPrivate Sub Command2_Click() Dim h As Integer, m As Integer, s As Integer Timer1.Enabled = False h = （8） 小時(shí)數(shù)m = （9） 分?jǐn)?shù)s = x Mod 3600 Mod 60print "運(yùn)行" + Str(h)+"小時(shí)&qu