31.在利用菜單編輯設計菜單時，為了把組合鍵"Alt+X"設置為”退出(X)”菜單項的訪問鍵，可以將該菜單項的標題設置為( )。

　　A.退出(X&) B.退出(&X)

　　C.退出(X#)D.退出(#X)

　　32.在窗體上畫l個命令按鈕和l個文本框，其名稱為Command1和Text1，再編寫如下程序：

　　Dim ss As String

　　Private Sub Text1 KeyPress(KeyAscii As Integer)

　　If Chr(KeyAscii)<>""Then ss=ss+Chr(KeyAscii)

　　End Sub

　　Private Sub Command1 Click()

　　Dim m As String，i As Integer

　　For i=Len(ss)To 1 Step-1

　　m=m+Mid(SS，i，1)

　　Next

　　Text1.Text=UCase(m)

　　End Sub

　　程序運行后，在文本框中輸入“Number 100”，并單擊命令按鈕，則文本框中顯示的就是( )。

　　A.NUMtBER l00

　　B.REBMUN

　　C.REBM UN l00

　　D.001 REBMUN

　　33.窗體的左右兩端各有1直線，名稱分別為Line1、Line2;名稱為Shape1的圓靠在左邊的Linel直線上(見圖);另有1個名稱為Timer1的計時器控件，其Enabled屬性值是True。要求程序運行后，圓每秒向右移動100，當圓遇到Line2時則停止移動。為實現上述功能，某人把計時器的Interva1屬性設置為1000，并編寫了如下程序：

　　Private Sub Timer1 Timer()

　　For k=Line1.X1 To Line2.X1 Step 100

　　If Shape1.Left+Shape1.width　　 Shape1.Left=Shape1.Left+100

　　End If

　　Next k

　　End Sub

　　運行程序時發現圓立即移動到了右邊的直線處，與題目要求的移動方式不符。為得到與題目要求相符的結果，下面修改方案中正確的是( )。

　　A.把計時器的Interval屬性設置為1

　　B.把For k=line1.X1 To Line2.X1 Step 100和Next k兩行刪除

　　C.把For k=Line1.X1 To Line2.X1Step 100改為For k=Line2.X1 To Line1.X1 Step 100

　　D.把If Shape1.Left+Shepe1.Width　　34.下列有關文件敘述中，正確的是( )。

　　A.以0utput方式打開一個不存在的文件時，系統將顯示出錯信息

　　B.以APPend方式打開的文件，即可以進行讀操作，也可以進行寫操作

　　C.在隨機文件中，每個記錄的長度是固定的

　　D.無論是順序文件還是隨機文件，其打開的語句和打開方式都是完全相同的

　　35.窗體如圖1所示。要求程序運行時，在文本框Text1中輸入一個姓氏，單擊“刪除”按鈕(名稱為Command1)，則可刪除列表框List1中所有該姓氏的項目。若編寫以下程序來實現如此功能：

　　Private Sub Command l Click()

　　Dim n%，k%

　　n=Len(Text1.Text)

　　For k=0 To List1.ListCount-1

　　If Left(List1.List(k)，n)=Text1.Text Then

　　List 1.Removeltem k

　　End If

　　Next k

　　End Sub

　　在調試時發現，如輸入“陳”，可以正確刪除所有姓“陳”的項目，但輸入“劉”，則只刪除了“劉邦”、“劉備”2項，結果如圖2所示。這說明程序不能適應所有情況，需要修改。正確的修改方案是把For k=0 To List1.ListCount-1改為( )。

　　A.For k=List1.ListCount-1 To 0 Step-1

　　B.For k=0 To List1.ListCount

　　C.For k=1 To List1.ListCount-1

　　D.For k=1 To List1.ListCount

　　36.現有以下程序：

　　Private Sub Command1 Click()

　　c1=0

　　c2=0

　　For i=1 To 100

　　If i Mod 3=0 Then

　　c1=c1+1

　　Else If i Mod 7=0 Then

　　c2=c2+1

　　End If

　　Next i

　　Print c1+c2

　　End Sub

　　此程序運行后輸出的是在1～100范圍內( )。

　　A.同時能被3和7整除的整數個數

　　B.能被3或7整除的整數個數(同時被3和7整除的數只記一次)

　　C.能被3整除，而不能被7整除的整數個數

　　D.能被7整除，而不能被3整除的整數個數

　　37.設菜單編輯器中各菜單項的屬性設置如下表所示：

　　針對上述屬性設置，以下敘述中錯誤的是( )。

　　A.屬性設置有錯，存在“標題”與“名稱”重名現象

　　B.運行程序，序號為“3”的菜單項不顯示

　　C.運行程序，序號為“4”的菜單項不可用

　　D.運行程序，序號為“5”的菜單項前顯示“√”

　　38.窗體上有一個名稱為Command1的命令按鈕，并有如下程序：

　　Private Sub Command1 Click()

　　x=15

　　Do While x>0

　　x=x-3

　　x=IIf(Int(x/5)=x/5，x+2，x)

　　Loop

　　Print x

　　End Sub

　　程序運行后，單擊命令按鈕Command1，輸出結果為( )。

　　A.0 B.-l

　　C.-2 D.-_3

　　39.以下關于通用對話框的敘述中，錯誤的是( )。

　　A.若沒有指定InitDir屬性值，則起始目錄為當前目錄

　　B.用一個通用對話框控件可以建立幾種不同的對話框

　　C.File Title屬性指明了文件對話框中所選擇的文件名

　　D.文件對話框用屬性FiherIndex指定默認過濾器，它是一個從0開始的整數

　　40.窗體上有一個名稱為Command1的命令按鈕，并有如下程序：

　　Private Sub Command1Click()

　　Dim m As Integer，n As Integer

　　m=InputBox("輸入第一個數")

　　nzInputBox("輸入第二個數")

　　Do While m<>n

　　Do While m>n

　　m= m-n

　　Loop

　　Do While n>m

　　n=n-m

　　Loop

　　Loop

　　Print m

　　End Sub

　　該程序的功能是( )。

　　A.求數值m和n的最大公約數

　　B.求數值m和n的最小公倍數

　　C.求數值m和n中的較大數

　　D.求數值m和n中的較小數

　　相關推薦：

　　2014年全國計算機二級VB上機考試試題匯總

　　考試吧考后首發2014年3月計算機等考真題及答案通知

　　考試吧推薦：2014年3月計算機二級考前沖刺備考專題