亚洲欧美自偷欧美专区第九页,久久人妻夜夜快乐,免费一级黄片少妇

相關(guān)推薦

全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB試卷

　　為了使廣大考生在備戰(zhàn)計(jì)算機(jī)等級(jí)考試時(shí)，更快的掌握相應(yīng)知識(shí)點(diǎn)，下面是小編搜索整理的全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB試卷，供參考練習(xí)，預(yù)祝考生們考出自己理想的成績(jī)!

全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB試卷

　　一、選擇題(每題2分，共70分)

　　下列各題A) 、B) 、C) 、D) 四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的，請(qǐng)將正確選項(xiàng)涂寫(xiě)在答題卡相應(yīng)位置上，答在試卷上不得分。

　　(1) 在設(shè)計(jì)階段，當(dāng)雙擊窗體上的某個(gè)控件時(shí)，所打開(kāi)的窗口是

　　A) 工程資源管理器窗口 B) 工具箱窗口

　　C) 代碼窗口 D) 屬性窗口

　　(2) 以下敘述中正確的是

　　A) 窗體的Name屬性指定窗體的名稱(chēng)，用來(lái)標(biāo)識(shí)一個(gè)窗體

　　B) 窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本

　　C) 可以在運(yùn)行期間改變對(duì)象的Name屬性的值

　　D) 對(duì)象的Name屬性值可以為空

　　(3) 剛建立一個(gè)新的標(biāo)準(zhǔn)EXE工程后，不在工具箱中出現(xiàn)的控件是

　　A) 單選按鈕 B) 圖片框 C) 通用對(duì)話(huà)框 D) 文本框

　　(4) 設(shè)有如下變量聲明

　　Dim TestDate As Date

　　為變量TestDate正確賦值的表達(dá)方式是

　　A) TextDate=#1/1/2002# B) TestDate=#“1/1/2002”#

　　C) TextDate=date(“1/1/2002”) D) TestDate=Format(“m/d/yy”,“1/1/2002”)

　　(5) 設(shè)有如下聲明：

　　Dim X As Integer

　　如果Sgn(X) 的值為-1，則X的值是

　　A) 整數(shù) B) 大于0的整數(shù) C) 等于0的整數(shù) D) 小于0的數(shù)

　　(6) 在窗體上畫(huà)一個(gè)名稱(chēng)為Commandl的命令按鈕，然后編寫(xiě)如下程序：

　　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)行時(shí)，三次單擊命令按鈕Commandl后，窗體上顯示的結(jié)果為

　　A) 15 16 B) 15 6 C) 15 15 D) 5 6

　　(7) 設(shè)a=3,b=5，則以下表達(dá)式值為真的是

　　A) a>=b And b>10 B) (a>b)Or(b>0)

　　C) (a<0)eqv(b>0) D) (-3+5>a)And(b>0)

　　(8) 設(shè)有語(yǔ)句

　　x=InputBox(“輸入數(shù)值”，“0”，“示例”)

　　程序運(yùn)行后，如果從鍵盤(pán)上輸入數(shù)值10并按回車(chē)鍵，則下列敘述中正確的是

　　A) 變量X的值是數(shù)值10 B) 在InputBox對(duì)話(huà)框標(biāo)題欄中顯示的是“示例”

　　C) 0是默認(rèn)值 D) 變量X的值是字符串“10”

　　(9) 從鍵盤(pán)上輸入兩個(gè)字符串，分別保存在變量str1、str2中。確定第二個(gè)字符串在第一個(gè)字符串中起始位置的函數(shù)是

　　A) Left B) Mid C) String D) Instr

　　(10) 設(shè)a=“Visual Basic”，下面使b=“Basic”的語(yǔ)句是

　　A) b=Left(a,8,12) B) b=Mid(a,8,5)

　　C) b=Rigth(a,5,5) D) b=Left(a,8,5)

　　(11) 以下能夠觸發(fā)文本框Change事件的操作是

　　A) 文本框失去焦點(diǎn) B) 文本框獲得焦點(diǎn)

　　C) 設(shè)置文本框的焦點(diǎn) D) 改變文本框的內(nèi)容

