单项选择题

阅读下列程序：

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)

Static b

a=0

a=a+1

b=b+1

H=a*b+j

End Funmion

单击命令按钮，执行程序，输出结果是( )。

A．2 3 4
B．3 4 5
C．5 6 7
D．3 5 6
<上一题 目录 下一题>
热门 试题

单项选择题
有下列函数过程： Function Func2(a As Integer,b As Integer)As Integer Staticm As Integer,i As Integer m=0 i=2 a=i+m+1 b=i+a+b Func2=m End Function 在窗体上画一个命令按钮，然后编写下列事件过程： Private Sub Command1_Click() Dim p As Integer,k As Inmger,m As Integer k=4 m=1 p=Func2(k,m) Prim k;m p=Func2(k,m) Print k;m End Sub 程序运行后，单击命令按钮，输出结果是( )。
A．3 6＜CR＞3 6
B．3 6＜CR＞3 11
C．3 11＜CR＞3 6
D．3 11＜CR＞3 11
单项选择题
运行下列语句后，输出的结果是( )。 Option Base 1 Dim a i=1 a=Array(1,-2,9,0,-1,9) Do k=a(i) For m=10 To k Step-2 n=k+m Next m Print n+m i=i+1 Loop While Abs(m+n)＜＞27
A．3 27-8
B．3-8 27
C．-8 27 3
D．-8 3 27
相关试题