计算机二级VB考试题及答案
  为了使广阔考生在备战计算机等级考试时，更快的掌握相应知识点，下面是搜索的计算机二级VB考试题及答案，供参考练习，预祝考生们考出自己理想的成绩!
  1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
  Private Sub Command1Click( )
  n = Val(Text1.Text)
  If n2 = n/2 Then
  f = f1(n)
  Else
  f = f2(n)
  End If
  Print f; n
  End Sub
  Public Function f1(ByRef x)
  x=x*x
  f1=x+x
  End Function
  Public Function f2(ByVal x)
  x=x*x
  f2=x+x+x
  End Function
夜华和墨渊
  程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)
  A.72 36
  B.108 36
  C.72 6
  D.27 3
  2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
  Private Sub Command1Click( )
  c = "1234"
  For i = 1 To 4
  c1 = Trim(Str( ))
  Print c1
  Next i
  End Sub
  程序运行后，单击命令按钮，要求在窗体上显示如下内容
  1
  12
  123
  1234
  那么在下划线处应填入的内容为(B)(单)
  A.Right(c1,i)
  B.Left(c1,i)
  C.Mid(c1,i,1)
  D.Mid(c1,i,i)
  3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
  Private Sub Command1Click( )
中国最美的八大海岸  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
  该事件过程的功能是(C)(单)
  A.输出n以内的奇数
  B.输出n以内的偶数
  C.输出n以内的素数
  D.输出n以内能被j整除的数
  4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
  Private Function f(m As Integer)
  If m Mod 2 = 0 Then
  f = m
  Else
  f = 1
  End If
  End Function
  Private Sub Command1Click( )
  Dim i As Integer
  s = 0
  For i = 1 To 5
二级VB
  s = s + f(i)
  Next 黄小琥是男是女
  Print s
  End Sub
  程序运行后，单击命令按钮，在窗体上显示的是(C)(单)
  A.11
  B.10
  C.9
陆思诚童谣  D.8
  5.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
  Private Sub Command1Click( )
  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