admin 管理员组

文章数量: 1086019


2024年3月27日发(作者：google网页搜索)

数字排序小游戏

Option Explicit

Dim Label2X As Integer '记录标签控件数组中要移动的标签控件左上角X的位置

Dim Label2Y As Integer '记录标签控件数组中要移动的标签控件左上角Y的位置

'让标签数组中的每个标签控件上显示的数字是随机的，无重复的

Private Sub Init()

Randomize

Dim a(7) As Integer

Dim i As Integer, k As Integer

1

n = ""

For i = 0 To 7

a(i) = i

Next

For i = 0 To 7

k = Int(Rnd * 8)

Do While a(k) = -1 'a(k)=-1表示该数组元素对应的数字已经被使用过了

k = Int(Rnd * 8) '重新生成k的值，直到a(k)的值不等于-1

Loop

Label2(i).Caption = Trim(Str(a(k)))

a(k) = -1 'a(k)的值已经使用了，不能再用，重新赋值为-1与其他的元素值相区

别

2


本文标签： 标签 控件 数组

版权声明：本文标题：(完整版)vb小游戏代码 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/b/1711534844a598771.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。