用VB编写计算器的代码如何写？？

Answer 1

在窗体上放置以下控件，包括：

- 1个Label控件，命名为 lblResult，设置Caption为0。

- 数组按钮控件btnNum(0)~btnNum(9)，下标对应数字（如：btnNum(0)的Caption设置为0，依次类推）。

- 六个按钮：btnAdd（加法）、btnSub（减法）、btnMul（乘法）、btnDiv（除法）、btnEnter（等于号）、btnReset（清除键）。

在窗体代码中输入以下内容：

定义变量：Dim byteOperation As Byte（操作符）、byteTmp As Byte（临时操作符）、intNum As Double（输入的数字）

Sub Calc()语句，根据byteOperation的值执行不同的计算操作，更新lblResult的Caption。

Sub btnNum_Click(Index As Integer)语句，接收输入按钮的数字，若byteTmp非0，则调用Calc()函数，设置byteOperation为1（加法）和byteTmp为1。

Sub btnReset_Click()语句，重置所有变量和lblResult的Caption为0。

Sub btnSub_Click()语句，若byteOperation非0，则调用Calc()函数，设置byteOperation为3（减法）和byteTmp为3。

Sub btnDiv_Click()语句，若byteOperation非0，则调用Calc()函数，设置byteOperation为4（除法）和byteTmp为4。

Sub btnEnter_Click()语句，调用Calc()函数，结束输入操作。

通过以上代码实现了一个基本的计算器功能，包括加、减、乘、除和清除功能。通过按钮点击触发相应操作，最终结果显示在lblResult控件中。