　　(12) 在窗體上有一個(gè)文本框控件，名稱(chēng)為T(mén)xtTime：一個(gè)計(jì)時(shí)器控件，名稱(chēng)為T(mén)imerl，要求每一秒鐘在文本框中顯示一次當(dāng)前的時(shí)間。程序?yàn)椋?/p>

　　Private Sub Timer1_ ()

　　TxtTime.text=Time

　　End Sub

　　在下劃線(xiàn)上應(yīng)填入的內(nèi)容是

　　A) Enabled B) Visible C) Interval D) Timer

　　(13) 在窗體上畫(huà)兩個(gè)單選按鈕，名稱(chēng)分別為Option1、Option2，標(biāo)題分別為“宋體”和“黑體”；一個(gè)復(fù)選框，名稱(chēng)為Check1,標(biāo)題為“粗體”；一個(gè)文本框，名稱(chēng)為T(mén)ext1，Text屬性為“改變文字字體”。要求程序運(yùn)行時(shí)，“宋體”單選按鈕和“粗體”復(fù)選框被選中(窗體外觀(guān)如下圖) ，則能夠?qū)崿F(xiàn)上述要求的語(yǔ)句序列是

　　A) Option1.value=True B) Option1.Value=True

　　Check1.Value=False Check1.Value=True

　　C) Option2.Value=False D) Option1.Value=True

　　Check1.Value=True Check1.Value=1

　　(14) 為了在按下Esc鍵時(shí)執(zhí)行某個(gè)命令按鈕的Click事件過(guò)程，需要把該命令按鈕的一個(gè)屬性設(shè)置為T(mén)rue，這個(gè)屬性是

　　A) Value B) Default C) Cancel D) Enabled

　　(15) 在窗體上畫(huà)一個(gè)命令按鈕，名稱(chēng)為Command1。然后編寫(xiě)如下程序：

　　Private Sub Command1_Click()

　　For I=1 To 4

　　For J=0 To 1

　　Print Chr$(65+I);

　　Next J

　　Next I

　　End Sub

　　程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是

　　A) BB B) A C) B D) AA

　　CC BB CC BBB

　　DDDD CCC DDD CCCC

　　EEEEE DDDD EEEE DDDDD

　　(16) 圖像框有一個(gè)屬性，可以自動(dòng)調(diào)整圖形的大小，以適應(yīng)圖像框的尺寸，這個(gè)屬性是

　　A) Autosize B) Stretch

　　C) AutoRedraw D) Appearance

　　(17) 在窗體上畫(huà)兩個(gè)名稱(chēng)分別為T(mén)ext1、Texte2的文本框和一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：

　　Private Sub Command1_Click()

　　Dim x As Integer,n As Integer

　　x=1

　　n=0

　　Do While x<20

　　x=x*3

　　n=n+1

　　Loop

　　Text1.Text=Str(x)

　　Text2.Text=Str(n)

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別是

　　A) 15和1 B) 27和3 C) 195和3 D) 600和4

　　(18) 在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框和一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：

　　Private Sub Command1_Click()

　　Dim i As Integer,n As Integer

　　For I=0 To 50

　　i=i+3

　　n=n+1

　　If i>10 Then xit for

　　Text1.Text=Str(n)

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是

　　A) 2 B) 3 D) 4 D) 5

　　(19) 在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框和一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：

　　Private Sub Command1_Click()

　　Dim array1(10,10) As Integer

　　Dim i,j As Integer

　　For i=1 To 3

　　For j=2 To 4

　　array1(i,j)=i+j

　　Next j

　　Next I

　　Text1.Text=array1(2,3)+array1(3,4)

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是

　　A) 12 B) 13 C) 14 D) 15

　　(20) 在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下程序：

　　Private Sub Command1_Click()

　　Dim i As Integer,j As Integer

　　Dim a(10,10)As Integer

　　For i=1 To 3

　　For j=1 To 3

　　a(i,j)=(i-1)*3+j

　　Print a(i,j);

　　Next j

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是

　　A) 123 B) 234 C) 147 D) 123

