VB.NET生成随机串或随机数字的方法总结

第四种：利用VB6转换

Function makeRand(ByVal maxLen As Integer) As String '生成签名时用随机串
    Dim strNewPass As String = vbNullString
    Dim lower As Long
    Dim whatsNext As Long
    Dim upper As Long
    Dim intCounter As Long
    Randomize()
    For intCounter = 1 To maxLen
      whatsNext = Int((1 - 0 + 1) * Rnd() + 0)
      If whatsNext = 0 Then
        upper = 122
        lower = 100
      Else
        upper = 57
        lower = 48
      End If
      strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd() + lower))
    Next
    makeRand = strNewPass
  End Function

第五种：直接用VB.NET函数

  Dim rand As Random = New System.Random(10)‘这里10就代表是10为
   Debug.Print(rand.Next().ToString)

原文链接：http://blog.csdn.net/lcp58006478/article/details/8958460

以上就是本文的全部内容，希望对大家的学习有所帮助，也希望大家多多支持易采站长站。