code39a.txt

VB大全（精华版）源代码

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