　　246 345 258 456

　　369 456 369 789

　　(21) 設(shè)有如下程序：

　　Option Base 0

　　Private Sub Form_Click()

　　Dim a

　　Dim i As Integer

　　a=Array(1,2,3,4,5,6,7,8,9)

　　For i=0 To 3

　　Print a(5-i);

　　End Sub

　　程序運(yùn)行后，單擊窗體，則在窗體上顯示的是

　　A) 4 3 2 1 B) 5 4 3 2 C) 6 5 4 3 D) 7 6 5 4

　　(22) 下列敘述中正確的是

　　A) 在窗體的Form_Load事件過(guò)程中定義的變量是全局變量

　　B) 局部變量的作用域可以超出所定義的過(guò)程

　　C) 在某個(gè)Sub過(guò)程中定義的局部變量可以與其它事件過(guò)程中定義的局部變量同名，但其作用域只限于該過(guò)程

　　D) 在調(diào)用過(guò)程時(shí)，所有局部變量被系統(tǒng)初始化為0或空字符串

　　(23) 在窗體上畫(huà)一個(gè)命令按鈕，名稱(chēng)為Command1。程序運(yùn)行后，如果單擊命令按鈕，則顯示一個(gè)輸入對(duì)話(huà)框，在該對(duì)話(huà)框中輸入一個(gè)整數(shù)，并用這個(gè)整數(shù)作為實(shí)參調(diào)用函數(shù)過(guò)程F1。在F1中判斷所輸入的整數(shù)是否是奇數(shù)，如果是奇數(shù)，過(guò)程F1返回1，否則返回0。能夠正確實(shí)現(xiàn)上述功能的代碼是

　　A) Private Sub Command1_Click()

　　x=InputBox(“請(qǐng)輸入整數(shù)”)

　　a=F1(Val(x))

　　Print a

　　End Sub

　　Function F1(ByRef b As Integer)

　　If b Mod 2=0 Then

　　Return 0

　　Else

　　Return 1

　　End If

　　End Function

　　B) Private Sub Command1_Click()

　　x=InputBox(“請(qǐng)輸入整數(shù)”)

　　a=F1(Val(x))

　　Print a

　　End Sub

　　Function F1(ByRef b As Integer)

　　If b Mod 2=0 Then

　　F1=0

　　Else

　　F1=1

　　End If

　　End Function

　　C) Private Sub Command1_Click()

　　x=InputBox(“請(qǐng)輸入整數(shù)”)

　　F1(Val(x))

　　Print a

　　End Sub

　　Function F1(ByRef b As Integer)

　　If b Mod 2=0 Then

　　F1=1

　　Else

　　F1=0

　　End If

　　End Function

　　D) Private Sub Command1_Click()

　　x=InputBox(“請(qǐng)輸入整數(shù)”)

　　F1(Val(x))

　　Print a

　　End Sub

　　Function F1(ByRef b As Integer)

　　If b Mod 2=0 Then

　　Return 0

　　Else

　　Return 1

　　End If

　　End Function

　　(24) 在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕和一個(gè)名稱(chēng)為T(mén)ext1的文本框，然后編寫(xiě)如下程序：

　　Private Sub Command1_Click()

　　Dim x,y,z As Integer

　　x=5

　　y=7

　　z=0

　　Text1.text=“”

　　Call P1(x,y,z)

　　Text1.Text=Str(x)

　　End Sub

　　Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)

　　c=a+b

　　End Sub

　　程序運(yùn)行后，如果單擊命令按鈕，則在文本框中顯示的內(nèi)容是

　　A) 0 B) 12 C) Str(z) D) 沒(méi)有顯示

　　(25) 以下敘述中錯(cuò)誤的是

　　A) 如果過(guò)程被定義為Static類(lèi)型，則該過(guò)程中的局部變量都是Static類(lèi)型

　　B) Sub過(guò)程中不能嵌套定義Sub過(guò)程

　　C) Sub過(guò)程中可以嵌套調(diào)用Sub過(guò)程

　　D) 事件過(guò)程可以像通用過(guò)程一樣由用戶(hù)定義過(guò)程名

