单项选择题

有如下一个函数过程：
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
<上一题 目录 下一题>
热门 试题

单项选择题
下列程序段的执行结果为 m=1 n=1 Select Case m Case 1 Select Case n Case 0 print A Case 1 Print B End Select Case 2 Print C End Select
A．A
B．B
C．C
D．0
单项选择题
有如下函数过程： Function Fun(By Val x As Integer，By Val y As Integer)As Integer Do While Y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下调用函数的事件过程，该程序的运行结果是 Private Sub Command7_Click() Dim a As Integer，b As Integer a=100:b=25 x=Fun(a,B) Print x End Sub
A．0
B．25
C．50
D．100
相关试题