0
点赞
收藏
分享

微信扫一扫

VB.NET模拟掷骰子

惠特曼 2022-04-14 阅读 72
.net

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 骰子点数为

举报

相关推荐

0 条评论