66问答网
所有问题
当前搜索:
vb怎么给数组赋值
vb
中
怎么赋值给数组
?
答:
a(i) = i'这里可以直接
给数组赋值
了 Print "a(" & i & ")的值" & a(i) '打印数组 Next End Sub 第二种方式:Private Sub Command1_Click()Dim a() As Integer '定义数组a,这里未设置下标 For i = 0 To 10 ReDim Preserve a(i)'ReDim 语句改变数组的元素以及维数的数目 a(i)...
vb
如何为
数组赋
初值
答:
1. 直接
赋值
,此法只适合和小
数组
Dim myArray() as Integer ={1,2,3,4,5}或Dim myArray(5)as integermyArray(0)=1myArray(1)=2 myArray(2)=3 myArray(3)=3 myArray(4)=5 myArray(5)=62.最常用的for next循环赋值Dim myArray()as integerFor intCount as Integer= 0 to 5myArray(intCoun...
vb
数组
定义与
赋值
答:
Dim cnt1 as Variant cnt1=array(1600,0,0,0,0)=== Array 函数 返回一个包含
数组
的 Variant。语法 Array(arglist)所需的 arglist 参数是一个用逗号隔开的值表,这些值用于给 Variant 所包含的数组的各元素
赋值
。如果不提供参数,则创建一个长度为 0 的数组。说明 用来表示数组元素的符号由变量...
VB
数组赋值
、定义。
答:
(1)在有些语言中,下界一般从1开始,为了便于使用,在
VB
的窗体层或标准模块层用Option Base n 语句可重新设定
数组
的下界,如Option Base 1。(2) 在数组声明中的下标关系到每一维的大小,是数组说明符,而在程序其他地方出现的下标为数组元素,两者写法相同,但意义不同。(3) 在数组声明时的下...
vb
里能
给数组赋
初始值吗
答:
除了用循环之外, 可以这样
赋
初值 ,如下:dim a a=array(1,2,3)但是不能这样:dim a(3) as double a=array(1,2,3)会出现错误:can't assign to array
在
VB
编程中怎样给二维
数组赋值
答:
Dim a(3) As Variant a(0) = Array(1, 2, 3, 4)a(1) = Array(5, 6, 7, 8)a(2) = Array(9, 10, 11, 12)a(3) = Array(13, 14, 15, 16)For i = 0 To 3 For j = 0 To 3 Debug.Print a(i)(j);Next j Next i ...
VB
中
数组赋值
问题:我有两个数组A=(1,2,3);B=(4,5,6)现在
怎么样
让A数组...
答:
Dim A() As Integer Dim B() As Integer Dim LA As Long Dim LB As Long Dim i ReDim A(2)ReDim B(2)'给A,B
赋值
A(0) = 1 A(1) = 2 A(2) = 3 B(0) = 4 B(1) = 5 B(2) = 6 '赋值结束 LA = UBound(A) - LBound(A) + 1 LB = UBound(B) - LBound(B...
VB
有没有
给数组
整体
赋值
的语句
答:
Private Sub Command1_Click() Dim a(), b(), c(0 To 5), d() a = Array(1, 2, 3, 4, 5, 6) Print " a:"; For i = 0 To 5 Print a(i); Next i Print b = a Print "b=a" Print " b:"; For i = 0 To 5 Print b(i); Next ...
Vb
一维
数组
,
赋值
、求和、求平均值,如何编程啊?
答:
x As Long, y As Double For i = 0 To 4 a(i) = i '
给数组赋值
Print "a(" & i & ")=" & a(i) x = x + a(i)'计算数组和 Next Print "数组和是:" & x y = x / (UBound(a) + 1)'平均数 Print "数组平均数是:" & yEnd Sub ...
vb
循环语句
给数组赋值
问题
答:
很容易啊,用REDIM重定义下
数组
大小即可,例:Private Sub Command1_Click()Dim n() As LongReDim n(Val(Text1))Dim lj As LongFor i = 0 To Val(Text1) - 1n(i) = i + 1lj = lj + n(i) '计算累加值Next iPrint ljEnd SubPrivate Sub Form_Load()Text1 = 50End Sub ...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vba一维数组赋值给二维数组
vb用inputbox给数组赋值
vb不能给数组赋值
vb如何用excel表给数组赋值
vba不能给数组赋值
vba给数组赋值
vba循环给数组赋值
vba给全局数组赋值
vba数组给单元格赋值