(32) 单击命令按钮时，下列程序的运行结果为
Private Sub Command1_Click()
   Print MyBM(23, 18)
End Sub
Public Function MyBM(m As Integer, n As Integer) As Integer
   Do While m <> n
     Do While m > n: m=m - n: Loop
     Do While m < n: n=n - m: Loop
   Loop
   MyBM=m
End Function
A) 0        
B) 1
C) 3        
D) 5
正确答案:  B

(33) 有如下的程序：
Private Sub Command1_Click()
   Dim k As Integer, m As Integer
   Dim P As Integer
   k=4: m=1
   P=Pid(k, m) : Print P;
   P=Pid(k, m) : Print P
End Sub
Private Function Pid(a As Integer, b As Integer)
   Static m As Integer, i As Integer
   m=5: i=2
   i=i + m + 1
   m=i + a + b
   Pid=m ＼ 2
End Function
单击命令按钮后，输出结果为
A) 2  2       
B) 4  4
C) 55       
D) 6  6
正确答案:  D

(34) 下面4个CT函数中是用来判断用户输入的数是否为奇数的，是奇数的返回1，否则返回0，其中正确的是
A) Function CT(ByVal a As Integer)  
     If a Mod 2=0 Then      
        Return 0           
     Else        
        Return 1       
     End if         
  End Function
B) Function CT(ByVal a As Integer)
 If a Mod 2=0 Then
  CT=0
   Else
     CT=1
 End if   
    End Function
C) Function CT(ByVal a As Integer)  
      If a Mod 2=0 Then      
         CT=1             
      Else            
         CT=0                 
      End if            
     End Function         
       D) Function CT(ByVal a As Integer)
               If a Mod 2=0 Then
                  Return 1
                          Else
                  Return 0
                 End if
             End Function
考生答案:      正确答案:  B

(35) 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
   Dim m As Integer, n As Integer, p As Integer
   m=3: n=5: p=0
   Call Y(m, n, p)
   Print Str(p)
End Sub
Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer)
   k=i + j
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A) 4        
B) 6
C) 8        
D) 10
正确答案:  C

二 、填空题
(1) 在算法正确的前提下，评价一个算法的两个标准是 【1】 。
正确答案:  1.(时间复杂度和空间复杂度)

(2) 将代数式 转换成程序设计中的表达式为 【2】 。
正确答案:  1.(SQR(x^2+y^2) /(a+b))

(3) 软件危机出现于60年代末，为了解决软件危机，人们提出了 【3】 的原理来设计软件，这就是软件工程诞生的基础。
正确答案:  1.(软件工程学)

(4)  【4】 是数据库设计的核心。
正确答案:  1.(数据模型)

(5) 在关系模型中，把数据看成一个二维表，每一个二维表称为一个 【5】 。
正确答案:  1.(关系)

(6) 有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。
Private Sub Command1_Click()
   x=Val(Text1.Text)
   If  【6】  Then
      Print x
   Else
      Text1.Text=""
       【7】
   End If
End Sub
正确答案:  1.(x Mod 4 = 1 And x Mod 5 = 2) 2.(Text1.SetFocus)

(7) 已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数
Dim 【8】
For i=65 To 90
   pp(i) =0
Next
x$=InputBox("Enter a string", x$)
x$=UCase$(x$)
For i=1 To 【9】
   n=Asc(Mid$(x$, i, 1) )
   If n >=65 And n <=90 Then
       【10】
   End If
Next i
For i=65 To 90
   If pp(i) > 0 Then
      Print Chr$(i) ; pp(i)
   End If
Next
正确答案:  1.(pp(65 To 90)) 2.(Len(x＄)) 3.(pp(n) = pp(n）+ 1)

(8) 下面运行程序后，单击命令按钮，输出的结果是 【11】 。
Private Sub Command1_Click()
   Dim a%(1 To 4) , b%(3 To 6) , i%, s1#, s2#
   For i=1 To 4
     a(i) =i
   Next i
   For i=3 To 6
     b(i) =i
   Next i
   s1=YAS(A)
   s2=YAS(b)
   Print "s1="; s1; "s2="; s2
End Sub
Function YAS(a() As Integer)
   Dim t#, i%
   t=1
   For i=LBound(A) To UBound(A)
     t=t * a(i)
     Next i
     YAS=t
End Function
正确答案:  1.(s1=24  s2=360)

(9) 如果存在如下过程：
Private Function FMax(a() As Integer)
   Dim First As Integer, Last As Integer, i As Integer
   First=LBound(A)
   Last=UBound(A)
   Max=a(First)
   For i=First To Last
     If a(i) > Max Then Max=a(i)
   Next i
   FMax=Max
End Function
在窗体上添加一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
   ReDim m(1 To 4) As Integer
   m(1) =20: m(2) =30: m(3) =50: m(4) =100
   c=FMax(m)
   Print c
End Sub
单击命令按钮，其输出结果为 【12】 。
正确答案:  1.(100)

(10) 在窗体上加上一个文本框控件TextBox，画一个命令按钮，当单击命令按钮的时候将显示"保存文件"对话框，设置该对话框可用于保存文本文件(默认) 和Word文档，然后在文本框控件中显示保存的文件名，请填空。
Private Sub Command1_Click()
   CommonDialog1.Filter= 【13】
   CommonDialog1.Filter= 【14】
   CommonDialog1.ShowSave
   TextBox.Text= 【15】
End Sub
正确答案:  1.("文本文件(*.txt) |*.txt|Word文档|*.doc") 2.(1) 3.(CommonDialog1.)