本文整理汇总了VB.NET中System.Single.ToString方法的典型用法代码示例。如果您正苦于以下问题：VB.NET Single.ToString方法的具体用法？VB.NET Single.ToString怎么用？VB.NET Single.ToString使用的例子？那么, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类System.Single的用法示例。
在下文中一共展示了Single.ToString方法的6个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1:
Dim value As Single = 16325.62901
Dim specifier As String
Dim culture As CultureInfo
' Use standard numeric format specifiers.
specifier = "G"
culture = CultureInfo.CreateSpecificCulture("eu-ES")
Console.WriteLine(value.ToString(specifier, culture))
' Displays: 16325,62901
Console.WriteLine(value.ToString(specifier, CultureInfo.InvariantCulture))
' Displays: 16325.62901
specifier = "C"
culture = CultureInfo.CreateSpecificCulture("en-US")
Console.WriteLine(value.ToString(specifier, culture))
' Displays: $16,325.63
culture = CultureInfo.CreateSpecificCulture("en-GB")
Console.WriteLine(value.ToString(specifier, culture))
' Displays: £16,325.63
specifier = "E04"
culture = CultureInfo.CreateSpecificCulture("sv-SE")
Console.WriteLine(value.ToString(specifier, culture))
' Displays: 1,6326E+004
culture = CultureInfo.CreateSpecificCulture("en-NZ")
Console.WriteLine(value.ToString(specifier, culture))
' Displays: 1.6326E+004
specifier = "F"
culture = CultureInfo.CreateSpecificCulture("fr-FR")
Console.WriteLine(value.ToString(specifier, culture))
' Displays: 16325,63
culture = CultureInfo.CreateSpecificCulture("en-CA")
Console.WriteLine(value.ToString(specifier, culture))
' Displays: 16325.63
specifier = "N"
culture = CultureInfo.CreateSpecificCulture("es-ES")
Console.WriteLine(value.ToString(specifier, culture))
' Displays: 16.325,63
culture = CultureInfo.CreateSpecificCulture("fr-CA")
Console.WriteLine(value.ToString(specifier, culture))
' Displays: 16 325,63
specifier = "P"
culture = CultureInfo.InvariantCulture
Console.WriteLine((value/10000).ToString(specifier, culture))
' Displays: 163.26 %
culture = CultureInfo.CreateSpecificCulture("ar-EG")
Console.WriteLine((value/10000).ToString(specifier, culture))
' Displays: 163.256 %示例2: Example
Module Example
Public Sub Main()
Dim number As Single = 1764.3789
' Format as a currency value.
Console.WriteLine(number.ToString("C"))
' Format as a numeric value with 3 decimal places.
Console.WriteLine(number.ToString("N3"))
End Sub
End Module输出：
$1,764.38 1,764.379
示例3: numbers
Dim numbers() As Single = {1054.32179, -195489100.8377, 1.0437E21, _
-1.0573e-05}
Dim specifiers() As String = { "C", "E", "e", "F", "G", "N", "P", _
"R", "#,000.000", "0.###E-000", _
"000,000,000,000.00###"}
For Each number As Single In numbers
Console.WriteLine("Formatting of {0}:", number)
For Each specifier As String In specifiers
Console.WriteLine(" {0,5}: {1}", _
specifier, number.ToString(specifier))
Next
Console.WriteLine()
Next输出：
Formatting of 1054.32179: C: $1,054.32 E: 1.054322E+003 e: 1.054322e+003 F: 1054.32 G: 1054.32179 N: 1,054.32 P: 105,432.18 % R: 1054.32179 #,000.000: 1,054.322 0.###E-000: 1.054E003 000,000,000,000.00###: 000,000,001,054.322 Formatting of -195489100.8377: C: ($195,489,100.84) E: -1.954891E+008 e: -1.954891e+008 F: -195489100.84 G: -195489100.8377 N: -195,489,100.84 P: -19,548,910,083.77 % R: -195489100.8377 #,000.000: -195,489,100.838 0.###E-000: -1.955E008 000,000,000,000.00###: -000,195,489,100.00 Formatting of 1.0437E+21: C: $1,043,700,000,000,000,000,000.00 E: 1.043700E+021 e: 1.043700e+021 F: 1043700000000000000000.00 G: 1.0437E+21 N: 1,043,700,000,000,000,000,000.00 P: 104,370,000,000,000,000,000,000.00 % R: 1.0437E+21 #,000.000: 1,043,700,000,000,000,000,000.000 0.###E-000: 1.044E021 000,000,000,000.00###: 1,043,700,000,000,000,000,000.00 Formatting of -1.0573E-05: C: $0.00 E: -1.057300E-005 e: -1.057300e-005 F: 0.00 G: -1.0573E-05 N: 0.00 P: 0.00 % R: -1.0573E-05 #,000.000: 000.000 0.###E-000: -1.057E-005 000,000,000,000.00###: -000,000,000,000.00001
示例4:
Dim value As Single
value = -16325.62015
' Display value using the invariant culture.
Console.WriteLine(value.ToString(CultureInfo.InvariantCulture))
' Display value using the en-GB culture.
Console.WriteLine(value.ToString(CultureInfo.CreateSpecificCulture("en-GB")))
' Display value using the de-DE culture.
Console.WriteLine(value.ToString(CultureInfo.CreateSpecificCulture("de-DE")))
value = 16034.125E21
' Display value using the invariant culture.
Console.WriteLine(value.ToString(CultureInfo.InvariantCulture))
' Display value using the en-GB culture.
Console.WriteLine(value.ToString(CultureInfo.CreateSpecificCulture("en-GB")))
' Display value using the de-DE culture.
Console.WriteLine(value.ToString(CultureInfo.CreateSpecificCulture("de-DE")))
' This example displays the following output to the console:
' -16325.62015
' -16325.62015
' -16325,62015
' 1.6034125E+25
' 1.6034125E+25
' 1,6034125E+25示例5:
Dim number As Single
number = 1.6E20
' Displays 1.6E+20.
Console.WriteLine(number.ToString())
number = 1.6E2
' Displays 160.
Console.WriteLine(number.ToString())
number = -3.541
' Displays -3.541.
Console.WriteLine(number.ToString())
number = -1502345222199E-07
' Displays -150234.5222199.
Console.WriteLine(number.ToString())
number = -15023452221990199574E-09
' Displays -15023452221.9902.
Console.WriteLine(number.ToString())
number = .60344
' Displays 0.60344.
Console.WriteLine(number.ToString())
number = .000000001
' Displays 1E-09.
Console.WriteLine(number.ToString())示例6:
Dim Done As Boolean = False
Dim Inp As String
Do
Console.Write("Enter a real number: ")
Inp = Console.ReadLine()
Try
S = Single.Parse(Inp)
Console.WriteLine("You entered " + S.ToString() + ".")
Done = True
Catch E As FormatException
Console.WriteLine("You did not enter a number.")
Catch E As Exception
Console.WriteLine("An exception occurred while parsing your response: " + E.ToString())
End Try
Loop While Not Done