VB编写一个随机生成数字字母的代码

来源：百度知道 编辑：UC知道 时间：2024/05/07 10:33:10
目的是在点击Command1后在Text1中随机生成25个数字和字母的号码，并且其中两位为**表示，请高手帮忙写一下，初学者我感激不尽
注：真的可以实现的作者追加20分
就是显示d5s8sd52s**3s3s5d5ds32ds3成这样，就好像密码遮挡
**两位是固定的

Private Sub Command1_Click()
n = Int(Rnd * 900 + 100)
Label1.Caption = n
Label2.Caption = StrReverse(Val(n))
End Sub

固定在第几位？？
如果固定在第5位将代码中的：
pos = Int(Rnd() * 24 + 1)
re = Replace(re, Mid(re, pos, 2), "**")
改成:
re = Replace(re, Mid(re, 5, 2), "**")

ーーーーーーーーーーーーーーーーーー
'好了，代码如下：
Function getRndN() As String
getRndN = CStr(Int(Rnd() * 10))
End Function

Function getRndA() As String
getRndA = Chr(Int(Rnd() * 26) + 97)
End Function
Private Sub Command1_Click()
Randomize
re = ""
For i = 1 To 25
If Int(Rnd() * 2) = 1 Then
re = re & getRndN
Else
re = re & getRndA
End If
Next

pos = Int(Rnd() * 24 + 1)
re = Replace(re, Mid(re, pos, 2), "**")
Text1.Text = re
End Sub

Private sub command1_click()
dim i as integer
dim j as integer
'种子
for j=