应用程序实例.pptx

“多彩同心圆多彩同心圆”窗体窗体第1页/共18页看右侧窗体、回忆学习过的控件1.命令按钮控件2.标签控件3.组合框控件ABC第2页/共18页比较两窗体控件标签控件、标签控件、共同点：都含有不同点：多彩同心圆含有-组合框控件combobox)命令按钮控件组合框文本框圆面积计算器含有-文本框(textbox)第3页/共18页组合框控件（combobox）文本框 （textbox）第4页/共18页布置任务：本节课任务：设计“圆面积计算器”窗体界面，并编写程序代码。通过实例设计，体验程序设计的基本方法和一般过程。第5页/共18页一、分析问题3个标签控件1个文本框控件2个命令按钮修改窗体form1、6个控件的属性添加哪些控件？数量？属性是否修改？添加哪些控件？数量？属性是否修改？如何完成这个任务？如何完成这个任务？第6页/共18页二、算法设计然后要编写代码，如何编写？第一步做什么？再做什么？解题步骤？算法-解决问题的方法步骤第7页/共18页求圆面积步骤、用自然语言描述首先设R、S、Pi三个变量，R圆的半径，S圆的面积、Pi=3.14、计算圆面积，将面积S显示在标签中。圆面积公式 S=Pi*R第8页/共18页开始输入、赋值半径R赋值圆周率Pi=3.14求园的面积S=Pi*R*R输出面积S值结束用流程图描述算法第9页/共18页“圆面积计算器”程序代码Private Sub Command1_Click()单击命令按钮1的事件 R=Val(Text1.Text)将文本框1中的值赋给变量r Pi=3.14 将数值3.14赋给变量pi S=Pi*r*r 计算圆的面积s值,赋给变量s Label3.Caption=Str$(S)将变量s值填入标签3 End Sub 结束此事件过程Private Sub Command2_Click()单击命令按钮2的事件 End 结束语句End Sub 结束此事件过程 -Val()、Str$()是函数表达式三、编写程序代码第10页/共18页双击“计算”命令按钮，编辑代码在代码编辑窗口，将学习指导中第一段代码，复制到光标闪烁处（最好自己编写）Private Sub Command1_Click()End Sub语句 之间 第11页/共18页五、保存程序（工程文件）首选建立“圆面积计算器”文件夹保存程序（保存2个文件）（工程文件.Vbp、窗体文件.frm）四、调试运行程序第12页/共18页举一反三：根据“圆面积计算器”程序，设计一个“圆周长计算器”窗体，并编写程序代码。第13页/共18页 提示：设变量 L 为圆周长 圆周长公式为：L=2*Pi*r 第14页/共18页提高任务：设计“圆面积和周长计算器”该计算器功能是:输入半径值，能同时求出圆面积和周长第15页/共18页园面积和周长计算器窗体第16页/共18页程序设计的基本方法和过程1.分析问题2.算法设计3.编写程序4.调试运行程序5.保存程序第17页/共18页感谢您的观看。第18页/共18页