UC知道VB程序解答~~~
来源：百度知道 编辑：UC知道 时间：2024/07/02 04:27:31
Option Base 1
Private Sub Command1_Click()
Dim a%(3,3)
For i=1 To 3
For j=1 To 3
If j>1 And i>1 Then
A(i,j)=a(a(i-1,j-1),a(i,j-1))+1
Else
A(i,j)=i*j
End If
Print a(i,j);” “;
Next j
Print
Next i
End Sub
看不懂 请高手给我讲明白 答的好有追加
Private Sub Command1_Click()
Dim a%(3,3)
For i=1 To 3
For j=1 To 3
If j>1 And i>1 Then
A(i,j)=a(a(i-1,j-1),a(i,j-1))+1
Else
A(i,j)=i*j
End If
Print a(i,j);” “;
Next j
Next i
End Sub
看不懂 请高手给我讲明白 答的好有追加
Option Base 1
Private Sub Command1_Click()
Dim a%(3, 3) '定义一个三行三列矩阵(二维数组),%表示数组类型为Variant
For i = 1 To 3 '循环三次
For j = 1 To 3
If j > 1 And i > 1 Then
a(i, j) = a(a(i - 1, j - 1), a(i, j - 1)) + 1
Else
a(i, j) = i * j '矩阵第i行第j列数据为i和j的乘积
End If
Print a(i, j) '在窗体上打印矩阵第i行第j列数据
Next j
Print '在窗体上打印一个空行
Next i
End Sub