計(jì)算機(jī)練習(xí)vb試卷vb2002

1、浙江大學(xué) 2001-2002 學(xué)年第二學(xué)期Visual Basic 程序設(shè)計(jì)A 卷（2002/6/30）試題一、基礎(chǔ)知識題（共 30 分）（一）單選題（共 10 分，每題 1 分）1、改變控件在窗體中的左右位置應(yīng)修改該控件的 B屬性。A、TopB、LeftC、WidthD、Right2、 D對象不具有 Caption 屬性。A、Label3、將命令按鈕 A、EnabledB、OptionButtonC、FormD、Timerd1 設(shè)置為缺省的活動(dòng)按鈕可修改該控件的 C屬性。B、ValueC、DefaultD、Cancel4、在界面設(shè)計(jì)時(shí)，A、Label、Label控件的各屬性用默認(rèn)值，則它的N

2、ame 屬性和 Caption 屬性的默認(rèn)值分別為 C 。B、Label1、CaptionC、Label1、Label1D、Caption、Label5、以下A方式打開的文件只能讀不能寫。A、InputB、OutputC、RandomD、Append6、 C對象不能作為控件的容器。A、FormB、PictureBoxC、Sh(形狀控件)D、Frame (框架控件)7、下面B 對象在運(yùn)行時(shí)一定不可見。A、LineB、TimerC、TextD、Option8、一個(gè)菜單項(xiàng)是不是一個(gè)分隔條，由 B屬性決定。A、Name (名稱) B、CaptionC、EnabledD、Visible9、在文件列表框中

3、設(shè)定“文件列表”中顯示的文件類型應(yīng)修改該控件的 A 屬性。A、PatternB、PathC、filenameD、Name10、形狀控件所顯示的圖形不可能是 D。A、圓B、橢圓C、圓角正方形D、等邊三角形（二）填空題（共 20 分，每空 2 分）1、在 VB 過程或函數(shù)調(diào)用時(shí)，實(shí)參與形參的結(jié)合方式有和二種。2、當(dāng)需要修改VB 控件屬性時(shí)，可以在或在設(shè)置。3、表達(dá)式 817 Mod 22 的值是。4、代數(shù)式6、由下列循環(huán)語句控制的循環(huán)，出循環(huán)時(shí)循環(huán)控制變量k 的值是。For k = 25 To 0 Step -5Next k7、設(shè) x=6, y=8, z=7，下面表達(dá)式的值是（用 True 或 F

4、alse 表示）。xy And yx-z Or xy8、若 x$ = World Football Cup，則表達(dá)式 Trim(Mid(Right(x$, 13), 1, 9)的值是。試題二、程序填空題（共 20 分，每空 2 分 ）1、以下是一個(gè)動(dòng)態(tài)秒表計(jì)時(shí)器，其中有計(jì)時(shí)器、和二個(gè)命令按鈕mand2,d2)命令按界面如下圖。單擊“開始”（d1）命令按鈕，秒表開始計(jì)時(shí)，單擊“結(jié)束”(鈕，秒表停止計(jì)時(shí)，并在中顯示計(jì)時(shí)時(shí)間，如“運(yùn)行了 0 小時(shí) 10 分 49 秒?！盌im x As LongDim h Aseger, m Aseger, s AsegerPrivate Sub Form_Load

5、()Form1.Caption = 動(dòng)態(tài)秒表（小時(shí)：分：秒） d1.Caption = 開始&Sd2.Caption = _(1) Label1.Alignment = 2居中對齊 Label1.FontSize = 20設(shè)置字的大小 Label1.Caption = 0:0:0Timer1.erval = _(2)Timer1.Enabled = False x = _(3)End SubPrivate Sub_(4) End Subd1_Click()Private Subd2_Click()Timer1.Enabled = False x = 0Label1.Caption = 運(yùn)行了

6、+ Str(h) + 小時(shí) + Str(m) + 分 + Str(s) + 秒End SubPrivate Sub Timer1_Timer() x = x + 1h = x 3600m = _(5) s = _(6)Label1.Caption = Str(h) + : + Str(m) + : + Str(s)End Sub2、以下程序是驗(yàn)證 6 至 1000 之間的哥德巴赫猜想(即所有偶數(shù)都能分解為兩個(gè)素?cái)?shù)之和)。Function Prime(ByVal x Aseger) AsegerDim i Asi = 2egerWhile i x And x Mod i 0 i =_(7)Wen

7、dIf _(8) Then Prime = 1ElsePrime = 0 End IfEnd FunctionPrivate Sub Form_Click()Dim n AsDim a Asegereger, b AsegerFor n = 6 To 1000 Step 2 For a = 3 To n / 2If Prime(a) = 1 Thenb = _(9) If _(10)ThenPrn; =; a; +; bExit For End IfEnd If Next aNext nEnd Sub試題三、程序閱讀（20 分，每題 5 分）仔細(xì)閱讀下列各小題程序，在試卷的相應(yīng)位置上寫出程序運(yùn)

8、行后單擊窗體，在窗體上的輸出結(jié)果（注意打印格式）1、程序 1Private Sub Form_Click()Dim x() As String 定義為可變數(shù)組 a$ = World Football Cupn = Len(a$)ReDim x(1 To n) 重新定義數(shù)組 For i = n To 1 Step -1x(i) = Mid(a$, i, 1)Next iPra$For i = 1 To nPrx(i); ;Next i PrEnd Sub 2、程序 2Private Sub Dim i As i = 1Sum = 0d1_Click()eger, Sum AsegerWhile

9、i = 32PrWendi: i = i * 2: Sum = Sum + iPrSum=; SumEnd Sub 3、程序 3Sub test(ByRef y As Sic xx = x + 2y = y + 2eger)Prx, yEnd SubPrivate Sub Form_Click()Prx, yFor i% = 1 To 10 Call test(i%) Next i%End Sub 4、程序 4Private Sub Form_Click()Dim XAseger, YAsegerConst Pi = 3.14159XY= ScaleWidth / 2= (ScaleHeigh

10、t - 400) * 6 / 7Label1.Caption = VISUAL BASICLabel1.FontSize = 16 Label1.AutoSize = TrueLabel1.Left = XLabel1.Top = (Y- Label1.Width / 2- 400) / 2Line (200, 200)-(ScaleWidth - 200, ScaleHeight - 200), , BCircle (XCircle (X End Sub, Y, Y), (ScaleHeight - 800) * 6 / 7, , -Pi / 6, -5 * Pi / 6), (ScaleH

11、eight - 800) / 7, , -7 * Pi / 6, -11 * Pi / 6試題四、程序改錯(cuò)（共 10 分，每錯(cuò) 2 分，其中錯(cuò)誤部分已劃線標(biāo)出）下面程序隨機(jī)產(chǎn)生 100 個(gè)三位正整數(shù)，按從小到大的順序在窗體上輸出，每行輸出 5 個(gè)。（程序中劃線部分表示有錯(cuò)，同學(xué)只能改正這些語句，其它部分不能修改）Option Base 1Dim n = 100Private Sub Form_Click() Dim a(n) Aseger Dim temp As(1) .Dim i Aseger, j AsegerFor i = 1 To 100a(i) =Next i(Rnd * 900)(

12、2) .For i = 0 To 99For j = i + 1 To 100If a(i) 10 x =10 x 10d1 的 Click 事件中。y =注：程序?qū)懺诿畎粹o2. (14 分) 用戶界面，用于將學(xué)生學(xué)過的單詞在列表框中顯示出來?，F(xiàn)要求完成：單擊“增加單詞”按鈕(單詞數(shù)；單擊“刪除單詞”按鈕(d1），將文本框 Text1 中的單詞添加到列表框中并顯示列表框中的d2)，刪除列表框中被選中的項(xiàng)并顯示列表框中的單詞數(shù)；（3）單擊“全部清除”按鈕(d3)，刪除列表框的全部選擇項(xiàng)并顯示列表框中的單詞數(shù)；（4）單擊“退出”按鈕(d4)，將列表框 List1 中的所有單詞寫入順序文件”d:abc.txt”中，結(jié)束程序。部分程序代碼如下：Private Sub Form_Load() Label1.Caption = 請輸入單詞Label2.Caption = 單詞數(shù)d1.Caption = 增加單詞 d2.Caption = 刪除單詞 d3.Caption = 全部清除 d4.C