'输入数字1-7,显示其对星期几(例:输入1,显示星期日, '如果输入其它内容,一律显示"输入错误") Private Sub Command1_Click() Dim x As Integer Dim y As String x = Val(Text1.Text) '**********SPACE********** Select Case x Case 1 y = "今天是星期日" Case 2 y = "星期一" Case 3 y = "星期二" Case 4 y = "星期三" Case 5 y = "星期四" Case 6 '**********SPACE********** y = "星期五" Case 7 y = "星期六" '**********SPACE********** Case Else y = "输入错误" End Select Text2.Text = y End Sub