北京电大visualbasic程序设计第3章应用程序接口设计及代码编写

《北京电大visualbasic程序设计第3章应用程序接口设计及代码编写》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VisualBasic程序设计北京电大第三讲　应用程序接口设计　　　　及代码编写[内容简介]1.本章以一个简单的计算器应用程序为实例围绕VB应用程序界面设计和代码设计较系统地分析可视化编程的步骤可视化界面设计方法菜单设计及窗体设计的原则各种常用控件的用法工程化思想和VB结构化程序设计知识。2.通过本章的学习你将系统地掌握VB编程的一般方法及相关知识。[学习目标]1．掌握可视化界面设计的方法2．掌握变量和常量的概念及用法3．掌握运算符及流程控制语句的用法4．理解工程化思想和编程风格5．理解常用函数的使用方法6．了解窗体设计的基本原

2、则7．了解“简单计算器”程序设计过程3.1“简单的计算器”应用程序任务3.1.1任务概述Windows操作系统自带了一个计算器程序，现在我们来模仿它创建一个简单的但却属于我们自己的计算器应用程序。该程序实际上是对第一章“加法”程序的功能拓展，它能完成简单的加、减、乘、除四则运算运行主界面帮助：关于窗体3.1.2界面布局命令按钮控件文本框：txtResult框架Frame控件文本框：txtFirst文本框：txtSecond文本框：txtLabel标题及图标不允许最大化3.1.3界面设计0．新创建一个“标准EXE”工程1．设置窗体属

3、性2．放置框架控件3．放置命令按钮控件4．放置文本框控件5．设计菜单3.1.4代码设计1．窗体的Load事件PrivateSubForm_Load()txtFirst.Text=""txtSecond.Text=""txtLabel.Text=""EndSub2．数字区的命令按钮的Click事件（1）数字“0”按钮PrivateSubCommand1_Click()'每点击一下该按钮，就在文本框的尾部加字符“0”。'如果txtLabel为空，则说明现在正在输入的是第1个数字；'否则表示输入的是第2个数字；IftxtLabel.Te

4、xt=""ThentxtFirst.Text=txtFirst.Text+"0"ElsetxtSecond.Text=txtSecond.Text+"0"EndIfEndSub（2）数字“1”按钮PrivateSubCommand3_Click()IftxtLabel.Text=""ThentxtFirst.Text=txtFirst.Text+"1"ElsetxtSecond.Text=txtSecond.Text+"1"EndIfEndSub依此可编写数字2至9命令按钮的Click事件代码，请同学们自己完成。3．txtFirs

5、t文本框的Change事件PrivateSubtxtFirst_Change()‘每当txtFirst的内容发生变化时，‘将变化结果随时映射到txtResult。txtResult.Text=txtFirst.TextEndSubTxtSecond文本框的Change事件代码同上。4．正负号（+/-）命令按钮的Click事件PrivateSubCommand2_Click()‘如果txtLabel为空，则说明现在正在输入的是第1个数字；'否则表示当前正在输入的是第2个数字。'首先用Val函数将txtFirst.Text转换为数字，

6、然后再乘以-1；IftxtLabel.Text=""ThentxtFirst.Text=-1*Val(txtFirst.Text)ElsetxtSecond.Text=-1*Val(txtSecond.Text)EndIfEndSub5．加、减、乘、除命令按钮的Click事件以“加、减”命令按钮为例，其他请同学们自己完成PrivateSubCommand15_Click()txtLabel.Text="加"EndSubPrivateSubCommand16_Click()txtLabel.Text="减"EndSub6．“计算结果

7、”命令按钮的Click事件PrivateSubCommand17_Click()DimMyResultAsDouble'定义一个Double类型的变量。SelectCasetxtLabel.Text'以txtLabel.Text的值为多重分支条件Case"加"'当txtLabel.Text的值为“加”时MyResult=Val(txtFirst.Text)+Val(txtSecond.Text)Case"减"'当txtLabel.Text的值为“减”时MyResult=Val(txtFirst.Text)-Val(txtSecon

8、d.Text)Case"乘"'当txtLabel.Text的值为“乘”时MyResult=Val(txtFirst.Text)*Val(txtSecond.Text)Case"除"'当txtLabel.Text的值为“除”时MyResult=Val