VB基础入门教程(18)

VB基础入门教程

别看这个东西小，还费了近我两个小时呢，不觉大叹手生，里面也有些地方很绕弯子，我尽量解释清楚。

在编写程序之前，我们先来回顾一下计算器的使用。

1. 按下数字键在液晶屏上会出现数字，这是最基本的功能。

2. 第一次按下运算键，再按下数字键，将重新输入第二个数字，再次按下运算键，将算

出前两个数的结果，然后按下数字键，将又重新输入新的数字。

3. 输入数字后，按下“等于键”将仍输出原来的数字，输入运算符和第二个数字后在按下

“等于”，将得到二者的结果。然后又重复第二、三步。 4. 按下“清除”，数据被全部清除。

了解了这些，我们一步一步实现。 先实现数据的输入，请看代码。

与未创立组的控件相比，它的事件里多了Index参数，组里所有的对象都使用同一个事件。

先在General里声明窗体级全局变量： Dim Num1, Num2 As Single

Dim StrNum1, StrNum2 As String

Dim FirstNum As Boolean '判断是否是数字开头

因为Text1里是存放字符串的，所以要把输入的数据进行运算，必须把字符型变量转变为实型变量，分别用Num1、Num2和StrNum1、StrNum2进行存放。 在Form_Load事件里给变量初赋值： Num1 = 0 Num2 = 0 StrNum1 = "" StrNum2 = "" FirstNum = True

因为17个按钮使用的是同一事件，所以我们用一个Select Case语句区分各个按钮，双击任意按钮输入代码：

Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 If FirstNum Then

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB基础入门教程(18)在线全文阅读。