ab.com コミュニティ

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT) 
    Dim Dat As String 
    Dim I As Long
    Dim A As Long
    Randomize 
        For I = 0 To 5 
            A = Int(Rnd()*62)+48
            If A>=58 then A=A+7
            If A>=91 then A=A+6
            Dat = Dat + Chr$(A) 
        Next I
    SetWindowText(GetDlgItem(hMainWnd,EditBox1),Dat) 
End Sub

ぼくだったらこうやりますが。（一部引用。)
[code]Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
Dim Dat As String
Dim I As Long
Dim A As Long
Randomize
For I = 0 To 5
A = Int(Rnd()*62)+48
If A>=58 then A=A+7
If A>=91 then A=A+6
Dat = Dat + Chr$(A)
Next I
SetWindowText(GetDlgItem(hMainWnd,EditBox1),Dat)
End Sub[/code]


ちなみに

ASCIIの文字コードによると
48(0x30)～57(0x39)→0～9の数字
65(0x41)～90(0x5A)→A～Zの英文字
97(0x61)～122(0x7A)→a～zの英文字

すみません。
下記1行修正です。

RndDATA = RndDATA + Chr$(Int(Rnd()*&h26) + &H41)

これで良いのですか？？

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
DIM RndDATA As String
DIM Kaisuu As Long
Randomize
For Kaisuu = 1 To 5
RndDATA = RndDATA + Chr$(Int(Rnd()*25) + &H41)
Next
SetWindowText(GetDlgItem(hMainWnd,EditBox1),RndDATA)
End Sub

数字は、自分で考えてください。

ランダムな文字列（6文字）（英数字）をEditBox1に出力する方法が分かりません。
誰かソース付きで教えてください。
お願いします。