单项选择题

阅读下列程序。
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

<上一题目录下一题>

热门试题

单项选择题

假定有如下的Sub过程： Sub Sub1(x As Single，y As single) t=x x=t y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_click() Dim a As Single Dim b As Single a=5 b=4 Sub1 a，b Print a；b End Sub 程序运行后，单击命令按钮，输出结果为

单项选择题

在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程： Private Sub Form_Load() List1.AddItem Item 1 List1.AddIrem tem 2 List1.AddItem Item 3 End Sub Private Sub Command1_Click() List1.List(List1.Listcount)= AAAA End Sub 程序运行后，单击命令按钮，其结果为

A．把字符串"AAAA"添加到列表框中，但位置不能确定
B．把字符串"AAAA"添加到列表框的最后(即"Item 3"的后面)
C．把列表框中原有的最后一项改为”AAAA"
D．把字符串"AAAA"插入到列表框的最前面(即"Item 1"的前面)

相关试题