【精选】vb小游戏代码.docVIP

数字排序小游戏 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 Label1.Caption = 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与其他的元素值相区别 Next i End Sub Priv