【单选题】运行下列程序: 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 x As Integer Private Sub Form_ Click() x=0 For k=3 To 5 Call ss s=s+x Next k Print s End Sub Private Sub ss() x=x+2 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...
【单选题】下列程序运行时输出的结果是 Option Base 1 Private Sub Form_Click() Dim x(10) As Integer,y(5) As Integer For i=1 to 10 x(i)=10-i+1 Next For i= 1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i= 1 to 5 Print y(i) Next End Sub