阅读程序：
Function Fun( a As Integer)
Static c
b=0:b=b+2:c=c+2
F=a*b*c
End Function
Private Sub Commandl _ Click( )
Dim a As Integer
a=2
For i = 1 To 2
Print Fun (

单项选择题在窗体中添加一个命令按钮，编写如下程序： Private Sub Test(p，m，n) p=p+1：m=m+1：n=n+1 Print Sub: ;p；m；n End Sub Private Sub Command1.Click() a1=1：b=2：c1=3 Call Test((a，b1+3，(c1)) Print Main： ；a1；b1；c1 End Sub 程序运行后，输出结果为

单项选择题下面程序段执行结果为 x=Int(Rnd()+4) Select Case x Case 5 Print excellent Case 4 Print good Case 3 Print pass Case Else Print fail End Select