怎样在.net（vb）下获得随机数字？

Question

'获得随机字符串方法
        Public Function GetRandom() As String
            Dim objRandom As System.Random
            Dim intNumber As Integer
            Dim intDateNum As Long
            Dim strNumber As String
            Dim dat_DateTime As DateTime            strNumber = dat_DateTime.Now.ToString
            strNumber = strNumber.Replace(":", "")
            strNumber = strNumber.Replace("-", "")
            strNumber = strNumber.Replace(" ", "")
            intDateNum = CType(strNumber, Long)            objRandom = New Random(Int((1 + 10 - 1) * CType(Rnd(), Integer)))
            intNumber = objRandom.Next(10000, 99999)
            objRandom = Nothing
            Return (intDateNum + intNumber).ToString()
        End Function

Answer 1

生成一个 1 到 6 之间的随机整数值。Dim MyValue As Integer
MyValue = CInt(Int((6 * Rnd()) + 1))