vb中的矩阵怎么编程
3个回答
展开全部
编写一个4*4 的数组
Private Sub Form_Click()
Dim a(4, 4) As Integer
For i = 1 To 4
For j = 1 To 4
a(i, j) = i + j
Print a(i, j);
Next
Print
Next
End Sub
Private Sub Form_Click()
Dim a(4, 4) As Integer
For i = 1 To 4
For j = 1 To 4
a(i, j) = i + j
Print a(i, j);
Next
Next
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
设你的数组为 x(2,7)
转到 y(2,1)
dim i as integer
for i = 0 to 2
y(i,1) = x(i,0)*2^3+x(i,1)*2^2+x(i,2)*1^2+x(i,3)*2^0
y(i,2) = x(i,4)*2^3+x(i,5)*2^2+x(i,6)*1^2+x(i,7)*2^0
next
'当然,可能可以简化代码.
转到 y(2,1)
dim i as integer
for i = 0 to 2
y(i,1) = x(i,0)*2^3+x(i,1)*2^2+x(i,2)*1^2+x(i,3)*2^0
y(i,2) = x(i,4)*2^3+x(i,5)*2^2+x(i,6)*1^2+x(i,7)*2^0
next
'当然,可能可以简化代码.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
数组了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询