Option ExplicitDim i As Integer'定义循环变量Dim j As IntegerDim step As IntegerDim x(8) As Integer'定义一个数组,用来存放随机编号Private Sub Command1_Click()? init'初始化游戏Command1.Enabled = False'使开始按钮失效End SubPrivate Sub Form_Load()? Randomize'起始随机数产生器End SubSub ini...
'给你代码,你自己编吧'你先在窗体上画一个图片控件Picture1,再把这代码复制进去,运行后看看是不是能拖动了。'然后再多画几个图片控件,代码以此类推'有点VB经验的人都会这个Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As LongPr...