2007年9月全国计算机等级考试二级VB模拟试题(4)及答案

出处：Examlink 作者：刀断水日期：2007年09月13日 10时08分

(26) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
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
该事件过程的功能是
A) 输出n 以内的奇数
B) 输出n 以内的偶数
C) 输出n 以内的素数
D) 输出n以内能被j整除的数
正确答案: C

(27) 以下描述中正确的是
A) 标准模块中的任何过程都可以在整个工程范围内被调用
B) 在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程
C) 如果工程中包含Sub Main过程，则程序将首先执行该过程
D) 如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体
正确答案: B

(28) 在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
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
程序运行后，单击命令按钮，在窗体上显示的是
A) 11
B) 10
C) 9
D) 8
正确答案: C

(29) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
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
程序运行后，单击命令按钮，在文本框中显示的值是
A) 15
B) 14
C) 13
D) 12
正确答案: D

(30) 在窗体上画4个文本框(如图所示) 并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大) ，然后编写如下事件过程：

Private Sub Command1_Click()
   For Each TextBox In Text1
     Text1(i) =Text1(i) Index
     i=i+1
   Next
End Sub
程序运行后，单击命令按钮，4个文本框中显示的内容分别为
A) 0 1 2 3
B) 1 2 3 4
C) 0 1 3 2
D) 出错信息
正确答案: A

最后更新时间：2008-05-28 12:15:56