【单选题】运行下列程序: Private Sub Form_Click( ) Dim a As Integer a = 1 For i = 1 To 5 Call fun1(a) Next i Print a End Sub Private Sub fun1(x) y = 2 Do x = x + y Loop Until x > 10 End Sub 单击窗体后,则在窗体上显示的结果是( )。
【简答题】运行下列程序: Dim t As Integer Private Sub Form_Click() t = 2 x=Val(InputBox('输入一个整数5')) Print funl(x); t End Sub Private Function fun1(y) If y>0 Then fun1 = 1: t=10 Else If y=0 Then fun1 = 0: t=20 Else fun...