Question

用VB制作小程序

如何用VB制作一个程序。 打开程序 随机出现6位数字。 6位数字60秒自动更换一次

Answer 1

Option Explicit

Private Sub Form_Load()
    Randomize
    Label1.Caption = Int((Rnd * (999999 - 100000 + 1)) + 100000)    '生成100000-999999之间的随机数
    Timer1.Interval = 1000  '一秒一次
    Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
    Static n As Integer
    n = n + 1
    If n = 60 Then      '一秒一次，累加到60此即60秒
        n = 0
        Randomize
        Label1.Caption = Int((Rnd * (999999 - 100000 + 1)) + 100000)
    End If
End Sub

有问题请追问，满意请采纳，加油！

追问

很好用。 谢谢 如果我想插入一条进度条该怎么弄

追答

用ProgressBar控件，添加方法：部件——Microsoft Windows Common Controls 6.0(SP6)
详细用法请查阅百度百科：ProgressBar http://baike.baidu.com/view/3033318.htm

Answer 2

见附件示例程序。

为了直接看到效果，示例程序数字每秒刷新一次，你自己根据需要改成喜欢的间隔变换时间。

Answer 3

Option Explicit

Dim DD As Single '0---999999
Dim tt As Integer
Private Sub Form_Load()
Label1.Caption = ""
Timer1.Interval = 1000
Timer1.Enabled = True
tt = 0
Label1.FontSize = 16
DD = Int(999999 * Rnd + 1)
Label1.Caption = Format(DD, "000000")
End Sub

Private Sub Timer1_Timer()

If tt < 60 Then '60秒
tt = tt + 1
Else
DD = Int(999999 * Rnd + 1)
Label1.Caption = Format(DD, "000000")
tt = 0
End If
End Sub