Leah

7年前

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

P

0 16

Christopher

7年前

恩。好多好多。虽然我写出来喽。但是只是能显示结果。
目前让数一个一个翻滚还做不到。
新手的飘过。

0 9

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

0 7

Madison

7年前

控件这些不用说了吧，你自己分别添加三个按钮和三个要显示随机数字的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

0 5

兵荒马乱

7年前

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

0 4