UC知道请帮忙解析这个VB四则运算的语句
来源：百度知道 编辑：UC知道 时间：2024/06/10 07:29:29
Option Explicit
Dim Op1, Op2 ' 即将要输入的数字
Dim DecimalFlag As Integer ' 小数点有无
Dim NumOps As Integer ' 运算的数
Dim LastInput ' 即将输入符号的种类
Dim OpFlag ' 保留运算
Dim TempReadout
' [C] ' 表示取消，变数初期化
Private Sub Cancel_Click()
Readout = Format(0, "0.")
Op1 = 0
Op2 = 0
Form_Load
End Sub
' [CE] 输入取消 (1)这个ce键有什么用呢？
Private Sub CancelEntry_Click()
Readout = Format(0, "0.") (2)括号里这么写的意义？
DecimalFlag = False
LastInput = "CE" (3)这句话有意义吗，ce可以这么使用？？
End Sub
' [.] 按小数点时
' 即将输入演算符、表示 "0." 初期化
' 即将输入的是演算符以外、表示追加小数点。
Private Sub Decimal_Click()
If LastInput = "NEG" Then (4)neg代表的是负数
Dim Op1, Op2 ' 即将要输入的数字
Dim DecimalFlag As Integer ' 小数点有无
Dim NumOps As Integer ' 运算的数
Dim LastInput ' 即将输入符号的种类
Dim OpFlag ' 保留运算
Dim TempReadout
' [C] ' 表示取消，变数初期化
Private Sub Cancel_Click()
Readout = Format(0, "0.")
Op1 = 0
Op2 = 0
Form_Load
End Sub
' [CE] 输入取消 (1)这个ce键有什么用呢？
Private Sub CancelEntry_Click()
Readout = Format(0, "0.") (2)括号里这么写的意义？
DecimalFlag = False
LastInput = "CE" (3)这句话有意义吗，ce可以这么使用？？
End Sub
' [.] 按小数点时
' 即将输入演算符、表示 "0." 初期化
' 即将输入的是演算符以外、表示追加小数点。
Private Sub Decimal_Click()
If LastInput = "NEG" Then (4)neg代表的是负数
1）CE是用来清零的
2）是把“0”以"0."的型式显示 （第一参数是值，第二个参数是显示格式）
3）LastInput 这个变量记录上次操作的动作，执行完CE后当然是赋成CE
4）neg是表示要输入负数，nums表示操作数，是输入了数字
5）lastinput是存上一次操作的，在这里Private Sub Form_Load() 是初始化form的，所在开始时设为空值，即“NONE”
6）这句说起来比较复杂。
一个一个跟你说format(0,".")格式化输出，结果为0.
insrt(readout,format(0,"."))相当与insrt(readout,"0.")表示0在变量readout的位置。比如156.3 那么位置就是3。
计算下来就等于left(readout,3-1)从右边起减去2个数字。比如156.3等于156。
那么就等于156加number(index).caption+format(0,".").
readout format 说的是insrt（）函数里变量readout 在format（0，"."）最先出现的位置。left(N) 从左取N个字符。