2014計(jì)算機(jī)等級(jí)《二級(jí)VB》上機(jī)考試預(yù)測(cè)題及答案5

　　31.在利用菜單編輯設(shè)計(jì)菜單時(shí)，為了把組合鍵"Alt+X"設(shè)置為”退出(X)”菜單項(xiàng)的訪問鍵，可以將該菜單項(xiàng)的標(biāo)題設(shè)置為( )。

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

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

　　32.在窗體上畫l個(gè)命令按鈕和l個(gè)文本框，其名稱為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

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

　　A.NUMtBER l00

　　B.REBMUN

　　C.REBM UN l00

　　D.001 REBMUN

　　33.窗體的左右兩端各有1直線，名稱分別為Line1、Line2;名稱為Shape1的圓靠在左邊的Linel直線上(見圖);另有1個(gè)名稱為Timer1的計(jì)時(shí)器控件，其Enabled屬性值是True。要求程序運(yùn)行后，圓每秒向右移動(dòng)100，當(dāng)圓遇到Line2時(shí)則停止移動(dòng)。為實(shí)現(xiàn)上述功能，某人把計(jì)時(shí)器的Interva1屬性設(shè)置為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

　　運(yùn)行程序時(shí)發(fā)現(xiàn)圓立即移動(dòng)到了右邊的直線處，與題目要求的移動(dòng)方式不符。為得到與題目要求相符的結(jié)果，下面修改方案中正確的是( )。

　　A.把計(jì)時(shí)器的Interval屬性設(shè)置為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.下列有關(guān)文件敘述中，正確的是( )。

　　A.以0utput方式打開一個(gè)不存在的文件時(shí)，系統(tǒng)將顯示出錯(cuò)信息

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

　　C.在隨機(jī)文件中，每個(gè)記錄的長度是固定的

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

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

　　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

　　在調(diào)試時(shí)發(fā)現(xiàn)，如輸入“陳”，可以正確刪除所有姓“陳”的項(xiàng)目，但輸入“劉”，則只刪除了“劉邦”、“劉備”2項(xiàng)，結(jié)果如圖2所示。這說明程序不能適應(yīng)所有情況，需要修改。正確的修改方案是把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.現(xiàn)有以下程序：

　　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

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

　　A.同時(shí)能被3和7整除的整數(shù)個(gè)數(shù)

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

　　C.能被3整除，而不能被7整除的整數(shù)個(gè)數(shù)

　　D.能被7整除，而不能被3整除的整數(shù)個(gè)數(shù)

　　37.設(shè)菜單編輯器中各菜單項(xiàng)的屬性設(shè)置如下表所示：

　　針對(duì)上述屬性設(shè)置，以下敘述中錯(cuò)誤的是( )。

　　A.屬性設(shè)置有錯(cuò)，存在“標(biāo)題”與“名稱”重名現(xiàn)象

　　B.運(yùn)行程序，序號(hào)為“3”的菜單項(xiàng)不顯示

　　C.運(yùn)行程序，序號(hào)為“4”的菜單項(xiàng)不可用

　　D.運(yùn)行程序，序號(hào)為“5”的菜單項(xiàng)前顯示“√”

　　38.窗體上有一個(gè)名稱為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

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

　　A.0 B.-l

　　C.-2 D.-_3

　　39.以下關(guān)于通用對(duì)話框的敘述中，錯(cuò)誤的是( )。

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

　　B.用一個(gè)通用對(duì)話框控件可以建立幾種不同的對(duì)話框

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

　　D.文件對(duì)話框用屬性FiherIndex指定默認(rèn)過濾器，它是一個(gè)從0開始的整數(shù)

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

　　Private Sub Command1Click()

　　Dim m As Integer，n As Integer

　　m=InputBox("輸入第一個(gè)數(shù)")

　　nzInputBox("輸入第二個(gè)數(shù)")

　　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.求數(shù)值m和n的最大公約數(shù)

　　B.求數(shù)值m和n的最小公倍數(shù)

　　C.求數(shù)值m和n中的較大數(shù)

　　D.求數(shù)值m和n中的較小數(shù)

　　相關(guān)推薦：

　　2014年全國計(jì)算機(jī)二級(jí)VB上機(jī)考試試題匯總

　　考試吧考后首發(fā)2014年3月計(jì)算機(jī)等考真題及答案通知

　　考試吧推薦：2014年3月計(jì)算機(jī)二級(jí)考前沖刺備考專題