设有以下程序代码： Private Sub Command1_Click() a=Array(1，2，7，10，6) b=Array(5，4，7，8，2) i=0 j=0 Do If i<=UBound(a)And j<=UBound(b)Then If a(i)UBound(a)And j>UBound(b) End Sub 上面事件过程执行后产生的输出是( )。

单项选择题有下面程序代码： Private Sub Command1_Click() Dim a As Integer．b a=2 b=3 Print fun(a，b)；a；b End Sub Private Function fun(ByVal x As Integer，y)As Integer y=x水y x=y fun=x End Function 执行Command1_Click过程后的输出结果是( )。

单项选择题编写如下程序代码： Option Explicit Private Sub Form_Click() Dim x As Variant Dim i As Variant x=Array(50，27，69，80，45) For Each i In x If i Mod 2=0 Then Print i End If Next i End Sub 以下叙述中正确的是( )。