选择结构程序设计介绍.ppt

If diff = 0 Then k = 0 ElseIf diff = 2 Then k = 1 ElseIf diff = 10 Then k = 2 Else k = 3 End If Select Case k Case 0 MsgBox 恭喜你，猜对了！ Case 1 MsgBox 接近了，再努力！ Case 2 MsgBox 有些远，再努力！ Case 3 MsgBox 太远了，继续努力！ End Select End If End Sub * 【例5.10】：编程计算某年某月某日是星期几。 分析： 该程序大致可分为三部分： （1）输入部分：输入年、月、日，可通过InputBox函数来实现。 （2）计算部分：用来完成对输入的日期是星期几的计算，因此它是本题的关键。在这一部分应解决以下几个问题： ①判断平年、闰年。 ?凡是能被4 整除但不能被100整除的年份为闰年，如1980年。 ?凡是能被400整除的年份为闰年，如2000年。 ?除以上两种情况以外的其余年份都是平年。 ②计算总天数。 总天数的计算公式为：总天数=平年累积值+闰年累积值+月累积值+日期 ③计算星期几。查阅有关资料可知，1899年12月31日是星期日，因此可把week的值定为1；week的初值加上总天数并对7取模，所得的余数即为星期几。 （3）输出部分：把计算结果以适当的格式输出。 * 程序如下 ： Private Sub Form_Click() 输入部分 Dim Y, M, D, Month2, day0, day1, daysum, week As Integer Y = InputBox(请输入当前日期 先输入年份(1901-2100)) M = InputBox(请输入月份（1～12）：) D = InputBox( 请输入日（1～31）：) 计算部分 If ((Y Mod 100 0) And (Y Mod 4 = 0) Or (Y Mod 100 = 0) And (Y Mod 400 = 0)) Then Month2 = 29 Else Month2 = 28 End If * Select Case M Case 1 day0 = 31 day1 = 0 Case 2 day0 = Month2 day1 = 31 Case 3 day0 = 31 day1 = Month2 + 31 Case 4 day0 = 30 day1 = Month2 + 62 Case 5 day0 = 31 day1 = Month2 + 92 Case 6 day0 = 30 day1 = Month2 + 123 Case 7 day0 = 31 day1 = Month2 + 153 Case 8 day0 = 31 day1 = Month2 + 184 Case 9 day0 = 30 day1 = Month2 + 215 Case 10 day0 = 31 day1 = Month2 + 245 Case 11 day0 = 30 day1 = Month2 + 276 Case 12 day0 = 31 day1 = Month2 + 306 End Select * If (D = day0) Or (D 1) Then daysum = (Y - 1901) + (Y - 1901) / 4 + day1 + D daysum = Int(daysum + 0.5) Else MsgBox 数据输入错误! End If week = (week + daysum) Mod 7 输出部分 Print Y; “年”; M; “月”; D; “日是”; Select Case week Case 0 Print ----星期日---- Case 1 Print ----星期一--- Case 2 Print ----星期二---- Case 3 Print ----星期三---- Case 4 Print ----星期四---- Case 5 Print ----星期五---- Case 6 Print ----