UC知道有关VB随机数的问题~~~~~
来源：百度知道 编辑：UC知道 时间：2024/05/22 18:37:31
我现在在编个程序 像很多个网页上那样 点击一个按钮产生一个随机数 然后用这个随机数作为验证码。 我是在第一个窗体A中按Command1 用msgbox提示产生一个随机数 然后换到另一个窗体B 在窗体B中要求输入第一个窗体中产生的随机数，请问下如果调用前面的产生的随机数 麻烦知道的朋友告诉下~~~~
随机数这样设定好了：
Dim s As Double
Randomize
s = Int(Rnd * 10000 + 1000)
我的第二个窗体有一个label1.caption"请输入你的口令"，一个空白的text1，一个Command1 不要求使用InputBox 。第一个窗体msgbox弹出随机数 单击确定之后来到第二个窗体输入口令。
随机数这样设定好了：
Dim s As Double
Randomize
s = Int(Rnd * 10000 + 1000)
我的第二个窗体有一个label1.caption"请输入你的口令"，一个空白的text1，一个Command1 不要求使用InputBox 。第一个窗体msgbox弹出随机数 单击确定之后来到第二个窗体输入口令。
Global s As Double 在模块中定义
==========
窗体一代码：
Private Sub Command1_Click()
Randomize
s = Int(Rnd * 10000 + 1000)
MsgBox s
Form2.Show
form2.label1.caption="请输入你的口令"
End Sub
=============
窗体2代码
Private Sub Command1_Click()
x = Val(text1.text)
If x = s Then MsgBox "输入随机数正确"
End Sub
'建立两个窗体，窗体1为启动窗体，上面画一个命令按钮为CMD1，
'窗体2上画一个label1标签，一个文本框text1
Option Explicit
Dim a As Integer '外部定义变量来传递两个窗体间的数据
Private Sub CMD1_click()
Dim temp As Double
Randomize
temp = Int(Rnd * 10000 + 1000)
MsgBox (temp)
a = temp
Form1.Hide
Form2.Show
Form2.Label1.Caption = a
End Sub
Form1：一个命令按钮“产生验证码”
==========================================
Private Sub Command1_Click()
Dim s As Double
Randomize
s = Int(Rnd * 10000 + 1000)
MsgBox (s)
Form1.Hide
Form2.a = s
Fo