-
本版专家分：0结帖率 95.83% -
我想实现这样的功能
一个过程abc ( x,y)，其中x与y都是integer型
在调用这个过程时，它会同时返回x与y两个值，也就是
这个过程没有入的参数，反而有输出两个数分别放在x,y内。
在其他编程语言中，可以用变参来实现，但不知道VB中应该怎么写？
谢谢！最好给一个实例。问题点数：50分
-
本版专家分：31
-
拜托你能否说清楚一点，明明你写的是abc(x,y),怎么又没有入参了呢。
可以考虑使用Session传递。
比如：
<% sub abc(x,y)
' ……代码省略
Session("x")=x
Session("y")=y
end sub
%>
<%
dim x1
dim y1
abc(x1,y1)
x1=Cint(session("x"))'转换为整数
y1=Cint(session("y"))
%>
不知道是否合乎你的要求。
-
本版专家分：22119
-
- 黄花 2001年8月 Web 开发大版内专家分月排行榜第二
-
-
function abc(){
myarray=new array(x,y);
return myarray;
}
-
本版专家分：22119
-
- 黄花 2001年8月 Web 开发大版内专家分月排行榜第二
-
-
function abc()
myarray=array(x,y)
abc=myaray
end function
-
本版专家分：255 -
dim x,y '声明为全局变量(注意:不要重名)
sub abc()
....
x=?
y=?
end sub
'call
call abc '即可用x,y的值了
-
本版专家分：8248
-
-
黄花
2001年9月 Web 开发大版内专家分月排行榜第二
2001年7月 Web 开发大版内专家分月排行榜第二
-
-
蓝花
2001年5月 Web 开发大版内专家分月排行榜第三
2001年10月 VB大版内专家分月排行榜第三
-
-
>>VB中应该怎么写
晕，上面都不知道在说什么？？？简单了：
sub abc(ByRef x,ByRef y) '不要告诉我你没用过ByRef
x=1 '返回x
y=2 '返回y
end sub
调用：
Dim a,b
a=10
b=20
call abc(a,b)
msgbox(a)
msgbox(b)
BTW:其实在VB(包括在VBS中），参数的应用缺省都是ByRef的
-
本版专家分：0
-
感谢blueray(蓝色射线),tripofdream(梦之旅),i_need_mana(小岭)和hydnoahark(诺亚方舟)！
谢谢大家!
这个问题解决了，但是我的问题还没有解决！！！
真正的问题是：
=================
这个过程是用其他语言编写的asp控件，但我在asp中调用时却出错！
我也象 call abc(a,b)一样去调用它，
结果却返回一个错误:Type mismatch!
Dim iwidth,iheight
s="test.gif"
call PictureSize(s,iwidth,iheight) <==这句话本要返回一图片的宽和高，但是出错！
==========
而PictureSize是控件的一个子过程
还请大家看看是什么原因出错，谢谢！