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

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

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

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

5、()Form1.Caption = 動態秒表（小時：分：秒） d1.Caption = 開始&Sd2.Caption = _(1) Label1.Alignment = 2居中對齊 Label1.FontSize = 20設置字的大小 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 = 運行了

6、+ Str(h) + 小時 + 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、以下程序是驗證 6 至 1000 之間的哥德巴赫猜想(即所有偶數都能分解為兩個素數之和)。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 分）仔細閱讀下列各小題程序，在試卷的相應位置上寫出程序運

8、行后單擊窗體，在窗體上的輸出結果（注意打印格式）1、程序 1Private Sub Form_Click()Dim x() As String 定義為可變數組 a$ = World Football Cupn = Len(a$)ReDim x(1 To n) 重新定義數組 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試題四、程序改錯（共 10 分，每錯 2 分，其中錯誤部分已劃線標出）下面程序隨機產生 100 個三位正整數，按從小到大的順序在窗體上輸出，每行輸出 5 個。（程序中劃線部分表示有錯，同學只能改正這些語句，其它部分不能修改）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 =注：程序寫在命令按鈕2. (14 分) 用戶界面，用于將學生學過的單詞在列表框中顯示出來?，F要求完成：單擊“增加單詞”按鈕(單詞數；單擊“刪除單詞”按鈕(d1），將文本框 Text1 中的單詞添加到列表框中并顯示列表框中的d2)，刪除列表框中被選中的項并顯示列表框中的單詞數；（3）單擊“全部清除”按鈕(d3)，刪除列表框的全部選擇項并顯示列表框中的單詞數；（4）單擊“退出”按鈕(d4)，將列表框 List1 中的所有單詞寫入順序文件”d:abc.txt”中，結束程序。部分程序代碼如下：Private Sub Form_Load() Label1.Caption = 請輸入單詞Label2.Caption = 單詞數d1.Caption = 增加單詞 d2.Caption = 刪除單詞 d3.Caption = 全部清除 d4.C