forj.vb

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

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

Module M
    Function Main() As Integer
        Dim count As Integer
        Dim ErrMsg As String = ""
        For i As Decimal = 1 To 10.49 Step 0.51
            count = count + 1
        Next i
        If count <> 19 Then
            ErrMsg = "#A1 For not working"
        End If

        count = 0
        For i As Single = 1 To 10.49 Step 0.51
            count = count + 1
        Next i
        If count <> 19 Then
            ErrMsg = ErrMsg & vbCrLf & "#A2 For not working"
        End If

        count = 0
        For i As Double = 1 To 10.49 Step 0.51
            count = count + 1
        Next i
        If count <> 19 Then
            ErrMsg = ErrMsg & vbCrLf & "#A3 For not working"
        End If
        If (ErrMsg <> "") Then
            Throw New System.Exception(ErrMsg)
        End If
    End Function
End Module