VB代码收集

时间:2021-10-12 08:44:06

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