求VB小游戏，简单一点，越简单越好

显示全部楼层 · 2010-12-21 16:45:06

数字排序小游戏 Option ExplicitDim Label2X As Integer'记录标签控件数组中要移动的标签控件左上角X的位置 Dim Label2Y As Integer'记录标签控件数组中要移动的标签控件左上角Y的位置'让标签数组中的每个标签控件上显示的数字是随机的，无重复的Private Sub Init()RandomizeDim a(7) As IntegerDim i As Integer, k As Integer
Label1.Caption = ""
For i = 0 To 7
a(i) = iNext

千问 · 2010-12-21 16:45:06

Option ExplicitDim Label2X As Integer'记录标签控件数组中要移动的标签控件左上角X的位置 Dim Label2Y As Integer'记录标签控件数组中要移动的标签控件左上角Y的位置'让标签数组中的每个标签控件上显示的数字是随机的，无重复的Private Sub Init()R