Private Function test(x As Integer, ByVal y As Integer)

x = x + y: y = x - y

test = x * y

End Function

8、在窗体上画一个命令按钮，然后编写如下程序：

Private sub command1_click ( )

Dim a(1 to ３,２ to 4) as integer

For I=1 to ３

For j=２ to 4

A(I,j)=I*2+j*３

Next j

Next I

Print a(2,3)+a(3,2)

Endsub

程序运行后，单击命令按钮，在窗体上的的输出结果是 。

9、在窗体上画一个命令按钮，然后编写如下程序：

private sub command1_click( )

dim inta as integer

x=1

inta=inputbox("请输入a的值：")

select case inta

case 1 to 4

x=x+1

case 5 to 10

x=x+2

case 8

x=x+3

case else

x=x+4

end select

print x

end sub

程序运行后，单击命令按钮，在弹出的对话框中输入８，则窗体上的的输出结果是 。

四、程序填空题