以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  请问金字塔的VBA编程中，可不可以实现二维数组的运算  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=31512)
--  作者：恋淡月映梅
--  发布时间：2012/12/14 15:05:40
--  请问金字塔的VBA编程中，可不可以实现二维数组的运算
请问金字塔的VBA编程中，可不可以实现二维数组的运算。因为如果可以的话，想学一下金字塔的VBA语言，想把MT4平台上一些策略想应用到国内的行情上面。
[此贴子已经被作者于2012-12-14 15:06:10编辑过]
--  作者：jinzhe
--  发布时间：2012/12/14 15:25:23
--  

应该可以

[此贴子已经被作者于2012-12-14 15:26:24编辑过]
--  作者：rushtaotao
--  发布时间：2012/12/14 15:29:03
--  

你用这个试试，定义二维数组示例：

dim arr(1 to 10,1 to 2)
--  作者：王锋
--  发布时间：2012/12/14 16:01:58
--  

例一

tempArray= Array("0","1","2","3","4","5","6","7","8","9",
"a","b","c","d","e","f","g","h","i","j",
"A","B","C","D","E","F","G","H","I","J",
"~","!","@","#","$","%","^","&","*","(")

Dim codeArray(9,3)
For i=0 To 3
For j=0 To 9
codeArray(j,i) = tempArray(i*10+j)
Next
Next

 

例二

dim a(1,3)
for i = 0 to ubound(a,2)
for j = 0 to ubound(a,1)
a(j,i)=x
x=x+1
next
next

for i = 0 to ubound(a,2)
for j = 0 to ubound(a,1)
str1=str1 & a(j,i) & vbcrlf
next
next
msgbox str1
 
都是百度搜来的，建议客户遇到金字塔VBA的开发问题，多利用一下网络资源。
金字塔VBA用的VBS脚本，与VBS保值100%兼容性