初识VBA：第三课设计一个简单的计算器_access模块-access类模块-access函数-access VBA

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

时间：2005-08-16 10:56 来源：access爱好者作者：李寻欢『… 阅读：次

上节课我们编写的程序不能正确得出结果，原因是：在字符运算中，“+”号是连字符，跟“&”号一样，作用是把符号前后的字符连起来，而我们引用文本框里的值默认类型是字符型，电脑以为我们要进行字符运算，因此计算结果就是“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、等号按钮
当按下等号按钮，就进行计算，用保存在变量里的数字及运算符跟文本框的里数字进行运算，结果显示在文本框中。

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

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：自动更新链接表的模块
下一篇：API改变主窗口背景

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

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