VB 小程序 随机

435关注1259浏览

本人想弄 VB小程序!! 3D的摸拟开奖
三个数 (百位 十位 个位) 每位都 是随机的,最好每一位都用一个按钮控制!!!!!! 【每一位 都是 0~9】
如果像老虎的效果就更好了(翻滚式)
重复的机率 越小越好
各位大侠 ,,你们的重复的机率高不高啊?!!!
quedeboy@qq.com

展开全部
收起
5回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Leah

    16人对此回答表示赞同

    他们的都没达到老虎机效果,而且没按照你的要求做。。。我正在做老虎机效果的,而且按一个键就控制一个label的显示,先别关问题,做好了给你发出来,中饭过后再来写,先来个没有翻转效果的 Private Sub Command1_Click()
    If Timer1.Enabled = False Then
    Timer1.Enabled = True
    Else: Timer1.Enabled = False
    End If
    End Sub

    P
    展开
    16
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Christopher

    9人对此回答表示赞同

    恩。好多好多。虽然我写出来喽。但是只是能显示结果。
    目前让数一个一个翻滚还做不到。
    新手的飘过。
    展开
    9
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Riven

    7人对此回答表示赞同

    Private Sub cmdb_Click()
    Timerb.Enabled = Not Timerb.Enabled
    End Sub

    Private Sub cmdg_Click()
    Timerg.Enabled = Not Timerg.Enabled
    End Sub

    Private Sub cmds_Click()
    Timers.Enabled = Not Timers.Enabled
    End
    展开
    7
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Madison

    5人对此回答表示赞同

    控件这些不用说了吧,你自己分别添加三个按钮和三个要显示随机数字的label
    重点就是:int(Rnd)
    例如:a=int(rnd * 8)+1
    这里的8后面还要+1是因为,要显示的内容不能有0,所以如果生成的数字是0那么最后+1就是1,生成的是8,那么最后+1就是9,这样不会产生0。
    完整的一个按钮命令包括:
    a=int(rnd*8)+1
    label1=a
    这样label1标签上就有a这个随机数了.
    依次做好label2,la
    展开
    5
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • 兵荒马乱

    4人对此回答表示赞同

    界面就不用,代码倒是挺简单的。
    Dim a
    a=int(Rnd*100)'这里会得到一个3位的整数,这是一下就摇3位。如果要一位位的来,可以这样。
    --------------------------------------------------------------------------
    dim a , b ,c
    a=int(Rnd)'这是第一位
    b=int(Rnd)'这是第二位
    c=int(Rnd)&
    展开
    4
    0回复
    发布于 5年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部