1.2.1 输入语句、输出语句和赋值语句10分钟试讲教案

输入语句、输出语句、赋值语句

教学目标：

知识目标：

掌握顺序结构的功能，学会赋值语句、输入语句和输出语句的写法。

技能目标：

用程序设计的方法解决实际问题

情感目标：

培养学生对程序设计的兴趣和严谨的思维习惯。

教学重点：

顺序结构的格式和功能，赋值语句、输入语句和输出语句的写法。

教学难点：

三种语句的写法。

教学方法：

采用案例式教学方法，结合实例，循序渐进，逐步深入。

教学过程：

新课引入：探究—“求圆的面积”的程序

请同学们思考这个程序执行的特点是什么？

Private Sub Command1_Click()

Const pi As Single = 3.14

Dim r As Single, s As Single

r = InputBox(“r=”,”输入半径”)

s = pi * r ^ 2

Print “圆的面积s=”;s

End Sub

一、程序的顺序结构

特点：1、按从上到下的顺序执行

2、只有一个入口和一个出口

顺序执行

1.

赋值语句

格式:

变量名=表达式

[对象名.]属性名=表达式

功能：把“=”右边表达式的值赋给“=”左边的变量或对象的属性。

例：求圆面积的程序

r = InputBox(“r=”,”输入半径”) 将值赋号右边的InputBox(“r=”,”输入半径”)的值赋给变量r s = pi * r ^ 2 含义是将赋值号右边的表达式pi * r ^ 2的值求出，然后赋给变量s 观察下列赋值语句的作用：

2.数据输入

输入数据的函数InputBox() （1）基本格式：

变量=Inputbox(“提示信息” ，

“标题” ，

缺省输入值，

位置) 左上角的坐标位置

（2）功能：将键盘输入的数据赋给变量，实现人机交互

例如：r = InputBox("R=", "输入半径")

InputBox(“A=”,

”输入”,

12,

100,20)

提示信息

标题

缺省值

对话框左上角的坐标

3.数据输出

VB输出语句Print （1）基本格式：Print 输出内容

输出内容：数、变量、表达式，用引号括起来的字符串。

（2）功能：（1）计算功能（2）将值输出到窗体上

（3）输出内容说明

①输出内容：引号引起来的字符串

→原样输出

Print "你好"

结果为

你好

②输出内容：表达式

→先计算，后输出计算值；

Print 5＋3

结果为

8

Print " x= "; 5＋3

结果为

x=8 （4）输出项的间隔符

输出内容可以是一个或多个。如果是多个输出内容，则各输出内容之间可以用逗号或分号分隔

①分号：则后面一个输出内容紧跟前一个输出（紧凑格）

Print "早安"; "中国"

结果为

早安中国

②逗号，则按照分区(14个字符位置)格式输出（分区格）

Print "早安" ，

"中国"

结果为

早安

中国

③如果Print中没有输出内容，则表达输出一个空行。

print " x= ";x, " y= ";y

Print

Print " China "

（5）输出项的定位输出

①

用TAB函数定位输出。函数格式：Tab(n)。

从第n列开始输出数据，通常最左边的列号1。

用法：将要输出的内容放在tab函数后面，并用“;”隔开。

如：print tab(10);”姓名”;tab(25);”年龄”

输出结果是分别在当前行的第10列和第25列输出“姓名”和“年龄”。

②

用spc函数定位输出。

函数格式：spc(n)。

spc函数提供若干个空格。n为整数表达式，表示在显示或打印下一个表达式之前插入的空格数。Spc函数与输出项之间用”;”相隔。

如：print “后面有8个空格”;spc(8);”前面有8个空格”。

输出结果：后面有8个空格

前面有8个空格

课堂练习：

例1：试编写一个程序，实现输入圆的半径，输出圆的周长和面积。

Private Sub Command1_Click() Const p As Single = 3.14 Dim r, s, l As Single r = InputBox("r+", "输入半径") c = 2 * p * r s = p * r * r

Print "周长c="; c Print "面积s="; s End Sub 例2：已知长方体的长、宽、高，编写一个程序，求长方体的全面积和体积。

分析问题：

设长方体的长、宽、高分别为a,b,c，可得长方体的全面积为：s=2*(a*b+b*c+c*a)，体积为v=a*b*c 设计算法：

(1)输入a、b、c的值；

(2)计算s=2*(a*b+b*c+c*a)和v=a*b*c (3)输出s、v的值

(4)编写程序

程序：

Private Sub Command1_Click()

Dim a, b, c, s, v As Single

a = InputBox("a=", "输入")

b = InputBox("b=", "输入")

c = InputBox("c=", "输入")

s = 2 * (a * b + b * c + c * a)

v = a * b * c

Print "全面积s="; s, "体积v="; v End Sub 例3：合作探究

以小组为单位，探讨下面的这个问题：

从键盘上输入一个三位整数，然后将它反向输出，如何实现？例如输入456，输出应为654。

分析问题：

设x为输入的三位整数，y为x的反向输出设x的百位为a，十位为b，个位为c a=x\100

b=(x-a*100)\10

c=x mod 10 设计算法：

流程图

(1)输入x的值；

(2)计算：a=x\100；

(3)计算：b=(x-a*100)\10；

(4)计算：c=x-a*100-b*10；

(5)计算：y=c*100+b*10+a；

(6)输出y的值。

程序：

Private Sub Command1_Click() Dim x As Integer, x1 As Integer, x2 As Integer Dim x3 As Integer, y As Integer x = InputBox("x=", "输入") x1 = x \ 100 x2 = (x - x1 * 100) \ 10 x3 = x - x1 * 100 - x2 * 10 y = x3 * 100 + x2 * 10 + x1 Print "y="; y End Sub 课后习题：

1.一列火车在某地时的速度为V0 =40km/h，现已加速度a=0.15m/s2加速行驶，试编写一个程序，求2min后的速度V和距开始点的距离S。

2.试编写一个程序，求平面中两点之间的距离。

课后反思：