module1.vb

来自「编程之道VB.NETt程序设计入门-589M.zip」· VB 代码 · 共 33 行

Module Module1

    Sub Main()
        Dim x, y, z, w As Integer, sy, sz As Single
        x = 1 + 2 * 3 ^ 4
        y = 23 / 5
        sy = 23 / 5
        z = 23 \ 5
        sz = 23 \ 5
        w = 23 Mod 5
        System.Console.WriteLine(("x: " & x) + (" y: " & y) + (" sy: " & sy) + (" z: " & z) + (" sz: " & sz) + (" w: " & w))

        Dim a, b, c, d As Boolean
        a = (1 = 2)
        b = (1 < 2)
        c = (1 > 2)
        d = (1 <> 2)
        System.Console.WriteLine(("a: " & a) + (" b: " & b) + (" c: " & c) + (" d: " & d))

        Dim r, s, u, v, f, g As Boolean
        r = True And (1 + 1 = 2)
        s = False And (1 + 1 = 2)
        u = True Or (1 + 1 = 2)
        v = False Or (1 + 1 = 2)
        f = True Xor (1 + 1 = 2)
        g = False Xor (1 + 1 = 2)
        System.Console.WriteLine(("r: " & r) + (" s: " & s) + (" u: " & u) + (" v: " & v) + (" f: " & f) + (" g: " & g))

        System.Console.ReadLine()
    End Sub

End Module