A．False    B．-1    C．True   D．  1

29.在窗体Form1中用“Public Sub Fun(x As Integer,Y As Single)”定义过程Fun，在窗体Form2的某事件过程中定义了变量I和J均为Integer，若要在此过程中调用Form1中的Fun过程，则下列语句中正确的___(29)___    。

A．Call Fun(I，J)

B．Call Forml.Fun(I，J)

C．Fun I，(J)

D．Form1.Fun I，(J)

30．以下有关文件操作的说法中，正确的是  30    。

A．在某过程中用Open语句打开的文件，只能在这个过程中使用

B．不能用Output、Append方式打开一个不存在的顺序文件

C．在Input方式下，可以使用不同的文件号同时打开同一个文件

D．在不同的过程中，可以用同一个文件号同时打开不同的文件

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

1·执行下列程序，单击按钮Command1，窗体上显示的第一行内容是___(1)___,第二行是___(2)___，第三行内容是___(3)___    。

Option Explicit

Private Sub Command1_Click()

  Dim a As Integer,b As Integer

  a=4

  b=3

  Do Until a>10

    b=b／2

    Do Until b>10

      a=(a+b)\2+b

      b=b+5

      Print a,b

    Loop

    a=a-3

  Loop

End Sub

2.执行下面程序，当单击Cmd1时，在窗体上显示的第一行内容是___(4)___第二行的内容是___(5)___，第四行的内容是___(6)___    。

Option Explicit

Private Sub Cmd1_Click()

  Dim a As Integer,b As Integer

  a=1

  b=2

  Print fun(2*b，fun(a,(b)))

  Print a;b

End Sub

Private Function fun(x As Integer,y As Integer) As Integer

    x=x+2

    y=x-y+3

    fun=x+y

    Print fun

End Function

3．执行下面的程序，单击CmdRun后，数组元素a(1，2)的值是___(7)___,a(2,1)的值是

___(8)__，a(3，2)的值是___(9)___

    Option Explicit

    Option Base 1

    Private Sub CmdRun_Click()

       Dim A(3，3)As Integer,i As Integer,j As Integer,k As Integer,n As Integer

       n=3

       i=1：j=n

       A(i，j)=1

       For k=2 To n*n

         If i+1>n Then

            i=n-j+2：j=1   

         ElseIf i+1<=n And j+1>n Then

            j=j-i：i=1

         Else

            i=i+1：j=j+1

         End If

         A(i,j)=k

       Next k

       For i=1 To n

          For j=1 To n

             Print A(i，j);

          Next J

          Print

       Next i

    End Sub

4．运行程序，在文本框Text1中输入用空格分隔的4位二进制数1001、0101和0110。单击“处理”按钮，在多行文本框Text2中第一行显示___(10)___，第二行显示___(11)___    ，第三行显示___(12)___

Option Explicit

Private Sub Cmd1_Click0

  Dim S(3) As String，n As Integer

  Dim i As Integer,k As Integer

  k=1

  For i=1 T0 3

    S(i)=Mid(Text1，k，4)

    k=k+5

    Call Transform(n，S(i))

    Text2=Text2 & n & vbCrLf

  Next i

End Sub

Private Sub Transform(n As Integer,S As String)

  Dim k As Integer,i As Integer,L As Integer

  L=Len(S)

  If Val(Mid(S，1，1))=1 Then

    n=-(2^(L-1))

  Else

    n=0

  End  If

 For i=2 To L

    k=Mid(S，i，1)

    n=n+k*2^(L-i)

 Next i

End  Sub

5．执行下列程序，单击CmdRun按钮，则窗体上显示的第一行是___(13)___ ，第二行是___(14)___最后一行是___(15)___

Option Explicit

Private Sub Command1_Click()

  Dim n As Integer

  For n = 4 To 7

    If Fun1(n, Sqr(n)) Then

      Print n; "SS"

    Else

      Print n; "HS"

    End If

  Next n

End Sub

Private Function Fun1(n As Integer, i As Integer) As Boolean

    If i = 1 Then

      Fun1 = True

    ElseIf n Mod i <> 0 Then

      Fun1 = Fun1(n, i - 1)

    Else

      Fun1 = False

    End If

End Function

6．下面程序的功能是求S的值。

计算到第k项的值小于等于1O 为止．请完善本程序。

  Option Explicit

  Private Sub CmdSum_Click()

    Dim s As Single，x As Single，k As Integer,t As Single

