code187a.txt

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

Public Sub Main()
  Dim Power As Integer, Result As Integer

  For Power = -2 to 2
    Debug.Print "10 raised to ; Power ; "is", 10.0 ^ Power
  Next

  On Error Goto ErrorFlag
  Result = 2 ^ 64  'Error! The result can't be larger than 32,767
Exit Sub

ErrorFlag:
  Debug.Print "Overflow Error!!"   
End Sub