问题描述:
【VB编程 使2行3列转化成3行2列,请将此代码详细解释一下他的每一部的意思
VB编程 使2行3列转化成3行2列,请将此代码详细解释一下他的每一部的意思,比如 a(1,j) = a(0,j) + 为什么要加3 ,3是加给0,还是j还是?
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
Dim a(2,3) As Integer,b(3,2) As Integer,i As Integer,j As Integer
For j = 0 To 2 'a数组元素赋值
a(0,j) = j + 1 :a(1,j) = a(0,j) + 3
Next j
TextBox1.Text = "a数组:" & vbCrLf ' 在TextBox1中输出a数组
For i = 0 To 1
For j = 0 To 2
TextBox1.Text = TextBox1.Text & a(i,j) & vbTab
Next j
TextBox1.Text = TextBox1.Text & vbCrLf '换行
Next i
For i = 0 To 1 ' 转换
For j = 0 To 2
b(j,i) = a(i,j)
Next j
Next i
TextBox2.Text = "转换后:" & vbCrLf '在TextBox2中输出b数组
For i = 0 To 2
For j = 0 To 1
TextBox2.Text = TextBox2.Text & b(i,j) & vbTab
Next j
TextBox2.Text = TextBox2.Text & vbCrLf '换行
Next i
End Sub
End Class
VB编程 使2行3列转化成3行2列,请将此代码详细解释一下他的每一部的意思,比如 a(1,j) = a(0,j) + 为什么要加3 ,3是加给0,还是j还是?
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
Dim a(2,3) As Integer,b(3,2) As Integer,i As Integer,j As Integer
For j = 0 To 2 'a数组元素赋值
a(0,j) = j + 1 :a(1,j) = a(0,j) + 3
Next j
TextBox1.Text = "a数组:" & vbCrLf ' 在TextBox1中输出a数组
For i = 0 To 1
For j = 0 To 2
TextBox1.Text = TextBox1.Text & a(i,j) & vbTab
Next j
TextBox1.Text = TextBox1.Text & vbCrLf '换行
Next i
For i = 0 To 1 ' 转换
For j = 0 To 2
b(j,i) = a(i,j)
Next j
Next i
TextBox2.Text = "转换后:" & vbCrLf '在TextBox2中输出b数组
For i = 0 To 2
For j = 0 To 1
TextBox2.Text = TextBox2.Text & b(i,j) & vbTab
Next j
TextBox2.Text = TextBox2.Text & vbCrLf '换行
Next i
End Sub
End Class
问题解答:
我来补答展开全文阅读