如果是固定的，就用随机的代码，如果不是固定的，就用随机生成代码。
Private Sub form_load()
Label1.caption=0
End Sub
Private Sub form_click()
Label1.caption=val(label1.caption)+1
End Sub
Dim i As Integer
Private Sub Form_Click()
Me.Label1.Caption = i
i = i + 1
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024