vb 二维数组赋值

发布网友发布时间：2023-10-20 22:53

共2个回答

热心网友时间：2024-11-23 02:00

Public Class Form1
Dim m1%(,), x%, y%, t%, n%
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Name = Val(InputBox("请输入n的值："))
m1(1, 1) = 1
Label1.Text = m1(1, 1) & vbCrLf
For x = 2 To n
m1(i,1)=1: m1(i,i)=1
For y = 2 To i-1
m1(i,j) = m1(i - 1,y - 1) + m1(i - 1, j)
Label1.Text &= m1(x, y) & " "
Next
Label1.Text ＆= vbCrLf
Next
End Sub
End Class

热心网友时间：2024-11-23 02:00

针对第二段,没仔细研究似乎Redim(n,n) 你试试, 还有把 m1(0, 0) = 1 : m1(1, 0) = 1 : m1(1, 1) = 1 放到redim 的下面不然可能要重新赋值

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com