单项选择题

阅读下列程序：

PrivateSubCommand1_Click()

Dim i As Integer，k As Integer

k=2

For i=1 To 3

Print Fun(k)；

Next

End Sub

Function Fun(j As Integer)

Static b

a=0

a=a+1

b=b+1

Fun=a*b+j

End Function
程序运行后，单击命令按钮输出结果是

A．234
B．345
C．567
D．356

<上一题目录下一题>

热门试题

单项选择题

在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是Ａ) Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub Ｂ) Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub Ｃ) Private Sub Text1_Change() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub Ｄ) Private Sub Text1_SetFocus() Text.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub

单项选择题

为了在列表框中使用Ctrl和Shift键进行多个列表项的选择，应将列表框的Multiselect属性设置为

A．0
B．1
C．2
D．3

相关试题