面向对象程序设计制作信号灯

Visual Basic程序设计语言
小结
多分支结构的程序设计语句的实现过程。 Select Case语句功能如何用If—Else语句来实现？
Visual Basic程序设计语言
Thanks ！
参考代码
Private Sub cmdchange_Click() Static signal As Integer signal = signal + 1 If signal > 3 Then signal = 1 Select Case signal Case Is = 1
imgchange.Picture = imggreen.Picture Case Is = 2
项目拓展
单击“输入成绩”按钮，弹出一个“请输入成绩”对话框，在 对话框中输入成绩，单击“确定”按钮后，在窗体显示出成绩等级。 成绩等级的标准是：如果成绩大于等于90分，等级为”优秀“；如 果成绩大于等于80分且小于90分，等级为“良好”；如果成绩大于 等于60分且小于90分，等级为“及格”；如果成绩小于60分，则为 “补考”。
lbldj.Caption = "成绩等级：优秀" Case Is >= 80 lbldj.Caption = "成绩等级：良好" Case Is >= 60 lbldj.Caption = "成绩等级：及格" Case Else lbldj.Caption = "成绩等级：补考" End Select End Sub
lbldj.Caption = "成绩等级：及格" Case Is >= 80 lbldj.Caption = "成绩等级：良好" Case Is >= 90 lbldj.Caption = "成绩等级：优秀" Case Else lbldj.Caption = "成绩等级：补考" End Select End Sub
Visual Basic程序设计语言
窗体界面
Visual Basic程序设计语言
参考代码
Private Sub cmdOK_Click() Dim cj As Single s$ = "请输入成绩!" + Chr(13) + Chr(10) + "成绩是：" cj = Val(InputBox(s$, "请输入成绩", 0, 5000, 1600)) lblcj.Caption = "您的成绩是：" & cj Select Case cj Case Is >= 60
End Select
功能
根据测试表达式的值，选择执行不同的 语句。若表达式的结果与Case子句中的取 值列表1的值相等，则执行语句序列1。如 果有多个Case子句符合要求，只执行第一 个符合要求的Case子句所对应的语句序列。 如果都不符合，则执行Case Else后面的语 句序列。
Visual Basic程序设计语言
Visual Basic程序设计语言
制作信号灯
选择结构—— Select Case语句
Visual Basic程序设计语言
制作信号灯
项目描述
项目分析
有3种信号灯红、绿、黄， 要求每点击一次按钮，信号灯 发生变化。
设置3种信号灯图片，存放在不同的图像框 中。我们用同一图像框显示结果，每点击一次按 钮，把加载到图像框中的图片换一次。
Visual Basic程序设计语言
你来猜数
任务单
１பைடு நூலகம்
新建工程prjsignal.vbp
２
设计工程界面
３
设置窗体
４
编写代码
５
保存工程
６
运行、调试程序
Visual Basic程序设计语言
窗体界面
Visual Basic程序设计语言
知识补充
select case 语句格式和功能
格式
Select Case 表达式 [ Case 取值列表1 语句序列1] [ Case 取值列表2 语句序列2] … [ Case else 语句序列n]
Private Sub cmdOK_Click() Dim cj As Single s$ = "请输入成绩!" + Chr(13) + Chr(10) + "成绩是：" cj = Val(InputBox(s$, "请输入成绩", 0, 5000, 1600)) lblcj.Caption = "您的成绩是：" & cj Select Case cj Case Is >= 90
imgchange.Picture = imgyellow.Picture Case Is = 3
imgchange.Picture = imgred.Picture End Select End Sub
Private Sub cmdexit_Click() Unload Me End Sub
Visual Basic程序设计语言