code36a.txt

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

Public Sub Main()
  Dim Dollars1$, Dollars2$, Dollars3 As Currency

  Dollars1 = 1.2
  Dollars2 = 1.234
  Dollars3 = Dollars1 * Dollars2
  MsgBox Dollars3