Vb模拟数字1到6在标签中的显示，点击按钮随机生成1到6的任意结果显示在标签上。

暗淡？Num？作为？整数

私人？Sub？Command1_Click()

使不规则化

答？=?Int(Rnd？*?(6)?+?1)

标签2。标题？=?a

结束？潜水艇

私人？Sub？表单初始化()

Num？=?1

结束？潜水艇

私人？Sub？定时器1 _定时器()

Num？=?Num？+?1

如果？Num？& gt？6?然后呢？Num？=?1

Label1。标题？=?数字

结束？子运行截图:

有几个小技巧:

在代码中，数字1到6显示为循环滚动。是1这个数字吗？六点前？的变化。

在代码中，使用了两个标签。如果只使用了1标签，则需要停止定时器1。