怎样下载计算器？
下载计算器可在APP store-搜索计算器-点击获取-下载即可（以iPhone手机为例）。具体操作步骤如下：（1）点击App store。（2）进入App store首页。（3）点击右下角搜索。（4）搜索框输入计算器搜索。（5）选择想要的计算器点击获取。（6）计算器下载中。（7）计算器下载成功。注意事项：iPhone手机下载时需要输入Apple ID 密码才能进行计算器的下载。
计算器怎么用？
以win10系统自带的计算器举例1.打开电脑自带的计算器，默认是标准模式。2.点击左上角菜单，切换为科学计算器。3.首先输入底数，然后按x^y键（有的计算器是^），然后输入指数，再按等于键即可。例如：计算12的34次方，按键如下：1 2 ^ 3 4 =计算结果：4922235242952026704037113243122008064扩展资料计算器常规使用方法1、键入数字时，按下相应的数字键的，如果按错可用（CE）键消去一个数值，再重新输入正确的数字。2、直接输入数字后，按下乘号将它变为乘数，在不输入被乘数的情况下直接按（=）键，就是该数字的二次方值。3、根号（√）键默认是开二次方根，只有科学计算器才能开多次方根。 [2] 4、按下（+/-）键可改变数字的正负值。 [2] 5、当输入数字并决定运算符号后，按下（%）键会将这之前的参数自动赋值为它前面参数的百分之这个参数参加运算。如78+2（%）相当于78+78*2%，最后结果为79.56，如NOKIA。在xp下单击它程序会把两个相乖积然后除以100，并显示结果。如输入23+3，然后单击”%”，结果为0.69。输入23-3，或23/3，或23*3，然后单击”%”,结果依然为0.69，也就是说它忽略了加减乘除号。使用时一定要注意”%”只能用在x+(或-,*,/)之后，或用在计算机结果之后，表示计算结果平方的百分之一。6、部分标准型具备数字存储功能，它包括四个按键：MRC、M-、M+、MU。键入数字后，按MS将数字读入内存，此后无论进行多少步运算，只要按一次MR即可读取先前存储的数字，按下MC则把该数字从内存中删除，或者按二次MRC。MU则为利率计算，2000[MU]20%=2000/(1-20%)=2500,2000[MU][±]20%=2000/(1+20%)=1666.7。参考资料：百度百科-计算器
VB简单计算器代码
Public choice As String
Public current As Double
Public prev As Double
Public counter As Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub ac_Click()
Text1.Text = ""
prev = current = 0
'dz.Visible = False
'asterisk.Enabled = False
'equal.Enabled = False
'expo.Enabled = False
'logn.Enabled = False
'logten.Enabled = False
'minus.Enabled = False
'plus.Enabled = False
'sign.Enabled = False
'slash.Enabled = False
'sroot.Enabled = False
'cosine.Enabled = False
'sine.Enabled = False
'tangent.Enabled = False
'invsine.Visible = False
'invcos.Visible = False
'invtan.Visible = False
'expo.Visible = False
End Sub
Private Sub asterisk_Click()
Text1.Text = ""
choice = "*"
prev = current
current = 0
End Sub
Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Command1(Index).Caption
current = Text1.Text
asterisk.Enabled = True
equal.Enabled = True
expo.Enabled = True
' logn.Enabled = True
' logten.Enabled = True
minus.Enabled = True
plus.Enabled = True
sign.Enabled = True
slash.Enabled = True
sroot.Enabled = True
' tangent.Enabled = True
'' cosine.Enabled = True
' sine.Enabled = True
End Sub
Private Sub Command3_Click()
Dim MyAngle, MyHSin
MyAngle = 1.3 ' 定义角度（以"弧度"为单位）
MsgBox (Exp(MyAngle) - Exp(-1 * MyAngle)) / 2 ' 计算双曲正弦函数值（sin()）
End Sub
Private Sub cosine_Click()
Text1.Text = Cos(current * 3.14159265358979 / 180)
current = Cos(current * 3.14159265358979 / 180)
End Sub
Private Sub equal_Click()
On Error GoTo MyErr
If choice = "+" Then
current = prev + current
Text1.Text = current
ElseIf choice = "-" Then
current = prev - current
Text1.Text = current
ElseIf choice = "*" Then
current = prev * current
Text1.Text = current
ElseIf choice = "/" And current 0 Then
current = prev / current
Text1.Text = current
Else
Text1.Text = "Press AC to continue"
dz.Visible = True
dz.Caption = "Division by ZERO"
End If
If current < 0 Then
sroot.Enabled = False
Else
sroot.Enabled = True
End If
Exit Sub
MyErr:
MsgBox Err.Description, vbInformation, "信息提示"
End Sub
Private Sub expo_Click()
On Error GoTo MyErr
Exit Sub
MyErr:
MsgBox Err.Description, vbInformation, "信息提示"
End Sub
Private Sub expo10_Click()
Dim i As Integer
Dim j As Double
j = current
current = 1
For i = 1 To j Step 1
current = current * 10
Next i
Text1.Text = current
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim value As Integer
End Sub
Private Sub invcos_Click()
Dim temp As Double
temp = current * 3.14159265358979 / 180
If (temp = -1) Then
Text1.Text = 1 / Cos(temp)
current = 1 / Cos(temp)
End If
invsine.Visible = False
invcos.Visible = False
invtan.Visible = False
expo.Visible = False
expo10.Visible = False
End Sub
Private Sub invsine_Click()
Dim temp As Double
temp = current * 3.14159265358979 / 180
If (temp = -1) Then
Text1.Text = 1 / Sin(temp)
current = 1 / Sin(temp)
End If
End Sub
Private Sub invtan_Click()
Text1.Text = 1 / Tan(current * 3.14159265358979 / 180)
current = 1 / Tan(current * 3.14159265358979 / 180)
invsine.Visible = False
invcos.Visible = False
invtan.Visible = False
expo.Visible = False
expo10.Visible = False
End Sub
Private Sub logn_Click()
Text1.Text = Log(current)
current = Log(current)
End Sub
Private Sub logten_Click()
Text1.Text = Log(current) / Log(10)
current = Log(current) / Log(10)
End Sub
Private Sub mode_MouseDown(Button As Integer, shift As Integer, X As Single, Y As Single)
counter = counter + 1
If counter > 2 Then
counter = 1
End If
If counter = 2 Then
displaylb.Caption = "Normal Calculator"
displaylb.ForeColor = &HFFC0C0
Form1.Width = 4830
sine.Visible = False
cosine.Visible = False
tangent.Visible = False
logn.Visible = False
logten.Visible = False
random.Enabled = False
random.Visible = False
shiftb.Visible = False
recall.Visible = False
Else
displaylb.Caption = " Scientific Calculator"
displaylb.ForeColor = &HC0&
Form1.Width = 5670
sine.Visible = True
cosine.Visible = True
tangent.Visible = True
logn.Visible = True
logten.Visible = True
random.Enabled = True
random.Visible = True
shiftb.Visible = True
recall.Visible = True
End If
End Sub
Private Sub point_Click()
If Text1.Text = "" Then
Text1.Text = "0."
Else
Text1.Text = Text1.Text & "."
End If
End Sub
Private Sub random_Click()
Text1.Text = (2.1021020134 * Rnd + 1)
End Sub
Private Sub recall_Click()
Text1.Text = current
End Sub
Private Sub shiftb_Click()
invsine.Visible = True
invcos.Visible = True
invtan.Visible = True
expo.Visible = True
expo10.Visible = True
If Text1.Text = -1 Then
invsine.Enabled = True
invcos.Enabled = True
End If
invtan.Enabled = True
expo.Enabled = True
expo10.Enabled = True
End Sub
Private Sub sign_Click()
If current < 0 Then
Text1.Text = -current
current = -current
Else
Text1.Text = "-" & Text1.Text
current = -current
End If
If current < 0 Then
sroot.Enabled = False
Else
sroot.Enabled = True
End If
End Sub
Private Sub minus_Click()
Text1.Text = ""
choice = "-"
prev = current
current = 0
End Sub
Private Sub plus_Click()
Text1.Text = ""
choice = "+"
prev = current
current = 0
End Sub
Private Sub sine_Click()
Text1.Text = Sin(current * 3.14159265358979 / 180)
current = Sin(current * 3.14159265358979 / 180)
End Sub
Private Sub slash_Click()
Text1.Text = ""
choice = "/"
prev = current
current = 0
End Sub
Private Sub sroot_Click()
On Error GoTo MyErr
Text1.Text = Sqr(current)
current = Sqr(current)
Exit Sub
MyErr:
MsgBox Err.Description, vbInformation, "信息提示"
End Sub
Private Sub tangent_Click()
Text1.Text = Tan(current * 3.14159265358979 / 180)
current = Tan(current * 3.14159265358979 / 180)
End Sub
兄弟你可真行！！要代码也不给分，算了，我就做回好人吧！
VB求一个科学计算器源代码，谢谢啦
由于本人级别不够，不能上传照片
图片在你的QQ邮箱里
运行界面，编程界面我发到你的邮箱里
Option Explicit
Dim s_id As Integer
Dim s As String
Dim s1 As Double
Function p(x As Double) As Boolean
If InStr(x, ".") = 0 Then
p = False
Else
p = True
End If
End Function
Private Sub C_Click(Index As Integer)
Select Case s_id
Case 0, 2
Text1.Text = Text1.Text & Index
Case 1
Text1.Text = Index
s_id = 2
Case 3
Text1.Text = Index
s_id = 0
End Select
End Sub
Private Sub CmdAdd_Click()
Select Case s_id
Case 0
s = "+"
s1 = Text1.Text
s_id = 1
Case 2
CmdDY_Click
s = "+"
s1 = Text1.Text
s_id = 1
End Select
End Sub
Private Sub CmdBK_Click()
If Len(Text1.Text) > 0 Then
Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)
End If
End Sub
Private Sub CmdC_Click()
s_id = 0
Text1.Text = ""
End Sub
Private Sub CmdCF_Click()
s_id = 1
s = "*"
s1 = Text1.Text
End Sub
Private Sub CmdDY_Click()
If s_id = 2 Then
Select Case s
Case "+"
Text1.Text = s1 + Val(Text1.Text)
s_id = 3
Case "-"
Text1.Text = s1 - Val(Text1.Text)
s_id = 3
Case "*"
Text1.Text = s1 * Val(Text1.Text)
s_id = 3
Case "/"
Text1.Text = s1 / Val(Text1.Text)
s_id = 3
End Select
End If
End Sub
Private Sub CmdJF_Click()
Select Case s_id
Case 0
s = "-"
s1 = Text1.Text
s_id = 1
Case 2
CmdDY_Click
s = "-"
s1 = Text1.Text
s_id = 1
End Select
End Sub
Private Sub CmdP_Click()
If Not p(Text1.Text) Then
Text1.Text = Text1.Text & "."
End If
End Sub
Private Sub CmdSQRT_Click()
Text1.Text = Sqr(Val(Text1.Text))
End Sub
Private Sub CmdX1_Click()
Text1.Text = 1 / Val(Text1.Text)
End Sub
Private Sub CmdZF_Click()
Text1.Text = -Val(Text1.Text)
End Sub
Private Sub Command20_Click()
s_id = 1
s = "/"
s1 = Text1.Text
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
C(i).Caption = i
Next i
s_id = 0
End Sub
计算器怎么安装
操作手机：戴尔Inspiron3542操作系统：Win10操作软件：计算器计算器的安装方法如下：1、进入Win10系统，点击“开始”打开“Windows附件”找到“计算器”。2、鼠标左键点住“计算器”拖动到桌面上。3、这样就可以在桌面上创建“计算器”快捷方式。4、双击“计算器”快捷方式就可以打开计算器了。5，或者打开运行，输入“cacle”按回车键也可以打开“计算器”。
