单项选择题

阅读下列程序： 　　Private Sub Command1_Click() 　　　Dim i As Integer，k As Integer 　　　k=2 　　　For i=1 To 3 　　　　　Print H(k)； 　　　Next i 　　End Sub 　　Function H(j As Integer) 　　　a=0 　　　Static b 　　　a=a+1 　　　b=b+1 　　　H=a*b+j 　　End Function 　　程序运行后，单击命令按钮输出结果是（ ）。

A．234
B．345
C．567
D．356
<上一题 目录 下一题>
热门 试题

单项选择题
现有如下程序： Private Sub Command1_Click() s=0 For i=1 To 5 s=s+f(5+i) Next Print s End Sub Public Function f(x As Integer) If x＞=10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序，则窗体上显示的是( )。
A．38
B．49
C．61
D．70
单项选择题
如下事件过程：Function Feed(x)If x ＜10 ThenFeed=XElseFeed=10+xEnd IfEnd FunctionPrivate Sub Command1_Click( )x=Val(Input Box( ，0))pay=Feed(x)Print payEnd Sub运行时在输入框内输入变量x的值为15，输出结果为( )。
A．0
B．15
C．25
D．30
相关试题