单项选择题

有如下一个函数过程： Function Fun(a As Integer) Static c b=0：b=b+1：c=c+1 Fun=a+b+c End Function 在窗体上添加一个命令按钮，事件过程如下： Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print Fun(a)； Next End Sub 运行该程序，单击命令按钮，输出结果是

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

单项选择题
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click( ) Dim a(5,5) For i=1 To 3 For j=1 To 4 a(i,j)=i*j Next Next For n=1 To2 For m = 1 To3 Print a(m,n); Next Next End Sub 程序运行后，单击命令按钮，输出结果是
A．2 4 6 1 2 3
B．1 2 3 2 4 6
C．1 2 3 4 5 6
D．6 5 4 3 2 1
单项选择题
在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程。 Private Sub Form_Load() List1.AddItem Item 1 List1.AddItem Item 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"的前面)
相关试题