code110a.txt

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

Public Sub Main()
  Dim int_result as Integer
  Dim single_result as Single
  Dim long_result as Long

  int_result = CInt("1234")
  single_result = CSng("12345.678")
  long_result = CLng("1234567")
  Debug.Print int_result, single_result, long_result
End Sub