Access爱好者--
所属分类: 精选教程 作者: 李寻欢 更新日期:2003-10-17 19:17:40 阅读次数:362

初识VBA:第三课 设计一个简单的计算器


上节课我们编写的程序不能正确得出结果,原因是:在字符运算中,“+”号是连字符,跟“&”号一样,作用是把符号前后的字符连起来,而我们引用文本框里的值默认类型是字符型,电脑以为我们要进行字符运算,因此计算结果就是“111222”,所以如果想要得到正确的结果,就要先把文本框的值用VAL函数转换成数值型数据。所以上面的语句改成这样就可以了:

txtNum3 = val(txtNum1) + val(txtNum2 )

这节课我们来做一个简单的计算器。这个计算器的知识要点:
1、 字符型与数值型数据的转换
2、 IF语句
3、 Select Case
4、 For循环

下面我们开始设计程序。

步骤1
建立窗体,在窗体上放置20个按钮,一个文本框

步骤2
给各个控件输入名称及标题,名称及标题如下:

1、数字按钮

控件1名称:cmd1 控件1标题:1 控件2名称:cmd2 控件2标题:2
控件3名称:cmd3 控件3标题:3 控件4名称:cmd4 控件4标题:4
控件5名称:cmd5 控件5标题:5 控件6名称:cmd6 控件6标题:6
控件7名称:cmd7 控件7标题:7 控件8名称:cmd8 控件8标题:8
控件9名称:cmd9 控件9标题:9 控件10名称:cmd0 控件10标题:0

2、小数点按钮

控件11名称:cmdPoin 控件11标题:.

3、计算按钮

控件12名称:cmdadd控件12标题:+ 控件13名称:cmdMinus 控件13标题:-
控件14名称:cmdMult控件14标题:* 控件15名称:cmdDiv 控件15标题:/
控件16名称:cmdSqr控件16标题:开方 控件17名称:cmdSqu 控件17标题:平方
控件18名称:cmdReci 控件18标题:倒数

4、清零按钮

控件19名称:cmdClear 控件19标题:C

5、等号按钮

控件20名称:cmdEqual 控件18标题:=

6、文本框

控件21名称:txtResult

步骤3 程序分析

我们首先要确定各个按钮的作用:

1、数字按钮:
当按下数字按钮,文本框里应该出现我们所按下的按钮所代表的数字,如果文本框里原来有数字,就应该在原有数字的尾部加上新的数字。

2、小数点按钮
当按下小数点按钮,必须判断文本框中的数字是否含有小数点,如果没有,就把小数点加在文本框的现有数字后面。


3、计算按钮
当按下计算按钮,就把文本框里的数字保存到一个变量中,把代表该按钮的运算符保存在另一个变量中,并清空文本框,等待下一个参加运算的数字的输入。

4、清零按钮
当按下清零按钮,就把文本框的文本把文本框的值置为0

5、等号按钮
当按下等号按钮,就进行计算,用保存在变量里的数字及运算符跟文本框的里数字进行运算,结果显示在文本框中。

整个程序的分析到此结束,请朋友们根据分析自行编写一下代码,看是否可以把这个简单的计算器做出来,代码的编写下节课再讲。



--------------------------------------------------------------------------------
相关文章

没有相关文章


系统优化
控件使用
数据库设计
数据库连接
系统安全
OLE自动化
常见问题
实用代码
属性详解
网络相关
实用API
经验分享
精选教程
字符处理
ADP相关



文章搜索



制作维护:李寻欢     Mail:[email protected]

关于本站 -- 网站服务 -- 版权条款 -- 联系方法 -- 网站帮助
Access爱好者版权所有 Copyright 2003-2005 All Rights Reserved 未经许可不得盗链