《2.VB 选择结构.pptVIP

* Private Sub Command1_Click( ) Dim m As Integer m = Val(Text1.Text) Select Case m Case Is 0, Is 12 Text2.Text = 输入错误 Case 2 Text2.Text = 本月有29天 Case 1, 3, 5, 7, 8, 10, 12 Text2.Text = 本月有31天 Case Else Text2.Text = 本月有30天 End Select End Sub Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. * 2.输入3个不同的数，将它们从大到小排序 3.假定每周的工作安排：星期一、三：计算机；星期二、四：高等数学；星期五：英语；星期六、日：休息。输入星期，输出安排。 提示：用0~6代表星期日到星期六。 1.按下列公式计算Y值 练习 Evaluation only. Created with Aspose.Slides for .NET 3.5 Cli