1.2.2 信息技术的应用与影响教学设计｜教案在线预览

Q: 1.2.2 信息技术的应用与影响教学设计是什么类型的资料？

这是一份教学教案文档，可用于备课、课堂讲解与课后复习，支持在线预览正文内容。

Q: 这份教案对应哪篇课文？

对应课文《1.2.2 信息技术的应用与影响》，可从面包屑进入课文目录查看同课其他资料。

Q: 如何找到配套课件？

页面提供「配套课件/同课文课件」入口；也可进入课文详情页同时查看教案与课件列表。

资料摘要

1、编写一个程序，判断考试分数是否及格，分数为60分及以上则输出合格。Private Sub Command1_Click() Dim grade As Single grade = InputBox("请输入分数：") If grade >= 60 Then Print "恭喜你！合格！" Els

资料类型：教学教案文档

所属课文：1.2.2 信息技术的应用与影响

支持正文预览，并提供同课文课件入口

浏览次数

下载次数

更新时间

2019-06-27 14:49:00

来源学校

学校：北大附中成都为明学校

1.2.2 信息技术的应用与影响教学设计

未知

2019-06-27 14:49:00

PDF / 未知页

未知字

摘要：暂无摘要

关键词：1.2.2 信息技术的应…教学设计

正文

1、编写一个程序，判断考试分数是否及格，分数为60分及以上则输出合格。

Private Sub Command1_Click() Dim grade As Single grade = InputBox("请输入分数：") If

grade >= 60

Then

Print "恭喜你！合格！" Else

Print "不合格！" End If End Sub

2、编写一个程序，判断考试分数的等级，如果分数大于80分，则为A，分数大于60小于80，则为B，小于60则为C。

Private Sub Command1_Click() Dim grade As Single grade = InputBox("请输入考试分数：") If

grade >= 80

Then Print "You've got A" If

(grade >= 60) And (grade < 80)

Then Print "You've got B" If

grade < 60

Then Print "You've got C" End Sub

3、超市中购买苹果，若购买10斤或10斤以下，则2元一斤；若购买10斤以上，则打8折，请编写程序，要求输入购买的斤数，输出应付款总额。

Private Sub Command1_Click() Dim W As Single Dim P As Single W = InputBox("请输入购买苹果的重量：If

W <= 10

Then

P = W * 2 Else

P = W * 2 * 0.8 Print "您应付款："; P; "元" End If End Sub

关于本教案的常见问题

Q：1.2.2 信息技术的应用与影响教学设计是什么类型的资料？

A：这是一份教学教案文档，可用于备课、课堂讲解与课后复习，支持在线预览正文内容。

Q：这份教案对应哪篇课文？

A：对应课文《1.2.2 信息技术的应用与影响》，可从面包屑进入课文目录查看同课其他资料。

Q：如何找到配套课件？

A：页面提供「配套课件/同课文课件」入口；也可进入课文详情页同时查看教案与课件列表。

资料摘要

1.2.2 信息技术的应用与影响教学设计