2004年4月計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試題及答案

(25) 在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程:
Private Sub Command1_Click()
c = 1234
c1 = Trim(Str(c))
For i = 1 To 4
Print
Next
End Sub
程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容
1
12
123
1234
則在下劃線(xiàn)處應(yīng)填入的內(nèi)容為
A) Right(c1,i) B) Left(c1,i) C) Mid(c1,i,1) D) Mid(c1,i,i)
(26) 在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕和一個(gè)名稱(chēng)為T(mén)ext1的文本框，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
n = Val(Text1.Text)
For i = 2 To n
For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i) Then Print i
Next i
End Sub
該事件過(guò)程的功能是
A) 輸出n以?xún)?nèi)的奇數(shù) B) 輸出n以?xún)?nèi)的偶數(shù)
C) 輸出n以?xún)?nèi)的素?cái)?shù) D) 輸出n以?xún)?nèi)能被j整除的數(shù)
(27) 在以下描述中正確的是
A) 標(biāo)準(zhǔn)模塊中的任何過(guò)程都可以在整個(gè)工程范圍內(nèi)被調(diào)用
B) 在一個(gè)窗體模塊中可以調(diào)用在其他窗體中被定義為Public的通用過(guò)程
C) 如果工程中包含Sub Main過(guò)程，則程序?qū)⑹紫葓?zhí)行該過(guò)程
D) 如果工程中不包含Sub Main過(guò)程，則程序一定首先執(zhí)行第一個(gè)建立的窗體
(28) 在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下通用過(guò)程和命令按鈕的事件過(guò)程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next
Print s
End Sub
程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的是
A) 11 B) 10 C) 9 D) 8
(29) 在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框和一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i, j) = i + j
Next j
Next i
Text1.Text = array1(2, 3) + array1(3, 4)
End Sub
程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是
A) 15 B) 14 C) 13 D) 12