计算器算不出结果~代码好像没错~进来看看
Option ExplicitDim equalsym As Boolean
Dim pointsym As Boolean
Dim FirstNum As Double
Dim ComputeType As String
Private Sub cmdAddPiture_Click()
cdl.DialogTitle = "´ò¿ªÒ»·ùͼƬ"
cdl.Action = 1
picview.Picture = LoadPicture(cdl.FileName)
picview.Visible = True
End Sub
Private Sub cmdNumber_Click(Index As Integer)
If equalsym = True Then 'Èç¹ûÓÐËãʽ¸ÕËãÍ꣬ÐèÒªÒÔϲÙ×÷
txtOutput.Text = "" 'Çå¿ÕÏÔʾ¿òÄڵĽá¹û
equalsym = False '°Ñ±êʾ·ûequalsymµÄÖµ»¹Ô
End If
txtOutput.Text = txtOutput.Text & Trim(Str(Index))
End Sub
Private Sub cmdCompute_Click(Index As Integer)
FirstNum = Val(txtOutput.Text)
txtOutput.Text = ""
Select Case Index
Case 0 '¼Ó·¨ÔËËã
ComputeType = "add"
Case 1 '¼õ·¨ÔËËã
ComputeType = "subtraction"
Case 2 '³Ë·¨ÔËËã
ComputeType = "multiplication"
Case 3 '³ý·¨ÔËËã
ComputeType = "division"
End Select
equalsym = False '°Ñ±êʾ·û¡°equalsym¡±µÄÖµ»¹Ô
pointsym = False '°Ñ±êʾ·û¡°pointsym¡±µÄÖµ»¹Ô
End Sub
Private Sub cmdPoint_Click()
If pointsym = False Then
If txtOutput.Text = "" Then txtOutput.Text = "0"
txtOutput.Text = txtOutput.Text & "."
pointsym = True
End If
End Sub
Private Sub cmdNegative_Click()
txtOutput.Text = Trim(Str(-Val(txtOutput.Text)))
End Sub
Private Sub cmdClear_Click()
txtOutput.Text = ""
pointsym = False
End Sub
Private Sub cmdEqual_Click()
If equalsym = False Then
Select Case ComputeType
Case "Add"
txtOutput.Text = Str(FirstNum + Val(txtOutput.Text))
Case "Subtraction"
txtOutput.Text = Str(FirstNum - Val(txtOutput.Text))
Case "Multiplication"
txtOutput.Text = Str(FirstNum * Val(txtOutput.Text))
Case "Division"
txtOutput.Text = Str(FirstNum / Val(txtOutput.Text))
End Select
equalsym = True
End If
pointsym = False
End Sub
Private Sub Form_Load()
equalsym = False
pointsym = False
End Sub
和例子的一样,但是例子的=算的出结果。我的=算不到..按了没反应~ --------------------编程问答-------------------- 怎么有乱玛的??晕了~神啊.9958~!
补充:VB , 基础类