99.bas

坦克大战VB6.0做的

Attribute VB_Name = "Module1"
Declare Sub BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long)
Declare Sub StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long)

Global Const srccopy = &HCC0020
Global Const srcand = &H8800C6
Global Const srcor = &HEE0086

Public cards(1 To 52)
Public cardsbox(1 To 52)
Public users(1 To 4, 1 To 4)
Public lost_users(1 To 4)
Public cards_num
Public cardsbox_num
Public max_num
Public go_num
Public gp
Public sp
Public five
Public over


Sub RndCards()   '瑍礟
Randomize Timer
For i = 1 To 52
    cards(i) = i
    cardsbox(i) = 0
Next i
For i = 1 To 500
    a = Int(Rnd * 52) + 1
    b = Int(Rnd * 52) + 1
    Swap cards(a), cards(b)
Next i
cards_num = 1
cardsbox_num = 1
End Sub

Sub UserCards()   '祇礟
For i = 1 To 4
  For j = 1 To 4
      users(j, i) = cards(cards_num)
       cards_num = cards_num + 1
  Next j
Next i
End Sub

Sub UserShowCards(num)  '