当前位置: 首页>>代码示例>>VB.NET>>正文


VB.NET Random.NextDouble方法代码示例

本文整理汇总了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( )
开发者ID:VB.NET开发者,项目名称:System,代码行数:70,代码来源: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
开发者ID:VB.NET开发者,项目名称:System,代码行数:28,代码来源:Random.NextDouble



注:本文中的System.Random.NextDouble方法示例整理自Github/MSDocs等源码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。