code356a.txt

VB大全（精华版）源代码

Public Sub Main()
Dim A%, B%, C%, D As Integer
A = 1

  Select Case A
    Case 1
      A = 5
      B = 6
      C = 7
      D = 8
    Case 2
      B = 6
      C = 7
      D = 8
  End Select
End Sub