x=CSng(Text1.Text)

   ___(16)___

DO

     t=pt(x，k)

     s=s+t

     k=k+1

  Loop Until t<=0.000001

  Text2.Text=CStr(s)

End Sub

Private Function pt(x As Single，n As Integer)As Single

  Dim iAs Integer

  ___(17)___

For i=1 To n

    pt=___(18)___

Next i

pt=pt/x^n

End Function

7．下面程序的功能是，找出100---999之间具有以下特点的整数：其全部真因子(1和自身除外的因子)中，所有素数因子之和的2倍等于其余因子的和数．请完善本程序。

  Option Explicit

  Option Base 1

  Private Sub Command1_Click()

    Dim i As Long，J As Long，m As Integer,st As String

    Dim a() As Integer

    For i=100 To 999

     ___(19)___

For j=2 To i-1

       If i Mod j=0 Then

         m=m+1

         ___(20)___

         a(m)=J

       End If

Next j

If m>O Then

      If yzh(a，st) Then List1.AddItem i & “：” & st

     End If

     Erase a

    Next i

End Sub

Private Function yzh(a() As Integer,st As String)As Bocllean

  Dim i As Integer,j As Integer

  Dim suml As Long，sum2 As Long，stl As String，st2 As String

  For i=1 To UBound(a)

    For j=2 To Sqr(a(i))

      If a(i) Mod j=0 Then Exit For

    Next j

    If ___(21)___ Then

      sum1=sum1+a(i)

      st1=st1 & a(i) & ”+”

EIse

  sum2=sum2+a(i)

      st2=st2 & a(i) & ”+”

    End If

Next i

If sum1*2=sum2 Then

   ___(22)___

   st=”(” & Left(st1，Len(st1)-1) & ”)*2=”& Left(st2,Len(st2)-1)

End If

End Function

8．本程序的功能是求-128～+127之间整数n的8位2进制补码。采用的算法是：若n≥O，则直接将其转换为相应的7位2进制数，前面的符号位设定为“O”；若n<0，则将n+128转换为相应的7位2进制数，前面的符号位设定为“1”。请完善本程序。

Option Explicit

 Private Sub Command1_Click0

    Dim dec As Integer

dec=Textl

If  ___(23)___ Then

MsgBox ”无效数据，请重输!”，，”求补码”

Text1=””

Text1．SetFOCUS

   Eise

    Text2=bm(dec)

   End If

End Sub

Private Function bm(n As Integer) As String

  If Sgn(n)>=0 Then

    bm=”0”& d2b(n)

  Else  

    n=n+128

    bm=___(24)___

 End If

End Function

Private Function d2b(n As Integer)As String

  Dim p As Integer

  Do

    p=n Mod 2

    d2b=CStr(p) & d2b

    n=n\2

Loop Until ___(25)___

d2b=Right(”000000”& d2b，7)

End Function

9．本程序的功能是，按从大到小的次序给一组正整数标记序次。程序的算法是：先找出原数组中所有的最大数，假如有n个最大数，它们序次均标记为1，已处理的数据值改为-99：再找出所有的次大数，它们的序次标记为n+1……直到所有数据处理完毕。请完善本程序。(说明：数组sn用于存放数组a中相应的各个元素的序次，数组b用来保留原始数据)

  Option Explicit

  Option Base 1

  Private Sub Cmd1_Click()

    Dim a(10)As Integer,sn(10)As Integer,b(10)As Integer,i As Integer

    For i=1 To lO

      a(i)=Int(Rnd*61)+40

      b(i)=___(26)___

      Text1=Text1 & Str(a(i))

Next i

Call order(a，sn)

   For i=1 To 10

     List1.Addltem b(i) & “--“ & sn(i)

   Next i

End Sub

Private Sub order(a() As Integer,sn() As Integer)

  Dim i As Integer,j As Integer

  Dim n As Integer,maxi As Integer

  i=1

  Do While i<=UBonnd(a)

    n=___(27)___

maxi=a(1)

For J=2 To UBound(a)

       If ___(28)___ Then

         maxi=a(j)

       End If

    Nextj

    For j=1 To UBound(a)

       If  ___(29)___ Then

          sn(j)=i

          a(j)=-99

          n=n+1

       End If

    Nextj

    i=___(30)___

  Loop

End Sub