最新国产AV资源网,思思久热精品视频

相關(guān)推薦

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

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

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

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

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

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

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

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

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

　　A) 窗體的Name屬性指定窗體的名稱，用來標(biāo)識一個(gè)窗體

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

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

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

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

　　A) 單選按鈕 B) 圖片框 C) 通用對話框 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) 在窗體上畫一個(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

　　程序運(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è)有語句

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

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

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

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

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

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

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

　　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è)文本框控件，名稱為TxtTime：一個(gè)計(jì)時(shí)器控件，名稱為Timerl，要求每一秒鐘在文本框中顯示一次當(dāng)前的時(shí)間。程序?yàn)椋?/p>

　　Private Sub Timer1_ ()

　　TxtTime.text=Time

　　End Sub

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

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

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

　　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事件過程，需要把該命令按鈕的一個(gè)屬性設(shè)置為True，這個(gè)屬性是

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

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

　　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) 在窗體上畫兩個(gè)名稱分別為Text1、Texte2的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：

　　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) 在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：

　　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) 在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：

　　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) 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：

　　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事件過程中定義的變量是全局變量

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

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

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

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

　　A) Private Sub Command1_Click()

　　x=InputBox(“請輸入整數(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(“請輸入整數(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(“請輸入整數(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(“請輸入整數(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) 在窗體上畫一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為Text1的文本框，然后編寫如下程序：

　　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) 沒有顯示

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

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

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

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

　　D) 事件過程可以像通用過程一樣由用戶定義過程名

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

　　Type Books

　　Name As String *10

　　TelNum As String *20

　　End Type

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

　　A) Private Sub Command1_Click()

　　Dim B As Books

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

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

　　B.TelNum=InputBox(“輸入電話號碼”)

　　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(“輸入電話號碼”)

　　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(“輸入電話號碼”)

　　Write #1,B

　　Close #1

　　End Sub

　　D) Private Sub Command1_Click()

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

　　Name=InputBox(“輸入姓名”)

　　TelNum=InputBox(“輸入電話號碼”)

　　Print #1,Name,TelNum

　　Close #1

　　End Sub

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

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

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

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

　　D) 使用Input #語句可以從隨機(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分）

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

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

　　Private Sub HScroll1_ [1] ()

　　Labl2.Caption=HScroll1. [2]

　　End Sub

　　(2) 在窗體上畫一個(gè)名稱為Command1、標(biāo)題為“計(jì)算”的命令按鈕；畫兩個(gè)文本框，名稱分別為Text1和Text2；然后畫4個(gè)標(biāo)簽，名稱分別為Label1、Label2、Label3和Label4，標(biāo)題分別為“操作數(shù)1”、“操作數(shù)2”、“運(yùn)算結(jié)果”和空白；再建立一個(gè)含有4個(gè)單選按紐的控件數(shù)組，名稱為Option1，標(biāo)題分別為“+”、“-”、“*”和“/”。程序運(yùn)行后，在Text1、Text2中輸入兩個(gè)數(shù)值，選中一個(gè)單選按鈕后單擊命令按鈕，相應(yīng)的計(jì)算結(jié)果顯示在Label4，程序運(yùn)行情況如圖所示。請?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) 在窗體上畫一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為Text1的文本框。程序運(yùn)行后，Command1為禁用(灰色) 。當(dāng)向文框中輸入任何字符時(shí)，命令按鈕Command1變?yōu)榭捎谩Ｕ堅(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，用下面的語句可以把它作為彈出式菜單彈出，請?zhí)羁铡?/p>

　　Form1. [7] Pmenu

　　(5) 以下程序的功能是：從鍵盤上輸入若干個(gè)學(xué)生的考試分?jǐn)?shù)，當(dāng)輸入負(fù)數(shù)時(shí)結(jié)束輸入，然后輸出其中的最高分?jǐn)?shù)和最低分?jǐn)?shù)。請?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) 在窗體上畫一個(gè)文本框和一個(gè)圖片框，然后編寫如下兩個(gè)事件過程：

　　Private Sub Form_Load()

　　Text1.Text=”計(jì)算機(jī)”

　　End Sub

　　Private Sub Text1_Change()

　　Picture1.Print“等級考試”

　　End Sub

　　程序運(yùn)行后，在文本框中顯示的內(nèi)容是 [10] ，而在圖片框中顯示的內(nèi)容是 [11] 。

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

　　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) 在窗體上畫一個(gè)名稱為Lable1的標(biāo)簽和一個(gè)名稱為List1的列表框。程序運(yùn)行后，在列表框中添加若干列表項(xiàng)。當(dāng)雙擊列表框中的某個(gè)項(xiàng)目時(shí)，在標(biāo)簽Label1中顯示所選中的項(xià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