code356a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 17 行

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