Single

Example

'!TITLE "Declaration of Single Precision Real Number Type Data"
' Assign a value to declared variable and display it on the message output window
Sub Sample_Single 

  ' Declare a variable named aaa in single precision real number type data
  Dim aaa as Single

  ' Declare a variable named bbb in single precision real number type data
  Dim bbb As Single

  aaa = 1234.567

  bbb = 1234.5678

  ' Display "1234.567" on the message output window
  PrintDbg aaa

  ' Display "1234.568" on the message output window
  PrintDbg bbb

End Sub