Question

用vb编一个程序：从1,2,3,4,5,6,7,8,9,10,11.数当中，每隔十分钟，出现五个号

用vb编一个程序：从1,2,3,4,5,6,7,8,9,10,11.数当中，每隔十分钟，出现五个号码，五个号码不能重复。急非常感谢

Answer 1

窗体加个timer1控件：
Private Sub Form_Load()
    Timer1.Interval = "60000" '设置1分钟运行一次
    Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
    Static n As Long
    n = n + 1
    If n >= 10 Then
        Call shu
        n = 0
    End If
End Sub
Private Sub shu() '显示1-11之间5个不同的数字
    Dim i As Long, z As Long, m() As Long, s As Long
    For i = 0 To 4
zz:
        Randomize
        z = Int(Rnd * 11) + 1
        ReDim Preserve m(i)
        For s = 0 To UBound(m)
            If z = m(s) Then GoTo zz
        Next
        m(i) = z
        a = a & m(i) & " "
    Next
    Print a
End Sub

追问

立即采纳

追答

谢谢，有问题可以追问。

追问

生成exe工程

地址私信发给你了

Answer 2

的法规的个的非官方的改的