vb超级数组问题

[lyingangel]

 ReDim CT1(Ntjg) As Double, CT2(Ntjg) As Double, CT3(Ntjg) As Double 
 For N = 1 To Tn                        'Tn数值在10000以上
        
            For K = 1 To CLng(Val(Text4.Text))            'Text4.Text在256以上
                Tsx = CLng(Rnd(K * N) * Ntjg)
               
                
                CT1(Tsx) = CT1(Tsx) + 1
                CT2(Tsx) = CT2(Tsx) + 1
                CT3(Tsx) = CT3(Tsx) + 1

这样算出来Tsx 使得数组CT1溢出了。。。怎么办啊？

在线等

[dbcontrols]

Ntjg是啥，多大，都没说啊

[king06]

。。。增加机器内存

[lyingangel]

Ntjg是个整数，有8位以上

[熊孩子开学喽]

ReDim CT1(Ntjg) As Double
Ntjg是个整数，有8位以上
你算算这个数组需要多少内存

[贝隆]

关注。。。

[bcrun]

最小的8位数约10M,看似还不至于因为这个就越界.楼主还是最好把这段完整的代码贴上来,看看别的哪里是不是有问题

[bcrun]

比如你这里的K,N,Ksx肯定不能定义为Integer型,要定义为Long

[of123]

Dim tmp As Double

tmp = K
tmp = tmp * N
tmp = Rnd(tmp)
tmp = tmp * Ntjg

Tsx = CLng(tmp)