第二册 第3章 顺序与分支结构（4）-2020-2021学年华东师大版高一信息技术上学期导学案

10A信息 4-3 顺序与分支结构（4） 班级 姓名 学号 日期 【练习反馈】 程序功能1：输入信息成绩，90分以上（包含90）输出“优秀”，80分以上（包含80）输出“良好”，否则输出“继续努力”。 流程图： VB程序： 程序功能2：输入一个数，判断正负，若为正数则输出“正数”，若为负数则输出“负数”，否则输出“0”。 流程图： VB程序： 程序功能3：输入每月的上网小时数（该数必为整数），输出网费。收费规则如下：不超过30小时（包括30）收取50元，大于30小时且不超过60小时收取80元，超过60小时收取130元。 流程图： VB程序： 10A信息 4-3 顺序与分支结构（4） 班级 姓名 学号 日期 【练习反馈】 程序功能1：输入信息成绩，90分以上（包含90）输出“优秀”，80分以上（包含80）输出“良好”，否则输出“继续努力”。 流程图： VB程序： Dim score As Single score = Val(InputBox("请输入信息成绩")) If score >= 90 Then Print "优秀" Else If score >= 80 Then Print "良好" Else Print "继续努力" End If End If 程序功能2：输入一个数，判断正负，若为正数则输出“正数”，若为负数则输出“负数”，否则输出“0”。 流程图： VB程序： Dim a As Single a = Val(InputBox("请输入a")) If a > 0 Then Print "正数" Else If a < 0 Then Print "负数" Else Print "0" End If End If 程序功能3：输入每月的上网小时数（该数必为整数），输出网费。收费规则如下：不超过30小时（包括30）收取50元，大于30小时且不超过60小时收取80元，超过60小时收取130元。 流程图： VB程序： Dim h As Single h = Val(InputBox("请每月上网小时数")) If h <= 30 Then Print "