code40a.txt

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

Public Sub Main()
  Dim Accurate As Single
  Dim More_Accurate As Double

  Accurate = 0.123456789098765
  More_Accurate = 0.123456789098765

  MsgBox "Value of single variable: " & Accurate, vbOKOnly, _
    "Tip 103"
  MsgBox "Value of double variable: " & More_Accurate, vbOKOnly, _ 
    "Tip 103"
End Sub