33问答网
所有问题
当前搜索:
VB定义二维数组
VB
语言
二维数组
元素个数怎么算?
答:
若是有option base XX,例如option base 1,a(3,4)就等价于a(1 To 3,1 To 4),
数组
就有3*4=12个元素。例如a(3,4),第一维是3,第
二维
是4,数组就有(3+1)*(4+1)=20个元素,因为这时下界默认是0,等价于a(0 To 3,0 To 4)。同理,option base 2,a(3,4)就...
VB
如何赋值给一组
二维数组
答:
赋给无规律字符,不用循环,当然没有简便方法,只能一个一个赋值。另外你的题目说
二维数组
,你自己的举例里面却是一维数组,自相矛盾啊。我按照二维数组举例的。=== Dim a(2, 2) As String a(0, 0) = "a"a(0, 1) = "b"a(0, 2) = "c"a(1, 0) = "d"a(1, 1) = "e"...
vb
如何输出
二维数组
答:
你要先将文本框的MultiLine设为true,在用循环输出就可以了
用
VB
编写程序,把下面的数据输入到一个
二维数组
中:
答:
Dim a(4, 4), b(4, 4) As Integer For i = 0 To 3 For j = 0 To 3 a(i, j) = Val(InputBox("请输入第" & i + 1 & "行第" & j + 1 & "列的数"))Next j Next i Print "原始数据"For i = 0 To 3 Print a(i, 0) & " " & a(i, 1) & " " & a(...
vb
中怎么才能把一个
二维数组
输出成矩阵形状?
答:
假定
二维数组
名为a For x = LBound(a, 1) To UBound(a, 1)For y = LBound(a, 2) To UBound(a, 2)Print a(x, y);Next Print Next
VB
编程题:求
二维数组
a(m,n)中的最大值以及最大值所在的行号和列号,行...
答:
Private Sub Command1_Click()Dim a() As Integer m = InputBox("请输入行数m:")n = InputBox("请输入列数n:")ReDim a(m, n)For i = 1 To m For j = 1 To n a(i, j) = InputBox("请输入a(" & i & "," & j & ")")Print a(i, j);Next j Print Next i Max...
vb二维数组
赋值问题
答:
你那么厉害了不会不懂写吧?VBA整型
定义
后全都是赋为0的,并不需要赋值0。W循环这个应该简单吧:写上个看看,没运行过,你试试 dim w,q as interger for w=1 to 10 for q=1 to 23 ability(w,q)=ability(0,q)next next msgbox ability(2,1) '看看成功没!
...的问题1.利用随机函数生成一个4*5的矩阵(
二维数组
),范围是[1,100...
答:
Function t_rand()s = ""Dim a(0 To 4, 0 To 5) As Integer Max = 0 For i = 0 To 3 For j = 0 To 4 a(i, j) = Int((100 * Rnd) + 1)If a(i, j) > Max Then Max = a(i, j)s = s & a(i, j) &
vb
Tab ' Debug.Print a(i, j)Next j s = s &...
VB
随机生成由两位正整数所构成的4行5列的
二维数组
,求与之对应的标记数组...
答:
Dim ary(4, 5) As Integer Dim mark(4, 5) As String Dim sum As Integer Dim avg As Integer Private Sub Command1_Click()For i = 0 To 3 For j = 0 To 4 Randomize Timer ary(i, j) = Int(89 * Rnd + 10) '10-99 sum = sum + ary(i, j) '和 Text1.Text = ...
VB
中的
数组
是什么
答:
即数组中的变量。用下标表示数组中的各个元素。表示方法:数组名(P1,P2,……)其中P1、P2表示元素在数组中的排列位置,称为“下标”。如:A(3,2)代表
二维数组
A中第3行第2列上的那个元素。3.数组维数:由数组元素中下标的个数决定,一个下标表示一维数组,二个下标表示二维数组。
VB
中有一维...
棣栭〉
<涓婁竴椤
6
7
8
9
11
12
13
14
10
15
涓嬩竴椤
灏鹃〉
其他人还搜