code40a.txt

VB大全（精华版）源代码

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