tootro20
چهارشنبه 23 بهمن 1392, 14:56 عصر
سلام.
معذرت ببخشید می خوام یه برنامه بنویسم که اعداد و حروف و ... تصادفی تولید کنه که متاسفانه فقط اعداد رو تولید نمی کنه!!
مشکل بنظرتون از چیه؟!
کد:
Dim txtdec, txtchar As Variant
Private Sub Command1_Click()
For X = 1 To 10
Call Randomize
txtdec = Int(32 * Rnd(0.5)) + 94
txtchar = txtchar & Chr(txtdec)
Print txtchar
Next
txtchar = ""
End Sub
معذرت ببخشید می خوام یه برنامه بنویسم که اعداد و حروف و ... تصادفی تولید کنه که متاسفانه فقط اعداد رو تولید نمی کنه!!
مشکل بنظرتون از چیه؟!
کد:
Dim txtdec, txtchar As Variant
Private Sub Command1_Click()
For X = 1 To 10
Call Randomize
txtdec = Int(32 * Rnd(0.5)) + 94
txtchar = txtchar & Chr(txtdec)
Print txtchar
Next
txtchar = ""
End Sub