摩比神奇地址:问个简单的VB计算题!谁能教教我怎么做的

来源:百度文库 编辑:中科新闻网 时间:2024/05/01 02:26:56
Private Sub Command1_Click()
Dim array1(10,10)As Integer
Dim i As Integer,j As Integer
For i=1 To 3
For j=2 To 4
Array1(i,j)=i十j
Next j
Next i
Text1.Text=array1(2,3)+array1(3,4)
End Sub
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a1(4,4),a2(4,4)
For i=1 To 4
For j=1 To 4
a1(i,j)=i十j
a2(i,j)=a1(i,j)十i十j
Next j
Next i
Print a1(3,3);a2(3,3)
End Sub
程序运行后,单击命令按钮,在窗体上输出的是?怎么做出来?

你要我帮你做什么????