リスト１：桁溢れのテスト 　　Dim i As Integer 　　Dim Num As Integer 　　　　Num = 32765 　　　　For i = 1 To 5 　　　　　　Num = Num + 1 　　　　　　Debug.Print i, ":", Num 　　　　Next i 本文へ戻る