谁帮我看下这里Boolean具体的作用

来源:百度知道 编辑:UC知道 时间:2024/05/13 05:43:27
Option Explicit
Private StoredValue As Integer
Private Const opNone = 0
Private Const opAdd = 1
Private Const opSubtract = 2
Private Const opMultiply = 3
Private Const opDivide = 4
Private Operator As Integer

Private NewEntry As Boolean ‘设置他具体起什么作用

' Remove the last character.
Private Sub DeleteCharacter()
Dim txt As String
Dim min_len As Integer

txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If

If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub

' Clear the current entry, saved value, and operator.
Private Sub cmdClear_Click()
cmdClearEntry_Click
StoredValue = 0
Operator = opNone
End Sub

' Clea

你的问题其实就一个

Private NewEntry As Boolean ‘设置他具体起什么作用

Private 其实是一个声明变量的关键字 和 Dim 一样都是窗体级(局部)变量的声名.详细的你搬书吧.

-------------------------
我靠,它仅仅是个变量而已,就那么一段代码谁知道它到底起什么作用的,肯定要有判断它“真伪”的地方。

'***********************************
' Change the value's sign.
Private Sub cmdPlusMinus_Click()
If NewEntry Then '这里就是判断点,如果 NewEntry=True就...
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub

我看了一下,不是很懂,因为没有控件的描述,但也可以告诉你,NewEntry作为"Boolean"类型,它的默认值是"False",它在程序中的目的是创建一个"开关"用于识别是否输入一个新的值!是就变为"True",当处理结束时变成"False".
如果你再详细描述一下你的题目及要求,我会给你满意回答.