一 、選擇題
(1) 數(shù)據(jù)結(jié)構(gòu)作為計算機的一門學(xué)科，主要研究數(shù)據(jù)的邏輯結(jié)構(gòu)、對各種數(shù)據(jù)結(jié)構(gòu)進(jìn)行的運算，以及
A．?dāng)?shù)據(jù)的存儲結(jié)構(gòu)
B．計算方法
C．?dāng)?shù)據(jù)映象
D．邏輯存儲
正確答案: A
(2) 串的長度是
A．串中不同字符的個數(shù)
B．串中不同字母的個數(shù)
C．串中所含字符的個數(shù)且字符個數(shù)大于零
D．串中所含字符的個數(shù)
正確答案: D
(3) 在計算機中，算法是指
A．加工方法
B．解題方案的準(zhǔn)確而完整的描述
C．排序方法
D．查詢方法
正確答案: B
(4) 以下不屬于對象的基本特點的是
A．分類性
B．多態(tài)性
C．繼承性
D．封裝性
正確答案: C
(5) 開發(fā)軟件所需高成本和產(chǎn)品的低質(zhì)量之間有著尖銳的矛盾，這種現(xiàn)象稱作
A．軟件投機
B．軟件危機
C．軟件工程
D．軟件產(chǎn)生
正確答案: B
(6) 下面不屬于軟件設(shè)計原則的是
A．抽象
B．模塊化
C．自底向上
D．信息隱蔽
正確答案: C
(7) 開發(fā)大型軟件時，產(chǎn)生困難的根本原因是
A．大系統(tǒng)的復(fù)雜性
B．人員知識不足
C．客觀世界千變?nèi)f化
D．時間緊、任務(wù)重
正確答案: A
(8) 下列SQL語句中，用于修改表結(jié)構(gòu)的是
A．ALTER
B．CREATE
C．UPDATE
D．INSERT
正確答案: A
(9) 數(shù)據(jù)庫、數(shù)據(jù)庫系統(tǒng)和數(shù)據(jù)庫管理系統(tǒng)之間的關(guān)系是
A．?dāng)?shù)據(jù)庫包括數(shù)據(jù)庫系統(tǒng)和數(shù)據(jù)庫管理系統(tǒng)
B．?dāng)?shù)據(jù)庫系統(tǒng)包括數(shù)據(jù)庫和數(shù)據(jù)庫管理系統(tǒng)
C．?dāng)?shù)據(jù)庫管理系統(tǒng)包括數(shù)據(jù)庫和數(shù)據(jù)庫系統(tǒng)
D．3者沒有明顯的包含關(guān)系
正確答案: B
(10) 關(guān)系模型允許定義3類數(shù)據(jù)約束，下列不屬于數(shù)據(jù)約束的是
A．實體完整性約束
B．參照完整性約束
C．域完整性約束
D．用戶自定義的完整性約束
正確答案: C
(11) 下列說法錯誤的是
A．標(biāo)準(zhǔn)模塊也稱程序模塊文件，擴展名是.bas
B．標(biāo)準(zhǔn)模塊由程序代碼組成
C．標(biāo)準(zhǔn)模塊只用來定義一些通用的過程
D．標(biāo)準(zhǔn)模塊不附屬于任何一個窗體
正確答案: C
(12) 在設(shè)計階段，當(dāng)雙擊窗體上的某個控件時，打開的窗口是
A．工程資源管理器窗口
B．工具箱窗口
C．代碼窗口
D．布局窗口
正確答案: C
(13) 下列說法錯誤的是
A．Caption為只讀屬性，運行時對象的名稱不能改變
B．設(shè)置Height或Width的數(shù)值單位為twip，是1點的1/20
C．Icon屬性用來設(shè)置窗體最小化時的圖標(biāo)
D．用來激活屬性窗口的快捷鍵是F4鍵
正確答案: A
(14) 下列說法不正確的是
A．對象的操作由對象的屬性、事件和方法來描述
B．Visual Basic是面向?qū)ο蟮某绦蛟O(shè)計，Visual Basic中只有窗體和控件兩種對象
C．屬性是對象的特征，不同的對象有不同的屬性
D．對象事件在代碼窗口中體現(xiàn)過程
正確答案: B
(15) 要使文件列表框中的文件隨目錄列表框中所選擇的當(dāng)前目錄的不同而發(fā)生變化，應(yīng)該
A．在File1中的Change事件中，輸入File1.Path＝Dir1.Path
B．在Dir1中的Change事件中，輸入File1.Path＝Dir1.Path
C．在File1中的Change事件中，輸入Dir1.Path＝File1.Path
D．在Dir1中的Change事件中，輸入Dir1.Path＝File1.Path
正確答案: B
(16) 下列日期型數(shù)據(jù)正確的是
A．@January 10,1979@
B．#January 10,1997#
C．"January 10,1997"
D．&January 10,1997&
正確答案: B
(17) 下面說法不正確的是
A．變量名的長度不能超過255個字符
B．變量名可以包含小數(shù)點或者內(nèi)嵌的類型聲明字符
C．變量名不能使用關(guān)鍵字
D．變量名的第一個字符必須是字母
正確答案: B
(18) 變量L的值為－8，則－L^2的值為
A．64
B．－64
C．16
D．－16
正確答案: B
(19) 下列程序段的執(zhí)行結(jié)果為
X=2
Y=5
If X * Y < 1 Then Y=Y - 1 Else Y=-1
Print Y - X > 0
A．True
B．False
C．-1
D．1
正確答案: B
(20) 在計時器控件中，Interval屬性的作用是
A．決定是否響應(yīng)用戶的操作
B．設(shè)置計時器事件之間的間隔
C．存儲程序所需要的附加數(shù)據(jù)
D．設(shè)置計時器頂端和其容器之間的距離
正確答案: B
(21) 使用語句Dim A(2) As Integer 聲明數(shù)組A之后，以下說法正確的是
A．A數(shù)組中的所有元素都為0
B．A數(shù)組中的所有元素值不確定
C．A數(shù)組中所有元素值都為Empty
D．執(zhí)行Erase A后，A數(shù)組中所有元素值都不為0
正確答案: A
(22) 有如下事件過程，當(dāng)同時按下轉(zhuǎn)換鍵Shift和功能鍵F5時其最后輸出的信息是
Const ShiftKey=1
Const CtrlKey=2
Const Key_F5=&H74
Const Key_F6=&H75
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode=Key_F5 And Shift=ShiftKey Then
Print "Press Shift+F5"
ElseIf KeyCode=Key_F6 And Shift=CtrlKey Then
Print "Press Ctrl+F6"
End If
End Sub
A．無任何信息
B．Press Shift+F5
C．Press Ctrl+F6
D．程序出錯
正確答案: B
(23) 執(zhí)行下列程序后，鼠標(biāo)單擊窗體，輸出結(jié)果為 。
Private Sub Form_Click()
Print "Click";
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift _
As Integer, X As Single, Y As Single)
Print "Donw"
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift _
As Integer, X As Single, Y As Single)
Print " Up"
End Sub
A．DownUpClick
B．ClickDownUp
C．DownClickUp
D．UpDownClick
正確答案: A
(24) 以下事件過程可以將打開的對話框的標(biāo)題改為"新時代"的是
A．Private Sub Command2_Click()
CommonDialog1.DialogTitle= "新時代"
CommonDialog1.ShowOpen
End Sub
B．Private Sub Command2_Click()
CommonDialog1.DialogTitle= "新時代"
CommonDialog1.ShowFont
End Sub
C．Private Sub Command2_Click()
CommonDialog1.DialogTitle= "新時代"
CommonDialog1.Show
End Sub
D．Private Sub Command2_Click()
CommonDialog1.DialogTitle= "新時代"
CommonDialog1.ShowColor
End Sub
正確答案: A
(25) 如果要設(shè)計一個多窗體程序時，要設(shè)計一個封面窗體(名稱(Name) 為FormCover，標(biāo)題(Caption 為"多媒體演示") ，其內(nèi)部的各控件及其屬性見下表。
控件 名稱(Name) 標(biāo)題(Caption)
圖片框 Pic1
命令按鈕1 Command1 "演示"
命令按鈕2 Command2 "結(jié)束"
則設(shè)計出的窗體可能是
A．B．
C．D．
正確答案: A
(26) 下列語句中，不能實現(xiàn)循環(huán)100次的是
A．N=0
Do
N=N+1
Loop Until N >=100
B．N=0
Do
N=N+1
Loop While n <100
C．N=0
N=N+1
Do
Loop Until N <100
D．N=0
Do While n <100
N=N+1
Loop
正確答案: C
(27) 單擊一次命令按鈕后，下列程序的執(zhí)行結(jié)果為
Private Sub Command1_Click()
Dim m As Integer, I As Integer, x(10) As Integer
For I=0 To 4: x(I) =I + 1: Next I
For I=1 To 2: Call Prioc(x) : Next I
For I=0 To 3: Print x(I) ;: Next I
End Sub
Private Sub Prioc(a() As Integer)
Static I As Integer
Do
a(I) =a(I) + a(I + 1)
I=I + 1
Loop While I < 2
End Sub
A．3 4 7 5
B．3 5 7 4
C．1 2 3 4
D．1 2 3 5
正確答案: B
(28) 下面程序段的運行結(jié)果是
a=1
b=1
Do
a=a + 1
b=b + 1
Loop Until b > 5
Print "k="; a; Spc(4) ; "b="; b + a
A．k＝7 b＝14
B．k＝6 b＝6
C．k＝4 b＝8
D．k＝6 b＝12
正確答案: D
(29) 以下能夠正確計算n!的程序是
A．Private Sub Command1_Click()
n=5: x=1
Do
x=x * I
I=I + 1
Loop While I < n
Print x
End Sub
B．Private Sub Command1_Click()
n=5: x=1: I=1
Do
x=x * I
I=I + 1
Loop While I < n
Print x
End Sub
C．Private Sub Command1_Click()
n=5: x=1: I=1
Do
x=x * I
I=I + 1
Loop While I <=n
Print x
End Sub
D．Private Sub Command1_Click()
n=5: x=1: I=1
Do
x=x * I
I=I + 1
Loop While I > n
Print x
End Sub
正確答案: C
(30) 下列程序段，在運行時最后輸出的內(nèi)容是
a=2
c=1
AAA:
c=c + a
If c < 10 Then
Print c
GoTo AAA
Else
Print "10以內(nèi)的奇數(shù)顯示完畢"
End If
A．3
B．7
C．9
D．10以內(nèi)的奇數(shù)顯示完畢
正確答案: D
(31) 單擊命令按鈕時，下列程序的執(zhí)行結(jié)果為
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a=2: b=3: c=4
Print P2(c, b, A．
End Sub
Private Function P1(x As Integer, y As Integer, z As Integer)
P1=2 * x + y + 3 * z
End Function
Private Function P2(x As Integer, y As Integer, z As Integer)
P2=P1(z, x, y) + x
End Function
A．21
B．19
C．17
D．34
正確答案: A
(32) 單擊命令按鈕時，下列程序的執(zhí)行結(jié)果是
Private Sub Book(x As Integer)
x=x * 2 + 1
If x < 6 Then
Call Book(x)
End If
x=x * 2 + 1
Print x;
End Sub
Private Sub Command2_Click()
Book 2
End Sub
A．23 47
B．10 36
C．22 44
D．24 50
正確答案: A
(33) 有如下程序：
Private Sub Command1_Click()
Dim k As Integer, m As Integer
Dim p As Integer
k=4: m=1
p=PC(k, m) : Print p;
p=PC(k, m) : Print p
End Sub
Private Function PC(a As Integer, b As Integer)
Static m As Integer, i As Integer
m=0: i=2
i=i + m + 1
m=i + a + b
PC=m
End Function
程序運行后，輸出的結(jié)果為
A．4 6
B．6 6
C．8 8
D．10 12
正確答案: C
(34) 有如下程序：
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=5: b=4
Call S(a, B．
End Sub
Sub S(x As Single, y As Single)
t=x
x=t ＼ y
y=t Mod y
End Sub
在調(diào)用運行上述程序后，a和b的值分別為
A．0 0
B．1 1
C．2 2
D．1 2
正確答案: B
(35) 在窗體上畫一個命令按鈕，然后編寫下列程序：
Private Sub Command12_Click()
Tt 3
End Sub
Sub Tt(a As Integer)
Static x As Integer
x=x * a + 1
Print x;
End Sub
連續(xù)三次單擊命令按鈕，輸出的結(jié)果是
A．1 5 8
B．1 4 13
C．3 7 4
D．2 4 8
正確答案: B
二 、填空題
(1) 長度為n的順序存儲線性表中，當(dāng)在任何位置上插入一個元素概率都相等時，插入一個元素所需移動元素的平均個數(shù)為 【1】 。
正確答案: 1.(n/2)
(2) 用樹結(jié)構(gòu)表示實體類型及實體間聯(lián)系的數(shù)據(jù)模型稱為 【2】 。
正確答案: 1.(層次模型)
(3) 類是一個支持集成的抽象數(shù)據(jù)類型，而對象是類的 【3】 。
正確答案: 1.(實例)
(4) 數(shù)據(jù)流圖的類型有 【4】 和事務(wù)型。
正確答案: 1.(變換型)
(5) 當(dāng)數(shù)據(jù)的物理結(jié)構(gòu)(存儲結(jié)構(gòu)、存取方式等) 改變時，不影響數(shù)據(jù)庫的邏輯結(jié)構(gòu)，從而不致引起應(yīng)用程序的變化，這是指數(shù)據(jù)的 【5】 。
正確答案: 1.(物理獨立性)
(6) 在修改列表框內(nèi)容時，RemoveItem方法的作用是 【6】 。
正確答案: 1.(用來刪除列表中指定的項目)
(7) 請?zhí)顚懴铝锌瞻?，以實現(xiàn)運行后形成一個主對角線上元素值為1，其他元素為0的6×6階矩陣。
Private Sub Command1_Click()
Dim s(6, 6)
For i=1 To 6
For j=1 To 6
If i=j Then
【7】
Else
【8】
End If
Print 【9】
Next j
Print
Next i
End Sub
正確答案: 1.(s(i, j) = 1) 2.(s(i, j) = 0) 3.(s(i, j))
(8) 以下過程的作用是將26個小寫字母逆序打印出來，請補充完整。
Sub Inverse()
For i=122 To 【10】
Print 【11】 ;
Next i
End Sub
正確答案: 1.(97 Step -1) 2.(Chr＄(i))
(9) 在窗體上加上一個文本控件PCSTextBox，畫一個命令按鈕，當(dāng)單擊命令按鈕的時候?qū)@示"打開文件"對話框，設(shè)置該對話框只用于打開文本文件，然后在文本控件中顯示打開的文件名。請?zhí)羁铡?BR> Private Sub Command1_Click()
CommonDialog1.Filter= 【12】
CommonDialog1.ShowOpen
PCSTextBox.Text= 【13】
End Sub
正確答案: 1.("Text Files(*.txt) |*.txt") 2.(CommonDialog1.FileName)
(10) 隨機文件使用Put語句寫數(shù)據(jù)，使用 【14】 語句讀數(shù)據(jù)。
正確答案: 1.(Get)
(11) 下列程序的功能是：將數(shù)據(jù)1，2，…，8寫入順序文件Num.txt中，請補充完整。
Private Sub Form_Click()
Dim i As Integer
Open "Num.txt"For Output As #1
For i=1 To 8
【15】
Next i
Close #1
End Sub
正確答案: 1.(Print #1, i)
(1) 數(shù)據(jù)結(jié)構(gòu)作為計算機的一門學(xué)科，主要研究數(shù)據(jù)的邏輯結(jié)構(gòu)、對各種數(shù)據(jù)結(jié)構(gòu)進(jìn)行的運算，以及
A．?dāng)?shù)據(jù)的存儲結(jié)構(gòu)
B．計算方法
C．?dāng)?shù)據(jù)映象
D．邏輯存儲
正確答案: A
(2) 串的長度是
A．串中不同字符的個數(shù)
B．串中不同字母的個數(shù)
C．串中所含字符的個數(shù)且字符個數(shù)大于零
D．串中所含字符的個數(shù)
正確答案: D
(3) 在計算機中，算法是指
A．加工方法
B．解題方案的準(zhǔn)確而完整的描述
C．排序方法
D．查詢方法
正確答案: B
(4) 以下不屬于對象的基本特點的是
A．分類性
B．多態(tài)性
C．繼承性
D．封裝性
正確答案: C
(5) 開發(fā)軟件所需高成本和產(chǎn)品的低質(zhì)量之間有著尖銳的矛盾，這種現(xiàn)象稱作
A．軟件投機
B．軟件危機
C．軟件工程
D．軟件產(chǎn)生
正確答案: B
(6) 下面不屬于軟件設(shè)計原則的是
A．抽象
B．模塊化
C．自底向上
D．信息隱蔽
正確答案: C
(7) 開發(fā)大型軟件時，產(chǎn)生困難的根本原因是
A．大系統(tǒng)的復(fù)雜性
B．人員知識不足
C．客觀世界千變?nèi)f化
D．時間緊、任務(wù)重
正確答案: A
(8) 下列SQL語句中，用于修改表結(jié)構(gòu)的是
A．ALTER
B．CREATE
C．UPDATE
D．INSERT
正確答案: A
(9) 數(shù)據(jù)庫、數(shù)據(jù)庫系統(tǒng)和數(shù)據(jù)庫管理系統(tǒng)之間的關(guān)系是
A．?dāng)?shù)據(jù)庫包括數(shù)據(jù)庫系統(tǒng)和數(shù)據(jù)庫管理系統(tǒng)
B．?dāng)?shù)據(jù)庫系統(tǒng)包括數(shù)據(jù)庫和數(shù)據(jù)庫管理系統(tǒng)
C．?dāng)?shù)據(jù)庫管理系統(tǒng)包括數(shù)據(jù)庫和數(shù)據(jù)庫系統(tǒng)
D．3者沒有明顯的包含關(guān)系
正確答案: B
(10) 關(guān)系模型允許定義3類數(shù)據(jù)約束，下列不屬于數(shù)據(jù)約束的是
A．實體完整性約束
B．參照完整性約束
C．域完整性約束
D．用戶自定義的完整性約束
正確答案: C
(11) 下列說法錯誤的是
A．標(biāo)準(zhǔn)模塊也稱程序模塊文件，擴展名是.bas
B．標(biāo)準(zhǔn)模塊由程序代碼組成
C．標(biāo)準(zhǔn)模塊只用來定義一些通用的過程
D．標(biāo)準(zhǔn)模塊不附屬于任何一個窗體
正確答案: C
(12) 在設(shè)計階段，當(dāng)雙擊窗體上的某個控件時，打開的窗口是
A．工程資源管理器窗口
B．工具箱窗口
C．代碼窗口
D．布局窗口
正確答案: C
(13) 下列說法錯誤的是
A．Caption為只讀屬性，運行時對象的名稱不能改變
B．設(shè)置Height或Width的數(shù)值單位為twip，是1點的1/20
C．Icon屬性用來設(shè)置窗體最小化時的圖標(biāo)
D．用來激活屬性窗口的快捷鍵是F4鍵
正確答案: A
(14) 下列說法不正確的是
A．對象的操作由對象的屬性、事件和方法來描述
B．Visual Basic是面向?qū)ο蟮某绦蛟O(shè)計，Visual Basic中只有窗體和控件兩種對象
C．屬性是對象的特征，不同的對象有不同的屬性
D．對象事件在代碼窗口中體現(xiàn)過程
正確答案: B
(15) 要使文件列表框中的文件隨目錄列表框中所選擇的當(dāng)前目錄的不同而發(fā)生變化，應(yīng)該
A．在File1中的Change事件中，輸入File1.Path＝Dir1.Path
B．在Dir1中的Change事件中，輸入File1.Path＝Dir1.Path
C．在File1中的Change事件中，輸入Dir1.Path＝File1.Path
D．在Dir1中的Change事件中，輸入Dir1.Path＝File1.Path
正確答案: B
(16) 下列日期型數(shù)據(jù)正確的是
A．@January 10,1979@
B．#January 10,1997#
C．"January 10,1997"
D．&January 10,1997&
正確答案: B
(17) 下面說法不正確的是
A．變量名的長度不能超過255個字符
B．變量名可以包含小數(shù)點或者內(nèi)嵌的類型聲明字符
C．變量名不能使用關(guān)鍵字
D．變量名的第一個字符必須是字母
正確答案: B
(18) 變量L的值為－8，則－L^2的值為
A．64
B．－64
C．16
D．－16
正確答案: B
(19) 下列程序段的執(zhí)行結(jié)果為
X=2
Y=5
If X * Y < 1 Then Y=Y - 1 Else Y=-1
Print Y - X > 0
A．True
B．False
C．-1
D．1
正確答案: B
(20) 在計時器控件中，Interval屬性的作用是
A．決定是否響應(yīng)用戶的操作
B．設(shè)置計時器事件之間的間隔
C．存儲程序所需要的附加數(shù)據(jù)
D．設(shè)置計時器頂端和其容器之間的距離
正確答案: B
(21) 使用語句Dim A(2) As Integer 聲明數(shù)組A之后，以下說法正確的是
A．A數(shù)組中的所有元素都為0
B．A數(shù)組中的所有元素值不確定
C．A數(shù)組中所有元素值都為Empty
D．執(zhí)行Erase A后，A數(shù)組中所有元素值都不為0
正確答案: A
(22) 有如下事件過程，當(dāng)同時按下轉(zhuǎn)換鍵Shift和功能鍵F5時其最后輸出的信息是
Const ShiftKey=1
Const CtrlKey=2
Const Key_F5=&H74
Const Key_F6=&H75
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode=Key_F5 And Shift=ShiftKey Then
Print "Press Shift+F5"
ElseIf KeyCode=Key_F6 And Shift=CtrlKey Then
Print "Press Ctrl+F6"
End If
End Sub
A．無任何信息
B．Press Shift+F5
C．Press Ctrl+F6
D．程序出錯
正確答案: B
(23) 執(zhí)行下列程序后，鼠標(biāo)單擊窗體，輸出結(jié)果為 。
Private Sub Form_Click()
Print "Click";
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift _
As Integer, X As Single, Y As Single)
Print "Donw"
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift _
As Integer, X As Single, Y As Single)
Print " Up"
End Sub
A．DownUpClick
B．ClickDownUp
C．DownClickUp
D．UpDownClick
正確答案: A
(24) 以下事件過程可以將打開的對話框的標(biāo)題改為"新時代"的是
A．Private Sub Command2_Click()
CommonDialog1.DialogTitle= "新時代"
CommonDialog1.ShowOpen
End Sub
B．Private Sub Command2_Click()
CommonDialog1.DialogTitle= "新時代"
CommonDialog1.ShowFont
End Sub
C．Private Sub Command2_Click()
CommonDialog1.DialogTitle= "新時代"
CommonDialog1.Show
End Sub
D．Private Sub Command2_Click()
CommonDialog1.DialogTitle= "新時代"
CommonDialog1.ShowColor
End Sub
正確答案: A
(25) 如果要設(shè)計一個多窗體程序時，要設(shè)計一個封面窗體(名稱(Name) 為FormCover，標(biāo)題(Caption 為"多媒體演示") ，其內(nèi)部的各控件及其屬性見下表。
控件 名稱(Name) 標(biāo)題(Caption)
圖片框 Pic1
命令按鈕1 Command1 "演示"
命令按鈕2 Command2 "結(jié)束"
則設(shè)計出的窗體可能是
A．B．
C．D．
正確答案: A
(26) 下列語句中，不能實現(xiàn)循環(huán)100次的是
A．N=0
Do
N=N+1
Loop Until N >=100
B．N=0
Do
N=N+1
Loop While n <100
C．N=0
N=N+1
Do
Loop Until N <100
D．N=0
Do While n <100
N=N+1
Loop
正確答案: C
(27) 單擊一次命令按鈕后，下列程序的執(zhí)行結(jié)果為
Private Sub Command1_Click()
Dim m As Integer, I As Integer, x(10) As Integer
For I=0 To 4: x(I) =I + 1: Next I
For I=1 To 2: Call Prioc(x) : Next I
For I=0 To 3: Print x(I) ;: Next I
End Sub
Private Sub Prioc(a() As Integer)
Static I As Integer
Do
a(I) =a(I) + a(I + 1)
I=I + 1
Loop While I < 2
End Sub
A．3 4 7 5
B．3 5 7 4
C．1 2 3 4
D．1 2 3 5
正確答案: B
(28) 下面程序段的運行結(jié)果是
a=1
b=1
Do
a=a + 1
b=b + 1
Loop Until b > 5
Print "k="; a; Spc(4) ; "b="; b + a
A．k＝7 b＝14
B．k＝6 b＝6
C．k＝4 b＝8
D．k＝6 b＝12
正確答案: D
(29) 以下能夠正確計算n!的程序是
A．Private Sub Command1_Click()
n=5: x=1
Do
x=x * I
I=I + 1
Loop While I < n
Print x
End Sub
B．Private Sub Command1_Click()
n=5: x=1: I=1
Do
x=x * I
I=I + 1
Loop While I < n
Print x
End Sub
C．Private Sub Command1_Click()
n=5: x=1: I=1
Do
x=x * I
I=I + 1
Loop While I <=n
Print x
End Sub
D．Private Sub Command1_Click()
n=5: x=1: I=1
Do
x=x * I
I=I + 1
Loop While I > n
Print x
End Sub
正確答案: C
(30) 下列程序段，在運行時最后輸出的內(nèi)容是
a=2
c=1
AAA:
c=c + a
If c < 10 Then
Print c
GoTo AAA
Else
Print "10以內(nèi)的奇數(shù)顯示完畢"
End If
A．3
B．7
C．9
D．10以內(nèi)的奇數(shù)顯示完畢
正確答案: D
(31) 單擊命令按鈕時，下列程序的執(zhí)行結(jié)果為
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a=2: b=3: c=4
Print P2(c, b, A．
End Sub
Private Function P1(x As Integer, y As Integer, z As Integer)
P1=2 * x + y + 3 * z
End Function
Private Function P2(x As Integer, y As Integer, z As Integer)
P2=P1(z, x, y) + x
End Function
A．21
B．19
C．17
D．34
正確答案: A
(32) 單擊命令按鈕時，下列程序的執(zhí)行結(jié)果是
Private Sub Book(x As Integer)
x=x * 2 + 1
If x < 6 Then
Call Book(x)
End If
x=x * 2 + 1
Print x;
End Sub
Private Sub Command2_Click()
Book 2
End Sub
A．23 47
B．10 36
C．22 44
D．24 50
正確答案: A
(33) 有如下程序：
Private Sub Command1_Click()
Dim k As Integer, m As Integer
Dim p As Integer
k=4: m=1
p=PC(k, m) : Print p;
p=PC(k, m) : Print p
End Sub
Private Function PC(a As Integer, b As Integer)
Static m As Integer, i As Integer
m=0: i=2
i=i + m + 1
m=i + a + b
PC=m
End Function
程序運行后，輸出的結(jié)果為
A．4 6
B．6 6
C．8 8
D．10 12
正確答案: C
(34) 有如下程序：
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=5: b=4
Call S(a, B．
End Sub
Sub S(x As Single, y As Single)
t=x
x=t ＼ y
y=t Mod y
End Sub
在調(diào)用運行上述程序后，a和b的值分別為
A．0 0
B．1 1
C．2 2
D．1 2
正確答案: B
(35) 在窗體上畫一個命令按鈕，然后編寫下列程序：
Private Sub Command12_Click()
Tt 3
End Sub
Sub Tt(a As Integer)
Static x As Integer
x=x * a + 1
Print x;
End Sub
連續(xù)三次單擊命令按鈕，輸出的結(jié)果是
A．1 5 8
B．1 4 13
C．3 7 4
D．2 4 8
正確答案: B
二 、填空題
(1) 長度為n的順序存儲線性表中，當(dāng)在任何位置上插入一個元素概率都相等時，插入一個元素所需移動元素的平均個數(shù)為 【1】 。
正確答案: 1.(n/2)
(2) 用樹結(jié)構(gòu)表示實體類型及實體間聯(lián)系的數(shù)據(jù)模型稱為 【2】 。
正確答案: 1.(層次模型)
(3) 類是一個支持集成的抽象數(shù)據(jù)類型，而對象是類的 【3】 。
正確答案: 1.(實例)
(4) 數(shù)據(jù)流圖的類型有 【4】 和事務(wù)型。
正確答案: 1.(變換型)
(5) 當(dāng)數(shù)據(jù)的物理結(jié)構(gòu)(存儲結(jié)構(gòu)、存取方式等) 改變時，不影響數(shù)據(jù)庫的邏輯結(jié)構(gòu)，從而不致引起應(yīng)用程序的變化，這是指數(shù)據(jù)的 【5】 。
正確答案: 1.(物理獨立性)
(6) 在修改列表框內(nèi)容時，RemoveItem方法的作用是 【6】 。
正確答案: 1.(用來刪除列表中指定的項目)
(7) 請?zhí)顚懴铝锌瞻?，以實現(xiàn)運行后形成一個主對角線上元素值為1，其他元素為0的6×6階矩陣。
Private Sub Command1_Click()
Dim s(6, 6)
For i=1 To 6
For j=1 To 6
If i=j Then
【7】
Else
【8】
End If
Print 【9】
Next j
Next i
End Sub
正確答案: 1.(s(i, j) = 1) 2.(s(i, j) = 0) 3.(s(i, j))
(8) 以下過程的作用是將26個小寫字母逆序打印出來，請補充完整。
Sub Inverse()
For i=122 To 【10】
Print 【11】 ;
Next i
End Sub
正確答案: 1.(97 Step -1) 2.(Chr＄(i))
(9) 在窗體上加上一個文本控件PCSTextBox，畫一個命令按鈕，當(dāng)單擊命令按鈕的時候?qū)@示"打開文件"對話框，設(shè)置該對話框只用于打開文本文件，然后在文本控件中顯示打開的文件名。請?zhí)羁铡?BR> Private Sub Command1_Click()
CommonDialog1.Filter= 【12】
CommonDialog1.ShowOpen
PCSTextBox.Text= 【13】
End Sub
正確答案: 1.("Text Files(*.txt) |*.txt") 2.(CommonDialog1.FileName)
(10) 隨機文件使用Put語句寫數(shù)據(jù)，使用 【14】 語句讀數(shù)據(jù)。
正確答案: 1.(Get)
(11) 下列程序的功能是：將數(shù)據(jù)1，2，…，8寫入順序文件Num.txt中，請補充完整。
Private Sub Form_Click()
Dim i As Integer
Open "Num.txt"For Output As #1
For i=1 To 8
【15】
Next i
Close #1
End Sub
正確答案: 1.(Print #1, i)