1、随机获取5位验证码?
需求:
创建一个Label1:名称为随机验证码生成
创建一个Label2:名称为为空,属性BorderStyle=1
创建一个CommandButton:名称为获取随机码
代码:
Private Sub Command1_Click()
Dim a As Integer
Dim s As String
a = Int(Rnd * 9000 + 1000)
s = Chr(Int(Rnd * 26) + 65)
Label2.Caption = s & a
End Sub