📄 decimalliteraltesta.vb
字号:
Imports SystemModule DecimalLiteral Function Main() As Integer Dim a As Decimal = 1.23D Dim b As Decimal = 12300000000D Dim c As Decimal = 9223372036854780800D Dim d As Decimal = 0.23D Dim f As Decimal If a <> 1.23D Then System.Console.WriteLine("#A1-DecimalLiteralA:Failed") : Return 1 End If If b <> 12300000000D Then System.Console.WriteLine("#A2-DecimalLiteralA:Failed") : Return 1 End If If c <> 9223372036854780800D Then System.Console.WriteLine("#A3-DecimalLiteralA:Failed") : Return 1 End If If d <> 0.23D Then System.Console.WriteLine("#A4-DecimalLiteralA:Failed") : Return 1 End If If f <> 0 Then System.Console.WriteLine("#A5-DecimalLiteralA:Failed") : Return 1 End If End FunctionEnd Module
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -