第三章 第三节 综合活动：开发自己的程序 课件

课件15张PPT。 第三章
第三节
综合活动：开发自己的程序想一想？上数学课时我们画一个圆是怎么画的？要定好半径、圆心位置画圆语句格式：Circle ( 横坐标,纵坐标 ),半径
Private Sub Form_Click()
r = 1000
x = 2500
y = 2500
Circle ( x , y ) , r
Circle ( 2500 , 2500 ) , r
Circle ( 2000+500 , 2000+500 ) , 1000
End Sub这三句的运行结果是一样的。圆心点坐标语句中的横坐标、纵坐标、半径
可以是常量、变量或表达式。任务一：观察程序，画四环打开四环工程1.vbp，运行并观察程序。格式：Circle ( 横坐标,纵坐标 ),半径结论:改变横坐标的值，就可以改变圆的左右位置。你能画出以下图案吗？提示：圆的半径不变，改变横坐标的值，就可以改变圆的左右位置。格式：Circle ( 横坐标,纵坐标 ),半径提示：圆的半径不变，改变纵坐标的值，就可以改变圆的上下位置。任务二：
打开I盘“米奇老鼠”文件夹，运行程序。
修改眼、耳、口的半径，看看结果如何？
Val(x)函数：将字串x中前边的数字符号转换成
相应的数值型数据
例如：Val(“15.2abc”)的结果是15.2Private Sub Command1_Click()
Cls
r = 1500
r1 = Val(Text1.Text) '米奇的眼的半径
r2 = Val(Text2.Text) '米奇的嘴的半径
r3 = Val(Text3.Text) '米奇的耳的半径
Circle (2500, 2500), r '米奇的脸
Circle (1200, 850), r3 '米奇的左耳
Circle (3800, 850), r3 '米奇的右耳
Circle (2500, 3000), r2 ‘米奇的嘴
Circle (2000, 2000), r1 '米奇的左眼
Circle (3000, 2000), r1 ‘米奇的右眼
End SubTextBox文本框输入的内容是字符型数据，
要用Val()函数转换成数值型数据。变量值交换 交换A、B变量的值
例如：有A、B两个杯子，A杯里装了葡萄汁；B杯里装了橙汁，现在要将两个杯中的果汁互换，应该如何操作？变量值交换总结：1、交换A、B变量的值需要用到第三个变量T(第三变量名称可以自己定)
2、三步：① T=A ② A=B ③ B=T
想一想：
可不可以把三个语句写在同一行？如何写可以帮助记忆？
=T = A
A = B
B = T:==:TTAABB顺序结构Private Sub Command1_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
Print "交换变量前 A="; A; " B="; B
'借用中间变量T交换A和B的值
C = A: A = B: B = C
Text1.Text = A
Text2.Text = B
Print "交换变量后 A="; A; " B="; B
End Sub
想一想：
从程序的输出结果看，程序的运行顺序是怎样的？
结论:程序按照由上而下,从左到右的顺序依次逐个语句执行的,我们把这种程序结构叫顺序程序结构.
程序是由上向下运行的从左到右运行顺序结构的流程开始输入数据数据处理输出结果体验顺序结构任务三：打开I盘交换变量文件夹, 按“F8”逐步运行程序，体验顺序结构运行的过程。
课堂小测完成“课堂小测”。
小结画圆语句
circle(横坐标，纵坐标），半径
Val(x)函数：将字串x中前边的数字符号转换成相应的数值型数据
变量值交换
顺序结构：程序按照由上而下,从左到右的顺序依次逐个语句执行的,我们把这种程序结构叫顺序程序结构.