Private Sub YZM()
Dim i As Integer
Randomize
i = Int(Rnd * (9999 - 1000 + 1) + 1000)
Picture1.Cls
Picture1.Print i
Picture1.Tag = i
End Sub
请教一下，以上代码中的Randomize是什么意思？

我在前几个月
在其他 网站下过 和你一模一样的

不错
处女座,难得

Randomize是产生随机数的序列组,加上这个后每次产生的RND随机数一般都会不相同,否则每次产生的随机数都是相同的

不错哦

好好学习学习
谢谢

为什么生日功能无法用，明明填写了当天的生日  点击提示说没有人过生日，我觉得要改一下  改成农历对比提示，因为中国人过生都是以农历过生，希望高手测试一下，并给出农历对比代码这样就很实用。

为什么生日功能无法用，明明填写了当天的生日  点击提示说没有人过生日，我觉得要改一下  改成农历对比提示，因为中国人过生都是以农历过生，希望高手测试一下，并给出农历对比代码这样就很实用。

发现一个BUG    备注 和 邮件两个框如果不填写内容  你保存后会自动将上一个人的信息保存过来。希望高手帮忙改改，改后就完美了。