㈠ 谁有IOS的复利计算器,12的那个,帮我算个东西
pv*(1+i)的N次方! 买个财务计算器吧!
㈡ iPhone计算器有汇率吗
iPhone自带的计算器没有汇率计算,但可以通过APP Store里下载相关工具。
㈢ 用ios做一个计算器,顺便说下是怎么实现的,还要有代码图
用记事本把这段代码复制过去,然后另存为.frm就可以了 VERSION 5.00 Begin VB.Form frmMain Appearance = 0 'Flat BackColor = &H80000005& BorderStyle = 3 'Fixed Dialog Caption = "简单计算器" ClientHeight = 2430 ClientLeft = 45 ClientTop = 435 ClientWidth = 3150 KeyPreview = -1 'True LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 2430 ScaleWidth = 3150 ShowInTaskbar = 0 'False StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command10 Caption = "^" Height = 375 Left = 1920 TabIndex = 22 Top = 1920 Width = 495 End Begin VB.PictureBox picDisplay Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 255 Left = 120 ScaleHeight = 225 ScaleWidth = 2865 TabIndex = 19 Top = 120 Width = 2895 Begin VB.TextBox Text1 Alignment = 1 'Right Justify BorderStyle = 0 'None Height = 255 Left = 240 Locked = -1 'True TabIndex = 20 Top = 0 Width = 2535 End Begin VB.Label lblOperation Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 255 Left = 60 TabIndex = 21 Top = 0 Width = 255 End End Begin VB.CommandButton Command9 Caption = "退格" Height = 375 Left = 1920 TabIndex = 18 Top = 480 Width = 495 End Begin VB.CommandButton Command8 Caption = "清零" Height = 375 Left = 2520 TabIndex = 17 Top = 480 Width = 495 End Begin VB.CommandButton cmdDot Caption = "." Height = 375 Left = 120 TabIndex = 16 Top = 1920 Width = 495 End Begin VB.CommandButton Command7 Caption = "Sqrt" Height = 375 Left = 2520 TabIndex = 15 Top = 1920 Width = 495 End Begin VB.CommandButton Command6 Caption = "=" Height = 375 Left = 1320 TabIndex = 14 Top = 1920 Width = 495 End Begin VB.CommandButton Command5 Caption = "/" Height = 375 Left = 2520 TabIndex = 13 Top = 1440 Width = 495 End Begin VB.CommandButton Command4 Caption = "*" Height = 375 Left = 1920 TabIndex = 12 Top = 1440 Width = 495 End Begin VB.CommandButton Command3 Caption = "-" Height = 375 Left = 2520 TabIndex = 11 Top = 960 Width = 495 End Begin VB.CommandButton Command2 Caption = "+" Height = 375 Left = 1920 TabIndex = 10 Top = 960 Width = 495 End Begin VB.CommandButton Command1 Caption = "9" Height = 375 Index = 9 Left = 1320 TabIndex = 9 Top = 480 Width = 495 End Begin VB.CommandButton Command1 Caption = "8" Height = 375 Index = 8 Left = 720 TabIndex = 8 Top = 480 Width = 495 End Begin VB.CommandButton Command1 Caption = "7" Height = 375 Index = 7 Left = 120 TabIndex = 7 Top = 480 Width = 495 End Begin VB.CommandButton Command1 Caption = "6" Height = 375 Index = 6 Left = 1320 TabIndex = 6 Top = 960 Width = 495 End Begin VB.CommandButton Command1 Caption = "5" Height = 375 Index = 5 Left = 720 TabIndex = 5 Top = 960 Width = 495 End Begin VB.CommandButton Command1 Caption = "4" Height = 375 Index = 4 Left = 120 TabIndex = 4 Top = 960 Width = 495 End Begin VB.CommandButton Command1 Caption = "3" Height = 375 Index = 3 Left = 1320 TabIndex = 3 Top = 1440 Width = 495 End Begin VB.CommandButton Command1 Caption = "2" Height = 375 Index = 2 Left = 720 TabIndex = 2 Top = 1440 Width = 495 End Begin VB.CommandButton Command1 Caption = "1" Height = 375 Index = 1 Left = 120 TabIndex = 1 Top = 1440 Width = 495 End Begin VB.CommandButton Command1 Caption = "0" Height = 375 Index = 0 Left = 720 TabIndex = 0 Top = 1920 Width = 495 End End Attribute VB_Name = "frmmain" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Data As Double Private lOperation As Long Private fClear As Boolean Private Sub cmdDot_Click() If InStr(1, Text1.Text, ".") <= 0 Then Text1.Text = Text1.Text & "." End Sub Private Sub Command1_Click(Index As Integer) If fClear = True Then Text1.Text = "": fClear = False Text1.Text = Text1.Text & Index End Sub Private Sub Command10_Click() If fClear = False Then Select Case lOperation Case 0 Case 1: Text1.Text = Data + Val(Text1.Text) Case 2: Text1.Text = Data - Val(Text1.Text) Case 3: Text1.Text = Data * Val(Text1.Text) Case 4: If Val(Text1.Text) = 0 Then MsgBox "除数不等于0": Exit Sub Else Text1.Text = Data / Val(Text1.Text) Case 5: Text1.Text = Data ^ Val(Text1.Text) End Select End If Data = Val(Text1.Text) fClear = True lOperation = 5 lblOperation.Caption = "^" End Sub Private Sub Command2_Click() If fClear = False Then Select Case lOperation Case 0 Case 1: Text1.Text = Data + Val(Text1.Text) Case 2: Text1.Text = Data - Val(Text1.Text) Case 3: Text1.Text = Data * Val(Text1.Text) Case 4: If Val(Text1.Text) = 0 Then MsgBox "除数不等于0": Exit Sub Else Text1.Text = Data / Val(Text1.Text) Case 5: Text1.Text = Data ^ Val(Text1.Text) End Select End If Data = Val(Text1.Text) fClear = True lOperation = 1 lblOperation.Caption = "+" End Sub Private Sub Command3_Click() If fClear = False Then Select Case lOperation Case 0 Case 1: Text1.Text = Data + Val(Text1.Text) Case 2: Text1.Text = Data - Val(Text1.Text) Case 3: Text1.Text = Data * Val(Text1.Text) Case 4: If Val(Text1.Text) = 0 Then MsgBox "除数不等于0": Exit Sub Else Text1.Text = Data / Val(Text1.Text) Case 5: Text1.Text = Data ^ Val(Text1.Text) End Select End If Data = Val(Text1.Text) fClear = True lOperation = 2 lblOperation.Caption = "-" End Sub Private Sub Command4_Click() If fClear = False Then Select Case lOperation Case 0 Case 1: Text1.Text = Data + Val(Text1.Text) Case 2: Text1.Text = Data - Val(Text1.Text) Case 3: Text1.Text = Data * Val(Text1.Text) Case 4: If Val(Text1.Text) = 0 Then MsgBox "除数不等于0": Exit Sub Else Text1.Text = Data / Val(Text1.Text) Case 5: Text1.Text = Data ^ Val(Text1.Text) End Select End If Data = Val(Text1.Text) fClear = True lOperation = 3 lblOperation.Caption = "*" End Sub Private Sub Command5_Click() If fClear = False Then Select Case lOperation Case 0 Case 1: Text1.Text = Data + Val(Text1.Text) Case 2: Text1.Text = Data - Val(Text1.Text) Case 3: Text1.Text = Data * Val(Text1.Text) Case 4: If Val(Text1.Text) = 0 Then MsgBox "除数不等于0": Exit Sub Else Text1.Text = Data / Val(Text1.Text) Case 5: Text1.Text = Data ^ Val(Text1.Text) End Select End If Data = Val(Text1.Text) fClear = True lOperation = 4 lblOperation.Caption = "/" End Sub Private Sub Command6_Click() If fClear = False Then Select Case lOperation Case 0 Case 1: Text1.Text = Data + Val(Text1.Text) Case 2: Text1.Text = Data - Val(Text1.Text) Case 3: Text1.Text = Data * Val(Text1.Text) Case 4: If Val(Text1.Text) = 0 Then MsgBox "除数不等于0": Exit Sub Else Text1.Text = Data / Val(Text1.Text) Case 5: Text1.Text = Data ^ Val(Text1.Text) End Select End If Data = Val(Text1.Text) fClear = True lOperation = 0 lblOperation.Caption = "" End Sub Private Sub Command7_Click() If Val(Text1.Text) <= 0 Then MsgBox "开方数大于等于0" Text1.Text = Sqr(Val(Text1.Text)) Data = Val(Text1.Text) fClear = True lOperation = 0 lblOperation.Caption = "" End Sub Private Sub Command8_Click() Text1.Text = "" lOperation = 0 lblOperation.Caption = "" End Sub Private Sub Command9_Click() If Len(Text1.Text) > 0 Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc("0"): Command1_Click 0 Case Asc("1"): Command1_Click 1 Case Asc("2"): Command1_Click 2 Case Asc("3"): Command1_Click 3 Case Asc("4"): Command1_Click 5 Case Asc("5"): Command1_Click 4 Case Asc("6"): Command1_Click 6 Case Asc("7"): Command1_Click 7 Case Asc("8"): Command1_Click 8 Case Asc("9"): Command1_Click 9 Case Asc("."): cmdDot_Click Case Asc("+"): Command2_Click Case Asc("-"): Command3_Click Case Asc("*"): Command4_Click Case Asc("/"): Command5_Click Case Asc("^"): Command10_Click Case Asc("s"): Command7_Click Case Asc("S"): Command7_Click Case vbKeyBack: Command9_Click Case Asc("`"): Command8_Click Case Asc("="): Command6_Click Case 13: Command6_Click End Select KeyAscii = 0 End Sub
㈣ 苹果手机上的 简单汇率app ,换安卓手机了,非常想用这个软件,怎么下载,安卓版叫什么名字
陈静仪
㈤ 一款IOS计算器,求越狱的朋友帮我内购一下
是不是812以上的版本啊,太极越狱工具马上要出来了,等出来你直接越狱自己下呗
㈥ 苹果手机汇率换算在哪
iPhone自带的“股市”App进行查询。
方法:打开“股市”APP,点击右下角的列表按钮添加项目,在搜索框输入“CNY=X”,点击添加,这样RMB兑换美元的汇率便出现在股票列表中了。
㈦ 苹果里的汇率换算在哪
iPhone自带的“股市”App进行查询。
方法:打开“股市”APP,点击右下角的列表按钮添加项目,在搜索框输入“CNY=X”,点击添加,这样RMB兑换美元的汇率便出现在股票列表中了。
㈧ ios 开发一个计算器需要用到那些步骤
其实就是想知道怎么开发ios的app吧?
首先, 不要倔强, 你需要付出99$购买开发者账号, 需要一台测试用的iphone/ipad, 最好有一台mac电脑.
然后, 你会购买账号之后, 那个买账号的网站会把这些问题的答案全部告诉你.
最后, 你问题比较多, 就不详细描述了, 有耐心的话, 那个网站会把所有的告诉你
㈨ 升级完OS X EI Capitan后Macbook pro自带的汇率换算器就没有了,怎么找到这个小插件
苹果默认关闭了 Dashboard 功能。Dashboard 是 OS X 的桌面组件功能,已经有10年左右的历史,在过去4年之中一直没有更新。当然用户如果喜欢,可以打开系统偏好设置——Mission Control,并在 Dashboard 的下拉菜单中选择“作为 Space”。
㈩ android开发换汇计算器界面,实现计算人民币换算美元和英镑的功能
这样行吗?采纳有代码;汇率接口api:http://api.uihoo.com/currency/currency.http.php?from=usd&to=cny&format=json