vb股市计算器原代码

1. vb股市计算器原代码

下面给你我写的FRM里的一部分代码，不能全发！其它还有10几个文件！ 
我的能实现金额大写，按键发声等等 
不要问题要余下的代码了，不会回应的！ 

Dim ClearDisplay As Boolean 
Dim Operand1 As Double 
Dim Operator As String, Browser As String 
Dim CmdStr As String 
Dim RetVal As Long 
Dim ErrStr As String * 256 
'取数字变量 
Dim mousePT As PointAPI 
Dim prevWindow As Long 
Dim Curwindow As Long 
Dim X As Long 
Dim Y As Long 
Dim TempStr As String 
Dim Subtemp As String 
Dim retValue As Long 
Dim parentWnd As Long 

Private Sub ClearB_Click() 

Display.Caption = "0" 
ClearDisplay = False 

Dim Ltp As Integer 
Ltp = GetSetting(App.EXEName, "Option", "Muse", 0) 
If Ltp = 1 Then 
Dowav (ClearB.Caption) 
End If 
Equals.SetFocus '等于获得焦点 

End Sub 

Private Sub digits_Click(Index As Integer) 

If ClearDisplay = True Then 
Display.Caption = "" 
ClearDisplay = False 
End If 

If Display.Caption = "0" Then 
Display.Caption = digits(Index).Caption 
Display = CovertZ(Display) 
Else 
Display.Caption = Display.Caption + digits(Index).Caption 
Display = CovertZ(Display) 
End If 

'数字发音 
Dim Ltp As Integer 
Ltp = GetSetting(App.EXEName, "Option", "Muse", 0) 
If Ltp = 1 Then 
Dowav (Converts(Trim(Str(Index)))) 
End If 

Equals.SetFocus '等于获得焦点 

End Sub 

Private Sub Div_Click() 

If ClearDisplay = False And Operator  "Num" Then 
Select Case Operator 
Case "+" 
Display = Operand1 + Val(Display) 
Case "-" 
Display = Operand1 - Val(Display) 
Case "*" 
Display = Operand1 * Val(Display) 
Case "/" 
If Display  "0" Then 
Display = Operand1 / Val(Display) 
Else 
Display.Caption = "分母不能为零!" 
ClearDisplay = True 
Operand1 = 0 
End If 
End Select 
Display = CovertZ(Display) 
End If 

Dim LtpX As Integer 
LtpX = GetSetting(App.EXEName, "Option", "Muse", 0) 
If LtpX = 1 Then 

Dim TempS As String 
Dim TempL As Integer 
Dim X As Integer 
Dim Ltp As Integer 
Ltp = GetSetting(App.EXEName, "Option", "Before", 0) 
If Ltp = 1 Then 
Dim Ltp1 As Integer 
Ltp1 = GetSetting(App.EXEName, "Option", "Currency", 0) 
If Ltp1 = 0 Then 
TempS = Up(CovertZX(Display)) 
Else 
TempS = Up1(CovertZX(Display)) 
End If 

If TempS = "元" Then 
TempS = "零元" 
End If 
TempL = Len(TempS) 
For X = 1 To TempL 
Dowav (Mid$(TempS, X, 1)) 
Next 
End If 
Dowav (Div.Caption) 
End If 

Operand1 = Val(Display.Caption) 
Operator = "/" 
ClearDisplay = True 
Equals.SetFocus '等于获得焦点 

End Sub 

Private Sub Equals_Click() 

Dim Result As Double 

If ClearDisplay = False Then 
Select Case Operator 
Case "+" 
Result = Operand1 + Val(Display) 
Case "-" 
Result = Operand1 - Val(Display) 
Case "*" 
Result = Operand1 * Val(Display) 
Case "/" 
If Display  "0" Then 
Result = Operand1 / Val(Display) 
Else 
Display.Caption = "分母不能为零!" 
ClearDisplay = True 
Operand1 = 0 
End If 
Case Else 
Result = CovertZ(Display.Caption) 
End Select 
Display = CovertZ(Display) 
Else 
Result = Display.Caption 
Result = CovertZ(Display) 
End If 

ClearDisplay = True 
On Error GoTo ErrHand 

Display.Caption = CovertZ(CStr(Result)) 
Display.Refresh 
Dim LtpX As Integer 
LtpX = GetSetting(App.EXEName, "Option", "Muse", 0) 
If LtpX = 1 Then 

Dowav (Equals.Caption) 
Dim TempS As String 
Dim TempL As Integer 
Dim X As Integer 
Dim Ltp As Integer 
Ltp = GetSetting(App.EXEName, "Option", "Currency", 0) 
If Ltp = 0 Then 
TempS = Up(CovertZX(Display)) 
Else 
TempS = Up1(CovertZX(Display)) 
End If 
If TempS = "元" Then 
TempS = "零元" 
End If 
TempL = Len(TempS) 
For X = 1 To TempL 
Dowav (Mid$(TempS, X, 1)) 
Next 
End If 
'是否将结果发送剪贴板 
Ltp = GetSetting(App.EXEName, "Option", "SetClip", 0) 
If Ltp = 1 Then 
Clipboard.SetText CStr(Result) 
End If 
Operand1 = 0 
Operator = "Num" 

Exit Sub 
ErrHand: 
MsgBox "操作发生以下错误：" & Chr(10) & Chr(13) & Err.Description, vbOKOnly + vbCritical, "计算器出错" 
Display.Caption = "未知错误！" 
Operand1 = 0 
Operator = "Num" 
ClearDisplay = True 
End Sub 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 

Select Case KeyCode 
Case 8 
If Len(Display) > 1 Then 
Display = Left(Display, Len(Display) - 1) 
Display = CovertZ(Display) 
Else 
Display = "0" 
End If 
Case 13 
Call Equals_Click 
Case 65 
Call MnuHelp_Click 
Case 69 
Call MnuExit_Click 
Case 79 
Call MnuConfig_Click 
End Select 

End Sub

2. 求股票收益计算器

用这个去算下吧
给你个公式：

当你的交易金额大于 5/手续费率 时，收益==【卖出价*股数*（1-手续费率-印花税率）-通信费】-买入成本通信费沪深本地收一元，外地不超过五元，各地证劵公司均有不同，你开户的公司收多少去问一下就行了。买入成本不用去算，直接用网上交易系统里对账单的【发生金额】带入就行了当你的交易金额小于 5/手续费率 时，证劵公司收取的手续费为5元，收益==【卖出价*股数*（1-印花税率）-5-通信费】-买入成本

3. 有没有计算股票的计算器啊？

百度和讯网的股票网页里你可以选好自选股票后，就有个计算器的。这http://baidu.hexun.com/stock/ewl.php个是我的

4. 如何计算股票的收益以及费用？有计算器吗

收益＝股息＋(卖出价格－买进价格）－手续费，             手续费包括 :印花税是你卖出总额的千分之一， 交易佣金双向收费各证券公司不同.国家规定是千分之一点五到千分之三 实际上有的公司低于一点五。 过户费双向收费每1000股收取1块，不足1000股按1块收取，深市没有过户费。

5. 在哪下载计算股票平仓的计算器？

1。补仓是扩大风险的是一种方式。也只会把风险无限放大。
2。深套的人都是补仓补出来的。
3。不到万不得以不能用。

6. 谁有方便的股票计算器啊?

证券交易计算器
到网上搜这个名字.不错的小软件.

7. 谁有股票计算器？

大智慧软件上面自带．

8. 想做个股票计算器

我表示用excel实现了一个简单的盈亏计算，平时自己用，感觉良好。