单元五 选择结构.pptVIP

Private Sub Form_Load() Command1.Caption = 判断 Command1.FontName = 黑体 Form1.FontSize = 12 Form1.FontBold = True End Sub * * * * * * * * * * * * * * * * * * * 判断闰年的条件： y mod 400=0 or (y mod 4 =0 and y mod 100 0) 3. 补充题：使用IF语句的嵌套，编写鸡兔同笼问题。 设：鸡为X只，兔为Y只则： x=(4h-f)/2 y=(f-2h)/2 判断条件： （1）要求 2h≤f ≤ 4h ， 范围以外显示“非法数据”(使用用消息框) （2）且 f 应为偶数， 否则显示为“不合题义” (使用用消息框) * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Private sub command1_click() dim x as single,y as single x=InputBox(“请输入x的值：”) If x＜0 Then y=x^2-1 ElseIf x=0 and x ＜10 Then y=x ElseIf x ＜20 Then y=x^2+1 ElseIf x ＜30 Then Y=x^3+x+1 Else Y=x^2+10 End if Print “x =”;x ,“y=”;y End sub 【例5】根据输入的成绩转换为成绩等级。 Private Sub Form_Load() 设计窗体 Form1.Caption = 成绩 Label1.Caption = 输入分数 Label2.Caption = 成绩等级 Command1.Caption = 转换 Command1.FontName = 隶书 Command1.FontSize = 14 Text1.Text = Text2.Text = End Sub Private Sub Command1_Click() Dim score As Single score= Val(Text1.Text) If score= 90 Then Text2.Text = 优秀 ElseIf score= 80 Then Text2.Text = 良好 ElseIf score= 70 Then Text2.Text = 中等 ElseIf score= 60 Then Text2.Text = 及格 ElseIf score= 40 Then Text2.Text = 补考 Else Text2.Text = 重修 End If End Sub 程序段为： If t0 and t1 then 若写成 0 t 1 是错误的 y = t*t Elseif t=1 and t2 then y = t^2-1 Elseif t=2 and t3 then y = t^2-2*t+1 不能写成 y=t2-2t+1 Elseif t=3 and t4 then y = t^2+4*t-17 Else MsgBox “不在范围内” + vbNewLine + “请重新输入” End if t2 0 t 1 t2-1 1≤ t 2 t2-2t+1 2≤ t 3 t2+4t-17 3≤ t 4 Y= 【实验题】 P49（1） Private Sub Form_Click() Dim t As Single, y!