Public Class Form1 2: Inherits System.Windows.Forms.Form 3: 4: #Region " Windows フォーム デザイナで生成されたコード " 5: 6: Public Class Test 7: Public v As Integer 8: End Class 9: 10: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 11: Trace.WriteLine(DateTime.Now) 12: Dim count As Integer 13: count = 10000000 14: Dim test(count) As Test 15: Dim i As Integer 16: For i = 0 To count - 1 17: test(i) = New Test() 18: test(i).v = i 19: Next 20: Dim sum As Long 21: For i = 0 To count - 1 22: sum = sum + test(i).v 23: Next 24: Trace.WriteLine(DateTime.Now) 25: End Sub 26: End Class
