Question

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

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

Answer 1

Private sub command1_click()
dim i as integer
dim j as integer
'种子
for j=0 to 25
crand:
'随机数
Randomize
i=rnd*255
'判断是否为字母或数字
if (isChar(chr(i)) OR isNumeric(chr(i))) then
text1.tag=text1.tag & chr(i)
'隐藏该两位字(假隐藏),真的在text1.tag里
text1=text1 & iif((j=12 or j=13),"*",text1.tag)
else
goto crand:
endif
next
end sub

Answer 2

固定在第几位？？
如果固定在第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

Answer 3

Private Sub Command1_Click()
Dim i%, n%
Dim s$, s1$
Randomize
For i = 1 To 25
If i = 10 Or i = 11 Then
s = "*"
Else
n = Int(Rnd * 260) + 1
If n < 131 Then
s = Chr(n Mod 10 + 48)
Else
s = Chr(n Mod 26 + 97)
End If
End If
s1 = s1 & s
Next i
Text1.Text = s1
End Sub

Answer 4

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