单项选择题

阅读下列程序。
Private Sub Command1_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
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上有一个命令按钮，然后编写如下事件过程。 Private Sub Command1_Click() Dim a(5)As String FOR i=1 To 5 a(i)=Chr(Asc( A )+(i-1)) Next For Each b h a Print b； Next End Sub 程序运行后，单击命令按钮，输出结果是
A．ABCDE
B．1 2 3 4 5
C．abcde
D．出错信息
单项选择题
把窗体的KeyPreview属性设置为True，然后编写如下事件过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) PrintChr(KeyAscii+2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是
A．A
B．B
C．C
D．D
相关试题