第三节选择结构体验活动4课件.pptVIP

格式： Select Case语句（多重选择语句） Select Case 表达式 Case 表达式范围1 语句块1 Case 表达式范围2 语句块2 …… Case 表达式范围n 语句块n [Case Else 语句块 n+1] End Select 说明：表达式的范围可有四种 编写一个数字到星期名称的转换程序。当输入1时，输出“星期一”当输入2时，输出“星期二”；依此类推。如果输入1到7之外的数字，输出“输入错误”。 Private Sub Command1_Click() Dim num As Integer Dim week As String num = Int(Text1.Text) Select Case num Case 1 week = 星期一 Case 2 week = 星期二 Case 3 week = 星期三 Text2 Text1 Case 4 week = 星期四 Case 5 week = 星期五 Case 6 wee