1、 End If Get_X_Value = True Exit Function Get_X_Value = FalseEnd FunctionFunction GetValue(nType As Integer, nWid As Integer) GetCoor On Error Resume Next Dim OKCount, EmptyCount As Integer MinX = Xs(1).cX MaxX = Xs(1).cX MinY = Xs(1).cY MaxY = Xs(1).cY For i = 2 To 4 If MinX Xs(i).cX Then MinX = Xs(
2、i).cX If MaxX Xs(i).cY Then MinY = Xs(i).cY If MaxY = picPictureNow.Width And OKCount = picPictureNow.Height Then EmptyCount = EmptyCount + 1 Exit For MinY = MinY - EmptyCount If MinY 20 Then MaxY = 20 Else Get MinX For i = MinX - 1 To MinX - (nWid - 1) Step -1 If Total(i, j) = False Then OKCount =
3、OKCount + 1 MinX = MinX - EmptyCount If MinX 10 Then MaxX = 10 GetValue = TrueFunction Get_Y_Value() If GetValue(0, 2) Then If MaxY - MinY If MaxY - (picPictureNow.Top + 1) = 1000 ThentmrDrop.Interval = 200ji = 3ElseIf fen = 50 ThentmrDrop.Interval = 100ji = 2Else: tmrDrop.Interval = 450ji = 1End IfText2.Text = ji如果目前方块的顶点位置 =0 ,则表示全部堆满If picPictureNow.Top 45Dead.WAV Sele