66问答网
所有问题
当前搜索:
vb怎么给数组赋值
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)) < ...
vb
中如何初始化
数组
?
答:
这样数组就赋好值了。”然后比如要统计10在这个数组中出现了几次可以定义个变量N来记录它的出现次数,代码如下:Dim a(9) As Integer '定义数组a有10个元素 Dim i As Integer dim n as integer '记录指定数在数组中出现的次数 For i = 0 To 9 '
给数组
a
赋值
Randomize a(i) = Int...
vb
中为什么不能
给数组赋值
答:
A、B、C定义了数组型Variant变量后下面的赋值就错误了。解决办法就是一楼的办法,即去掉(0 to 8),下面就是创建一个以为
数组赋值
给变量。
vb
中
数组
循环结构
赋值
的问题
答:
'这是把一个10x5的二维
数组
全部
赋值
为0 '这样写没有实际意义 '因为如果定义为Integer或者Long那么初始值就是0 Dim stu(1 To 10, 1 To 5) As Integer Dim i As Integer Dim j As Integer '这里表明从1到10每次加1然后赋值给i For i = 1 To 10 'j和i一样,从1到5每次加1 For j =...
VB
二维
数组
怎吗将第一列的第一个数,和第一列的最后一个数,提取出来...
答:
dim arrX(2 to 5,6 to 10) as single a=arrX(lbound(arrX,1),lbound(arrX,2)) '第一列的第一个数 b=arrX(lbound(arrX,1),Ubound(arrX,2)) '第一列的最后一个数
vb
.net
数组赋值
答:
Dim n, i, j As Integer '这里你用的是默认的值,所以N是0,这样,下面的那句话就成了 Dim a(n - 1, n - 1) As Long 'Dim a(0-1,0-1) As Long 也就是 Dim a(-1,-1) As Long 以后调用的时候肯定会出错
vb
中如何在一个升序的
数组
中插入某一个特定的值?
答:
As Integer str = "原来的数列为" & vbCrLf For i = 1 To 20 Randomize() a(i) = Int(Rnd() * 90 + 10) str = str & a(i) & " " Next str = str & vbCrLf & "排序后的
数组
为" & vbCrLf For i = 1 To 20 For j = 1 To 20 - i ...
VB
窗口中如果有多个文本框,怎样用
数组
分别为他们
赋值
?
答:
你这多个文本框最好弄成控件
数组
,并且与要
赋值
的数组一一对应,这样就方便得多,比如(假定文本框数组名为Text1,数组为a()):For i = 0 To UBound(a) Text1(i).Text = a(i)Next如果文本框不是控件数组则比较麻烦,你要一个一个进行赋值。如果文本框的名字是有规律的,比如Text1、Text2...
vb
.net
数组
如何
赋值
答:
Dim abc(2) As Integer abc = {0, 1, 2} '或者 Dim abcd() As Integer ReDim abcd(9)For i As Integer = 0 To abcd.Length - 1 abcd(i) = i Next 也可声明为字符串
数组
VB
定义二维
数组
并
赋值
。
答:
VB
没有直接对二维
数组
初始化的方法 最简单获得已初始化二维数组的方法,我知道的就是把数据放在Excel里 用VBA,x = sheet1.range(“a1:i25”)x返回的就是一个25*9的二维数组,每个元素等于单元格的值
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