单项选择题

阅读下列程序：

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
<上一题 目录 下一题>
热门 试题

单项选择题
窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下： Private Sub Command1_Click() Dim In As Integer In=______ List.Remove Ind End Sub 则在程序的空白行的语句是( )。
A．List1.Index
B．List1.ListIndex
C．List1.Text
D．List1.ListCount
单项选择题
有下列函数过程： 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
相关试题