forf.vb

大名鼎鼎的mono是.NET平台的跨平台（支持linux

'Author:
'   V. Sudharsan ([e-mail])
'
' (C) 2005 Novell, Inc.
Option Strict Off

Module M
    Function Main() As Integer
        Dim ErrMsg = ""
        Dim count As Integer
        For i As Long = 5 To 15 Step 1
            count = count + 1
        Next i
        If count <> 11 Then
            ErrMsg = "#A1 For not working"
        End If

        count = 0
        For i As Short = 5 To 15 Step 1
            count = count + 1
        Next i
        If count <> 11 Then
            ErrMsg = ErrMsg & vbCrLf & "#A2 For not working"
        End If

        count = 0
        For i As Byte = 5 To 15 Step 1
            count = count + 1
        Next i
        If count <> 11 Then
            ErrMsg = ErrMsg & vbCrLf & "#A3 For not working"
        End If

        count = 0
        For i As Object = 5 To 15 Step 1
            count = count + 1
        Next i
        If count <> 11 Then
            ErrMsg = ErrMsg & vbCrLf & "#A4 For not working"
        End If

        count = 0
        For i As Double = 5 To 15 Step 0.1
            count = count + 1
        Next i
        If count <> 101 Then
            ErrMsg = ErrMsg & vbCrLf & "#A5 For not working"
        End If

        count = 0
        For i As Single = 5 To 15 Step 0.1
            count = count + 1
        Next i
        If count <> 100 Then
            ErrMsg = ErrMsg & vbCrLf & "#A6 For not working"
        End If

        count = 0
        For i As Decimal = 5 To 15 Step 0.1
            count = count + 1
        Next i
        If count <> 101 Then
            ErrMsg = ErrMsg & vbCrLf & "#A7 For not working"
        End If
        If (ErrMsg <> "") Then
            Throw New System.Exception(ErrMsg)
        End If
    End Function
End Module