一、選擇題
1、任何控件都有的屬性是( )。
A.BackColor
B.Caption
C.Name
D.BorderStyle
2、設(shè)計(jì)數(shù)據(jù)庫的存儲(chǔ)結(jié)構(gòu)屬于( )
A.需求分析
B.概念設(shè)計(jì)
C.邏輯設(shè)計(jì)
D.物理設(shè)計(jì)
3、某人創(chuàng)建了1個(gè)工程，其中的窗體名稱為Form1;之后又添加了1個(gè)名為Form2的窗體，并希望程序執(zhí)行時(shí)先顯示Form2窗體，那么，他需要做的工作是( )。
A.在工程屬性對(duì)話框中把"啟動(dòng)對(duì)象"設(shè)置為Form2
B.在Forml 的Load 事件過程中加入語句Load Form2
C.在Form2的Load 事件過程中加入語句Form2.Show
D.把Form2的TabIndex 屬性設(shè)置為l ，把Form1的TabIndex 屬性設(shè)置為2
4、設(shè)有如下通用過程：
Public Function Fun(xStr As Stri ng)As Stri ng
Di mt Str As Stri ng ，strLAs Integer
tStF=""
strL=Len(xStr)
i =1 Do While i <=strL/2
tStr =Tstr &Mid(xStr ，i ，1)&Mid(xStr ，strL-i+1，1)
i =i +l
Loop
Fun =tStr
End Function
在窗體上畫一個(gè)名稱為Co mmand1的命令按鈕。然后編寫如下的事件過程：
Private Sub Co mmandI_Click()
Di mS1As Stri ng
S1="abedef"
Pri m UCase(Fun(S1))
End Sub
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是( )。
A.ABCDEF
B.abcdef
C.AFBECD
D.DEFABC
5、下列關(guān)于棧的描述正確的是( )。
A.在棧中只能插入元素而不能刪除元素
B.在棧中只能刪除元素而不能插入元素
C.棧是特殊的線性表，只能在一端插入或刪除元素
D.棧是特殊的線性表，只能在一端插入元素，而在另一端刪除元素
6、下列程序段的運(yùn)行結(jié)果是( )。
Sub sele( )
Di mn As Integer
i =21：n =3
Do While i >n
i =i -n
Loop
Print i
End Sub
A.2
B.4
C.5
D.3
7、復(fù)選框的Value 屬性為0時(shí)，表示該復(fù)選框( )。
A.未被選中
B.被選中
C.框內(nèi)有灰色的勾
D.操作有誤
8、在窗體上有一個(gè)名稱為Check1的復(fù)選框數(shù)組(含4個(gè)復(fù)選框)，還有一個(gè)名稱為Text1的文本框，初始內(nèi)容為空。程序運(yùn)行時(shí)，單擊任何復(fù)選框，則把所有選中的復(fù)選框后面的方字羅列在文本框中(見圖)。下面能實(shí)現(xiàn)此功能的事件過程是( )。
A.Private Sub Check1_Click(Index As Integer)
Text1.Text =""
For k =0To 3
If Check1(k).value =1Then
Text1.Text =Text1.Text &Check1(k).Caption &""雙引號(hào)中是空格 End If Next k
End Sub
B.Private Sub Check1_Click(Index As Integer)
For k =0To 3
If Check1(k).Value =1Then
Text1.Text =Text1.Text &Check1(k).Caption &""雙引號(hào)中是空格
End If
Next k
End Sub
C.Private Sub Check1_Click(Index As Integer)
Text1.Text ="" For k =0To 3 If Check1(k).Value =1Then
Text1.Text =Text1.Text &Check1(Index).Caption &""雙引號(hào)中是空格
End If
Next k
End Sub
D.Private Sub Check1_Click(Index As Integer)
Text1.Text ="" For k =0To 3
If Check1(k).Value =1Then
Text1.Text =Text1.Text &Check1(k).Caption &""雙引號(hào)中是空格
Exit For
End If
Next k
End Sub
9、在窗體上添加一個(gè)命令按鈕，名為Co mmand1，其單擊事件中有下列程序段，則事件過程執(zhí)行后，文本框中輸出
( )。
For i =1To 4
For j=1To 3
x=3
For k =1To 2
x=x+3
Next k
Next j
Next i
Textl .Text =Str(x)
A.3
B.6
C.9
D.12
10、下列關(guān)于Sub 過程的敘述正確的是( )。
A.一個(gè)Sub 過程必須有一個(gè)Exit Sub 語句
B.一個(gè)Sub 過程必須有一個(gè)End Sub 語句
C.在Sub 過程中可以定義一個(gè)Function 過程
D.可以用Goto 語句退出Sub 過程
11、下列敘述中正確的是( )。
A.在窗體的Form_Load 事件過程中定義的變量是全局變量
B.局部變量的作用域可以超出所定義的過程
C.在某個(gè)Sub 過程中定義的局部變量可以與其他事件過程中定義的局部變量同名，但其作用域只限于該過程
D.在調(diào)用過程時(shí)，所有局部變量被系統(tǒng)初始化為0或空字符串
12、編寫如下兩個(gè)事件過程：
Private Sub Form_KeyDown (KeyCode As Integer，Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情況下(即不按住Shift 鍵也未鎖定大寫鍵時(shí))運(yùn)行程序，如果按鍵盤上的"A"鍵，則程序輸出的結(jié)果是( )。
A.A
a
B.a
A
C.A
A
D.a
a
13、在窗體上畫一個(gè)命令按鈕，名稱為Co mmand1，然后編寫下列代碼：
Option Base 0
Private Sub Co mmand1_Click()
Di m A1(4)As Integer ，A2(4)As Integer
For k =0To 2
A1(k +1)=InputBox("請(qǐng)輸入一個(gè)整數(shù)")
A2(3-k)=A1(k +1)
Next k Print A2(k)
End Sub
程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中依次輸入2、4、6，則輸出結(jié)果為( )。
A.0
B.1
C.2
D.3
14、下面語句正確的是( )。
A.If x<3*y And x>y Then y =x^3
B.If x<3*y And x>y Then y =3x
C.If x<3*y ：x>y Then y =x^3
D.If x<3*y And x>y Then y =x**3
15、下面程序的輸出結(jié)果是( )。
Private Sub Co mmand1_Click()
Ch$="ABCDEF"
proc ch ：Print ch
End Sub
Private Sub proc(ch As Stri ng)
s =""
For k =Len(ch)To 1Step -1
s =s &Mid(ch ，k ，1)
Next k
ch =s
End Sub
A.ABCDEF
B.FEDCBA
C.A
D.F
16、語句Di ma(-3To 4，3To 6)As Integer 定義的數(shù)組元素個(gè)數(shù)是( )。
A.18
B.28
C.21
D.32
17、以下敘述中錯(cuò)誤的是( )。
A.一個(gè)工程中只能有一個(gè)Sub Main 過程
B.窗體的Show 方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體
C.窗體的Hide 方法和Unload 方法的作用完全相同
D.若工程文件中有多個(gè)窗體，可以根據(jù)需要指定一個(gè)窗體為啟動(dòng)窗體
18、在窗體上先后畫2個(gè)圖片框，名稱分別為Picture1和banana，banana 中添加了香蕉圖片，如圖1所示，且將banana.Drag Mode 屬性設(shè)置為1。要求程序運(yùn)行時(shí)，可以用鼠標(biāo)把banana 拖拽到Picture1中，如圖2所示。能實(shí)現(xiàn)此功能的事件過程是( )。
A.Private Sub Form_DragDrop(Source As Control ，XAs Si ngle ，Y As Si ngle)
banana . Move Picture1 . Left +X，Picture1 . Top +Y
End Sub
B.Private Sub banana_DragDrop(Source As Control ，XAs Si ngle ，Y As Si ngle)
Source . Move Picture1 . Left +X，Picture 1 . Top +Y
End Sub
C.Private Sub Picture1_DragDrop(Source As Control ，X As Si ngle ，Y As Si ngle)
Source . Move Picture1 . Left +X，Picture1 . Top +Y
End Sub
D.Private Sub Picture1_DragDrop(Source As Control ，X As Si ngle ，Y As Si ngle)
banana . Move banana . Left +X，banana . Top +Y
End Sub
19、用Print 方法在Forml 窗體中顯示出4個(gè)#號(hào)的正確代碼為( )。
A.Debug .Print"####"
B.Print"####"
C.Forml-Print"####"
D.Forml .Print"####"
20、一個(gè)模塊內(nèi)部各個(gè)元素彼此結(jié)合的緊密程度的度量稱為( )
A.耦合性
B.內(nèi)聚性
C.復(fù)雜性
D.數(shù)據(jù)傳輸特性
21、函數(shù)值和余弦函數(shù)值，角度為1，2，3，…，90。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Type Ang
K As Integer
Si nx As Si ngle
Cosx As Si ngle
End Type
Private Sub Form_Click()
Di m Y As Si ngle
Di mi As Integer
Di m Ksc As Ang
Open ____________
Y =3.14159/180
For i =1To 90
Ksc .K =i
Ksc .Si nx=Si n(i*Y)
Ksc .Cosx=Cos(i +Y)
________
Next i
Close #2
Elld Stub
A."..\Datal .txt"For Rando mAs #1Len =10 Put #1，i ，Ksc
B."..\Datal .txt"For Rando m As #1Len =10 Put #1，Y ，Ksc
C."..\Datal .txt"For Rando m As #1 Put #1，i ，Ksc
D."..\Datal .txt"For Rando m As #1 Put #1，Y ，Ksc
22、下列程序運(yùn)行時(shí)輸出的結(jié)果是( )。
Option Base 1
Const a=10
Private Sub Form_Click0
Di mx(a)As Integer
k =-1
For i =1To a
x(i)=i*k
k =(-1)*k
Next i
For i =1To 10
Print x(i)
Next i
End Sub
A.1 3 5 7 9 10
B.-1-3-5-7-9
C.-1 2-3 4-5 6-7 8-9 10
D.1-2 3-4 5-6 7-8 9-10
23、某人為計(jì)算n!(O
Private Function fun(n As Integer)As Long
Di m P As Long
P=l
For k =n -1To 2Step -1
p =p*k
Next k
fun =p
End Function
在調(diào)試時(shí)發(fā)現(xiàn)該函數(shù)過程產(chǎn)生的結(jié)果是錯(cuò)誤的，程序需要修改。下面的修改方案中有3種是正確的，錯(cuò)誤的方案是( )。
A.把p =1改為p =11
B.把For k =n -1To 2Step -1改為For k =1To n -1
C.把For k =n -1To 2Step -1改為For k =1To n
D.把Fo rk --n -1To 2Step -1改為For k =2To n
24、要設(shè)置窗體為固定對(duì)話框，并包含控制菜單欄和標(biāo)題欄，但沒有大化和小化按鈕，設(shè)置的操作是( )。
A.設(shè)置BorderStyle 的值為Fi xed Tool Wi ndow
B.設(shè)置BorderStyle 的值為Sizable Tool Wi ndow
C.設(shè)置BorderStyle 的值為Fi xed Dialog
D.設(shè)置BorderStyle 的值為Sizable
25、設(shè)在窗體上有一個(gè)文本框，然后編寫如下的事件過程：
Private Sub Text1_KeyDown (KeyCode As Integer ，Shift As Integer)
Const Alt =4
Const Key_F2=&H71
altdown %=(Shift And Alt)>0
f2down %=(KeyCode =Key_F2)
If altdown %And f2down %Then
Text1.Text ="abl"
End If
End Sub
程序運(yùn)行后，清除文本框中原有內(nèi)容，如果按Shift +F2鍵，則在文本框中顯示的是( )。
A.Alt +F2
B.abl
C.隨機(jī)出幾個(gè)數(shù)
D.不發(fā)生變化
26、在窗體上畫兩個(gè)文本框(名稱分別為Text1和Text2)和一個(gè)命令按鈕(名稱為Co mmand1)，然后編寫下列事件過程：
Private Sub Co mmand1_Click()
x=0
DO While x<50
x=(x+2)*(x+3)
n =n +l
Loop
Text1.Text =Str(n)
Text2.Text =Str(x)
End Sub
程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為( )。
A.1和0
B.2和72
C.3和50
D.4和168
27、下列敘述中錯(cuò)誤的是( )。
A.軟件測(cè)試的目的是發(fā)現(xiàn)錯(cuò)誤并改正錯(cuò)誤
B.對(duì)被調(diào)試的程序進(jìn)行"錯(cuò)誤定位"是程序調(diào)試的必要步驟
C.程序調(diào)試通常也稱為Debug
D.軟件測(cè)試應(yīng)嚴(yán)格執(zhí)行測(cè)試計(jì)劃，排除測(cè)試的隨意性
28、一個(gè)工程必須包含的文件的類型是( )。
A.*.vbp*.frm*.frx
B.*.vbp*.cls*.bas
C.*.bas*.ocx*.res
D.*.frm*.cls*.bas
29、在文本框中輸入字符時(shí)，通過( )事件過程可以得到字符的ASCII 碼值。
A.Change
B.GotFocus
C.KeyPress
D.LostFocus
30、在下列關(guān)系運(yùn)算中，不改變關(guān)系表中的屬性個(gè)數(shù)但能減少元組個(gè)數(shù)的是( )。
A.并
B.交
C.投影
D.笛卡兒乘積
31、有兩個(gè)關(guān)系R ，S 如下：
由關(guān)系R 通過運(yùn)算得到關(guān)系S，則所使用的運(yùn)算為( )。
A.選擇
B.投影
C.插入
D.連接
32、一個(gè)棧的初始狀態(tài)為空。現(xiàn)將元素1、2、3、4、5、A、B、C、D、E依次入棧，然后再出棧，則元素出棧的順序是( )。
A.12345ABCDE
B.EDCBA54321
C.ABCDEl2345
D.54321EDCBA
33、在窗體上建立通用對(duì)話框需要添加的控件是( )。
A.Data 控件
B.Form 控件
C.Co mmonDialog 控件
D.VBComboBox 控件
34、在窗體上畫2個(gè)命令按鈕，名稱分別為Co mmand1、Co mmand2，然后編寫下列事件過程。
Const n =5，m=4
Di ma(m，n)
Private Sub Co mmand1_Click()
k =1
For i =1To m
For j=1To n
a(i ，j)=k
k =k +1
Next j
Next i
End Sub
Private Sub Co mmand2_Click()
summ=0
For i =1To m
For j=1To n
If i =1Or i =m Then
summ=summ+a(i ，j)
Else
If j=1Or j=n Then
summ=summ+a(i ，j)
End If
End If
Next j
Next i
Print summ
End Sub
過程Command1_Click()的作用是在二維數(shù)組a 中存放1個(gè)m 行n 列的矩陣;過程Command2_Click()的作用是( )。
A.計(jì)算矩陣外圍一圈元素的累加和
B.計(jì)算矩陣除外圍一圈以外的所有元素的累加和
C.計(jì)算矩陣第1列和后一列元素的累加和
D.計(jì)算矩陣第1行和后一行元素的累加和
35、下列關(guān)于復(fù)選框的說法，正確的是( )。
A.復(fù)選框的Enabled 屬性用于決定該復(fù)選框是否可見
B.復(fù)選框的Value 屬性用于決定該復(fù)選框是否被選中
C.復(fù)選框的Tabi ndex 屬性用于決定該復(fù)選框在控件數(shù)組中的序號(hào)
D.復(fù)選框的Visi ble 屬性用于決定該復(fù)選框是否可用
36、按照"后進(jìn)先出"原則組織數(shù)據(jù)的數(shù)據(jù)結(jié)構(gòu)是( )。
A.隊(duì)列
B.棧
C.雙向鏈表
D.二叉樹
37、當(dāng)一個(gè)復(fù)選框被選中時(shí)，它的Value 屬性的值是( )。
A.3
B.2
C.1
D.0
38、已知在4行3列的全局?jǐn)?shù)組score(4，3)中存放了4個(gè)學(xué)生3門課程的考試成績(jī)(均為整數(shù))?，F(xiàn)需要計(jì)算每個(gè)學(xué)生的總分，某人編寫程序如下：
Option Base 1
Private Sub Co mmand1_Click( )
Di msum As Integer
Sum=0
For i =1To 4
For j=1To 3
Sum=sum+score(i ，j)
Next j
Print "第"&i &"個(gè)學(xué)生的總分是：";sum Next i
End Sub
運(yùn)行此程序時(shí)發(fā)現(xiàn)，除第1個(gè)人的總分計(jì)算正確外，其他人的總分是錯(cuò)誤的。程序需要修改。以下修改方案中正確的是( )。
A.把外層循環(huán)語句For i =1TO 4改為For i =1To 3內(nèi)層循環(huán)語句For j=1TO 3改為For j=1TO 4
B.把sum=0移到For i =1TO 4和For j =1TO 3之間
C.把sum=sum+score(i ，j)改為sum=sum+score(j，i)
D.把sum=sum+score(i ，j)改為sum=score(i ，j)
39、設(shè)有數(shù)組定義語句：Di ma(5)As Integer ，List1為列表框控件。下列給數(shù)組元素賦值的語句錯(cuò)誤的是( )。
A.a(3)=3
B.a(3)=InputBox("i nput data")
C.a(3)=List1.ListIndex
D.a=Array(1，2，3，4，5，6)
40、下列( )標(biāo)識(shí)符不能作為Visual Basic 的變量名。
A.ABCabe
B.b1234
C.28wed
D.crud
1、任何控件都有的屬性是( )。
A.BackColor
B.Caption
C.Name
D.BorderStyle
2、設(shè)計(jì)數(shù)據(jù)庫的存儲(chǔ)結(jié)構(gòu)屬于( )
A.需求分析
B.概念設(shè)計(jì)
C.邏輯設(shè)計(jì)
D.物理設(shè)計(jì)
3、某人創(chuàng)建了1個(gè)工程，其中的窗體名稱為Form1;之后又添加了1個(gè)名為Form2的窗體，并希望程序執(zhí)行時(shí)先顯示Form2窗體，那么，他需要做的工作是( )。
A.在工程屬性對(duì)話框中把"啟動(dòng)對(duì)象"設(shè)置為Form2
B.在Forml 的Load 事件過程中加入語句Load Form2
C.在Form2的Load 事件過程中加入語句Form2.Show
D.把Form2的TabIndex 屬性設(shè)置為l ，把Form1的TabIndex 屬性設(shè)置為2
4、設(shè)有如下通用過程：
Public Function Fun(xStr As Stri ng)As Stri ng
Di mt Str As Stri ng ，strLAs Integer
tStF=""
strL=Len(xStr)
i =1 Do While i <=strL/2
tStr =Tstr &Mid(xStr ，i ，1)&Mid(xStr ，strL-i+1，1)
i =i +l
Loop
Fun =tStr
End Function
在窗體上畫一個(gè)名稱為Co mmand1的命令按鈕。然后編寫如下的事件過程：
Private Sub Co mmandI_Click()
Di mS1As Stri ng
S1="abedef"
Pri m UCase(Fun(S1))
End Sub
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是( )。
A.ABCDEF
B.abcdef
C.AFBECD
D.DEFABC
5、下列關(guān)于棧的描述正確的是( )。
A.在棧中只能插入元素而不能刪除元素
B.在棧中只能刪除元素而不能插入元素
C.棧是特殊的線性表，只能在一端插入或刪除元素
D.棧是特殊的線性表，只能在一端插入元素，而在另一端刪除元素
6、下列程序段的運(yùn)行結(jié)果是( )。
Sub sele( )
Di mn As Integer
i =21：n =3
Do While i >n
i =i -n
Loop
Print i
End Sub
A.2
B.4
C.5
D.3
7、復(fù)選框的Value 屬性為0時(shí)，表示該復(fù)選框( )。
A.未被選中
B.被選中
C.框內(nèi)有灰色的勾
D.操作有誤
8、在窗體上有一個(gè)名稱為Check1的復(fù)選框數(shù)組(含4個(gè)復(fù)選框)，還有一個(gè)名稱為Text1的文本框，初始內(nèi)容為空。程序運(yùn)行時(shí)，單擊任何復(fù)選框，則把所有選中的復(fù)選框后面的方字羅列在文本框中(見圖)。下面能實(shí)現(xiàn)此功能的事件過程是( )。
A.Private Sub Check1_Click(Index As Integer)
Text1.Text =""
For k =0To 3
If Check1(k).value =1Then
Text1.Text =Text1.Text &Check1(k).Caption &""雙引號(hào)中是空格 End If Next k
End Sub
B.Private Sub Check1_Click(Index As Integer)
For k =0To 3
If Check1(k).Value =1Then
Text1.Text =Text1.Text &Check1(k).Caption &""雙引號(hào)中是空格
End If
Next k
End Sub
C.Private Sub Check1_Click(Index As Integer)
Text1.Text ="" For k =0To 3 If Check1(k).Value =1Then
Text1.Text =Text1.Text &Check1(Index).Caption &""雙引號(hào)中是空格
End If
Next k
End Sub
D.Private Sub Check1_Click(Index As Integer)
Text1.Text ="" For k =0To 3
If Check1(k).Value =1Then
Text1.Text =Text1.Text &Check1(k).Caption &""雙引號(hào)中是空格
Exit For
End If
Next k
End Sub
9、在窗體上添加一個(gè)命令按鈕，名為Co mmand1，其單擊事件中有下列程序段，則事件過程執(zhí)行后，文本框中輸出
( )。
For i =1To 4
For j=1To 3
x=3
For k =1To 2
x=x+3
Next k
Next j
Next i
Textl .Text =Str(x)
A.3
B.6
C.9
D.12
10、下列關(guān)于Sub 過程的敘述正確的是( )。
A.一個(gè)Sub 過程必須有一個(gè)Exit Sub 語句
B.一個(gè)Sub 過程必須有一個(gè)End Sub 語句
C.在Sub 過程中可以定義一個(gè)Function 過程
D.可以用Goto 語句退出Sub 過程
11、下列敘述中正確的是( )。
A.在窗體的Form_Load 事件過程中定義的變量是全局變量
B.局部變量的作用域可以超出所定義的過程
C.在某個(gè)Sub 過程中定義的局部變量可以與其他事件過程中定義的局部變量同名，但其作用域只限于該過程
D.在調(diào)用過程時(shí)，所有局部變量被系統(tǒng)初始化為0或空字符串
12、編寫如下兩個(gè)事件過程：
Private Sub Form_KeyDown (KeyCode As Integer，Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情況下(即不按住Shift 鍵也未鎖定大寫鍵時(shí))運(yùn)行程序，如果按鍵盤上的"A"鍵，則程序輸出的結(jié)果是( )。
A.A
a
B.a
A
C.A
A
D.a
a
13、在窗體上畫一個(gè)命令按鈕，名稱為Co mmand1，然后編寫下列代碼：
Option Base 0
Private Sub Co mmand1_Click()
Di m A1(4)As Integer ，A2(4)As Integer
For k =0To 2
A1(k +1)=InputBox("請(qǐng)輸入一個(gè)整數(shù)")
A2(3-k)=A1(k +1)
Next k Print A2(k)
End Sub
程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中依次輸入2、4、6，則輸出結(jié)果為( )。
A.0
B.1
C.2
D.3
14、下面語句正確的是( )。
A.If x<3*y And x>y Then y =x^3
B.If x<3*y And x>y Then y =3x
C.If x<3*y ：x>y Then y =x^3
D.If x<3*y And x>y Then y =x**3
15、下面程序的輸出結(jié)果是( )。
Private Sub Co mmand1_Click()
Ch$="ABCDEF"
proc ch ：Print ch
End Sub
Private Sub proc(ch As Stri ng)
s =""
For k =Len(ch)To 1Step -1
s =s &Mid(ch ，k ，1)
Next k
ch =s
End Sub
A.ABCDEF
B.FEDCBA
C.A
D.F
16、語句Di ma(-3To 4，3To 6)As Integer 定義的數(shù)組元素個(gè)數(shù)是( )。
A.18
B.28
C.21
D.32
17、以下敘述中錯(cuò)誤的是( )。
A.一個(gè)工程中只能有一個(gè)Sub Main 過程
B.窗體的Show 方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體
C.窗體的Hide 方法和Unload 方法的作用完全相同
D.若工程文件中有多個(gè)窗體，可以根據(jù)需要指定一個(gè)窗體為啟動(dòng)窗體
18、在窗體上先后畫2個(gè)圖片框，名稱分別為Picture1和banana，banana 中添加了香蕉圖片，如圖1所示，且將banana.Drag Mode 屬性設(shè)置為1。要求程序運(yùn)行時(shí)，可以用鼠標(biāo)把banana 拖拽到Picture1中，如圖2所示。能實(shí)現(xiàn)此功能的事件過程是( )。
A.Private Sub Form_DragDrop(Source As Control ，XAs Si ngle ，Y As Si ngle)
banana . Move Picture1 . Left +X，Picture1 . Top +Y
End Sub
B.Private Sub banana_DragDrop(Source As Control ，XAs Si ngle ，Y As Si ngle)
Source . Move Picture1 . Left +X，Picture 1 . Top +Y
End Sub
C.Private Sub Picture1_DragDrop(Source As Control ，X As Si ngle ，Y As Si ngle)
Source . Move Picture1 . Left +X，Picture1 . Top +Y
End Sub
D.Private Sub Picture1_DragDrop(Source As Control ，X As Si ngle ，Y As Si ngle)
banana . Move banana . Left +X，banana . Top +Y
End Sub
19、用Print 方法在Forml 窗體中顯示出4個(gè)#號(hào)的正確代碼為( )。
A.Debug .Print"####"
B.Print"####"
C.Forml-Print"####"
D.Forml .Print"####"
20、一個(gè)模塊內(nèi)部各個(gè)元素彼此結(jié)合的緊密程度的度量稱為( )
A.耦合性
B.內(nèi)聚性
C.復(fù)雜性
D.數(shù)據(jù)傳輸特性
21、函數(shù)值和余弦函數(shù)值，角度為1，2，3，…，90。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Type Ang
K As Integer
Si nx As Si ngle
Cosx As Si ngle
End Type
Private Sub Form_Click()
Di m Y As Si ngle
Di mi As Integer
Di m Ksc As Ang
Open ____________
Y =3.14159/180
For i =1To 90
Ksc .K =i
Ksc .Si nx=Si n(i*Y)
Ksc .Cosx=Cos(i +Y)
________
Next i
Close #2
Elld Stub
A."..\Datal .txt"For Rando mAs #1Len =10 Put #1，i ，Ksc
B."..\Datal .txt"For Rando m As #1Len =10 Put #1，Y ，Ksc
C."..\Datal .txt"For Rando m As #1 Put #1，i ，Ksc
D."..\Datal .txt"For Rando m As #1 Put #1，Y ，Ksc
22、下列程序運(yùn)行時(shí)輸出的結(jié)果是( )。
Option Base 1
Const a=10
Private Sub Form_Click0
Di mx(a)As Integer
k =-1
For i =1To a
x(i)=i*k
k =(-1)*k
Next i
For i =1To 10
Print x(i)
Next i
End Sub
A.1 3 5 7 9 10
B.-1-3-5-7-9
C.-1 2-3 4-5 6-7 8-9 10
D.1-2 3-4 5-6 7-8 9-10
23、某人為計(jì)算n!(O
Private Function fun(n As Integer)As Long
Di m P As Long
P=l
For k =n -1To 2Step -1
p =p*k
Next k
fun =p
End Function
在調(diào)試時(shí)發(fā)現(xiàn)該函數(shù)過程產(chǎn)生的結(jié)果是錯(cuò)誤的，程序需要修改。下面的修改方案中有3種是正確的，錯(cuò)誤的方案是( )。
A.把p =1改為p =11
B.把For k =n -1To 2Step -1改為For k =1To n -1
C.把For k =n -1To 2Step -1改為For k =1To n
D.把Fo rk --n -1To 2Step -1改為For k =2To n
24、要設(shè)置窗體為固定對(duì)話框，并包含控制菜單欄和標(biāo)題欄，但沒有大化和小化按鈕，設(shè)置的操作是( )。
A.設(shè)置BorderStyle 的值為Fi xed Tool Wi ndow
B.設(shè)置BorderStyle 的值為Sizable Tool Wi ndow
C.設(shè)置BorderStyle 的值為Fi xed Dialog
D.設(shè)置BorderStyle 的值為Sizable
25、設(shè)在窗體上有一個(gè)文本框，然后編寫如下的事件過程：
Private Sub Text1_KeyDown (KeyCode As Integer ，Shift As Integer)
Const Alt =4
Const Key_F2=&H71
altdown %=(Shift And Alt)>0
f2down %=(KeyCode =Key_F2)
If altdown %And f2down %Then
Text1.Text ="abl"
End If
End Sub
程序運(yùn)行后，清除文本框中原有內(nèi)容，如果按Shift +F2鍵，則在文本框中顯示的是( )。
A.Alt +F2
B.abl
C.隨機(jī)出幾個(gè)數(shù)
D.不發(fā)生變化
26、在窗體上畫兩個(gè)文本框(名稱分別為Text1和Text2)和一個(gè)命令按鈕(名稱為Co mmand1)，然后編寫下列事件過程：
Private Sub Co mmand1_Click()
x=0
DO While x<50
x=(x+2)*(x+3)
n =n +l
Loop
Text1.Text =Str(n)
Text2.Text =Str(x)
End Sub
程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為( )。
A.1和0
B.2和72
C.3和50
D.4和168
27、下列敘述中錯(cuò)誤的是( )。
A.軟件測(cè)試的目的是發(fā)現(xiàn)錯(cuò)誤并改正錯(cuò)誤
B.對(duì)被調(diào)試的程序進(jìn)行"錯(cuò)誤定位"是程序調(diào)試的必要步驟
C.程序調(diào)試通常也稱為Debug
D.軟件測(cè)試應(yīng)嚴(yán)格執(zhí)行測(cè)試計(jì)劃，排除測(cè)試的隨意性
28、一個(gè)工程必須包含的文件的類型是( )。
A.*.vbp*.frm*.frx
B.*.vbp*.cls*.bas
C.*.bas*.ocx*.res
D.*.frm*.cls*.bas
29、在文本框中輸入字符時(shí)，通過( )事件過程可以得到字符的ASCII 碼值。
A.Change
B.GotFocus
C.KeyPress
D.LostFocus
30、在下列關(guān)系運(yùn)算中，不改變關(guān)系表中的屬性個(gè)數(shù)但能減少元組個(gè)數(shù)的是( )。
A.并
B.交
C.投影
D.笛卡兒乘積
31、有兩個(gè)關(guān)系R ，S 如下：
由關(guān)系R 通過運(yùn)算得到關(guān)系S，則所使用的運(yùn)算為( )。
A.選擇
B.投影
C.插入
D.連接
32、一個(gè)棧的初始狀態(tài)為空。現(xiàn)將元素1、2、3、4、5、A、B、C、D、E依次入棧，然后再出棧，則元素出棧的順序是( )。
A.12345ABCDE
B.EDCBA54321
C.ABCDEl2345
D.54321EDCBA
33、在窗體上建立通用對(duì)話框需要添加的控件是( )。
A.Data 控件
B.Form 控件
C.Co mmonDialog 控件
D.VBComboBox 控件
34、在窗體上畫2個(gè)命令按鈕，名稱分別為Co mmand1、Co mmand2，然后編寫下列事件過程。
Const n =5，m=4
Di ma(m，n)
Private Sub Co mmand1_Click()
k =1
For i =1To m
For j=1To n
a(i ，j)=k
k =k +1
Next j
Next i
End Sub
Private Sub Co mmand2_Click()
summ=0
For i =1To m
For j=1To n
If i =1Or i =m Then
summ=summ+a(i ，j)
Else
If j=1Or j=n Then
summ=summ+a(i ，j)
End If
End If
Next j
Next i
Print summ
End Sub
過程Command1_Click()的作用是在二維數(shù)組a 中存放1個(gè)m 行n 列的矩陣;過程Command2_Click()的作用是( )。
A.計(jì)算矩陣外圍一圈元素的累加和
B.計(jì)算矩陣除外圍一圈以外的所有元素的累加和
C.計(jì)算矩陣第1列和后一列元素的累加和
D.計(jì)算矩陣第1行和后一行元素的累加和
35、下列關(guān)于復(fù)選框的說法，正確的是( )。
A.復(fù)選框的Enabled 屬性用于決定該復(fù)選框是否可見
B.復(fù)選框的Value 屬性用于決定該復(fù)選框是否被選中
C.復(fù)選框的Tabi ndex 屬性用于決定該復(fù)選框在控件數(shù)組中的序號(hào)
D.復(fù)選框的Visi ble 屬性用于決定該復(fù)選框是否可用
36、按照"后進(jìn)先出"原則組織數(shù)據(jù)的數(shù)據(jù)結(jié)構(gòu)是( )。
A.隊(duì)列
B.棧
C.雙向鏈表
D.二叉樹
37、當(dāng)一個(gè)復(fù)選框被選中時(shí)，它的Value 屬性的值是( )。
A.3
B.2
C.1
D.0
38、已知在4行3列的全局?jǐn)?shù)組score(4，3)中存放了4個(gè)學(xué)生3門課程的考試成績(jī)(均為整數(shù))?，F(xiàn)需要計(jì)算每個(gè)學(xué)生的總分，某人編寫程序如下：
Option Base 1
Private Sub Co mmand1_Click( )
Di msum As Integer
Sum=0
For i =1To 4
For j=1To 3
Sum=sum+score(i ，j)
Next j
Print "第"&i &"個(gè)學(xué)生的總分是：";sum Next i
End Sub
運(yùn)行此程序時(shí)發(fā)現(xiàn)，除第1個(gè)人的總分計(jì)算正確外，其他人的總分是錯(cuò)誤的。程序需要修改。以下修改方案中正確的是( )。
A.把外層循環(huán)語句For i =1TO 4改為For i =1To 3內(nèi)層循環(huán)語句For j=1TO 3改為For j=1TO 4
B.把sum=0移到For i =1TO 4和For j =1TO 3之間
C.把sum=sum+score(i ，j)改為sum=sum+score(j，i)
D.把sum=sum+score(i ，j)改為sum=score(i ，j)
39、設(shè)有數(shù)組定義語句：Di ma(5)As Integer ，List1為列表框控件。下列給數(shù)組元素賦值的語句錯(cuò)誤的是( )。
A.a(3)=3
B.a(3)=InputBox("i nput data")
C.a(3)=List1.ListIndex
D.a=Array(1，2，3，4，5，6)
40、下列( )標(biāo)識(shí)符不能作為Visual Basic 的變量名。
A.ABCabe
B.b1234
C.28wed
D.crud