单项选择题

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

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个列表框和一个命令按钮，其名称分别为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"的前面)

单项选择题

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

相关试题