单项选择题

阅读下列程序： 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 Text1_KeyDown(KeyCode As Integer，Shift As Integer) Const Alt=4 Const Key_F2=&H71 altdown%=(Shift And Alt)＞0 f2down%=(KeyCode=Key_F2) If altdown% And f2down% Then Text1.Text= BBBBB End If End Sub 上述程序运行后，如果按[Shift+F2]，则在文本框中显示的是

A．Alt+F2
B．BBBBB
C．随机出几个数
D．文本框内容无变化

单项选择题

执行下列程序后，鼠标单击窗体，输出结果为 Private Sub Form_Click() Print Click ： End Sub Private Sub Form_MouseDown(Button As Integer，Shift_As Integer，X As Single，Y As Single) Print Donw End Sub Private Sub Form_MouseUp(Button As Integer，Shift_As Integer，X As Single，Y As Single) Print Up End Sub

A．DownUpClick
B．CfickDownUp
C．DownClickUp
D．UpDownClick

相关试题