Private Sub Command1_Click()
Timer1.Enabled = True  '开始
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False   '停止
num = Int(Rnd * 6) + 1
Label1.Caption = num & "点"
Display (num)
End Sub
Private Sub Form_Load()
For i = 0 To 6             '初始化
Shape2(i).FillColor = &H0&
Shape2(i).FillStyle = 0
Shape2(i).Shape = 3
Shape2(i).Visible = False
Next i
Shape1.FillColor = &HFFFFFF
Shape1.FillStyle = 0
Shape1.Shape = 5
Randomize Timer
Timer1.Enabled = False
Timer1.Interval = 50
Label1.Caption = "1 点"
Display (1)
End Sub
Private Sub Timer1_Timer()
Randomize
num = Int(Rnd * 6) + 1
Label1.Caption = num & "点"
Display (num)
End Sub
Sub Display(a)
For i = 0 To 6
Shape2(i).Visible = False
Next i
For i = 0 To 6
If i <> 2 Or i <> 4 Then
Shape2(i).FillColor = &H0&
End If
Next i
Select Case a
Case 1
Shape2(3).FillColor = &H0&
Shape2(3).Visible = True
Case 2
Shape2(0).Visible = True
Shape2(6).Visible = True
Case 3
Shape2(0).Visible = True
Shape2(3).Visible = True
Shape2(6).Visible = True
Case 4
For i = 0 To 6
If i = 0 Or i = 2 Or i = 4 Or i = 6 Then
Shape2(i).Visible = True
End If
Next i
Case 5
For i = 0 To 6
If i = 0 Or i = 2 Or i = 3 Or i = 4 Or i = 6 Then
Shape2(i).Visible = True
End If
Next i
Case 6
For i = 0 To 6
If i <> 3 Then
Shape2(i).Visible = True
End If
Next i
End Select
End Sub

VB编程：掷骰子游戏-55相关推荐

  1. 掷骰子python代码_通过构建一个简单的掷骰子游戏去学习怎么用 Python 编程

    不论是经验丰富的老程序员,还是没有经验的新手,Python 都是一个非常好的编程语言. Image by : opensource.com Python 是一个非常流行的编程语言,它可以用于创建桌面应 ...

  2. c 语言掷骰子游戏,C 语言编程学习: 制作掷骰子小游戏

    C 语言编程学习: 制作掷骰子小游戏 问题描述 骰子是一个有六个面的正方体, 每个面分别印有 16 之间的小圆点代表点数. 假设这个游戏的规则是: 两个人轮流掷骰子 6 次, 并将每次投掷的点数累加起 ...

  3. 玩eos上的掷骰子游戏---dice智能合约

    dice智能合约的操作步骤,在eos的github上有,这里不再赘述,这里主要讲dice智能合约的实现. dice在中文中是骰子.聪明的你已经猜到了,这可能是一个掷骰子游戏,没错,这就是一个双人掷骰子 ...

  4. html5游戏 dice掷骰子,使用jQuery实现掷骰子游戏

    本文实例为大家共享了jQuery实现掷骰子游戏的详细代码,供大家参考,详细内容如下 直接新版建一个html网页,需要在head中引入jquery,js,一些css代码以及js代码,如下: .wrap{ ...

  5. R语言简单应用掷骰子游戏

    .练习8-1 在掷骰子游戏中,玩家(射手)准备掷出两个骰子,每个骰子都有六个面.如果掷出的总数为2.3或12,则该射手失败.如果总数是7或11,则对手(他)胜出.如果是其他任何得分,那么此得分将变成新 ...

  6. java骰子_Java实现的简单掷骰子游戏示例

    本文实例讲述了Java实现的简单掷骰子游戏.分享给大家供大家参考,具体如下: 要求: 掷两个骰子,每个骰子有六面, 分别为1.2.3.4.5.6.检查这两个骰子的和. 如果为2.3或12你就输了:如果 ...

  7. html掷骰子游戏的代码,jquery实现掷骰子小游戏

    本篇给大家分享一个很好玩的掷骰子游戏,当点击"掷筛子"按钮时张三和李四两人同时掷出筛子,在各自的文本框中会显示出各自掷出筛子的大小,并且会在第三个文本框中比较出两人点数的大小,并显 ...

  8. 编写程序模拟掷骰子游戏。已知掷骰子游戏的游戏规则为：每个骰子有6面，这些面包含1、2、3、4、5、6个点，掷两枚骰子之后，计算点数之和。

    编写程序模拟掷骰子游戏.已知掷骰子游戏的游戏规则为:每个骰子有6面,这些面包含1.2.3.4.5.6个点,掷两枚骰子之后,计算点数之和.如果第一次掷的点数和为7或11,则游戏者获胜:如果第一次掷的点数 ...

  9. java实现双人摇骰子_Java实现的简单掷骰子游戏示例

    本文实例讲述了java实现的简单掷骰子游戏.分享给大家供大家参考,具体如下: 要求: 掷两个骰子,每个骰子有六面, 分别为1.2.3.4.5.6.检查这两个骰子的和. 如果为2.3或12你就输了:如果 ...

最新文章

  1. python-切片实例
  2. 一：redis 的string类型 - 相关操作
  3. HDU - 6598 Harmonious Army (最小割)
  4. 自动填充html_第 11 篇：自动生成文章摘要
  5. java简述常见的布局极其特点_请简要说明 Android 中五种常见布局的特点。_学小易找答案...
  6. 《UNIX网络编程 卷2》读书笔记（一）
  7. socket.io简介
  8. Asp.net MVC Linq to SQL Model verification
  9. Linux命令行学习日志-ps ax
  10. redhat 6.4 虚拟化平台搭建千万PV架构
  11. MacOS 按键精灵推荐
  12. Labview调用python
  13. 安全狗又拿下一场重保胜战 第22届投洽会顺利谢幕
  14. Windows系统怎么查看电脑的系统位数？
  15. c语言怎么用setw输出每行6个,setw和setfill控制输出间隔
  16. 什么是世界观、人生观、价值观？
  17. 关于写javaweb项目，遇到的问题：三层架构
  18. 如何在一个月内快速瘦20斤?
  19. CV2的conda安装
  20. 【iOS-iap防护】验证用户付费收据！拒绝iap Cracker！拒绝iap Free！让iphone越狱用户无从下手！【2012年5月2日更新防护iap Free的方法】

热门文章

  1. 2023年天津理工大学中环信息学院专升本专业课报名考试须知
  2. 【观察】长亮科技签约华为：共筑鲲鹏产业新生态，驱动金融科技再创新
  3. 计时 Linux 程序运行,linux 下计时程序
  4. 多屏幕切换到但屏幕，有软件无法在当前屏幕上无法显示
  5. c++操作xml文件
  6. 绘制多边形--scratch编程二级
  7. html网页制作注意事项,使用网页设计模板的注意事项-
  8. leetcode1728. 猫和老鼠 II（分析三——算法部分2）
  9. mysql使用教程dos图解_MYSQL使用指南DOS下操作
  10. hype3 响应布局_使用Hype 3的基于时间轴的Web动画