测试卷纸---VERS维普考试资源系统

2011年秋江苏省计算机二级VB考试

(总分78, 做题时间120分钟)

说明：
1．本试卷包括计算机基础知识部分和程序设计部分,考试时间共12 0分钟；
2．本试卷满分为60分,分选择题和填空题,试卷不分A、B类型；
3．计算机基础知识部分全部是选择题(20分),程序设计部分分为选择题(1 0
分)和填空题(30分)两种；
4．选择题用答题卡答题。每一项有A、B、C、D四个可供选择的答案,请选
择其中一个你认为正确的答案,用HB铅笔涂写在答题卡的相应答题号内。
每选对一项得1分,不选或选错不得分；
5．填空题用答题纸答题。请将答案用蓝、黑色钢笔或圆珠笔填写在答题纸的
相应答题号内,每个答案只占一行,不得换行。每填对一个答案得1分,
不填或填错不得分；
6．请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是
否填写正确。
7．考试结束时将试卷、答题卡和答题纸放在桌上,不得带走。待监考人员收
毕清点后,方可离场。

二、填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行)

1. 执行下面程序,单击命令按钮Command1,窗体上显示的第一行内容是___(1)___,第二行内容是___(2)___,第三行内容是___(3)___.

Option Explicit
Private Sub Command1_Click()
  Dim a As Integer, b As Integer, i As Integer
  a = 1
  b = 5
  For i = b To a Step -1
    a = a + i
    b = b + a
    If b > 30 Then Exit For
    Print a, b
  Next i
  Print a, b
End Sub

2. 执行下面程序,单击命令按钮Command1,最终A(2,2)的值是___(4)___,A(3,1)的值是___(5)___,A(4,2)的值是___(6)___。
Option Explicit
Option Base 1
Private Sub Commandl_Ciick()
  Dim A(4,4)As Integer,i As Integer,j As Integer,k As Integer
  For i=1 To 4
    For j=1 To 4
      k=k+1
      A(i,j)=k
    Next j
  Next i
  Call Transform(A)
  For i=1 To 4
    For j=l To 4
       Text1=Text1 & Right(" " & A(i,j),3)
    Next j
    Text1=Text1 & vbCrLf   
  Nexti
End Sub
Private Sub Transform(A() As Integer)
  Dim i As Integer,j As Integer,n As Intege,t As Integer,k As Integer
    n=UBound(A,1)
    k=n+1
    For i=1 To n/2
      For j=1 To n
       If i<>j And j<>k-i Then
         t=A(i,j)
         A(i,j)=A(k-i,k-j)
         A(k-i,k-j)=t
       End If
      Next j
    Next i
End Sub

3. 执行下面程序,单击命令按钮Cmd1后,窗体上显示的第一行内容是___(7)___,第二行内容是___(8)___,第三行内容是___(9)___。
  Option Explicit
  Private Sub Cmd1_Click()
    Dim st As String,ch As String*1,t As Integer
    Dim i As Integer
    st="2,3,8,12,32,65#"
    For i=1 To Len(st)
      ch=Mid(st,i,1)
      If ch<>"," And ch<>"#" Then
        t=t*10+Val(ch)
      Else
        If pd(t) Then Print t
        t=0
      End If
    Next i
  End Sub
  Private Function pd(ByVal n As Integer)As Boolean
    Do While n<>1
      If n Mod 2<>0 Then
        Exit Function
      EndIf
      n=n\2
    Loop
    pd=True
  End Function

4. 执行下面程序,单击命令按钮CmdRun后,图片框Pic1第一行显示内容是___(10)___,第二行显示内容是___(11)___,最后一行显示内容是___(12)___。
  Option Explicit
  Private Sub CmdRun_Click()
    Dim N As Integer,M As Integer
    M=135
    N=8
    Pic1.Print Fun(M,N)
  EndSub
  Private Function Fun(ByVal N As Integer,ByVal R As Integer)As String
    Dim L As Integer
    If N
      Fun=N
    Else
      L=N\R
      Fun=Fun(L,R)
      Fun=Fun & N Mod R
    End If
    Pic1.Print N   
  End Function

5. 执行下面程序,单击命令按钮CmdRun后,文本框Text1中第一行显示的内容是___(13)___ ,  第二行显示的内容是___(14)___。第三行显示的内容是___(15)___ 。
Option Explicit
Private Sub CmdRun_Click()
  Dim S As String,Subs As String,P As Integer
  S="100101 010110 110101"
  Do
    P=InStr(S," ")
    If P<>0 Then
       Subs=Left(S,P-1)
    Else
       Subs=S
    End If
    S=Mid(S,P+1)
    Text1=Text1 & Complement(Subs) & vbCrLf
  Loop Until Len(S)=0 Or P=0
