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