各位老師，我用兩種方法進行編程，都不能得到正確的結果。
第一種方法：
Structure aa
Public la() As Single
End Structure
Dim b(10) As Single
Private Sub ListToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ListToolStripMenuItem.Click
Dim a1 As aa = New aa
Dim lla As List(Of aa) = New List(Of aa)
a1.la = b
For i = 0 To 10
For j = 0 To 10
a1.la(j) = i * Math.PI + j
Next
Next
lla.Add(a1)
MsgBox(lla.Item(0).la(1) & vbLf & lla.Item(5).la(1))
End Sub
第二種方法：
Structure aa
Public la() As Single
End Structure
Dim b(10) As Single
Private Sub ListToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ListToolStripMenuItem.Click
Dim a1 As aa = New aa
Dim lla As List(Of aa) = New List(Of aa)
a1.la = b
For i = 0 To 10
lla.Add(a1)
Next
For i = 0 To 10
For j = 0 To 10
lla.Item(i).la(j) = i * Math.PI + j
Next
Next
lla.Add(a1)
MsgBox(lla.Item(0).la(1) & vbLf & lla.Item(5).la(1))
End Sub
代碼能正常運行，但就是不能得到我希望的結果，請問錯在哪
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/283300.html
標籤：VB基礎類