Dim a%(3,3),i%,j% For i = 1 To 3 For j = 1 To 3 If j > land And i > 1 Then 中的j > land 含义为?

dim a(3,2) as integer a(3,2)啥意思a(j,i)呢 Dim a%(3,3),i%,j% For i = 1 To 3 For j = 1 To 3 If j > land And i > 1 Then 中的j > land 含义为? VB练习题7道,七道全讲完才行一、Private Sub Command1_Cilck()Dim a(4,4)For i = 1 To 4For j = 1 To 4Next jNext iFor j = 3 To 4For j = 3 To 4Print a(j,i);Next jEnd Sub9 1210 13二、Private Sub Form _Click()Dim a(10),p(3)As Integerk = 5For i private sub command1_click( ) dim a a=array(1,2,3,4) j=1:s=0 for i=4 to 1 step -1 s=s + a(i)*j j= VB 使显示每行的最大值的位置（下面的程序可以把最大值找出）Private Sub cmdbegin_Click() Dim a(4,3) As Integer,i As Integer,j As Integer Dim max As Integer For i = 1 To 4 For j = 1 To 3 a(i,j) = InputBox(请输入矩阵的第 Dim x(3,5) As Integer For i = 1 To 3 For j = 1 To 5 x(i,j) = x(i - 1,j - 1) + i + j Next j Next iprint (3,4) Dim j%,i%,m% m = 0 For i = 1 To 3 For j = 1 To i m = m + j Next j,i Text1 = Str(m)最后m j 是多少 dim a(10,10) as integer for i=1 to 10 for j=1to 10 a(i,j)=i*j next j,i print a(2,2)+a(3,3)上面的每一步都是什么意思,麻烦备注出来 将3*3的矩阵转置我编了个程序Private Sub Form_click()Dim a(1 To 3,1 To 3),i As Byte,j As Byte,t As ByteFor i = 1 To 3For j = 1 To 3a(i,j) = Val(InputBox(a（ & i & , & j & ）=?))Next jNext iFor i = 2 To 3For j = 1 To i - 1t = a(i,j): Private Sub Form-Click() Dim a a = Array(1,2,3,4) j = 1 For i = 4 To 1 Step -1 s = s + a(i)Private Sub Form-Click() Dim a a = Array(1,2,3,4) j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next IPrint sEnd Sub 1234. vb中判断语句 If A(i,j) =0 Then A(i,j)=k,其中动态数组A（）被赋值为0,option base1dim A() as integerprivate sub command1_click()dim i as integer ,j as integer ,k as integerdim n as integern=3redim A(n,n)i=1:j=(n+1)/2k=1A(i,j)=k ________ Private Sub Command1_Click() Dim i,j As Integer For i = 3 To 1 Step -1 Print Spc(5); For j = 1 To 2Private Sub Command1_Click()Dim i,j As IntegerFor i = 3 To 1 Step -1Print Spc(5);For j = 1 To 2 * i - 1Print *;nextjPrintNext iEnd Sub请问它为什 Private Sub Form_click() Dim x,i,j x = 0 For i = 0 To 1 x = x + 1 For j = 0 To 3 If Not (j Mod 2)Private Sub Form_click()Dim x,i,jx = 0For i = 0 To 1x = x + 1For j = 0 To 3If Not (j Mod 2) Then x = x + 1Next jNext iPrint x=; xEnd Sub运行后结果 vb编程 Call q(1,i):Call q(2,j):Call q(3,k):Dim i As Integer,j As Integer,k As Integer,h As IntegerPrivate Sub Form_click()i = 0:j = 1:k = 2Call q(1,i):Print i; j; kCall q(2,j):Print i; j; kCall q(3,k):Print i; j; kEnd SubPrivate Sub p(i)i = i + 1:P 下列程序的执行结果为（）.dim a(10),b(5) for i=1 to 10 a(i)=i next i for j=1 to 5 b(j)=j*20 next j 向量i(i+j)+j(2j+3j)=? 下标越界dim .for i = 1 to 7for j = 1 to 7 if i = 1 or j = 1 then a(i,j)=1elsea（i,j） =a（i-1,j-1）+a（i-1,j）end ifnext j next ifor i= 1 to7for j= 1 to iprint a（i,j）next j printnext i .运行说是下标越界 a（i,j） =a（i-1,j-1 DIM AS INTEGER A(6),I,T,J,P T=0 FOR I=1 TO 6:A(I)=7-I:NEXT FOR I=1 TO 5 FOR J=1 TO 5 IF A(J)>A(