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 & aEnd Sub
本文共 325 字，大约阅读时间需要 1 分钟。
需求：
创建一个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 & aEnd Sub
转载于:https://www.cnblogs.com/heiyizixia/p/10789756.html