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…