　　(26) 以下敘述中錯(cuò)誤的是

　　A) 在KeyUp和KeyDown事件過(guò)程中，從鍵盤(pán)上輸入A或a被視作相同的字母(即具有相同的KeyCode)

　　B) 在KeyUp和KeyDown事件過(guò)程中，將鍵盤(pán)上的“1”和右側(cè)小鍵盤(pán)上的“1”視作不同的數(shù)字(具有不同的KeyCode)

　　C) KeyPress事件中不能識(shí)別鍵盤(pán)上某個(gè)鍵的按下與釋放

　　D) KeyPress事件中可以識(shí)別鍵盤(pán)上某個(gè)鍵的按下與釋放

　　(27) 以下敘述中錯(cuò)誤的是

　　A) 在同一窗體的菜單項(xiàng)中，不允許出現(xiàn)標(biāo)題相同的菜單項(xiàng)

　　B) 在菜單的標(biāo)題欄中，“&”所引導(dǎo)的字母指明了訪(fǎng)問(wèn)該菜單項(xiàng)的訪(fǎng)問(wèn)鍵

　　C) 程序運(yùn)行過(guò)程中，可以重新設(shè)置菜單的Visible屬性

　　D) 彈出式菜單也在菜單編輯器中定義

　　(28) 設(shè)在菜單編輯器中定義了一個(gè)菜單項(xiàng)，名為menu1。為了在運(yùn)行時(shí)隱藏該菜單項(xiàng)，應(yīng)使用的語(yǔ)句是

　　A) menu1.Enabled=True B) Munu1.Enabled=False

　　C) Menu1.Visible=True D) Menu1.Visible=False

　　(29) 以下敘述中錯(cuò)誤的是

　　A) 在程序運(yùn)行時(shí)，通用對(duì)話(huà)框控件是不可見(jiàn)的

　　B) 在同一個(gè)程序中，用不同的方法(如ShowOpen或ShowSave等）打開(kāi)的通用對(duì)話(huà)框具有不同的作用

　　C) 調(diào)用通用對(duì)話(huà)框控件的ShowOpen方法，可以直接打開(kāi)在該通用對(duì)話(huà)框中指定的文件

　　D) 調(diào)用通用對(duì)話(huà)框控件的ShowColor方法，可以打開(kāi)顏色對(duì)話(huà)框

　　(30) 在用通用對(duì)話(huà)框控件建立“打開(kāi)”或“保存”文件對(duì)話(huà)框時(shí)，如果需要指定文件列表框所列出的文件類(lèi)型是文本文件(即.txt文件)，則正確的描述格式是

　　A) “text (.txt)|(*.txt)” B)“文本文件( .txt) | (.txt)”

　　C) “text(.txt)||(*.txt)” D)“text(.txt)(*.txt)”

　　(31) 以下敘述中錯(cuò)誤的是

　　A) 一個(gè)工程中只能有一個(gè)Sub Main過(guò)程

　　B) 窗體的Show方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體

　　C) 窗體的Hide方法和Unload方法的作用完全相同

　　D) 若工程文件中有多個(gè)窗體，可以根據(jù)需要指定一個(gè)窗體為啟動(dòng)窗體

　　(32) 以下敘述中錯(cuò)誤的是

　　A) 一個(gè)工程中可以包含多個(gè)窗體文件

　　B) 在一個(gè)窗體文件中用Private定義的通用過(guò)程能被其他窗體調(diào)用

　　C) 在設(shè)計(jì)VB程序時(shí)，窗體、標(biāo)準(zhǔn)模塊、類(lèi)模塊等需要分別保存為不同類(lèi)型的磁盤(pán)文件

　　D) 全局變量必須在標(biāo)準(zhǔn)模塊中定義

　　(33) 設(shè)在工程中有一個(gè)標(biāo)準(zhǔn)模塊，其中定義了如下記錄類(lèi)型

　　Type Books

　　Name As String *10

　　TelNum As String *20

　　End Type

