.Netで英数字の乱数発生するには。。 (ID:82546)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Private Function RandomString8() As String Dim s8Chars As String Dim sBase As String Dim sChar As String Dim iVal As Integer Dim lCount As Long Randomize() s8Chars = "" For lCount = 0 To 7 iVal = Int(Rnd() * 62) Select Case iVal Case 0 To 25 sChar = Chr(Asc("A") + iVal) Case 26 To 51 sChar = Chr(Asc("a") + iVal - 26) Case 52 To 61 sChar = Chr(Asc("0") + iVal - 52) Case Else sChar = "A" End Select s8Chars = s8Chars & sChar Next lCount RandomString8 = s8Chars End Function