作业帮计算器中按键的用法举例说明一下.不太懂
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/15 12:28:36
计算器中按键的用法举例说明一下.不太懂
计算器中按键的用法
举例说明一下.不太懂
计算器中按键的用法举例说明一下.不太懂
什么按键啊
我编了一个
把代码给你吧
Public p As String
Public f As Double
Public s As Double
Dim X
Dim a
Dim b
Dim c
Dim d
Private Sub cmdAbs_Click()
If txtScreen.Text = "" Then
MsgBox "无数字,无法计算"
ElseIf txtScreen.Text <> 0 Then
f = txtScreen.Text
s = f
s = Abs(s)
txtScreen.Text = s
txtScreen2.Text = s
End If
End Sub
Private Sub cmdAtn_Click()
If txtScreen.Text = "" Then
MsgBox "无数字,无法计算"
ElseIf txtScreen.Text <> "" Then
f = txtScreen.Text
s = f
s = Atn(s)
txtScreen.Text = s
txtScreen2.Text = s
End If
End Sub
Private Sub cmdClean_Click()
txtScreen = ""
f = 0
s = 0
End Sub
Private Sub cmdClear_Click()
txtScreen.Text = ""
f = 0
s = 0
txtScreen2.Text = ""
txtGH.Text = ""
cmdSpr.Enabled = True
cmdXmY.Enabled = True
cmdCos.Enabled = True
cmdSin.Enabled = True
cmdMi.Enabled = True
cmdAbs.Enabled = True
cmdds.Enabled = True
cmdAtn.Enabled = True
cmdeN.Enabled = True
cmdLog.Enabled = True
cmdTan.Enabled = True
cmdspr2.Enabled = True
cmdGHH.Enabled = True
End Sub
Private Sub cmdCos_Click()
If txtScreen.Text = "" Then
MsgBox "无数字,无法计算"
ElseIf txtScreen.Text <> "" Then
f = txtScreen.Text
s = f
s = Cos(s)
txtScreen.Text = s
txtScreen2.Text = s
End If
End Sub
Private Sub cmdDigit_Click(Index As Integer)
txtScreen.Text = txtScreen.Text & cmdDigit(Index).Caption
s = txtScreen.Text
End Sub
Private Sub cmdDivide_Click(Index As Integer)
If p = "" Then
txtScreen.Text = ""
p = "/"
f = s
s = 0
End If
End Sub
Private Sub cmdds_Click()
If txtScreen.Text = "" Then
MsgBox "无数字,无法计算"
ElseIf txtScreen.Text <> 0 Then
f = txtScreen.Text
s = f
s = 1 / f
txtScreen.Text = s
txtScreen2.Text = s
Else
MsgBox "分子不能为零."
End If
End Sub
Private Sub cmden_Click()
If txtScreen.Text = "" Then
MsgBox "无数字,无法计算"
ElseIf txtScreen.Text <> "" Then
f = txtScreen.Text
s = f
s = Exp(s)
txtScreen.Text = s
txtScreen2.Text = s
End If
End Sub
Private Sub cmdEnd_Click()
Unload Form1
Unload Calc1
End Sub
Private Sub cmdEqual_Click(Index As Integer)
On Err GoTo e1
If p = "" Then
s = s
txtScreen.Text = txtScreen.Text
txtScreen2.Text = txtScreen.Text
ElseIf p = "+" Then
s = f + s
txtScreen.Text = s
txtScreen2.Text = s
s = s
ElseIf p = "-" Then
s = f - s
txtScreen.Text = s
txtScreen2.Text = s
s = s
ElseIf p = "*" Then
s = f * s
txtScreen.Text = s
txtScreen2.Text = s
s = s
ElseIf p = "^" Then
cmdSpr.Enabled = True
cmdXmY.Enabled = True
cmdCos.Enabled = True
cmdSin.Enabled = True
cmdMi.Enabled = True
cmdAbs.Enabled = True
cmdds.Enabled = True
cmdAtn.Enabled = True
cmdeN.Enabled = True
cmdLog.Enabled = True
cmdTan.Enabled = True
cmdspr2.Enabled = True
s = f ^ s
If s < 0 Then
txtScreen.Text = 0 & txtScreen & Text
txtScreen2.Text = 0 & txtScreen & Text
End If
txtScreen.Text = s
txtScreen2.Text = s
s = s
ElseIf p = "spr" Then
cmdSpr.Enabled = True
cmdXmY.Enabled = True
cmdCos.Enabled = True
cmdSin.Enabled = True
cmdMi.Enabled = True
cmdAbs.Enabled = True
cmdds.Enabled = True
cmdAtn.Enabled = True
cmdeN.Enabled = True
cmdLog.Enabled = True
cmdTan.Enabled = True
s = f ^ (1 / s)
txtScreen.Text = s
txtScreen2.Text = s
s = s
ElseIf p = "spr" And s = 0 Then
s = 1
If s < 0 Then
txtScreen.Text = 0 & txtScreen & Text
txtScreen2.Text = 0 & txtScreen & Text
End If
txtScreen.Text = s
txtScreen2.Text = s
s = s
ElseIf p = "/" And s <> 0 Then
s = f / s
If s < 0 Then
txtScreen.Text = 0 & txtScreen & Text
txtScreen2.Text = 0 & txtScreen & Text
End If
txtScreen.Text = s
txtScreen2.Text = s
s = s
Else
MsgBox "除数不能为零"
End If
If s < 0 Then
txtScreen.Text = 0 & txtScreen & Text
txtScreen2.Text = 0 & txtScreen & Text
End If
Exit Sub
e1:
If Err = 6 Then
MsgBox "数值溢出!"
End If
End Sub
Private Sub cmdGHH_Click()
s = s ^ 2
txtGH.Text = s
If txtGH.Text <> "" And txtGH.Text <> "0" Then
cmdGHH.Enabled = False
ElseIf txtGH.Text = "" And txtGH.Text = "0" Then
cmdGHH.Enabled = True
End If
End Sub
Private Sub cmdLog_Click()
If txtScreen.Text = "" Then
MsgBox "无数字,无法计算"
ElseIf txtScreen.Text <> "" Then
f = txtScreen.Text
s = f
s = Log(s)
txtScreen.Text = s
txtScreen2.Text = s
End If
End Sub
Private Sub cmdMi_Click()
On Err GoTo r1
If txtScreen.Text = "" Then
MsgBox "无数字,无法计算"
ElseIf txtScreen.Text <> "" Then
f = txtScreen.Text
s = f
s = s ^ 2
txtScreen.Text = s
txtScreen2.Text = s
End If
Exit Sub
r1:
If Err = 6 Then
MsgBox "数值溢出!"
End If
End Sub
Private Sub cmdMinus_Click()
If p = "" Then
txtScreen.Text = ""
p = "-"
f = s
s = 0
End If
End Sub
Private Sub cmdMutiply_Click(Index As Integer)
If p = "" Then
txtScreen.Text = ""
p = "*"
f = s
s = 0
End If
End Sub
Private Sub cmdPi_Click()
txtScreen.Text = "3.1415926535897932384626433832795"
f = 3.14159265358979
s = f
End Sub
Private Sub cmdPlus_Click()
If p = "" Then
txtScreen.Text = ""
p = "+"
f = s
s = 0
End If
End Sub
Private Sub cmdPoint_Click(Index As Integer)
If txtScreen.Text = "" Then
txtScreen = "0."
Else
txtScreen.Text = txtScreen.Text & "."
End If
End Sub
Private Sub cmdSave1_Click()
If txtScreen.Text = "" Then
MsgBox "请输入数字."
mnuA.Enabled = False
Else
a = txtScreen.Text
mnuA.Enabled = True
End If
End Sub
Private Sub cmdSave2_Click()
If txtScreen.Text = "" Then
MsgBox "请输入数字."
mnuB.Enabled = False
Else
b = txtScreen.Text
mnuB.Enabled = True
End If
End Sub
Private Sub cmdSave3_Click()
If txtScreen.Text = "" Then
MsgBox "请输入数字."
mnuC.Enabled = False
Else
c = txtScreen.Text
mnuC.Enabled = True
End If
End Sub
Private Sub cmdSave4_Click()
If txtScreen.Text = "" Then
MsgBox "请输入数字."
mnuD.Enabled = False
Else
d = txtScreen.Text
mnuD.Enabled = True
End If
End Sub
Private Sub cmdSin_Click()
If txtScreen.Text <> "" Then
f = txtScreen.Text
s = f
s = Sin(s)
txtScreen.Text = s
txtScreen2.Text = s
Else
MsgBox "请输入数字"
End If
End Sub
Private Sub cmdSpr_Click()
If txtScreen.Text = "" Then
MsgBox "无数字,无法计算"
ElseIf txtScreen.Text >= 0 Then
f = txtScreen.Text
s = f
s = s ^ (1 / 2)
txtScreen.Text = s
txtScreen2.Text = s
Else
MsgBox "底数不能小于零."
End If
End Sub
Private Sub cmdspr2_Click()
cmdSpr.Enabled = False
cmdXmY.Enabled = False
cmdCos.Enabled = False
cmdSin.Enabled = False
cmdMi.Enabled = False
cmdAbs.Enabled = False
cmdds.Enabled = False
cmdAtn.Enabled = False
cmdeN.Enabled = False
cmdLog.Enabled = False
cmdTan.Enabled = False
If txtScreen.Text <> "" Then
txtScreen.Text = ""
p = "spr"
f = s
s = 0
Else
cmdSpr.Enabled = True
cmdXmY.Enabled = True
cmdCos.Enabled = True
cmdSin.Enabled = True
cmdMi.Enabled = True
cmdAbs.Enabled = True
cmdds.Enabled = True
cmdAtn.Enabled = True
cmdeN.Enabled = True
cmdLog.Enabled = True
cmdTan.Enabled = True
MsgBox "请输入数字!"
End If
End Sub
Private Sub cmdTan_Click()
If txtScreen.Text = "" Then
MsgBox "无数字,无法计算"
ElseIf txtScreen.Text <> "" Then
f = txtScreen.Text
s = f
s = Tan(s)
txtScreen.Text = s
txtScreen2.Text = s
End If
End Sub
Private Sub cmdXmY_Click()
cmdSpr.Enabled = False
cmdCos.Enabled = False
cmdSin.Enabled = False
cmdMi.Enabled = False
cmdAbs.Enabled = False
cmdds.Enabled = False
cmdAtn.Enabled = False
cmdeN.Enabled = False
cmdLog.Enabled = False
cmdTan.Enabled = False
cmdspr2.Enabled = False
p = "^"
txtScreen.Text = ""
f = s
s = 0
End Sub
Private Sub Command1_Click()
If txtScreen.Text = "" Then
txtScreen.Text = "-"
Else
txtScreen.Text = "-" & txtScreen & Text
End If
End Sub
Private Sub Form_Load()
mnuA.Enabled = False
mnuB.Enabled = False
mnuC.Enabled = False
mnuD.Enabled = False
End Sub
Private Sub mnuA_Click()
If a <> "" Then
txtScreen.Text = a
s = a Or f = a
Else
MsgBox "数据导入时出错!存储器A中无数据"
End If
End Sub
Private Sub mnuARR_Click()
calcAbout.Show
End Sub
Private Sub mnuB_Click()
If b <> "" Then
txtScreen.Text = b
s = b Or f = a
Else
MsgBox "数据导入时出错!存储器B中无数据"
End If
End Sub
Private Sub mnuC_Click()
If c <> "" Then
txtScreen.Text = c
s = c Or f = c
Else
MsgBox "数据导入时出错!存储器C中无数据"
End If
End Sub
Private Sub mnuCopy_Click()
If Clipboard.GetFormat(vbCFText) = False Then
Clipboard.SetText txtScreen.SelText, vbCFText
mnuZT.Enabled = True
Else
mnuZT.Enabled = False
End If
End Sub
Private Sub mnuD_Click()
If d <> "" Then
txtScreen.Text = d
s = d Or f = d
Else
MsgBox "数据导入时出错!存储器D中无数据"
End If
End Sub
Private Sub mnuKX_Click()
mnuPT.Checked = False
mnuKX.Checked = True
Unload Form1
Calc1.Show
End Sub
Private Sub mnuPT_Click()
mnuKX.Checked = False
mnuPT.Checked = True
Unload Calc1
Form1.Show
End Sub
Private Sub mnuSC_Click()
a = ""
b = ""
c = ""
d = ""
mnuA.Enabled = False
mnuB.Enabled = False
mnuC.Enabled = False
mnuD.Enabled = False
End Sub
Private Sub mnuZT_Click()
txtScreen.SelText = Clipboard.GetText(vbCFText)
End Sub
