VB.NET模拟掷骰子
一、模拟功能:
1、单击“掷骰子”按钮随机生成数字1~6;
2、使用标签Label控件显示点数;
3、使用图片框PictureBox控件显示对应点数的骰子图片。
二、程序界面设计:
图1 程序界面设计
三、程序代码:
Public Class Form1
Dim count As UInt16
'使用Button1的Click事件
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'初始化随机数生成器
Randomize()
'随机生成数字1-6
count = Int(Rnd() * 6 + 1)
'显示骰子点数
Label1.Text = count
'使用选择结构显示骰子点数对应图片
Select Case count
Case 1
PictureBox1.Image = Image.FromFile("骰子1点.png")
Case 2
PictureBox1.Image = Image.FromFile("骰子2点.png")
Case 3
PictureBox1.Image = Image.FromFile("骰子3点.png")
Case 4
PictureBox1.Image = Image.FromFile("骰子4点.png")
Case 5
PictureBox1.Image = Image.FromFile("骰子5点.png")
Case 6
PictureBox1.Image = Image.FromFile("骰子6点.png")
End Select
End Sub
End Class
四、运行效果:
图2 运行初始图
图3 骰子点数为1
图4 骰子点数为2
图5 骰子点数为3
图6 骰子点数为4
图7 骰子点数为5
图8 骰子点数为