snrg.net
当前位置:首页 >> VB自定义函数返回一个数组,提示不能给数组赋值 >>

VB自定义函数返回一个数组,提示不能给数组赋值

Function zbjs(dsa, r, psi, rr, x, w, s As Double) As Double() Dim p(), h As Double '加一句 ReDim p(0 To 8) As Double Dim i As Integer h = r * Sin(psi / 180 * pi) * Tan(psi / 180 * pi) + r * Cos(psi / 180 * pi) p(0) = w / 2: p(1...

VB规定数组作为参数,只能以传址方式进行调用,也就是自动传递给实际参数的数组了。

“不能给数组赋值”这个错误是由于想要改变固定数组的大小引起的,有些函数、方法的返回值是一个数组,它们会自动设置用于接受数据的数组的大小,如果你用固定数组去接受就会产生这个错误。 Array 函数返回一个包含数组的 Variant,所以你定义K的...

你定义的是 Dim revBuff(1 To 10) As Variant,revBuff(1 To 10)是一个包含10个元素的数组,但程序中你使用 revBuff 是变量,而已经定义了数组,就必须有下标,例如 revBuff(2)=值,没有下标当然不能赋值了。

if....eles结构中else后面的语句肯定能够执行,你的程序eles后面的语句执行不了,一定是你的语句有错误。 错误可分为两种,一种是逻辑错误,一种是语法错误。 见不到你写的语句,不可能分析出错误在哪里。 把你编写的程序copy发过来,好让大家替...

Array函数只用于一维动态数组,并且其类型只能是Variant. 所以要把Dim a(4) As Integer改成Dim a().

原数组为r(i);自己定义 将随便4个数给一个数组,例如rndx(3) for i=0 to 3 对 rndx(i)进行判断(你自己说写好了) k=0 if判断结果=1 then r(k)=rndx(i) k=k+1 如果第二判断结果为1,给数组第二个无数(你说的不是很清楚,我想是这意思) end if next i

Dim A As Variant Dim B As Variant A = Array(3, 4, 2, 1, 5, 7, 8, 11, 13) B = Array(10, 6, 12, 9, 13, 8, 8, 1, 16)这是代码

b = 0。。。。。这行提示错误?????????? 您是不是有定义Dim B() As Single,看一下B的定义正确的是:Dim B As Single

可以使用LBound函数 例如: Private Sub Command1_Click() Dim a(10) As Integer a(LBound(a)) = 4 '向一维数组的第一个元素赋值End Sub

网站首页 | 网站地图
All rights reserved Powered by www.snrg.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com