【VB开源代码栏目提醒】：网学会员为广大网友收集整理了，SelectCase.frm，希望对大家有所帮助！

    VERSION 5.00
    Begin VB.Form Form1 
       AutoRedraw      =   -1  'True
       Caption         =   "Select Case"
       ClientHeight    =   600
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   3570
       BeginProperty Font 
          Name            =   "Arial"
          Size            =   15.75
          Charset         =   0
          Weight          =   700
          Underline       =   0   'False
          Italic          =   0   'False
          Strikethrough   =   0   'False
       EndProperty
       LinkTopic       =   "Form1"
       ScaleHeight     =   600
       ScaleWidth      =   3570
       StartUpPosition =   3  '窗口缺省
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Form_Load()
        Dim number As String
        number = "A"
        Select Case number
            Case "A"
                Print "变量number的内容是A"
            Case "B"
                Print "变量number的内容是B"
            Case Else
                Print "Unknow number"
        End Select
    End Sub