俄罗斯方块源vb代码.doc.docVIP

Dim Type_Now As Integer 目前方块的类型 Dim Type_Next As Integer 下个方块的类型 Dim intRotate As Integer 方块旋转的状态 Dim fen As Integer 定义分数 Dim ji As Integer 定义级别 Function Get_X_Value() If GetValue(1, 2) Then Get X Value If MaxX - MinX = 2 Then If MaxX - CurX = 1 Then Adjust_Left = MaxX - 2 - 1 Else Adjust_Left = CurX - 1 End If Get_X_Value = True Exit Function End If End If Get_X_Value = False End Function Function GetValue(nType As Integer, nWid As Integer) GetCoor On Error Resume Next Dim OKCount, EmptyCount As Integer MinX = Xs(1)