- 相關(guān)推薦
2006年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試真題
(1)下列選項(xiàng)中不符合良好程序設(shè)計(jì)風(fēng)格的是 ( ) 。
A.源程序要文檔化
B.數(shù)據(jù)說明的次序要規(guī)范化
C.避免濫用 goto 語(yǔ)句
D.模塊設(shè)計(jì)要保證高耦合、高內(nèi)聚
(2)從工程管理角度，軟件設(shè)計(jì)一般分為兩步完成，它們是 ( ) 。
A.概要設(shè)計(jì)與詳細(xì)設(shè)計(jì)
B.數(shù)據(jù)設(shè)計(jì)與接口設(shè)計(jì)
C.軟件結(jié)構(gòu)設(shè)計(jì)與數(shù)據(jù)設(shè)計(jì)
D.過程設(shè)計(jì)與數(shù)據(jù)設(shè)計(jì)
(3)下列選項(xiàng)中不屬于軟件生命周期開發(fā)階段任務(wù)的是 ( ) 。
A.軟件測(cè)試
B.概要設(shè)計(jì)
C.軟件維護(hù)
D.詳細(xì)設(shè)計(jì)
(4)在數(shù)據(jù)庫(kù)系統(tǒng)中，用戶所見的數(shù)據(jù)模式為 ( ) 。
A.概念模式
B.外模式
C.內(nèi)模式
D.物理模式
(5)數(shù)據(jù)庫(kù)設(shè)計(jì)的四個(gè)階段是：需求分析、概念設(shè)計(jì)、邏輯設(shè)計(jì)和 ( ) 。
A.編碼設(shè)計(jì)
B.測(cè)試階段
C.運(yùn)行階段
D.物理設(shè)計(jì)
(6)設(shè)有如下三個(gè)關(guān)系表：
下列操作中正確的是 ( ) 。
(7)下列敘述中正確的是 ( ) 。
A.一個(gè)算法的空間復(fù)雜度大，則其空間復(fù)雜度也必定大
B.一個(gè)算法的空間復(fù)雜度大，則其時(shí)間復(fù)雜度必定小
C.一個(gè)算法的時(shí)間復(fù)雜度大，則其空間復(fù)雜度必定小
D.上述三種說法都不對(duì)
(8)在長(zhǎng)度為 64 的有序線性表中進(jìn)行順序查找，最壞情況下需要比較的次數(shù)為 ( ) 。
A.63
B.64
C.6
D.7
(9)數(shù)據(jù)庫(kù)技術(shù)的根本目標(biāo)是要解決數(shù)據(jù)的 ( ) 。
A.存儲(chǔ)問題
B.共享問題
C.安全問題
D.保護(hù)問題
(10)對(duì)下列二叉樹：
進(jìn)行中序遍歷的結(jié)果是 ( ) 。
A.ACBDFEG
B.ACBDFGE
C.ABDCGEF
D.FCADBEG
(11)以下敘述中正確的是 ( ) 。
A.窗體的 Name 屬性指定窗體的名稱，用來標(biāo)識(shí)一個(gè)窗體
B.窗體的 Name 屬性值是顯示在窗體標(biāo)題欄中文本
C.可以在運(yùn)行期間改變窗體的 Name 屬性的值
D.窗體的 Name 屬性值可以為空
(12)以下敘述中錯(cuò)誤的是 ( ) 。
A.打開一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體文件
B.保存 Visual Basic 程序時(shí)，應(yīng)分別保存窗體文件及工程文件
C.Visual Basic 應(yīng)用程序只能以解釋方式執(zhí)行
D.窗體文件包含該窗體及其控件的屬性
(13)設(shè) a=2,b=3,c=4, 下列表達(dá)式的值是 ( ) 。
Not a <= c Or 4*c = b^2 And b <> a+c
A.-1
B.1
C.True
D.False
(14)沒有如下的用戶定義類型：
Type Student
number As String
name As String
A) ge AS Integer
End Type
則以下正確引用該類型成員的代碼是 ( ) 。
A.Student. name= “李明”
B.Dim s As Student
C.Dim s As Type Student
D.Dim s As Type
S.name= “李明” s.name= “李明”
(15)設(shè) a=5,b=6,c=7,d=8 ，執(zhí)行下列語(yǔ)句后， X 的值為 ( ) 。
X=IIf((a>b)And(c>d),10,20)
A.10
B.20
C.True
D.False
(16)執(zhí)行以下程序段后，變量 c$ 的值為 ( ) 。
A)$= “ Visual Bassic Programming ”
B)$= “ Quick ” e$=b$&U Case(Mid$(a$,7,6))&Right$(a$,12)
A.Visual Basic Programming
B.Quick Basic programming
C.Quick Basic Programming
D.Quick Basic Programming
(17) 在窗體上畫一個(gè)文本框(其名稱為 Textl)和一個(gè)標(biāo)簽(其名稱為 Labell)，程序運(yùn)行后，如果在文本框中輸入指定的信息，則立即在標(biāo)簽中顯示相同的內(nèi)容，以下可以實(shí)現(xiàn)上述操作的事件過程是 ( ) 。
A.Private Sub Textl_Click()
B.Private Sub Text1_Change()
Labell.Caption=Textl.Text Labell.Caption=Textl.Text End Sub End Sub
C.Private Sub Labell_Ctrange()
D.Private Sub Labell_Click()
Labell. Caption=Textl.Text Labell.Caption=Textl.Text
End Sub End Sub
(18)在窗體上面畫一個(gè)命令按鈕和一個(gè)標(biāo)簽，其名稱分別為 Commandl 和 Labell ，然后編寫如下事件過程：
Private Sub Commandl_Click()
Counter=0
For i=1 To 4
For j=6 To 1 Step -2
Counter=Counter+1
Nextj
Nexti
Labell.Caption=Str(Counter)
End Sub
程序運(yùn)行后，單擊命令按鈕，標(biāo)簽中顯示的內(nèi)容是
A.11
B.12
C.16
D.20
(19)在窗體上畫一個(gè)名稱為 Text1 的文本框和一個(gè)名稱為 Commandl 的命令按鈕，然后編寫如下事件過程：
Private Commandl_Click()
Dim i As Integer, n As Integer
For i=0 To 50
i = i+3
n = n+1
If i>10Then Exit For
Next
Textl.Text=Str(n)
End Sub
程序運(yùn)行后，單擊命命令按鈕，在文本框中顯示的值是 ( ) 。
A.5
B.4
C.3
D.2
(20)在窗體上畫一個(gè)命令按鈕和兩個(gè)標(biāo)簽，真名和分別為 Commandl 、 Labell 和 Labe12 ，然后編寫如下事件過程：
Private Sub Commandl_Chick.
A) =0
For i=1 To 10
a=a+1
b=0
Forj=1 To 10
a=a+1
b=b+2
Nextj
Next i
Labell. Caption=Str(a)
Labe12.Caption=Str(
B.
End Sub
程序運(yùn)行后，單擊命令按鈕，在標(biāo)簽 Labell 和 Labe12 中顯示的內(nèi)容分別為 ( ) 。
A.10 和 20
B.20 和 110
C.200 和 110
D.110 和 20
(21)在窗體上畫一個(gè)名稱為 Listl 的列表框，一個(gè)名稱為 Labell 的標(biāo)簽，列表框中顯示若干城市的名稱。當(dāng)單擊列表框中的某個(gè)城市名時(shí)，該城市名從列表框中消失，并在標(biāo)簽中顯示出來。下列能正確實(shí)現(xiàn)上述操作的程序是 ( ) 。
A.Privale Sub Listl_Click()
B.Private Sub Listl_Click()
Labell. Caption=Listl. ListIndex Labell.Name=Listl. ListIndex
Listl. Removeltem Listl.Text Listl.RemoveItem Listl.Text
End Sub End Sub
C.Private Sub Listl_Click()
D.Private Sub Listl_Click()
Labell. Caption=Listl.Text Labell. Name=Listl. Text
Listl. RemovItem Listl. ListIndex Listl. RemoveItem Listl. ListIndex
End Sub End Sub
(22) 在窗體上畫一個(gè)名稱為 Commandl 的命令按鈕，然后編寫如下程序：
Private Sub Commandl Click()
Dim i As Integer, j As Integer
Dim a (10,10)As Integer
For i=1 To 3
For j= i To 3
a(i,j)=(i-1)*3+j
Print a (i,j);
Next j
Next i
End Sub
程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是 ( ) 。
|
A． |
1 |
2 |
3 |
B． |
1 |
2 |
3 |
C． |
1 |
2 |
3 |
D． |
1 |
2 |
3 |
|||
| & |
2 |
4 |
6 |
3 |
4 |
5 |
2 |
5 |
8 |
4 |
5 |
6 |
||||||
|
3 |
6 |
9 |
4 |
5 |
6 |
3 |
6 |
9 |
7 |
8 |
9 |
(23) 在窗體上畫一個(gè)命令按鈕，名稱為 Command1, 然后編寫如下代碼：
Option Base 0
Private Sub Command1_Click()
D)im A (4)As Integer,B(4) As Integer
For k=0 To 2
A(k+1)=InputBox(“ 請(qǐng)輸入一個(gè)整數(shù) ”)
B(3-k)=A(k+1)
Next k
Print B(k)
End Sub
程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中分別輸入 2 、 4 、 6 ，輸入結(jié)果為 ( ) 。
A.0
B.2
C.3
D.4
(24)有以下程序：
Option Base 1
D)im arr() As Integer
Private Sub Form_Click()
D)im i As Integer,j As Integer
ReDim arr(3,2)
For i=1 To 3
For j=1 To 2
arr (i,j)=i*2+j
Next j
Next i
ReDim Preserve arr(1,4)
For j=3 To 4
A) rr(3,j)=j+9
Next j
Print arr(3,2);arr(3,4)
End Sub
程序運(yùn)行后，單擊窗體，輸出結(jié)果為 ( ) 。
A.8 13
B.0 13
C.7 12
D.0 0
(25)以下敘述中正確的是 ( ) 。
A.一個(gè) Sub 過程至少要一個(gè) Exit Sub 語(yǔ)句
B.一個(gè) Sub 過程必須有一個(gè) End Sub 語(yǔ)句
C.可以在 Sub 過程中定義一個(gè) Function 過程，但不能定義 Sub 過程
D.調(diào)用一個(gè) Function 過程可以獲得多個(gè)返回值
(26)有以下程序：
Sub subp(b()As Integer)
For i=1To4
B.(i)=2-i
Nexti
End Sub
Private Sub Command1_Click()
D.im a (1 To 4)As Integer
A) (1)=5
A) (2)=6
A) (3)=7
A) (4)=8
subpa()
For i=1 To4
Print a (i)
Next i
End Sub
運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為 ( ) 。
A.2 4 6 8
B.5 6 7 8
C.10 12 14 16
D .出錯(cuò)
(27)設(shè)有如下通用過程：
Public Function Fun(xStr As String)
D.im tStr As String, srtL As Integer tStr+””
strL=Len(xStr)
i=1
D.o While i<=strL/2
tStr=tStr &Mid(xStr,i ,1)& Mid (xStr ,strL-i+1,1)
i=i+1
Loop
Fun=tStr
End Function
在窗體上畫一個(gè)名稱為 Textl 的文本框和一個(gè)名稱為 Command1 的命令按鈕，然后編寫如下的事件過程：
Private Sub Command 1_ Click()
Dim S1 As String
S1=”abcdef”
Text1.Text=UCase(Fun(S1))
End Sub
程序運(yùn)行后，單擊命令按鈕，則 Text1 中顯示的是 ( ) 。
A.ABCDEF
B.abcdef
C.AFBECD
D.DEFABC
(28)在窗體上畫一個(gè)名稱為 TxtA 的文本框，然后編寫如下的事件過程：
Private Sub TxtA_KeyPress(KeyAscii As Integer)
……
End Sub
假定焦點(diǎn)已經(jīng)位一地文本框中，則能夠觸發(fā) KeyPress 事件的操作是
A.單擊鼠標(biāo)
B.雙擊文本框
C.鼠標(biāo)滑過文本框
D.按下鍵盤上的某個(gè)鍵
(29)在窗體上畫一個(gè)命令按鈕和兩上文體，其名稱分別為 Command1 、 Text1 和 Text2 ，然后編寫如下程序：
D)im S1 As String, S2 As String
Private Sub Form_Load()
Text1. Text=””
Text2. Text=””
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
S2=s2 & Chr(KeyCode)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
S1=S1 & chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Text1.Text=S2
Text2.Text=S1
S1= “”
S2= “”
End Sub
程序運(yùn)行后，在 Text1 中輸入“ abc ”，然后單擊命令按鈕，在文本框 Text1 和 Text2 中顯示的內(nèi)容分別為 ( ) 。
A.abc 和 ABC
B .abc 和 abc
C.ABC 和 abc
D .ABC 和 ABC
(30)以下說法正確的是 ( ) 。
A.任何時(shí)候都可以通過執(zhí)行“工具”菜單中的“菜單編輯器”命令打開菜單編輯器
B.只有當(dāng)某個(gè)窗體為當(dāng)前活動(dòng)窗體時(shí)，才能打開菜單編輯器
C.任何時(shí)候都可以通過單擊標(biāo)準(zhǔn)工具欄上的“菜單編輯器”按鈕打開菜單編輯器
D.只有當(dāng)代碼窗品為當(dāng)前活動(dòng)窗口時(shí)，才能找開菜單編輯器
(31)在窗體上畫一個(gè)通用對(duì)話框，其名稱為 CommonDialog1 ，然后畫一個(gè)命令按鈕，并編寫如下事件過程：
Private Sub Command1_Click()
CommonDialog1. Filter=”All Files(*.*)|*.*Text Files”&_
“(*.txt)|*.txt| Executable Files(*.exe)|*.exe”
CommonDialog1. Filterindex=3
CommonDialog1. Show Open
MsgBox CommonDialog1. FileName
End Sub
程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)“打開”對(duì)話框，此時(shí)在“文件類型”框中顯示的是 ( ) 。
A.All Files(*.*)
B.Text files(*.txt)
C.Executable Files(*.ext)
D.不確定
(32)以下敘述錯(cuò)誤的是
A.一個(gè)工程中可以包含多個(gè)窗體文件
B.在一個(gè)窗體文件中用 Public 定義的通用過程不能被其他窗體調(diào)用
C.窗體和標(biāo)準(zhǔn)模塊需要分別保存為不同類型的磁盤文件
D.?用 Dim 定義的窗體層變量只能在該窗體中使用
33 ?以下敘述中錯(cuò)誤的是()
A.語(yǔ)句“ Dim a, b As Integer ”聲明了兩個(gè)整型變量
B.不能在標(biāo)準(zhǔn)模塊中定義 Static 型變量
C.窗體層變量必須先聲明，后使用
D.在事件過程或通用過程內(nèi)定義的變量是局部變量
34 ?設(shè)有語(yǔ)句： Open "d: \ Text.txt" For OutputAs#1 ，以下敘述中錯(cuò)誤的是()
A.若 d 盤根目錄下無 Text.txt 文件，則該語(yǔ)句創(chuàng)建此文件
B.用該語(yǔ)句建立的文件的文件號(hào)為 1
C.該語(yǔ)句打開 d 盤根目錄下一個(gè)已存在的文件 Text.txt ，之后就可以從文件中讀取信息
D.執(zhí)行該語(yǔ)句后，就可以通過 Print# 語(yǔ)句向文件 Text.txt 中寫入信息
35 ?以下敘述中錯(cuò)誤的是()
A. 順序文件中的數(shù)據(jù)只能按順序讀寫
B.對(duì)同一個(gè)文件，可以用不同的方式和不同的文件號(hào)打開
C.執(zhí)行Close 語(yǔ)句，可將文件緩沖區(qū)中的數(shù)據(jù)寫到文件中
D.隨機(jī)文件中各記錄的長(zhǎng)度是隨機(jī)的
二、填空題(每空 2 分，共 30 分)
請(qǐng)將每空的正確答案寫在答題卡【 1 】 ~ 【 15 】序號(hào)的橫線上，答在試卷上不得分。
1 ?下列軟件系統(tǒng)結(jié)構(gòu)圖的寬度為【 1 】。
2 ?【 2 】的任務(wù)是診斷和改正程序中的錯(cuò)誤。
3 ?一個(gè)關(guān)系表的行稱為【 3 】。
4 ?按“先進(jìn)后出”原則組織數(shù)據(jù)的數(shù)據(jù)結(jié)構(gòu)是【 4 】。
5 ?數(shù)據(jù)結(jié)構(gòu)分為線性結(jié)構(gòu)和非線性結(jié)構(gòu)，帶鏈的隊(duì)列屬于【 5 】。
6 ?描述 "X 是小于 100 的非負(fù)整數(shù) " 的 Visual Basic 表達(dá)式是【 6 】。
7 ?在窗體上有一個(gè)名稱為 Command1 的命令按鈕和一個(gè)名稱為 Text1 的文本框。程序運(yùn)行后， Command1 為禁用(灰色)，此時(shí)如果在文本框中輸入字符，則命令按鈕 Command1 變?yōu)榭捎�。�?qǐng)?zhí)羁铡?/p>
Private Sub Form_Load()
C) Ommand1 ? Enabled=False
End Sub
Private Sub Text1_ 【 7 】 ()
C) ommand1 ? Enabled=True
End Sub
8 ?在窗體上畫一個(gè)名稱為 "Command1" 的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
D) Im a As String
A) ="123456789"
For i=1 To 5
Print Space(6-i);Mid $ (a, 【 8 】 ,2*i-1)
Next i
End Sub
程序運(yùn)行后，單擊命令按鈕，窗體上的輸出結(jié)果是
5
456
34567
2345678
123456789
請(qǐng)?zhí)羁铡?/p>
9 ?以下程序的功能是：將一維組 A 中的 100 個(gè)元素分別賦給二維數(shù)組 B 的每個(gè)元素并打印出來，要求把 A ( 1 )到 A ( 10 )依次賦給 B ( 1 ， 1 )到 B ( 1 ， 10 )，把 A ( 11 )到 A ( 20 )依次賦給 B ( 2 ， 1 )到 B ( 2 ， 10 )，……，把 A ( 91 )到 A ( 100 )依次賦給 B ( 10 ， 1 )到 B ( 10 ， 10 )。請(qǐng)?zhí)羁铡?/p>
Option Base 1
Private Sub Form_Click()
D) im i As Integer,j As Integer
D) im A(1 To 100) As Integer
D) im B(1 To 10,1 To 10) As Integer
For i=1 To 100
A) (i)=Int(Rnd * 100)
Next i
For i=1 To 【 9 】
For j=1 To 【 10 】
B) (i,j)= 【 11 】
Print B(i,j);
Next j
Next i
End Sub
10 ?在窗體上畫一個(gè)名稱為 Combo1 的組合框，然后畫兩個(gè)名稱分別為 Label1 、 Label2 ，標(biāo)題分別為 " 城市名稱 " 和空白的標(biāo)簽。程序運(yùn)行后，在組合框中輸入一個(gè)新項(xiàng)目并按回車鍵，如果輸入的項(xiàng)目在組合框的列表中不存在，則自動(dòng)將其添加到組合框的列表中，并在 Label2 中給出提示 " 已成功添加新輸入頁(yè)。 " ，如圖所示。如果輸入的項(xiàng)目已存在，則在 Label2 中給出提示 " 輸入項(xiàng)已在組合框中。 " 。請(qǐng)?zhí)羁铡?/p>
Private Sub Combol_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
For i=0 To Combo1 ? ListCount-1
If Combo1 ? Text= 【 12 】 Then
Label2 ? Caption=" 輸入項(xiàng)已在組合框中。 "
Exit Sub
End If
Next i
Label2 ? Caption=" 已成功添加新輸入項(xiàng)。 "
C) ombo1 ?【 13 】 Combo1 ? Text
End If
End Sub
11 ?在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，其名稱分別為 Command1 和 Text1 ，然后編寫如下事件過程：
Private Sub Command1_Click()
D) im inData As String
Text1 ? Text=" "
OPen "d:|| ML ) ||Myfile ? txt" for 【 14 】 As #1
D) o While 【 15 】
Input # 1,inData
Text1 ? Text=Text1 ? Text+inData
Loop
C) lose #1
End Sub
程序的功能是，打開 D 盤根目錄下的文本文件 myfile ? txt, 讀取它的全部?jī)?nèi)容并顯示在文本框中。請(qǐng)?zhí)羁?/p>
【9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試真題】相關(guān)文章：
3月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試真題12-05
2006年上半年全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試真題10-02
全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試真題參考答案（完整版）11-26
全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VFP筆試真題及答案11-26
全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)C++筆試真題10-11
全國(guó)計(jì)算機(jī)二級(jí)VB考試真題12-05
計(jì)算機(jī)等級(jí)考試二級(jí)ACCESS筆試真題10-06