VB应用程序的设计方法

《VB应用程序的设计方法》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB应用程序的设计方法——“计算器”一：学习目标：·能熟练运用CommandButton控件及TextBox控件进行VisualBasic(以下简称VB)程序的设计，能熟练运用条件语句编写代码1.重点:运用开发VB程序一般过程的思路来开发“简易计算器”2.难点:分析得出实现“简易计算器”各运算功能的算法。3.分析：设计VB程序的一般步骤：创建用户界面；设置控件属性；编写事件程序代码；运行应用程序。我总结了一下，其实VB程序设计可分为设计用户界面及编写程序代码两个环节。4.目的：加强对CommandButton控件及TextBox控件的掌握，复习对开方、求绝对值

2、函数的使用。设计一个简易计算器，包含加、减、乘、除、开方、平方等运算。程序界面可参考下图。因为VB是一种可视化的编程工具，其整个用户界面的设计都是基于“可视化操作”的。二：编写事件代码：这是VB程序的重难点。我们应把程序代码的编写重点应放在算法（解决问题的方法和步骤）上面。为提高分析问题的能力，我们总结出了一条VB编程的思路：根据题目要求，先分析需要几个控件（界面设计）；接着分析要创建什么事件、在每个事件中涉及到哪些控件的属性的变化、还要考虑发生该事件前可能出现的情况(编写代码)，那么通过分析，VB代码的编写问题就能迎刃而解了。步骤1：创建一个新的工程。步骤2

3、：在窗体上添加一个文本框控件和十九个命令按钮控件，并适当调整的大小及位置。步骤3：将文本框控件的“Alignment”属性设置为“1-RightJustify”，将其字号设为“三号”，将“Text”属性设置为空（“”）。步骤4：依次将命令按钮控件的“Caption”属性设置为“1”、“2”、“3”、“4”、“5”、“6”、“7”、“8”、“9”、“0”、“.”、“+”、“-”、“*”、“/”、“取余”、“开方”、“等于号”“←”。步骤5：将窗体的“Caption”属性设置为“计算器”。OptionExplicitDimszAsInteger＆#39;用来记录进

4、行何种运算DimxAsSingle,yAsSingle＆#39;用来记录进行运算的两个数＆#39;从第一个命令按钮到第十个是用来输入0至9十个数字的正式程序如下:PrivateSubCommand1_Click()Text1.Text=Text1.Text&"1"EndSubPrivateSubCommand2_Click()Text1.Text=Text1.Text&"2"EndSubPrivateSubCommand3_Click()Text1.Text=Text1.Text&"3"EndSubPrivateSubCommand4_Click()Text1

5、.Text=Text1.Text&"4"EndSubPrivateSubCommand5_Click()Text1.Text=Text1.Text&"5"EndSubPrivateSubCommand6_Click()Text1.Text=Text1.Text&"6"EndSubPrivateSubCommand7_Click()Text1.Text=Text1.Text&"7"EndSubPrivateSubCommand8_Click()Text1.Text=Text1.Text&"8"EndSubPrivateSubCommand9_Click()Tex

6、t1.Text=Text1.Text&"9"EndSubPrivateSubCommand10_Click()Text1.Text=Text1.Text&"0"EndSubPrivateSubCommand11_Click()Text1.Text=Text1.Text&"."＆#39;输入小数点EndSubPrivateSubCommand12_Click()x=CSng(Text1.Text)＆#39;将输入的数转换成单精度型的sz=1＆#39;设置即将进行的是加法运算Text1.Text=""＆#39;将文本框清空，以便输入第二个数EndSubPrivat

7、eSubCommand13_Click()x=CSng(Text1.Text)sz=2Text1.Text=""EndSubPrivateSubCommand14_Click()x=CSng(Text1.Text)sz=3Text1.Text=""EndSubPrivateSubCommand15_Click()x=CSng(Text1.Text)sz=4Text1.Text=""EndSubPrivateSubCommand16_Click()x=CSng(Text1.Text)sz=5Text1.Text=""EndSubPrivateSubCommand

8、17_Click()x=CSng(Te