　　在窗體上畫(huà)一個(gè)名為Command1的命令按鈕。要求當(dāng)執(zhí)行事件過(guò)程Command1_Click時(shí)，在順序文件Person.txt中寫(xiě)入一條記錄。下列能夠完成該操作的事件過(guò)程是

　　A) Private Sub Command1_Click()

　　Dim B As Books

　　Open “c:Person.txt”For Output As #1

　　B.Name=InputBox(“輸入姓名”)

　　B.TelNum=InputBox(“輸入電話(huà)號(hào)碼”)

　　Write #1,B.Name,B.TelNum

　　Close #1

　　End Sub

　　B) Private Sub Command1_Click()

　　Dim B As Books

　　Open “c:Person.txt”For Input As #1

　　B.Name=InputBox(“輸入姓名”)

　　B.TelNum=InputBox(“輸入電話(huà)號(hào)碼”)

　　Print #1,B.Name,B.TelNum

　　Close #1

　　End Sub

　　C) Private Sub Command1_Click()

　　Dim B As Books

　　Open “c:Person.txt”For Output As #1

　　B.Name=InputBox(“輸入姓名”)

　　B.TelNum=InputBox(“輸入電話(huà)號(hào)碼”)

　　Write #1,B

　　Close #1

　　End Sub

　　D) Private Sub Command1_Click()

　　Open “c:Person.txt”For Input As #1

　　Name=InputBox(“輸入姓名”)

　　TelNum=InputBox(“輸入電話(huà)號(hào)碼”)

　　Print #1,Name,TelNum

　　Close #1

　　End Sub

　　(34) 以下敘述中正確的是

　　A) 一個(gè)記錄中所包含的各個(gè)元素的數(shù)據(jù)類(lèi)型必須相同

　　B) 隨機(jī)文件中每個(gè)記錄的長(zhǎng)度是固定的

　　C) Open命令的作用是打開(kāi)一個(gè)已經(jīng)存在的文件

　　D) 使用Input #語(yǔ)句可以從隨機(jī)文件中讀取數(shù)據(jù)

　　(35) 目錄列表框的Path屬性的作用是

　　A) 顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的目錄結(jié)構(gòu)

　　B) 顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的某目錄下的文件名

　　C) 顯示根目錄下的文件名

　　D) 顯示該路徑下的文件

　　二、填空題( 每空2分，共40分）

　　請(qǐng)將每空的正確答案寫(xiě)在答題卡( 1)至( 15) 的橫線(xiàn)上，答在試卷上不得分。

　　(1) 在窗體上畫(huà)兩個(gè)標(biāo)簽，其名稱(chēng)分別為L(zhǎng)abel1和Label2,Caption屬性分別為“數(shù)值”及空白；然后畫(huà)一個(gè)名稱(chēng)為Hscoll1的水平滾動(dòng)條，其Min的值為0，Max的值為100。程序運(yùn)行后，如果單擊滾動(dòng)條兩端的箭頭，則在標(biāo)簽Lable2中顯示滾動(dòng)條的值，如圖所示。請(qǐng)?jiān)?[1] 和 [2] 處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。

　　Private Sub HScroll1_ [1] ()

　　Labl2.Caption=HScroll1. [2]

　　End Sub

　　(2) 在窗體上畫(huà)一個(gè)名稱(chēng)為Command1、標(biāo)題為“計(jì)算”的命令按鈕；畫(huà)兩個(gè)文本框，名稱(chēng)分別為T(mén)ext1和Text2；然后畫(huà)4個(gè)標(biāo)簽，名稱(chēng)分別為L(zhǎng)abel1、Label2、Label3和Label4，標(biāo)題分別為“操作數(shù)1”、“操作數(shù)2”、“運(yùn)算結(jié)果”和空白；再建立一個(gè)含有4個(gè)單選按紐的控件數(shù)組，名稱(chēng)為Option1，標(biāo)題分別為“+”、“-”、“*”和“/”。程序運(yùn)行后，在Text1、Text2中輸入兩個(gè)數(shù)值，選中一個(gè)單選按鈕后單擊命令按鈕，相應(yīng)的計(jì)算結(jié)果顯示在Label4，程序運(yùn)行情況如圖所示。請(qǐng)?jiān)?[3] 、 [4] 和 [5] 處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。

