VB.NET Random構造函數代碼示例

本文整理匯總了VB.NET中System.Random.Random構造函數的典型用法代碼示例。如果您正苦於以下問題：VB.NET Random構造函數的具體用法？VB.NET Random怎麽用？VB.NET Random使用的例子？那麽, 這裏精選的構造函數代碼示例或許可以為您提供幫助。您也可以進一步了解該構造函數所在類System.Random的用法示例。

在下文中一共展示了Random構造函數的3個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。

示例1: RandomNumbers

' 導入命名空間
Imports System.Threading

Module RandomNumbers
   Public Sub Main()
      Dim rand1 As New Random()
      Dim rand2 As New Random()
      Thread.Sleep(2000)
      Dim rand3 As New Random()
      ShowRandomNumbers(rand1)
      ShowRandomNumbers(rand2)
      ShowRandomNumbers(rand3)
   End Sub
   
   Private Sub ShowRandomNumbers(rand As Random)
      Console.WriteLine()
      Dim values(4) As Byte
      rand.NextBytes(values)
      For Each value As Byte In values
         Console.Write("{0, 5}", value)
      Next      
      Console.WriteLine() 
   End Sub
End Module

開發者ID:VB.NET開發者，項目名稱:System，代碼行數:24，代碼來源:Random

輸出：

28   35  133  224   58

28   35  133  224   58

32  222   43  251   49

示例2: 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

輸出：

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

示例3: RandomNumbers

' 導入命名空間
Imports System.Threading

Module RandomNumbers
   Public Sub Main()
      Dim rand1 As New Random(CInt(Date.Now.Ticks And &h0000FFFF))
      Dim rand2 As New Random(CInt(Date.Now.Ticks And &h0000FFFF))
      Thread.Sleep(20)
      Dim rand3 As New Random(CInt(Date.Now.Ticks And &h0000FFFF))
      ShowRandomNumbers(rand1)
      ShowRandomNumbers(rand2)
      ShowRandomNumbers(rand3)
   End Sub
   
   Private Sub ShowRandomNumbers(rand As Random)
      Console.WriteLine()
      Dim values(4) As Byte
      rand.NextBytes(values)
      For Each value As Byte In values
         Console.Write("{0, 5}", value)
      Next      
      Console.WriteLine() 
   End Sub
End Module

開發者ID:VB.NET開發者，項目名稱:System，代碼行數:24，代碼來源:Random

輸出：

145  214  177  134  173

145  214  177  134  173

126  185  175  249  157

注：本文中的System.Random.Random構造函數示例由純淨天空整理自Github/MSDocs等開源代碼及文檔管理平台，相關代碼片段篩選自各路編程大神貢獻的開源項目，源碼版權歸原作者所有，傳播和使用請參考對應項目的License；未經允許，請勿轉載。