关于随机字符串生成器，在线随机字符串这个很多人还不知道，今天小华来为大家解答以上的问题，现在让我们一起来看看吧！

1、Private Sub Form_Load() '初始化随机数发生器RandomizeEnd SubPrivate Sub Command1_Click() '生成6位随机数Text1.Text = Int(Rnd * 900000) + 100000End SubPrivate Sub Command2_Click() '生成8位随机数Text1.Text = Int(Rnd * 90000000) + 10000000End SubPrivate Sub Command3_Click() '清除Text1.Text = ""End Subdim i as longRandomize '初始化随机函数i=rnd*1000000 '生成6位数text1.text=idim i as longRandomizei=rnd*100000000 '生成八位数text1.text=itext1.text="" '清除Private Sub Command1_Click() '生成6位Text1.Text = RndTest(6)End SubPrivate Sub Command2_Click() '生成8位Text1.Text = RndTest(8)End SubPrivate Sub Command3_Click() '清除Text1.Text = ""End SubPrivate Function RndTest(ByVal LngN As Long) As String '自定义函数Randomize '初始化随机数生成器Dim i As Long, StrTmp As StringFor i = 1 To LngNIf i = 1 ThenStrTmp = Int(Rnd * (9 - 1 + 1) + 1) '随机数的第一位不为0 就是随机一位1-9之间的数~int(rnd*(上限-下限+1)+下限)'ElseStrTmp = StrTmp & Int(Rnd * (9 - 0 + 1) + 0) '除第一位外的数可以为0~0-9End IfNextRndTest = StrTmpEnd Functiondim i as longRandomize '初始化随机函数for i =1 to 6i=i &rnd ' 循环生成随机数字 共6次 生成6位数nexttext1.text=idim i as stringRandomizefor i= 1 to 8i=i & rnd '供循环八次 生成八位数nexttext1.text=itext1.text="" '清除dim i as longRandomize '初始化随机函数i=rnd*1000000 '生成6位数text1.text=INT(i)dim i as longRandomizei=rnd*100000000 '生成八位数text1.text=INT(i)text1.text="" '清除。

本文到这结束，希望上面文章对大家有所帮助。