vb6.0 array数组求大神指出错误

vb中使用array给数组赋初值出现错误，系统提示array为数据类型，不是表达式，是什么原因~

你的数组声名是不是:
Dim A(xx) As xx数据类型
这样的?如果是这样的话你就改为:
Dim A(xx)
然后下面就可以赋Array() 了..

没看太明白，因为你中间还有计算，但你不能这样写，只要有出现小于0的数，就统一加你应该写成这样，另外建议除了前面的Dim JuBuMoZu2(205)之外，后面的205建议用ubound(JuBuMoZu2)来代替
flag=falseFor i = 0 To 205 sum2 = sum2 + MoZu2(i) + JuBuMoZu2(i) + GaoChengCha2(i) ZShengYuYangCheng2(i) = ZShengYuYangCheng(106) - 15 - sum2 '计算剩余压力 If ZShengYuYangCheng2(i) 0 then '出现过小于0的数 For i = 0 To pos '给出现位置之前的数据累加 ZShengYuYangCheng2(i)=ZShengYuYangCheng2(i)+flag next iend if

以这个题的数组算，刚开始数组下标0-9，如果输入的数在数组里面，则执行ReDim Preserve x(n - 1)，这句后，数组下标为：0-8，而此时For i = LBound(x) To UBound(x)句中的UBound(x)在一开始是9，调试发现，这时UBound(x)=8，但i还可以是9，所以在If x(i) = a Then时候出错了。

可以在ReDim Preserve x(n - 1)后面加一条exit for。

---

信州区13424048364： VB 6.0 array 的用法？
犹支复方： Array 函数 返回一个包含数组的 Variant.语法:Array(arglist) 所需的 arglist 参数是一个用逗号隔开的值表,这些值用于给 Variant 所包含的数组的各元素赋值.如果不提供参数,则创建一个长度为 0 的数组.说明:用来表示数组元素的...

信州区13424048364： 请教vb中的array函数 - ？
犹支复方： array是给数组赋值的,默认是从下标0开始 lbound是求数组下标最小值 ubound是求数组下标最大值

信州区13424048364： VB array 求高手简单的介绍 - ？
犹支复方： Array是返回数组的一个变体变量的函数,它可以返回这个数组的所有元素的值,但这个值是一个变体变量,例如: A = Array(10,20,30,40) 这样返回了数组A的4个元素的值,分别是:10、20、30、40 B = A(2) 返回第三个元素的值,注意数组下标是由0开始的,因此 B = 30

信州区13424048364： 在vb中array ()函数到有什么作用? - ？
犹支复方： 在vb中array() 函数用于创建数组,表示返回一个包含数组的 Variant.可以创建数值数组(百带有数字 ID 键的数组)、关联数组(带有指定的键的数组,每个键关联一个值)、多维数组(包含一个或多个数组的数组).array(50 25 369 42 23 ...

信州区13424048364： 在vb数组中求出指定数目的最大值及其下标 - ？
犹支复方： 代码如下:'arr()为你给定的目标数组,n为你指定的前n个最大值,调用例子:' Dim arr() As Variant' arr = Array(1, 4, 5, 6, 2, 6, 8, 4, 6, 7) ' PrintPreN arr, 10 Private Sub PrintPreN(arr() As Variant, n As Long) Dim Brr() As Variant '排序后的数组 ...

信州区13424048364： VB中 求数组中下标是奇数且元素是偶数的所有元素的和a = Array(10, 22, 31, 4, 50, 6, 7, 8, 90, 10) - ？
犹支复方： 1. 因为题目是要求下标是奇数,所以for i=1 to 9和for i=0 to 9结果是一样的,下标从1开始就少执行一次循环2. 先把数组第一个元素arr1(0)作为初始最小值,然后和其它各元素比较一次 所以是For i = 1 To 7,For i = 0 To 7也是没错的,只是没有必要再和自身比较一次

信州区13424048364： vb中用array为数组赋值有维数限制吗? - ？
犹支复方： 好像只能是一维,至于上限,不太清楚是多少如果你一定要做的话,我建议你先用字符串连接起来再用 Split函数来生成

信州区13424048364： VB的问题 设计一函数maxArray,求数组中的最大值,该函数能返回数组的最大值. 是 V B 的!!!! - ？
犹支复方： Function maxArray(ByRef arr() As Variant) As Variant Dim x As Variant, fst As Boolean fst = True For Each x In arr If fst Then maxArray = x fst = False Else If maxArray End If Next End Function

信州区13424048364： VB中如何对数组求最大值与最小值并交换两者的次序 - ？
犹支复方： Private Sub Command1_Click() m = Array(2, 7, 9, -12, 5, 3) u = UBound(m) Print ＂数组初始值:＂; For i = 0 To u Print m(i); Next maxpos = 0 minpos = 0 Max = m(0) Min = m(0) For i = 0 To u If Abs(m(i)) < Min Then Min = Abs(m(i)) minpos = i ...

信州区13424048364： VB.NET ARRAY 问题 - ？
犹支复方： Dim anArray(5, 3) As Integer 数组维数是从0开始计算的.数组的 GetLength 方法返回指定维的长度.anArray.GetLength(0) 表示取anArray第0维长度,0-5,即返回6 同理anArray.GetLength(1)取anArray第1维长度,0-3,即返回4