點擊查看>>全國計算機(jī)等級考試題庫大全
一、選擇題
1、任何控件都有的屬性是( )。
A.BackColor
B.Caption
C.Name
D.BorderStyle
2、設(shè)計數(shù)據(jù)庫的存儲結(jié)構(gòu)屬于( )
A.需求分析
B.概念設(shè)計
C.邏輯設(shè)計
D.物理設(shè)計
3、某人創(chuàng)建了1個工程，其中的窗體名稱為Form1;之后又添加了1個名為Form2的窗體，并希望程序執(zhí)行時先顯示Form2窗體，那么，他需要做的工作是( )。
A.在工程屬性對話框中把"啟動對象"設(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
在窗體上畫一個名稱為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時，表示該復(fù)選框( )。
A.未被選中
B.被選中
C.框內(nèi)有灰色的勾
D.操作有誤
8、在窗體上有一個名稱為Check1的復(fù)選框數(shù)組(含4個復(fù)選框)，還有一個名稱為Text1的文本框，初始內(nèi)容為空。程序運(yùn)行時，單擊任何復(fù)選框，則把所有選中的復(fù)選框后面的方字羅列在文本框中(見圖)。下面能實現(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 &""雙引號中是空格 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，其單擊事件中有下列程序段，則事件過程執(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.一個Sub 過程必須有一個Exit Sub 語句
B.一個Sub 過程必須有一個End Sub 語句
C.在Sub 過程中可以定義一個Function 過程
D.可以用Goto 語句退出Sub 過程
一、選擇題
1、任何控件都有的屬性是( )。
A.BackColor
B.Caption
C.Name
D.BorderStyle
2、設(shè)計數(shù)據(jù)庫的存儲結(jié)構(gòu)屬于( )
A.需求分析
B.概念設(shè)計
C.邏輯設(shè)計
D.物理設(shè)計
3、某人創(chuàng)建了1個工程，其中的窗體名稱為Form1;之后又添加了1個名為Form2的窗體，并希望程序執(zhí)行時先顯示Form2窗體，那么，他需要做的工作是( )。
A.在工程屬性對話框中把"啟動對象"設(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
在窗體上畫一個名稱為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時，表示該復(fù)選框( )。
A.未被選中
B.被選中
C.框內(nèi)有灰色的勾
D.操作有誤
8、在窗體上有一個名稱為Check1的復(fù)選框數(shù)組(含4個復(fù)選框)，還有一個名稱為Text1的文本框，初始內(nèi)容為空。程序運(yùn)行時，單擊任何復(fù)選框，則把所有選中的復(fù)選框后面的方字羅列在文本框中(見圖)。下面能實現(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 &""雙引號中是空格 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，其單擊事件中有下列程序段，則事件過程執(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.一個Sub 過程必須有一個Exit Sub 語句
B.一個Sub 過程必須有一個End Sub 語句
C.在Sub 過程中可以定義一個Function 過程
D.可以用Goto 語句退出Sub 過程