　　Private Sub Command1_Click()

　　For i=0 To 3

　　If [3] =True then

　　opt=Option1(i).Caption

　　End If

　　Select Case [4]

　　Case”+”

　　Result=Val(Text1.Text)+Val(Text2.Text)

　　Case”-”

　　Result=Val(Text1.Text)-Val(Text2.Text)

　　Case”*”

　　Result=Val(Text.Text)*Val(Text2.Text)

　　Case”/”

　　Result=Val(Text1.Text)/Val(Text2.Text)

　　End Select

　　[5] =Result

　　End Sub

　　(3) 在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕和一個(gè)名稱(chēng)為T(mén)ext1的文本框。程序運(yùn)行后，Command1為禁用(灰色) 。當(dāng)向文框中輸入任何字符時(shí)，命令按鈕Command1變?yōu)榭捎�。�?qǐng)?jiān)?[6] 處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。

　　Private Sub Form_Load()

　　Command1.Enabled=False

　　End Sub

　　Private Sub Text1_ [6] ()

　　Command1.Enabled=True

　　End Sub

　　(4) 在菜單編輯器中建立了一個(gè)菜單，名為pmenu，用下面的語(yǔ)句可以把它作為彈出式菜單彈出，請(qǐng)?zhí)羁铡?/p>

　　Form1. [7] Pmenu

　　(5) 以下程序的功能是：從鍵盤(pán)上輸入若干個(gè)學(xué)生的考試分?jǐn)?shù)，當(dāng)輸入負(fù)數(shù)時(shí)結(jié)束輸入，然后輸出其中的最高分?jǐn)?shù)和最低分?jǐn)?shù)。請(qǐng)?jiān)?[8] 和 [9] 處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。

　　Private Sub Form_Click()

　　Dim x As Single,amax As Single,amin As Single

　　x=InputBox(“Enter a score”)

　　amax=x

　　amin=x

　　Do While [8]

　　If x>amax Then

　　Amax=x

　　End If

　　If [9]Then

　　Amin=x

　　End If

　　x=InputBox(“Enter a score”)

　　Loop

　　Print”Max=”;amax,”Min=”;amin

　　End Sub

　　(6) 在窗體上畫(huà)一個(gè)文本框和一個(gè)圖片框，然后編寫(xiě)如下兩個(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)容是 [10] ，而在圖片框中顯示的內(nèi)容是 [11] 。

　　(7) 在窗體上畫(huà)一個(gè)命令按鈕，其名稱(chēng)為Command1，然后編寫(xiě)如下程序：

　　Function M(x As Integer,y As Integer)As Integer

　　M=IIf(x>y,x,y)

　　End Function

　　Private Sub command1_Click()

　　Dim a As Integer,b As Integer

　　a=100

　　b=200

　　Print M(a,b)

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為 [12] 。

　　(8) 為了改變計(jì)時(shí)器控件的時(shí)間間隔，應(yīng)該修改該控件的 [13] 屬性。

　　(9) 在窗體上畫(huà)一個(gè)名稱(chēng)為L(zhǎng)able1的標(biāo)簽和一個(gè)名稱(chēng)為L(zhǎng)ist1的列表框。程序運(yùn)行后，在列表框中添加若干列表項(xiàng)。當(dāng)雙擊列表框中的某個(gè)項(xiàng)目時(shí)，在標(biāo)簽Label1中顯示所選中的項(xiàng)目，如圖所示。請(qǐng)?jiān)?[14] 和 [15] 處填入適當(dāng)?shù)膬?nèi)容將程序補(bǔ)充完整。

　　Private Sub Form_load()

　　List1.AddItem”北京”

　　List1.AddItem”上�！�

　　List1.AddItem”湖北”

　　End Sub

　　Private Sub [14] ()

　　Label1.Caption= [15]

　　End Sub

　　答案：

　　一、選擇題：

　　1—10 C A C A D B B D D B

　　11—20 D D D C A B B B A D