' gctest2.vb Imports System Module GCTest2 Sub Main() Console.WriteLine(System.GC.GetTotalMemory(False)) Dim i As Integer Dim a() As String = New String(1000) {} For i = 0 To 999 a(i) = New String("A"c, 1000) Next System.GC.Collect() Console.WriteLine(System.GC.GetTotalMemory(False)) Dim b() As String = New String(1000) {} For i = 0 To 999 b(i) = New String("A"c, 1000) Next System.GC.Collect() Console.WriteLine(System.GC.GetTotalMemory(False)) Dim c() As String = New String(1000) {} For i = 0 To 999 c(i) = New String("A"c, 1000) Next System.GC.Collect() Console.WriteLine(System.GC.GetTotalMemory(False)) Dim d() As String = New String(1000) {} For i = 0 To 999 d(i) = New String("A"c, 1000) Next Console.WriteLine(System.GC.GetTotalMemory(False)) a = Nothing b = Nothing c = Nothing d = Nothing System.GC.Collect(0) Console.WriteLine(System.GC.GetTotalMemory(False)) System.GC.Collect(1) Console.WriteLine(System.GC.GetTotalMemory(False)) System.GC.Collect(2) Console.WriteLine(System.GC.GetTotalMemory(False)) End Sub End Module ' コンパイル方法:vbc /debug+ gctest2.vb