主题：如何生成随机字母(包括大写和小写)
大懒猫
[专家分：220] 发布于 2009-10-19 11:27:00
生成随机的小写字母为: chr(int(rnd*26+97);生成随机的大写字母为: chr(int(rnd*26+65);请问如何生成随机字母(包括大写和小写)?怎样把这两个范围都包括进来?
谢谢!
回复列表 （共4个回复）
沙发
tanchuhan [专家分：15140] 发布于 2009-10-19 12:14:00
建一个表"abcd...zABCD...Z"
用Mid取某一个.
板凳
天天学习 [专家分：4570] 发布于 2009-10-19 13:36:00
[quote]建一个表"abcd...zABCD...Z"
用Mid取某一个.[/quote]最佳答案
[em2]
3 楼
大懒猫 [专家分：220] 发布于 2009-10-19 15:53:00
[quote]建一个表"abcd...zABCD...Z"
用Mid取某一个.[/quote]对不起,本人水平有限,还是不懂
[em8],请进一步说明.谢谢!
是不是形如:
const strs="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Public Function getchar() As String
Dim j%
j = CInt(Rnd * Len(strs)) + 1
getchar = Mid(strs, j, 1)
End Function
4 楼
tanchuhan [专家分：15140] 发布于 2009-10-19 19:38:00
Private Function RandChar() As String
Const STRING_TABLE As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Const STRING_TABLE_LENGTH As Long = 26 * 2
RandChar = Mid(STRING_TABLE, 1 + Int(Rnd() * STRING_TABLE_LENGTH), 1)
End Function
Private Sub Form_Load()
Dim i As Long
Randomize
For i = 1 To 100
Debug.Print RandChar();
Next
Debug.Print ""
End
End Sub
记得打开"立即"窗口看结果.
我来回复
您所在位置：社区首页 — Visual Basic讨论区 — 如何生成随机字母(包括大写和小写)