以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  往过程或函数里面传输对象，或者是数组，或者是指针  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=96355)
--  作者：jinn
--  发布时间：2016/4/15 17:05:02
--  往过程或函数里面传输对象，或者是数组，或者是指针
请问如何写？我看到函数的参数定义里面有byval
好像byval并不能像vb那样as 类型
不知道传输对象，数组，或指针如何定义
--  作者：马良
--  发布时间：2016/4/15 22:12:14
--  
建议需要求明确一些，不然不好回答的。
--  作者：jinn
--  发布时间：2016/4/18 15:56:01
--  
想把a(10)数组，传输到子过程中进行打印&存储，不做数值改变。
--  作者：王锋
--  发布时间：2016/4/18 19:34:50
--  
数组就直接传递过去就行了啊，不需要指定类型的
--  作者：jinn
--  发布时间：2016/4/19 9:50:11
--  
这个语法咋写呀?问好部分不知道怎么写，我看金字塔有时候像vbs有时候像vba有时候还不一样跟那两个

sub main（）
dim a（10）
printmain（a（）)  ???
end sub

sub printmain(prta（10）？？）
for i=1to 10

  application.msgbox a(i）
next
end sub
--  作者：yukizzc
--  发布时间：2016/4/19 14:01:44
--  

Sub test()
       Dim tm
       dim a (10)
       a(0) = 1
       a(1) = 2
       call dx(a)
End Sub

Sub dx(tm)
       for i = 0 to 3
        application.MsgOut      tm(i)
       next
end sub
--  作者：jinn
--  发布时间：2016/4/19 15:34:25
--  
谢谢