vb二维数组输入 vb给二维数组赋值

'可以变通一下'vb6 2010语法差不多 Private Sub Command1_Click() Dim temp, a(2, 2), t, i, j temp = Split(＂1,3,5;4,7,8;2,4,9＂, ＂;＂) For i = 0 To UBound(temp) t = Split(temp(i), ＂,＂) For j = 0 To UBound(t) a(i, j) = t(j) Next Next End Sub

假设数组名为a 例:dim a(0 to 2,0 to 3) as integer,tmpi as integer if a(1,1)=a(1,0) then a(1,1)=0 '右边 if a(0,0)=a(1,0) then a(0,0)=0 '上边 if a(2,0)=a(1,0) then a(2,0)=0 '下边 .

private sub command1_click() dim a%(4, 4), b% for i = 1 to 4 for j = 1 to 4 a(i, j) = b + 1 b = a(i, j) print a(i, j); next j print next i end sub

你理解错了,比如下列数字中:12 14 556 8834 66 77 4566 55 88 55a(1,1)=12,a(2,3)=77a(m,n)就是一个数字或字符串,而mn通常用在for……next中,以方便代码书写.

DIM a(3,3) a(0,0)=25;a(0,1)=36 .. dim sum1 as integer sum1=a(0,0)+a(1,1)+a(2,2)+a(3,3) sum2=a(4,0)+a(3,1)+a(2,2)+a(1,3)

Dim a(1 To 4, 1 To 4) As Integer a(1, 1) = 25 a(1, 2) = 36 a(1, 3) = 78 a(1, 4) = 13 a(2, . a(4, 2) = 44 a(4, 3) = 36 a(4, 4) = 58 Print ＂原数组是:＂ For i = 1 To 4 For k = 1 To .

你要先将文本框的MultiLine设为true,在用循环输出就可以了

我来个另类的呵呵,碰撞检测法完成这个题目,我的代码在VS2008里调试通过,代码需要在VS2003以上版本运行,VB6由于有些关键字不支持无法运行.Public Class .

dim n, m as integer n = inputbox(＂请输入二维数组的行数＂) m = inputbox(＂请输入二维数组的列数＂) dim a(n, m) as integer for i = 1 to n for j = 1 to m a(i, j) = int(rnd() * 100 + 1) next next

Private Sub Command1_Click() Dim Ewsz(1 To 3, 1 To 2) As Integer For i = 1 To 3 For j = 1 To 2 Ewsz(i, j) = InputBox(＂请输入Ewsz(＂ & i & ＂,＂ & j & ＂)的值＂) Print Ewsz(i, j), Next j Print Next i End Sub