简单的VB~~在3×4 矩形阵中删去第二行，并且第三行上移

以后多加点分 自然就会多点人回答你问题

Private Sub Command1_Click()
Dim a(1 To 3, 1 To 4)
For i = 1 To 3
For j = 1 To 4
a(i, j) = Int(Rnd * 10)
Print a(i, j);
Next j
Print
Next i

Print
For j = 1 To 4
a(2, j) = a(3, j)
a(3, j) = ""
Next j

For i = 1 To 3
For j = 1 To 4
Print a(i, j);
Next j
Print
Next i

End Sub

你把你现有的代码贴出来，我（们）在你代码的基础上修改。

你的删除只的是把矩阵改成3X3还是把第二行清零呢

1.如果是删除第二行,矩阵变为3X3的,应该这样做
(0) 定义一个不定长度数组
(1) 把第三行覆盖到第二行,第四行覆盖到第三行
(2) 重新定义数组下标,使之成为3X3矩阵

2.如果只是把第二行清零,第三行上移的话,这样做
(1) 把第三行覆盖到第二行
(2) 把第三行清零