UC知道一段简单的VB代码..不知道意思
来源：百度知道 编辑：UC知道 时间：2024/05/14 01:31:47
Sub Biaoti() '随机标题
Dim a As String
Dim b As Long
Dim c As Long
Dim d As String
Dim e As String
Dim f As String
a = "123456789qwertyuiop123456789asdfghjkl123456789zxcvbnm"
b = Len(a)
Randomize
For c = 1 To 8 Step 1
d = Int((b * Rnd) + 1) '--主要这一句.(b*rnd)的意思是不是 取b-0的随机数?然后加1?
e = Mid$(a, d, 1)
f = f & e
Next c
Form1.Caption = f
End Sub
Dim a As String
Dim b As Long
Dim c As Long
Dim d As String
Dim e As String
Dim f As String
a = "123456789qwertyuiop123456789asdfghjkl123456789zxcvbnm"
b = Len(a)
Randomize
For c = 1 To 8 Step 1
d = Int((b * Rnd) + 1) '--主要这一句.(b*rnd)的意思是不是 取b-0的随机数?然后加1?
e = Mid$(a, d, 1)
f = f & e
Next c
Form1.Caption = f
End Sub
d = Int((b * Rnd) + 1)
因为RND产生的数值范围是0到1,不包括0与1.
b是字符串a的长度. ]
假如a字符串的长度为10,即b=10
(b * Rnd) + 1 的范围是1到11, 不包括1与11
int是取整,结果就是1到10
整个语句的意义在于保证e所取的字符在a内,不产生错误.
恩`你说的意思就是正确答案丫``还说自己不会- -
Int((b * Rnd) + 1) '取1 - b的随即数
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)