integerliterala.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 20 行

Option Strict Off
Imports System
Module IntegerLiteral
    Function Main() As Integer
        'Assigning boolean to integer
        Dim a As Integer
        a = True
        If a <> -1 Then
            System.Console.WriteLine("IntegerLiteralA:Failed") : Return 1
        End If
        ' Assigning float to integer
        ' if option strict is off this 
        ' Test case should pass
        a = 1.23
        If a <> 1 Then
            System.Console.WriteLine("IntegerLiteralA:Failed") : Return 1
        End If
    End Function
End Module