code39a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 11 行

Public Sub Main()
  Dim Positive As Integer
  Dim Negative As Integer

  Positive = 32767
  Negative = -32768

  MsgBox Positive & " + 1 is " & Positive + 1, vbOKOnly, "Tip 102"
  MsgBox Negative & " - 1 is " & Negative - 1, vbOKOnly, "Tip 102"
End Sub