3程序设计初步举例、练习

  • 格式:doc
  • 大小:93.50 KB
  • 文档页数:5

1、任务描述:根据用户输入的圆半径,计算并显示圆面积。

2、算法思考:

在已知圆的半径的情况下,如何实现显示圆面积的算法。

3、算法呈现:以下是该问题的算法实现主要过程。

4、结果呈现:下面老师演示一下今天我们要完成的程序的最后效果。

5、投影演示:

首先演示在VB界面下,生成应用程序的第一步,然后打开“计算圆的面积”程序,学生回答在该程序界面中,使用到了哪些我们已经学习到了控件对象。[学生回答]

再演示VB程序界面下添加控件对象的方法,给出主要控件属性设置表,对表中的数据的含义做简单的解释,并以Form1对象为例,讲解对控件属性修改的方法,学生完成“计算圆面积”应用程序的界面设计。

对象名 属性名 属性值 说明

Form1 Caption 计算圆的面积 窗体标题

Label1 Caption 请输入圆的半径 用来提示后面文本框的功能

Label2 Caption 圆的面积是: 用来提示后面文本框的功能

Text1 Text (空白) 输入半径值

Text2 Text (空白) 显示面积值 表2-1 窗体中主要控件属性设置

在学生创作作品过程中,教师投影出“计算圆面积”应用程序的最初程序界面图,并投影展示学生阶段性程序效果图。

7、知识总结:在展示时,我们发现同学们的作品都非常漂亮,但都只是花瓶,不起任何作用,你输入半径的值后,点计算按钮,根本得不到结果。同学们想一下这是为什么呢?

缺少代码

确实,我们现在好比是搭了一个漂亮的舞台,选好了合适的演员和道具,但最关键的剧本没准备好,好戏肯定就没法上演了。下面,我们就来当一回编剧,把剧本写上。

8、代码编写:今天的剧本(即程序代码)已经写好了,同学们只需将它输入到程序中就可以了。(双击按钮即可进入代码窗口)

Private Sub Command1_Click() ‘ 双击按钮,该行自动生成,不需用户输入

Dim r As Double

r=Val(Text1.Text)

Text2.Text=Str(3.14159*r*r)

End Sub ‘ 也不需用户输入 BackColor (自定义) 背景颜色

Locked True 使其不可编辑

Command1 Caption 计算圆面积 计算圆的面积,并在Text2控件中显示结果

Shape1 Shape 3 设置为圆

FillStyle 0 设置为实心圆 9、保存及生成exe文件的方法

10、代码分析:简单了解程序代码的基本含义。

Private Sub Command1_Click() 表示是发生在Command1上的鼠标单击事件

Dim r As Double 定义变量r为双精度实数(用来存放输入的半径值)

r=Val(Text1.Text) 将文本框Text1中用户输入的值传送给r(VB中数据输入的常用方法)

Val()函数将字符型值转换成数值型值

Text2.Text=Str(3.14159*r*r) 在文本框Text2中输出计算机根据公式计算的结果(VB中数据输出的常用方法)Str()函数将数值型值转换成字符型值

End Sub 程序段结束

重点提炼:VB程序中对象属性修改的两种方法:

(1)在属性窗口中直接修改;

(2)在代码窗口中通过“对象名.属性名”的方式修改。

重点语句如下:

Text1.Text=Str(s) → 在Text1中显示变量s的值

a=Val(Text2.Text) → a的值由Text2输入

Label1.Caption="Hello" → 在Label1上显示文字Hello

做业:1、用海伦公式求三角形面积。或2、根据用户输入的圆半径,计算并显示圆周长。

程序界面呈现:

思考步骤如下:

(1)先分析问题,确定解决问题的算法。 (2)VB环境下界面设计(包括需要添加哪些控件对象、属性值的修改等)

注意:表中的对象名和VB程序界面中对象的一一对应,以及对象名修改(Name属性)与对象标题(Caption属性)修改的区别。

对象名 属性名 属性值 说明

Form1 Caption 用海伦公式计算三角形的面积 窗体标题

Label1 Caption a= 标签

Label2 Caption b= 标签

Label3 Caption c= 标签

Label4 Caption 三角形的面积是: 标签

txtA Text (空白) 输入边长a

txtB Text (空白) 输入边长b

txtC Text (空白) 输入边长c

txtArea Text (空白) 显示面积数据

Locked True 不可编辑

Command1 Caption 计算三角形面积 计算三角形的面积按钮

(3)基本代码编制。(双击Command1对象输入下面代码,在划横线处填上正确内容)

Dim a, b, c, p, s As Double

a = Val(txtA.Text) ‘将txtA文本框输入的值给a

b = Val( ) ’将txtB文本框输入的值给b

c = Val( ) ’将txtC文本框输入的值给c

p=(a+b+c)/2

s=Sqr(p*(p-a)*(p-b)*(p-c)) ‘Sqr()函数的含义为开方

=Str(s) ‘将计算结果在txtArea文本框中输出显示

(4)调试及保存程序:将完成的程序进行调试,任意输入三条边的长度,观察结果。

12、探究:通过对程序的观察,我们发现,在程序中没有对三条边能否构成三角形的情况进行判断,这显然存在漏洞,我们将对程序进行进一步的修改。在计算机里面,对情况的判断可以使用选择模式下的IF语句。

IF语句的语法如右图所示,请同学们考虑两个问题: If 条件为真 Then

„„

Else

„„

End If (1)该语句应该被加在程序的哪个位置最合适?

(2)如何写判断语句(即任意两边之和大于第三边)?

13、代码完善:

Dim a, b, c, p, s As Double

a = Val(txtA.Text)

b = Val(txtB.Text)

c = Val(txtC.Text)

If (a + b > c) And (a + c > b) And (b + c > a) Then

p = (a + b + c) / 2

s = Sqr(p * (p - a) * (p - b) * (p - c))

txtArea.Text = Str(s)

Else

txtArea.Text = "不能构成三角形"

End If

14、展示归纳: VB开发应用程序的一般步骤(如下图所示)。

分析问题、设计算法界面设计编写和输入代码调试和保存程序

15、知识升华:

所以,我们在进行算法与程序设计时,全面考虑问题至关重要,所编写的程序要有一定的容错能力,如果你对程序继续思考,还可以对本程序在哪些方面做继续补充呢?[学生讨论并引出:添加版权信息,文本框中输入非数字时的判断等]。