独此代码的结果

来源:百度知道 编辑:UC知道 时间:2024/06/03 12:45:27
sub add(byval i as integer)
i=i+1
end sub
sub form_click()
dim x
add x : print x
end sub
读不出来结果的,看看哪错了!

sub add(byref i as integer)
i=i+1
end sub
sub form_click()
dim x as integer
add x
print x
end sub

有两处错,一是sub add(byval i as integer) 应该把byval去掉,二是dim x 应该dim x as integer

不应该有正确结果的。首先,变量x没有赋值。比如可以用Dim x = 10。其次,你那个add方法是不是要把传进来的参数加1啊?如果是的话,应该把定义改成sub add(byref i as integer),这样应该就好了。用“byref”是因为应该用传址方式的~~