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