编写如下程序: Private Sub Command1_Click()   Dim m As Integer, n As Integer   n=2   For m=1 To 3     Print proc(n);   Next m End Sub F

admin2015-06-30  26

问题 编写如下程序:
Private Sub Command1_Click()
  Dim m As Integer, n As Integer
  n=2
  For m=1 To 3
    Print proc(n);
  Next m
End Sub
Function proc(i As Integer)
  Dim a As Integer
  Static b As Integer
  a=a+1
  b=b+1
  proc=a * b+i
End Function
程序运行后,单击命令按钮Command1,输出结果为(  )。

选项 A、3 3 3
B、3 4 5
C、3 5 6
D、1 2 3

答案B

解析 变量b定义为Static即静态变量,它的特点是每次调用都会保留上次的值。程序click事件中调用了3次proc(n),即proc(2):
    第一次,a=a+1=0+1=1, b=b+1=0+1=1 , proc=a*b+i=1*1+2=3;
    第二次,a=a+1=0+1=1, b=b+1=1+1=2 , proc=a*b+i=1*2+2=4;
     第三次,a=a+1=0+1=1, b=b+1=2+1=3 , proc=a*b+i=1*3+2=5;
     因此输出的结果为3  4  5。
转载请注明原文地址:https://kaotiyun.com/show/TVQp777K
0

最新回复(0)