2017計算機vb考試題庫
一、選擇題
1、任何控件都有的屬性是( )。
A.BackColor
B.Caption
C.Name
D.BorderStyle
2、設計數據庫的存儲結構屬于( )
A.需求分析
B.概念設計
C.邏輯設計
D.物理設計
3、某人創建了1個工程，其中的窗體名稱為Form1;之后又添加了1個名為Form2的窗體，并希望程序執行時先顯示Form2窗體，那么，他需要做的工作是( )。
A.在工程屬性對話框中把"啟動對象"設置為Form2
B.在Forml 的Load 事件過程中加入語句Load Form2
C.在Form2的Load 事件過程中加入語句Form2.Show
D.把Form2的TabIndex 屬性設置為l ，把Form1的TabIndex 屬性設置為2
4、設有如下通用過程：
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
在窗體上畫一個名稱為Co mmand1的命令按鈕。然后編寫如下的事件過程：
Private Sub Co mmandI_Click()
Di mS1As Stri ng
S1="abedef"
Pri m UCase(Fun(S1))
End Sub
程序運行后，單擊命令按鈕，輸出結果是( )。
A.ABCDEF
B.abcdef
C.AFBECD
D.DEFABC
5、下列關于棧的描述正確的是( )。
A.在棧中只能插入元素而不能刪除元素
B.在棧中只能刪除元素而不能插入元素
C.棧是特殊的線性表，只能在一端插入或刪除元素
D.棧是特殊的線性表，只能在一端插入元素，而在另一端刪除元素
6、下列程序段的運行結果是( )。
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、復選框的Value 屬性為0時，表示該復選框( )。
A.未被選中
B.被選中
C.框內有灰色的勾
D.操作有誤
8、在窗體上有一個名稱為Check1的復選框數組(含4個復選框)，還有一個名稱為Text1的文本框，初始內容為空。程序運行時，單擊任何復選框，則把所有選中的復選框后面的方字羅列在文本框中(見圖)。下面能實現此功能的事件過程是( )。
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 &""雙引號中是空格 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 &""雙引號中是空格
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 &""雙引號中是空格
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 &""雙引號中是空格
Exit For
End If
Next k
End Sub
9、在窗體上添加一個命令按鈕，名為Co mmand1，其單擊事件中有下列程序段，則事件過程執行后，文本框中輸出
( )。
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、下列關于Sub 過程的敘述正確的是( )。
A.一個Sub 過程必須有一個Exit Sub 語句
B.一個Sub 過程必須有一個End Sub 語句
C.在Sub 過程中可以定義一個Function 過程
D.可以用Goto 語句退出Sub 過程
11、下列敘述中正確的是( )。
A.在窗體的Form_Load 事件過程中定義的變量是全局變量
B.局部變量的作用域可以超出所定義的過程
C.在某個Sub 過程中定義的局部變量可以與其他事件過程中定義的局部變量同名，但其作用域只限于該過程
D.在調用過程時，所有局部變量被系統初始化為0或空字符串
12、編寫如下兩個事件過程：
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 鍵也未鎖定大寫鍵時)運行程序，如果按鍵盤上的"A"鍵，則程序輸出的結果是( )。
A.A
a
B.a
A
C.A
A
D.a
a
13、在窗體上畫一個命令按鈕，名稱為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("請輸入一個整數")
A2(3-k)=A1(k +1)
Next k Print A2(k)
End Sub
程序運行后，單擊命令按鈕，在輸入對話框中依次輸入2、4、6，則輸出結果為( )。
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、下面程序的輸出結果是( )。
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 定義的數組元素個數是( )。
A.18
B.28
C.21
D.32
17、以下敘述中錯誤的是( )。
A.一個工程中只能有一個Sub Main 過程
B.窗體的Show 方法的作用是將指定的窗體裝入內存并顯示該窗體
C.窗體的Hide 方法和Unload 方法的作用完全相同
D.若工程文件中有多個窗體，可以根據需要指定一個窗體為啟動窗體
18、在窗體上先后畫2個圖片框，名稱分別為Picture1和banana，banana 中添加了香蕉圖片，如圖1所示，且將banana.Drag Mode 屬性設置為1。要求程序運行時，可以用鼠標把banana 拖拽到Picture1中，如圖2所示。能實現此功能的事件過程是( )。
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個#號的正確代碼為( )。
A.Debug .Print"####"
B.Print"####"
C.Forml-Print"####"
D.Forml .Print"####"
20、一個模塊內部各個元素彼此結合的緊密程度的度量稱為( )
A.耦合性
B.內聚性
C.復雜性
D.數據傳輸特性
21、函數值和余弦函數值，角度為1，2，3，…，90。請在空白處填入適當的內容，將程序補充完整。
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、下列程序運行時輸出的結果是( )。
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、某人為計算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
在調試時發現該函數過程產生的結果是錯誤的，程序需要修改。下面的修改方案中有3種是正確的，錯誤的方案是( )。
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、要設置窗體為固定對話框，并包含控制菜單欄和標題欄，但沒有最大化和最小化按鈕，設置的操作是( )。
A.設置BorderStyle 的值為Fi xed Tool Wi ndow
B.設置BorderStyle 的值為Sizable Tool Wi ndow
C.設置BorderStyle 的值為Fi xed Dialog
D.設置BorderStyle 的值為Sizable
25、設在窗體上有一個文本框，然后編寫如下的事件過程：
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
程序運行后，清除文本框中原有內容，如果按Shift +F2鍵，則在文本框中顯示的是( )。
A.Alt +F2
B.abl
C.隨機出幾個數
D.不發生變化
26、在窗體上畫兩個文本框(名稱分別為Text1和Text2)和一個命令按鈕(名稱為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
程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為( )。
A.1和0
B.2和72
C.3和50
D.4和168
27、下列敘述中錯誤的是( )。
A.軟件測試的目的是發現錯誤并改正錯誤
B.對被調試的程序進行"錯誤定位"是程序調試的必要步驟
C.程序調試通常也稱為Debug
D.軟件測試應嚴格執行測試計劃，排除測試的隨意性
28、一個工程必須包含的文件的類型是( )。
A.*.vbp*.frm*.frx
B.*.vbp*.cls*.bas
C.*.bas*.ocx*.res
D.*.frm*.cls*.bas
29、在文本框中輸入字符時，通過( )事件過程可以得到字符的ASCII 碼值。
A.Change
B.GotFocus
C.KeyPress
D.LostFocus
30、在下列關系運算中，不改變關系表中的屬性個數但能減少元組個數的是( )。
A.并
B.交
C.投影
D.笛卡兒乘積
31、有兩個關系R ，S 如下：
由關系R 通過運算得到關系S，則所使用的運算為( )。
A.選擇
B.投影
C.插入
D.連接
32、一個棧的初始狀態為空。現將元素1、2、3、4、5、A、B、C、D、E依次入棧，然后再一次出棧，則元素出棧的順序是( )。
A.12345ABCDE
B.EDCBA54321
C.ABCDEl2345
D.54321EDCBA
33、在窗體上建立通用對話框需要添加的控件是( )。
A.Data 控件
B.Form 控件
C.Co mmonDialog 控件
D.VBComboBox 控件
34、在窗體上畫2個命令按鈕，名稱分別為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()的作用是在二維數組a 中存放1個m 行n 列的矩陣;過程Command2_Click()的作用是( )。
A.計算矩陣外圍一圈元素的累加和
B.計算矩陣除外圍一圈以外的所有元素的累加和
C.計算矩陣第1列和最后一列元素的累加和
D.計算矩陣第1行和最后一行元素的累加和
35、下列關于復選框的說法，正確的是( )。
A.復選框的Enabled 屬性用于決定該復選框是否可見
B.復選框的Value 屬性用于決定該復選框是否被選中
C.復選框的Tabi ndex 屬性用于決定該復選框在控件數組中的序號
D.復選框的Visi ble 屬性用于決定該復選框是否可用
36、按照"后進先出"原則組織數據的數據結構是( )。
A.隊列
B.棧
C.雙向鏈表
D.二叉樹
37、當一個復選框被選中時，它的Value 屬性的值是( )。
A.3
B.2
C.1
D.0
38、已知在4行3列的全局數組score(4，3)中存放了4個學生3門課程的考試成績(均為整數)。現需要計算每個學生的總分，某人編寫程序如下：
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 &"個學生的總分是：";sum Next i
End Sub
運行此程序時發現，除第1個人的總分計算正確外，其他人的總分是錯誤的。程序需要修改。以下修改方案中正確的是( )。
A.把外層循環語句For i =1TO 4改為For i =1To 3內層循環語句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、設有數組定義語句：Di ma(5)As Integer ，List1為列表框控件。下列給數組元素賦值的語句錯誤的是( )。
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、下列( )標識符不能作為Visual Basic 的變量名。
A.ABCabe
B.b1234
C.28wed
D.crud
【計算機vb考試題庫】相關文章：
計算機二級vb題庫201707-30
2016計算機二級VB上機考試試題題庫08-22
2016年9月全國計算機vb二級考試題庫06-10
計算機職稱考試題庫10-24
計算機等級考試模擬題庫07-01
計算機等級考試一級題庫08-08
職稱計算機考試EXCEL題庫及答案01-23
計算機二級vb考試試題及答案12-17
2017計算機二級考試內容VB07-24