查看匯總：2014年計(jì)算機(jī)二級(jí)VB模擬試題及答案匯總

　　一、選擇題

　　1、任何控件都有的屬性是( )。

　　A.BackColor

　　B.Caption

　　C.Name

　　D.BorderStyle

　　2、設(shè)計(jì)數(shù)據(jù)庫(kù)的存儲(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 事件過程中加入語(yǔ)句Load Form2

　　C.在Form2的Load 事件過程中加入語(yǔ)句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 語(yǔ)句

　　B.一個(gè)Sub 過程必須有一個(gè)End Sub 語(yǔ)句

　　C.在Sub 過程中可以定義一個(gè)Function 過程

　　D.可以用Goto 語(yǔ)句退出Sub 過程