vb编程 设计一个模拟遥控器

来源：百度知道 编辑：UC知道 时间：2024/06/08 05:47:26
2编程，设计一个模拟摇奖器，程序设计界面如图。窗体标题为："摇奖"。
有1个标签Label1和1命令按钮Command1，当单击命令按钮时，会随机产生个中奖号码，并放在标签中。
要求号码为1个六位正整数（不能少于六位）。

这个很简单的
Private Sub Command1_Click()
Label1.Caption = Int(Rnd * 900000 + 100000)
End Sub

产生一个大于等于100000小于等于999999的六位整数

再给你完善一下，也许你想要的是六位整数（第一位也可能是0），那么
Private Sub Command1_Click()
Label1.Caption = Str(Int(Rnd * 10)) & Str(Int(Rnd * 10)) & Str(Int(Rnd * 10)) & Str(Int(Rnd * 10)) & Str(Int(Rnd * 10)) & Str(Int(Rnd * 10))
End Sub

不给我分不好意思吧，呵呵