select case语句什么格式来着？一时忘了！！

Question

同上

Answer 1

select case key
   case 0:
      doing
   case 1;
........
end select

Answer 2

Select Case testexpression
[Case expressionlist1
[statementblock-1]]
[Case expressionlist2
[statementblock-2]]
.
.
.
[Case Else
[statementblock-n]]End SelectDim Index As Integer
Select Case Index
    Case 0                  '“剪切”命令。
         CopyActiveControl  '调用通用过程。
         ClearActiveControl
    Case 1                  '“复制”命令。
         CopyActiveControl
    Case 2                  '“清除”命令。
         ClearActiveControl
    Case 3                  '“粘贴”命令。
         PasteActiveControl
    Case Else
         frmFind.Show       '显示找到的对话框。
End Select