执教

邵鹏飞

学科

VB程序设计

班级

锡山中专205机房

教法

案例教学

时间

2018年12月10日

项目名称

项目二 VB窗体设计

任务名称

任务一 条件语句

学习目标

1. 掌握选择结构IF语句的格式书写

2. 能灵活运用选择结构解决计算问题或情况分析问题

3. 掌握输入函数INPUTBOX的使用功能

学习重点

IF语句的简单结构和复合结构

学习难点

用IF语句解决实际问题

学习过程

项目内容

项目活动形式

引出任务

【项目背景】本项目是为实现一个在窗体上可以根据用户的选择完成一些功能的应用程序，在第一个任务中首先让学生掌握VB的基本结构——选择结构。

提问学生，最近按照民俗有哪些节日？

【任务要求】

根据输入的节假日求节假日的日期。

教师导入

分析任务

导入新授

根据节日的不同给出相应的日期，画出分支结构图。

师生互动分析任务

知识准备

【观察思考】

例一：输入a,b三个数，输出其中最大的数。

例二：根据输入的成绩判断等级。

【知识准备】

一． 输入语句

函数：INPUTBOX(提示语，标题，[  ])

功能：弹出一个对话框，可以输入内容，返回值的类型由变量的类型决定，默认返回字符串型。

看一看：dim a as integer

a=inputbox(“请输入一个整数：”)

整型变量a里面的内容就是用户输入的内容。

Dim s as string

S=inputbox(“请输入一个字符串：”)

字符变量s里面的内容就是用户输入的字符串。

二．条件语句

1．单条件语句

格式： if <条件> then

<语句>

end if

2．块if结构

if <条件1> then

<语句块1>

else if <条件2> then

<语句块2>

……

else

<语句块n>

end if

例一解决方案：private sub form1_click()

dim a,b,c,max as integer

a=inputbox(“输入a”)

print “a=”;a

b=inputbox(“输入b”)

print “b=”;b

max=a

if b>max then

max=b

end if

print “max=”;max

end sub

例二解决方案：

private sub form1_click()

dim score as integer

score=inputbox(“请输入成绩”)

if score<60 then

print “你的成绩不合格”

if score>=60 and score<=70 then

print “你的成绩合格”

if score>=70 and score<=80 then

print “你的成绩中等”

if score>=80 and score<=90 then

print “你的成绩良好”

if score>=90 and score<=100 then

print “你的成绩优秀”

else

print “你输入的成绩有误”

endif

end sub

练一练：编程实现计算y的值。Y=  x+10   x<=10

x-10    x>10

教师讲

学生学

项目实施

学生根据已学知识给出：

【任务解决方案】

private sub form1_click()

dim holiday as integer

holiday=inputbox(“请输入节日名称”)

if holiday=”元旦” then

print “一月一日”

if holiday=”愚人节” then

print “四月一日”

if holiday=”劳动节” then

print “五月一日”

if holiday=”儿童” then

print “六月一日”

if holiday=”国庆节” then

print “十月一日”

else

print “不清楚”

endif

end sub

学生动手操作并同步填写项目任务书

教师巡视指导

评议

有针对性的调出几个学生的作业讲评

并指出学生操作中存在的一些问题

老师强调操作要点

教师讲评

学生比较

项目总结

学生填写项目任务书

学生完成

项目名称

制作者

界面主要功能

项目实施过程

序号

主要步骤

主要代码

自评

师评