;

 

（22）有如下过程代码： 

 

Sub var_dim() 

 

Static numa As Integer 

 

Dim numb As Integer 

 

numa = num