本文整理汇总了VB.NET中System.Random.NextDouble方法的典型用法代码示例。如果您正苦于以下问题：VB.NET Random.NextDouble方法的具体用法？VB.NET Random.NextDouble怎么用？VB.NET Random.NextDouble使用的例子？那么, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类System.Random的用法示例。
在下文中一共展示了Random.NextDouble方法的2个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: RandomObjectDemo
' Example of the Random class constructors and Random.NextDouble( )
' method.
Imports System.Threading
Module RandomObjectDemo
' Generate random numbers from the specified Random object.
Sub RunIntNDoubleRandoms( randObj As Random )
' Generate the first six random integers.
Dim j As Integer
For j = 0 To 5
Console.Write( " {0,10} ", randObj.Next( ) )
Next j
Console.WriteLine( )
' Generate the first six random doubles.
For j = 0 To 5
Console.Write( " {0:F8} ", randObj.NextDouble( ) )
Next j
Console.WriteLine( )
End Sub
' Create a Random object with the specified seed.
Sub FixedSeedRandoms( seed As Integer )
Console.WriteLine( vbCrLf & _
"Random numbers from a Random object with " & _
"seed = {0}:", seed )
Dim fixRand As New Random( seed )
RunIntNDoubleRandoms( fixRand )
End Sub
' Create a random object with a timer-generated seed.
Sub AutoSeedRandoms( )
' Wait to allow the timer to advance.
Thread.Sleep( 1 )
Console.WriteLine( vbCrLf & _
"Random numbers from a Random object " & _
"with an auto-generated seed:" )
Dim autoRand As New Random( )
RunIntNDoubleRandoms( autoRand )
End Sub
Sub Main( )
Console.WriteLine( _
"This example of the Random class constructors " & _
"and Random.NextDouble( ) " & vbCrLf & _
"generates the following output." & vbCrLf )
Console.WriteLine( "Create Random " & _
"objects, and then generate and display six " & _
"integers and " & vbCrLf & "six doubles from each." )
FixedSeedRandoms( 123 )
FixedSeedRandoms( 123 )
FixedSeedRandoms( 456 )
FixedSeedRandoms( 456 )
AutoSeedRandoms( )
AutoSeedRandoms( )
AutoSeedRandoms( )
End Sub
End Module
' This example of the Random class constructors and Random.NextDouble( )输出：
Create Random objects, and then generate and display six integers and six doubles from each. Random numbers from a Random object with seed = 123: 2114319875 1949518561 1596751841 1742987178 1586516133 103755708 0.01700087 0.14935942 0.19470390 0.63008947 0.90976122 0.49519146 Random numbers from a Random object with seed = 123: 2114319875 1949518561 1596751841 1742987178 1586516133 103755708 0.01700087 0.14935942 0.19470390 0.63008947 0.90976122 0.49519146 Random numbers from a Random object with seed = 456: 2044805024 1323311594 1087799997 1907260840 179380355 120870348 0.21988117 0.21026556 0.39236514 0.42420498 0.24102703 0.47310170 Random numbers from a Random object with seed = 456: 2044805024 1323311594 1087799997 1907260840 179380355 120870348 0.21988117 0.21026556 0.39236514 0.42420498 0.24102703 0.47310170 Random numbers from a Random object with an auto-generated seed: 1920831619 1346865774 2006582766 1968819760 332463652 110770792 0.71326689 0.50383335 0.50446082 0.66312569 0.94517193 0.58059287 Random numbers from a Random object with an auto-generated seed: 254927927 1205531663 1984850027 110020849 1438111494 1697714106 0.19383387 0.52067738 0.74162783 0.35063667 0.31247720 0.38773733 Random numbers from a Random object with an auto-generated seed: 736507882 1064197552 1963117288 398705585 396275689 1137173773 0.67440084 0.53752140 0.97879483 0.03814764 0.67978248 0.19488178
示例2: Example
Module Example
Public Sub Main()
Dim frequency(9) As Integer
Dim number As Double
Dim rnd As New Random()
For ctr As Integer = 0 To 99
number = rnd.NextDouble()
frequency(CInt(Math.Floor(number*10))) += 1
Next
Console.WriteLine("Distribution of Random Numbers:")
For ctr As Integer = frequency.GetLowerBound(0) To frequency.GetUpperBound(0)
Console.WriteLine("0.{0}0-0.{0}9 {1}", ctr, frequency(ctr))
Next
End Sub
End Module
' The following example displays output similar to the following:
' Distribution of Random Numbers:
' 0.00-0.09 16
' 0.10-0.19 8
' 0.20-0.29 8
' 0.30-0.39 11
' 0.40-0.49 9
' 0.50-0.59 6
' 0.60-0.69 13
' 0.70-0.79 6
' 0.80-0.89 9
' 0.90-0.99 14