高二年級VB期末試卷
一、單選題（2分×20，共40分）
1、可以在窗體上輸出數據的方法的是 （ A ）
A、Print B、Cls C、Show D、Hide
2、在VB中，被稱為對象的是（ C ）
A、窗體 B、控件 C、控件和窗體 D、窗體、控件和屬性
3、數據：“abcde”是（ C ）數據
A、整型 B、長整型 C、字符型 D、日期型
4、以下各項中，可以作為VB變量名的是（ ）
A、Book B、2_Seek C、123.58 D、Book-1
5、以下各項中，能作為VB變量名的是（ A ）
A、AB7 B、7AB C、If D、A[B]7
6、InputBox函數返回值的類型為（ B ）
A、數值 B、字符串
C、變體 D、數值或字符串(視輸入的數據而定)
7、確定窗體控件啟動位置的屬性是（ D ）
A、Width 和 Height B、Width 或 Height
C、Top 和 Width D、Top 和 Left
8、數學式sin30°寫成VB表達式是（ D ）
A、Sin30 B、Sin(30)
C、Sin(30°) D、Sin(30*3.14/180)
9、決定控件上文字的字體、字形、大小、效果的屬性是（ D ）
A、Text B、Caption C、Name D、Font
10、設a、b、c為整型變量，其值分別為1、2、3，以下語句的輸出結果是（ A ）
Print a;b;c
A、1 2 3 B、 2 3 1 C、3 2 1 D、2 3 2
11、下列說法中錯誤的是（ C ）
A、窗體文件的擴展名為.frm B、一個窗體對應一個窗體文件
C、VB中一個工程只包含一個窗體文件 D、VB中一個工程最多可以包含255個窗體
12、Visual Basic程序中的注釋所使用的字符是（ A ）
A、' B、: C、\ D、_
13、VB中下列兩個變量名相同的是（ B ）
A、Japan 和Ja_pan B、English 和ENGLish
C、English 和Engl D、China 和 Chin
14、若要求從文本框中輸入密碼時在文本框中只顯示 * 號，則應在此文本框的屬性窗口中設
置（ D ）。
A、Text 屬性值為 * B、Caption 屬性值為 *
C、Password 屬性值為空 D、Passwordchar 屬性值為 *
15、表達式“XYZ” + “487”的值是（A ）
A、“XYZ487” B、“XYZ” C、“487” D、“487XYZ”
16、將窗體中的某個按鈕設置為無效狀態，應設置命令按鈕的哪個屬性（ C ）
A、Value B、Visible C、Enabled C、Default
17、單擊窗體上的關閉按鈕時，觸發的事件是（ C ）
A、Form_Initialize() B、Form_Load()
C、Form_Unload() D、Form_Click()
18、用於將窗體中的對象分組的控件是（ D ）
A、列表框 B、組合框 C、標簽 D、框架
19、能獲得一個文本框中被選中文本內容的屬性是（ C ）
A、Text B、Length C、Seltext D、SelStart
20、下列程序段的執行后Y的結果為（ C ）
X=2：Y=5
If X*Y<1 Then Y=Y-1 Else Y=-1
A、4 B、 3 C、 －1 D、 1
二、填空題（每題2分×10，共20分）
1、布爾型數據只有__True______和__False______兩個值。
2、關系運算符有>、<、=、<>、__>=______、______<=__ 6種。
3、Visual Basic 的print方法輸出格式有 輸出 和_____計算_______兩種。
4、______inputbox()__________函數顯示一個能接收用戶輸入數據的對話框，並返回用戶在對話框中輸入的消息。
5、__cls_________方法可以清除窗體或圖片框中由Print方法在運行時所生成的文本或圖形。
6、如果x是一個正實數，對x保留3位小數的表達式_____round(x,3)_______ 。
7、假定一個文本框的Name屬性為Text1,為了使該文本框獲得焦點，應執行的語句是 text1.setfocus 。
8、當對象失去焦點時，將觸發 lostfocus 事件。
9、表達式Ucase(Mid(“abcdefgh”,3,4))的值是 “CDEF” 。
10、產生[5,200]的隨機整數的表達式是 ____int(rnd*196+5)_______________。
三、把下列數學表達式改為VB表達式。（4分×4，共16分）
1、3(a-b) 2、1≤X＜5
3、x3÷4y 4、
四、寫出下列表達式的值（4分×3，共12分）
1、Abs(-100)+Sqr(100)
2、Not 3<=4 And 4 < > 5
3、Int(Abs(99-100)/2)
五、閱讀程序並填空(每空2分，共12分)
1、新建一個工程，內有兩個窗體Form1和Form2，窗體Form1上有一個命令按鈕Command1，單擊該按鈕，Form1窗體消失，顯示Form2窗體，補充完整。
Private Sub Command1_Click( )
__form1.hide_____________
Form2.__show________
End Sub
2、下列程序可以實現在窗體上由用戶任意輸入一個整數，程序可以判斷該數的奇偶。程序由一個文本框（Textbox）、兩個標簽（Label）、一個按鈕（Command）組成。要求：奇或偶的結果在Label2內顯示，請在空格處填入相應的語句，使之完成上述功能。
Private Sub Form_Load ( )
Text1.Text = “”
Label1.Caption = “請輸入一個整數”
Label2.Caption = “”
Command1.Caption = “判定”
End Sub
Private Sub Command1_Click( )
Dim x As Integer
x = Val(Text1.text)
If __x mod 2=0______________ Then
label2.caption= x & “是偶數”
Else
label2.caption= x & “是奇數”
End If
End Sub
3、設計工程，輸出在指定范圍內的1個隨機整數（參見運行效果圖），范圍在文本框中輸
入。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = __ Val(Text1)_____________
b = Val(Text2)
__c=int(rnd*(b-a+1)+a)_______________________
Text3.Text = c
End Sub
