一、填空題（每空２分，共40分）
１、ＶＢ中若要產(chǎn)生一消息框，可用_____函數(shù)來實(shí)現(xiàn)。
２、設(shè)計彈出式菜單時，先通過_____建立菜單，然后將頂層菜單的Visible屬性設(shè)置為False，最后在代碼中通過窗體對象的_____方法顯示彈出式菜單。
３、Ｗindows可公用的對話框有：_____、保存文件對話框、顏色設(shè)置、字體設(shè)置對話框、打印設(shè)置對話框、幫助文件六種，ＶＢ可通過調(diào)用通用對話框控件的_____、ShowSave、ShowColor、_____、ShowPrint、ShowHelp方法來使用它們。也可通過設(shè)置通用對話框控件的_____屬性來實(shí)現(xiàn)。
４、在ＶＢ中窗體文件的后綴名為_____，工程文件的后綴名為_____。
５、圖像框和圖片框均可用于裝載、顯示圖形文件，可在設(shè)計階段給它們的_____屬性賦值，也可在運(yùn)行階段通過_____函數(shù)裝入圖形文件。
６、若要將菜單項(xiàng)設(shè)計為分隔條，則該菜單項(xiàng)的標(biāo)題屬性應(yīng)設(shè)置為 。
７、_____實(shí)際上是ＶＢ提供的一種特殊的子程序，用來完成一定的操作。
８、ＶＢ提供_____函數(shù)用于將數(shù)字字符轉(zhuǎn)換成數(shù)值型，提供_____函數(shù)用于將數(shù)值轉(zhuǎn)換成字符型。
９、_____類型也稱變體類型，是一種通用的、可變的數(shù)據(jù)類型，它可表示或存儲任何一種數(shù)據(jù)類型。
10、在過程內(nèi)用_____聲明的變量為靜態(tài)變量，在執(zhí)行一個過程結(jié)束時，過程中所用到的 Static變量的值會保留，下次再調(diào)用此過程時，變量的初值是上次調(diào)用結(jié)束時被保留的值。
11、在模塊文件中的聲明部分用Global或_____關(guān)鍵字聲明的變量為全局變量。
12、在模塊文件中的聲明部分用_____或_____定義的變量為模塊級變量。
二、選擇題（每題3分，共20分）
１、若要使命令按鈕不可用，則可設(shè)置其（ ?。傩詾镕alse來實(shí)現(xiàn)。
Ａ、Value ?。?、Cancel ?。?、Enabled ?。摹efault
２、若要使某可見控件獲得焦點(diǎn)，則可使用（ ?。┓椒▉韺?shí)現(xiàn)。
Ａ、Refresh Ｂ、Setfocus?。?、Gotfocus Ｄ、Value
３、復(fù)選框或單選鈕的當(dāng)前狀態(tài)可通過（ ?。傩詠矸祷鼗蛟O(shè)置。
Ａ、Checked ?。?、Value Ｃ、Selected Ｄ、Caption
４、VB提供（ ?。傩杂糜诳刂茖ο笫欠窨捎?。
Ａ、Default ?。隆ancel ?。谩nabled ?。摹isible
５、VB中可通過（ ）方法畫圓
Ａ、Pset ?。隆ine ?。?、Circle ?。?、Oval
６、可獲得當(dāng)前系統(tǒng)時間的函數(shù)是（ ?。?BR> Ａ、Date( ) ?。?、Time( ) ?。?、IsDate( ) ?。?、Year( )
７、當(dāng)用戶在窗體上單擊鼠標(biāo)時，不會觸發(fā)的事件是（ ?。?BR> Ａ、Click Ｂ、MouseDown Ｃ、MouseUp ?。?、DblClick
８、在設(shè)計階段，當(dāng)雙擊窗體上的某個控件時，所打開的窗口是
Ａ、工程資源管理器窗口 Ｂ、工具箱窗口 Ｃ、代碼窗口 Ｄ、屬性窗口
９、設(shè)a=“Visual Basic”，下面使b=“Visual”的語句是
Ａ、b=Left(a,8,12) Ｂ、b=Mid(a,8,5)
Ｃ、b=Rigth(a,6) Ｄ、b=Left(a,6)
１０、以下能夠觸發(fā)文本框Change事件的操作是
Ａ、文本框失去焦點(diǎn) Ｂ、文本框獲得焦點(diǎn)
Ｃ、設(shè)置文本框的焦點(diǎn) Ｄ、改變文本框的內(nèi)容 四、綜合題（每題5分，共20分）
１、在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下程序：
Private Sub Command1_Click()
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y 5
X=5 X
Print X,Y
End Sub
請寫出程序運(yùn)行時，三次單擊命令按鈕Commandl后，窗體上顯示的結(jié)果。
２、在窗體上有一個文本框控件，名稱為TxtTime；一個計時器控件，名稱為Timer1。要求每一秒鐘在文本框中顯示一次當(dāng)前的時間。程序如下，請?jiān)谙聞澗€上填入恰當(dāng)?shù)膬?nèi)容。
Private Sub Timer1_ _____()
TxtTime.text=_____
End Sub
３、在窗體上畫一個命令按鈕，名稱為Command1。然后編寫如下程序：
Private Sub Command1_Click()
For a=1 To 4
For b=0 To a
Print Chr(65 a)
Next b
Print
Next a
End Sub
程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是什么？
４、在窗體上畫一個文本框和一個圖片框，然后編寫如下兩個事件過程：
Private Sub Form_Load()
Text1.Text=”計算機(jī)”
End Sub
Private Sub Text1_Change()
Picture1.Print“等級考試”
End Sub
程序運(yùn)行后，在文本框中顯示的內(nèi)容是
而在圖片框中顯示的內(nèi)容是
五、程序題（每空2分，共10分）
程序要求：
1、程序運(yùn)行后，窗體初始化時，在左邊列表框1(名稱為List1)中列出當(dāng)前屏幕對象（Screen ）的所有字體，screen對象的fonts屬性（fonts屬性是一個數(shù)組）能夠得到屏幕使用的所有字體，F(xiàn)ontCount屬性能夠得到字體的數(shù)量，利用一個循環(huán)，將Screen對象的每個Fonts(i)添加到列表框1中；
2、窗體初始化時，在右邊的列表框2(名稱為List2)中列出8、10、12、14……72的數(shù)字，表示字號。
3、當(dāng)用戶在列表框1中單擊選中某種字體名時，或在列表框2中單擊選中某一字號時，使窗體下半部的標(biāo)簽框（名稱為Label1）中文字設(shè)置為相應(yīng)字體與字號，實(shí)現(xiàn)字體字號預(yù)覽。
Private sub Form_Load( )
For a=0 to Screen.FontCount-1
List1.AddItem Screen.Fonts(a)
Next a
For a=_____ to 72 step _____
_____
Next a
End Sub
Private Sub List1_Click( )
_____
End Sub
Private Sub List2_Click( )
_____
End Sub
１、ＶＢ中若要產(chǎn)生一消息框，可用_____函數(shù)來實(shí)現(xiàn)。
２、設(shè)計彈出式菜單時，先通過_____建立菜單，然后將頂層菜單的Visible屬性設(shè)置為False，最后在代碼中通過窗體對象的_____方法顯示彈出式菜單。
３、Ｗindows可公用的對話框有：_____、保存文件對話框、顏色設(shè)置、字體設(shè)置對話框、打印設(shè)置對話框、幫助文件六種，ＶＢ可通過調(diào)用通用對話框控件的_____、ShowSave、ShowColor、_____、ShowPrint、ShowHelp方法來使用它們。也可通過設(shè)置通用對話框控件的_____屬性來實(shí)現(xiàn)。
４、在ＶＢ中窗體文件的后綴名為_____，工程文件的后綴名為_____。
５、圖像框和圖片框均可用于裝載、顯示圖形文件，可在設(shè)計階段給它們的_____屬性賦值，也可在運(yùn)行階段通過_____函數(shù)裝入圖形文件。
６、若要將菜單項(xiàng)設(shè)計為分隔條，則該菜單項(xiàng)的標(biāo)題屬性應(yīng)設(shè)置為 。
７、_____實(shí)際上是ＶＢ提供的一種特殊的子程序，用來完成一定的操作。
８、ＶＢ提供_____函數(shù)用于將數(shù)字字符轉(zhuǎn)換成數(shù)值型，提供_____函數(shù)用于將數(shù)值轉(zhuǎn)換成字符型。
９、_____類型也稱變體類型，是一種通用的、可變的數(shù)據(jù)類型，它可表示或存儲任何一種數(shù)據(jù)類型。
10、在過程內(nèi)用_____聲明的變量為靜態(tài)變量，在執(zhí)行一個過程結(jié)束時，過程中所用到的 Static變量的值會保留，下次再調(diào)用此過程時，變量的初值是上次調(diào)用結(jié)束時被保留的值。
11、在模塊文件中的聲明部分用Global或_____關(guān)鍵字聲明的變量為全局變量。
12、在模塊文件中的聲明部分用_____或_____定義的變量為模塊級變量。
二、選擇題（每題3分，共20分）
１、若要使命令按鈕不可用，則可設(shè)置其（ ?。傩詾镕alse來實(shí)現(xiàn)。
Ａ、Value ?。?、Cancel ?。?、Enabled ?。摹efault
２、若要使某可見控件獲得焦點(diǎn)，則可使用（ ?。┓椒▉韺?shí)現(xiàn)。
Ａ、Refresh Ｂ、Setfocus?。?、Gotfocus Ｄ、Value
３、復(fù)選框或單選鈕的當(dāng)前狀態(tài)可通過（ ?。傩詠矸祷鼗蛟O(shè)置。
Ａ、Checked ?。?、Value Ｃ、Selected Ｄ、Caption
４、VB提供（ ?。傩杂糜诳刂茖ο笫欠窨捎?。
Ａ、Default ?。隆ancel ?。谩nabled ?。摹isible
５、VB中可通過（ ）方法畫圓
Ａ、Pset ?。隆ine ?。?、Circle ?。?、Oval
６、可獲得當(dāng)前系統(tǒng)時間的函數(shù)是（ ?。?BR> Ａ、Date( ) ?。?、Time( ) ?。?、IsDate( ) ?。?、Year( )
７、當(dāng)用戶在窗體上單擊鼠標(biāo)時，不會觸發(fā)的事件是（ ?。?BR> Ａ、Click Ｂ、MouseDown Ｃ、MouseUp ?。?、DblClick
８、在設(shè)計階段，當(dāng)雙擊窗體上的某個控件時，所打開的窗口是
Ａ、工程資源管理器窗口 Ｂ、工具箱窗口 Ｃ、代碼窗口 Ｄ、屬性窗口
９、設(shè)a=“Visual Basic”，下面使b=“Visual”的語句是
Ａ、b=Left(a,8,12) Ｂ、b=Mid(a,8,5)
Ｃ、b=Rigth(a,6) Ｄ、b=Left(a,6)
１０、以下能夠觸發(fā)文本框Change事件的操作是
Ａ、文本框失去焦點(diǎn) Ｂ、文本框獲得焦點(diǎn)
Ｃ、設(shè)置文本框的焦點(diǎn) Ｄ、改變文本框的內(nèi)容 四、綜合題（每題5分，共20分）
１、在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下程序：
Private Sub Command1_Click()
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y 5
X=5 X
Print X,Y
End Sub
請寫出程序運(yùn)行時，三次單擊命令按鈕Commandl后，窗體上顯示的結(jié)果。
２、在窗體上有一個文本框控件，名稱為TxtTime；一個計時器控件，名稱為Timer1。要求每一秒鐘在文本框中顯示一次當(dāng)前的時間。程序如下，請?jiān)谙聞澗€上填入恰當(dāng)?shù)膬?nèi)容。
Private Sub Timer1_ _____()
TxtTime.text=_____
End Sub
３、在窗體上畫一個命令按鈕，名稱為Command1。然后編寫如下程序：
Private Sub Command1_Click()
For a=1 To 4
For b=0 To a
Print Chr(65 a)
Next b
Next a
End Sub
程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是什么？
４、在窗體上畫一個文本框和一個圖片框，然后編寫如下兩個事件過程：
Private Sub Form_Load()
Text1.Text=”計算機(jī)”
End Sub
Private Sub Text1_Change()
Picture1.Print“等級考試”
End Sub
程序運(yùn)行后，在文本框中顯示的內(nèi)容是
而在圖片框中顯示的內(nèi)容是
五、程序題（每空2分，共10分）
程序要求：
1、程序運(yùn)行后，窗體初始化時，在左邊列表框1(名稱為List1)中列出當(dāng)前屏幕對象（Screen ）的所有字體，screen對象的fonts屬性（fonts屬性是一個數(shù)組）能夠得到屏幕使用的所有字體，F(xiàn)ontCount屬性能夠得到字體的數(shù)量，利用一個循環(huán)，將Screen對象的每個Fonts(i)添加到列表框1中；
2、窗體初始化時，在右邊的列表框2(名稱為List2)中列出8、10、12、14……72的數(shù)字，表示字號。
3、當(dāng)用戶在列表框1中單擊選中某種字體名時，或在列表框2中單擊選中某一字號時，使窗體下半部的標(biāo)簽框（名稱為Label1）中文字設(shè)置為相應(yīng)字體與字號，實(shí)現(xiàn)字體字號預(yù)覽。
Private sub Form_Load( )
For a=0 to Screen.FontCount-1
List1.AddItem Screen.Fonts(a)
Next a
For a=_____ to 72 step _____
_____
Next a
End Sub
Private Sub List1_Click( )
_____
End Sub
Private Sub List2_Click( )
_____
End Sub