2010年3月計算機等級考試二級VB試試題(文字版)

　　(31)窗體上有List1、List2兩個列表框，List1中有若干列表項(見圖)，并有下面的程序：

　　Private Sub Comand1_Click()

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

　　If List1.Selected(k) Then

　　List2.AddItem List1.List(k)

　　List1.RemoveItem k

　　End If

　　Next k

　　End Sub

　　程序運行時，按照圖示在List1中選中2個列表項，然后單擊Commandl命令按鈕，則產(chǎn)生的結(jié)果是

　　A)在List2中插入了“外語”、“物理”兩項

　　B)在List1中刪除了“外語”、“物理”兩項

　　C)同時產(chǎn)生A)和B)的結(jié)果

　　D)把List1中最后1個列表項刪除并插入到List2中

　　(32)設(shè)工程中有2個窗體： Form1、Form2，F(xiàn)orm1為啟動窗體。Form2中有菜單。其結(jié)構(gòu)如表。要求在程序運行時，在Form1的文本框Text1中輸入口令并按回車鍵(回車鍵的ASCII碼為13)后，隱藏Form1，顯示Form2。若口令為“Teacher”，所有菜單項都可見;否則看不到“成績錄入”菜單項。為此，某人在Form1窗體文件中編寫如下程序：

　　Private Sub Text1_KeyPress(KeyAscii As Integer)

　　If KeyAscii=13 Then

　　If Text1.Text="Teacher" Then

　　Form2.input.visible=True

　　Else

　　Form2.input.visible=False

　　End If

　　End If

　　Form1.Hide

　　Form2.Show

　　End Sub

　　程序運行時發(fā)現(xiàn)剛輸入口令時就隱藏了Form1，顯示了Form2，程序需要修改。下面修改方案中正確的是

　　A)把Form1中Text1文本框及相關(guān)程序放到Form2窗體中

　　B)把Form1.Hide、Form2.Show兩行移到2個End If之間

　　C)把If KeyAscii=13 Then改為 If KeyAscii="Teaeher" Then

　　D)把2個Form2.input.Visible中的“Form2”刪去

　　(33)某人編寫了下面的程序，希望能把Text1文本框中的內(nèi)容寫到out.txt文件中

　　Private Sub Comand1_Click()

　　Open "out.txt" For Output As #2

　　Print "Text1"

　　Close #2

　　End Sub

　　調(diào)試時發(fā)現(xiàn)沒有達到目的，為實現(xiàn)上述目的，應(yīng)做的修改是

　　A)把Print "Text1"改為Print #2,Text1

　　B)把Print "Text1"改為Print Text1

　　C)把Print "Text1"改為Write "Text1"

　　D)把所有#2改為#1

　　(34)窗體上有一個名為Command1的命令按鈕，并有下面的程序：

　　Private Sub Comand1_Click()

　　Dim arr(5) As Integer

　　For k=1 To 5

　　arr(k)=k

　　Next k

　　prog arr()

　　For k=1 To 5

　　Print arr(k)

　　Next k

　　End Sub

　　Sub prog(a() As Integer)

　　n=Ubound(a)

　　For i=n To 2 step -1

　　For j=1 To n-1

　　if a(j)

　　t=a(j):a(j)=a(j+1):a(j+1)=t

　　End If

　　Next j

　　Next i

　　End Sub

　　程序運行時，單擊命令按鈕后顯示的是

　　A)12345

　　B)54321

　　C)01234

　　D)43210

　　(35)下面程序運行時，若輸入“Visual Basic Programming”，則在窗體上輸出的是

　　Private Sub Comand1_Click()

　　Dim count(25) As Integer, ch As String

　　ch=Ucase(InputBox("請輸入字母字符串"))

　　For k=1 To Len(ch)

　　n=Asc(Mid(ch,k,1))-Asc("A")

　　If n>=0 Then

　　Count(n)=Count(n)+ 1

　　End If

　　Next k

　　m=count(0)

　　For k=1 To 25

　　If m

　　m=count(k)

　　End If

　　Next k

　　Print m

　　End Sub

　　A)0

　　B)1

　　C)2

　　D)3