7万
861
32万
论坛元老
文件名称:
ByVal.asp
ByRef.asp
具体代码:
<%Sub TestMain()Dim A : A=5Call TestBy(A)Response.write AEnd SubSub TestBy(ByVal T)T=T+1End subcall TestMain()%>
<%Sub TestMain()Dim A : A=5Call TestBy(A)Response.write AEnd SubSub TestBy(ByRef T)T=T+1End subcall TestMain()%>
运行结果:
5
6
结 论:
注意:子程序TestBy(ByVal T)中T变量声明方式是ByVal
运行结果子程序没有影响到A的值
注意:子程序TestBy(ByRef T)中T变量的声明方式是ByRef
运行结果A的值通过子程序发生了改变
使用道具 举报
0
1万
中级会员
27
2万
331
15
122
注册会员
68
1
362
11
300
100
4
316
2
73
本版积分规则 发表回复 回帖后跳转到最后一页
手机版|小黑屋|网站地图|源码论坛 ( 海外版 )
GMT+8, 2024-11-25 06:09 , Processed in 0.136468 second(s), 26 queries .
Powered by Discuz! X3.4
Copyright © 2001-2020, Tencent Cloud.