2007年9月计算机二级VB模拟试题(8)及答案

(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.)

希望与更多计算机等级考试的网友交流，请进入计算机等级考试论坛

更多信息请访问：考试吧计算机等级考试栏目