End Sub
Private Function Complement(S As String)As Integer
    Dim P As Integer,L As Integer
    L=Len(S)
    If Left(S,1)=1 Then
       Complement=-32
    End If
    P=1
    Do Until P=0
       P=InStr(P+1,S,"1")
       If P<>0 Then
          Complement=Complement+2^(L-P)
       End If
    Loop 
  End Function

6. 本程序的功能是按公式求S的近似值(计算到第n项的绝对值小于等于10^-7为止)。
 S=x-  + * +(-1)  * 
请完善本程序。
Option Explicit
Private Sub Command1_Click()
    Dim x As Single,n As Single,T As Single,S As Single
    x=Val(Text1)
    S=x
    Do
      ___(16)___
      T=afun(x,n)
      S=S+T
    Loop Until ___(17)___
    Text2=Format(S,"0.#######")
End SUb
Private Function afun(x As Single,n As Single)As Single
    Dim i As Single,p As Single
    P=1
    For i=1 To n
      p= ___(18)___
    Next i
    afun=(-1)^n*p*x^(2*n+1)/(2*n+1)
End Function

7. 本程序的功能是找出10到60之间所有不可以表示成两个平方数之和的数,请完善本程序•
Option Explicit
Private Sub CmdFind_Click()
  Dim i As Integer,j As Integer,k As Integer
  Dim p As Integer,q As Integer
  For i=10 To 60
    For j=1 To Int(Sqr(i))
      ___(19)___
      q=i-P
      If q<>0 And judge(q) Then Exit For
    Next j
    If ___(20)___ Then
      k=k+1
      Text1.Text=Text1.Text & i & "  "
      If k Mod 5=0 Then Text1.Text=Text1.Text & vbCrlf
    End If
  Next i
EndSub
Public Function judge(ByVal x As Integer)As Boolean
    If ___(21)___ Then
      judge=True
    Else
      judge=False
    End If
 End Function

8. 本程序的功能是:找出所有满足各位数字之和正好是其所有质因子之和的三位数。例如378,其各位数字之和为18,而其质因子2,3,3,3,7之和也是18,所以378是满足条件的数。
Option Explicit
Private Sub CmdFind_Click()
  Dim i As Integer,p As String,st As String,st1 As String
  For i=100 To 999
    ___(22)___
    If csum(i)=zyz(i,st) Then
       p=CStr(i)
       st1=Left(p,1) & "+" & Mid(p,2,1) & "+" & Right(p,1)
       List1.AddItem i & ": " & st1 & "=" & Left(st,Len(st)-1)
    End If
  Next i
  If List1.ListCount=0 Then
    List1.AddItem "无满足要求的数!"
  End If
End Sub
Private Function csum(m As Integer)As Integer  '求各位数字之和
  Dim i As Integer,p As String
  p=CStr(m)
  For i=1 To Len(p)
    ___(23)___
  Next i
End Function
Private Function zyz(ByVal m As Integer,st As String)As Integer  '求所有质因子之和
    Dim i As Integer
    i=2
    Do
      If m Mod i=0 Then
         zyz=zyz+i
         st=st & i & "+"
         m=m\i
      EIse
       ___(24)___
      End If
    Loop Until ___(25)___
  End Function

9. 本程序的功能是,按"年/月/日"格式输入日期,计算出该日期是该年份中的第几天,过程leap_year
用于判断该年份是否为闰年(能被4整除且不能被100整除或能被400整除的年份为闰年)。
  Private Sub Commandl_Click()
    Dim st As String,rq(3)As Integeb k As Integer,d As Integer
    Dim p As String*1,q As String,i As Integer,dt As Integer
    st=Trim(Text1)
    i=1
    Do
      p=Mid(st,i,1)
      If p<>"/" Then
        q=q & p
      Else
       k=k+1
       rq(k)=Val(q)
       ___(26)___
      End If
      i=___(27)___
    Loop Until i>Len(st)
    k=k+1
    rq(k)=q
    For i=___(28)___ To 1 Step -1
      Select Case i
        Case 1,3,5,7,8,10
            dt=31
        Case 2
          If leap_year(rq(1))Then
             dt=29
          Else
             dt=28
          End If
       Case Else
          dt=30
       End Select
       d= ___(29)___
    Next i
    Text2=d+rq(3)
End Sub
 Private Function leap_year(n As Integer)As Boolean
  If ___(30)___ Then
    leap_year=True
  ElseIf n Mod 400=0 Then
    leap_year=True
  End If
End Function

答题卡