马来酸氯苯那敏 翻译:VB问题!!随机生成字母

来源：百度文库 编辑：高考问答 时间：2024/05/03 16:33:49
我像随即生成4位字母!! A-Z 内的~~每次不重复的

例如 ADZX FDGC WERD ........

请问代码怎么写?? 并且把成生的结果输出到 TEXT4.TEXT

楼上的会出现重复的字母，而且每次生成的一样，没有初始化随机种子。

Private Sub Form_Click()
Dim s$, temp$
Randomize Timer
Do
temp = Chr(Int((90 - 65 + 1) * Rnd + 65))
If InStr(1, s, temp) = 0 Then n = n + 1: s = s & temp
Loop Until n = 4
Text4.Text = s
End Sub

用随机函数在26个字母中随机抽取4个，组成一个字符串。
剩下的不需要再说了吧！

哈哈，数字、字母？会数字不会字母？
把字母用数字取代就不可以了？

数字到会

Private Sub Form_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 4
j = Int((90 - 65 + 1) * Rnd + 65)
Text4.Text = Text4.Text & Chr(j)
Next i
End Sub

VB问题!!随机生成字母 VB随机的问题？ VB问题！关于随机排序 怎样用VB做一个随机生成的11位数字? 如何在VB 6.0里通过随机函数生成随机的8位口令 VB问题：动态生成控件 VB Windows media player随机播放问题 如何在VB中自动生成一个文件并且随机命名文件(路径固定,名字不固定)?例如,随机生成"D:\VB\123***.TXT" 关于随机效果flash生成图象序列的问题 求救高手，某时间段，如何用vb生成随机时间数