科學計算器vb代碼.doc

(19頁)

本資源提供全文預覽，點擊全文預覽即可全文預覽,如果喜歡文檔就下載吧，查找使用更方便哦！

14.90 積分

· 用VB寫計算器似乎有很多例子，這個代碼就是其中之一，科學計算器是在基本計算器的基礎上，加入角度、弧度、梯度、正切、余切、正弦余弦、平方根等的數學計算，當然基礎的加減乘除運算就更不用說了，這是在一本VB教程中摘錄的代碼，你可以此為基礎完善擴展該計算器的功能，運行截圖如下：核心代碼，只有一個文件代碼：VERSION 5.00Begin VB.Form Frm_Scientific Caption = "計算器" ClientHeight = 2925 ClientLeft = 165 ClientTop = 735 ClientWidth = 5595 LinkTopic = "Form1" LockControls = -1 'True MaxButton = 0 'False ScaleHeight = 2925 ScaleWidth = 5595 StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Cmd_Rnd Caption = "Rnd" Height = 390 Left = 5025 TabIndex = 39 Top = 1455 Width = 510 End Begin VB.CommandButton Cmd_PI Caption = "PI" Height = 390 Left = 1575 TabIndex = 38 Top = 2400 Width = 630 End Begin VB.CommandButton Cmd_Fact Caption = "N!" Height = 390 Left = 1575 TabIndex = 37 Top = 1935 Width = 630 End Begin VB.CommandButton Cmd_Log Caption = "Log" Height = 390 Left = 1575 TabIndex = 36 Top = 1455 Width = 630 End Begin VB.CommandButton Cmd_Ln Caption = "Ln" Height = 390 Left = 1575 TabIndex = 35 Top = 960 Width = 630 End Begin VB.CommandButton Cmd_Square Caption = "X^2" Height = 390 Left = 840 TabIndex = 34 Top = 2400 Width = 630 End Begin VB.CommandButton Cmd_Cube Caption = "X^3" Height = 390 Left = 825 TabIndex = 33 Top = 1935 Width = 630 End Begin VB.CommandButton Cmd_Operator Caption = "X^Y" Height = 390 Index = 5 Left = 840 TabIndex = 32 Top = 1455 Width = 630 End Begin VB.CommandButton Cmd_Exp Caption = "Exp" Height = 390 Left = 840 TabIndex = 31 Top = 960 Width = 630 End Begin VB.CommandButton Cmd_Sin Caption = "Sin" Height = 390 Left = 120 TabIndex = 30 Top = 960 Width = 630 End Begin VB.CommandButton Cmd_Cos Caption = "Cos" Height = 390 Left = 120 TabIndex = 29 Top = 1455 Width = 630 End Begin VB.CommandButton Cmd_Tan Caption = "Tan" Height = 390 Left = 120 TabIndex = 28 Top = 1935 Width = 630 End Begin VB.CommandButton Cmd_Atan Caption = "Atan" Height = 390 Left = 120 TabIndex = 27 Top = 2400 Width = 630 End Begin VB.Frame Frame1 Height = 510 Left = 90 TabIndex = 23 Top = 330 Width = 2625 Begin VB.OptionButton Otn_Grd Caption = "梯度" Height = 180 Left = 1695 TabIndex = 26 Top = 210 Width = 750 End Begin VB.OptionButton Otn_Rad Caption = "弧度" Height = 180 Left = 900 TabIndex = 25 Top = 210 Width = 795 End Begin VB.OptionButton Otn_Deg Caption = "角度" Height = 180 Left = 135 TabIndex = 24 Top = 210 Value = -1 'True Width = 675 End End Begin VB.CommandButton Cmd_Operator Caption = "=" Height = 390 Index = 4 Left = 5025 TabIndex = 22 Top = 2400 Width = 510 End Begin VB.CommandButton Cmd_Operator Caption = "+" Height = 390 Index = 3 Left = 4470 MaskColor = &H00808080& Style = 1 'Graphical TabIndex = 21 Top = 2400 Width = 510 End Begin VB.CommandButton Command1 Caption = "." Height = 390 Index = 11 Left = 3915 TabIndex = 20 Top = 2400 Width = 510 End Begin VB.CommandButton Command1 Caption = "+/-" Height = 390 Index = 10 Left = 3360 TabIndex = 19 Top = 2400 Width = 510 End Begin VB.CommandButton Command1 Caption = "0" Height = 390 Index = 0 Left = 2820 TabIndex = 18 Top = 2400 Width = 510 End Begin VB.CommandButton Cmd_fraction 。省略部分。t = "0." Then Exit Sub End If If (Txt_Result.Text "") Then Txt_Result.Text = Mid(Txt_Result.Text, 1, Len(Txt_Result.Text) - 1) ElseIf Txt_Result.Text = "" Then Txt_Result.Text = "0." End IfEnd SubPrivate Sub Cmd_C_Click() '清零 Txt_Result.Text = "0" prev = 0End SubPrivate Sub Cmd_CE_Click() dflag = 0 prev = 0 oflag = 0 ind = 0 opnre = 0 Txt_Result = " 0"End SubPrivate Sub Cmd_Cos_Click() 'Cos值 Txt_Result.Text = Str(Cos(ang * Val(Txt_Result.Text))) prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Cube_Click() Txt_Result.Text = Val(Txt_Result.Text) ^ 3 prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Exp_Click() '計算Exp的值 Txt_Result.Text = Exp(Txt_Result.Text) prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Fact_Click() 'N！ Txt_Result.Text = Str(fac(Val(Txt_Result.Text))) prev = Txt_Result.TextEnd SubPrivate Sub Cmd_fraction_Click() '倒數 Dim Temp Temp = Val(Txt_Result.Text) If Temp 0 Then Txt_Result.Text = Str(1 / Temp) Else Txt_Result.Text = "除數不能為零。" End If prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Ln_Click() 'LN If Val(Txt_Result.Text) > 0 Then Txt_Result.Text = Str(Log(Val(Txt_Result.Text))) Else Txt_Result.Text = "輸入有誤。" End If prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Log_Click() 'Log If Val(Txt_Result.Text) > 0 Then Txt_Result.Text = Str((Log(Val(Txt_Result.Text)) / Log(10))) Else Txt_Result.Text = "輸入有誤。" End If prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Operator_Click(Index As Integer) ' 單擊操作符按鈕 If opnre = 0 Or Index = 4 Then If ind = 3 Then '加號 prev = prev + Val(Txt_Result.Text) ElseIf ind = 2 Then '減號 prev = prev - Val(Txt_Result.Text) ElseIf ind = 0 Then '除號 If Val(Txt_Result.Text) = 0 Then Txt_Result.Text = "除數不能為零。" Exit Sub Else prev = prev / Val(Txt_Result.Text) End If ElseIf ind = 5 Then 'X^Y prev = prev ^ Val(Txt_Result.Text) ElseIf ind = 1 Then '乘號 prev = prev * Val(Txt_Result.Text) End If If prev = 0 Then '如果前一個操作數為0 prev = Txt_Result.Text '將當前的值傳給操作數 Else '否則 Txt_Result.Text = Str(prev) '將操作數的值傳遞給文本框顯示 End If oflag = 0 End If opnre = 1 ind = Index dflag = 0End SubPrivate Sub Cmd_PI_Click() 'PI Txt_Result.Text = 3.141592654 prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Rnd_Click() '產生一個隨機數 Txt_Result.Text = Str(Rnd)End SubPrivate Sub Cmd_Sin_Click() 'Sin值 Txt_Result.Text = Str(Sin(ang * Val(Txt_Result.Text))) prev = Txt_Result.TextEnd SubPrivate Sub Cmd_sqrt_Click() '求平方根 Dim Temp As Integer Temp = Val(Txt_Result.Text) If Temp > 0 Or Temp = 0 Then Txt_Result.Text = Str(Sqr(Val(Txt_Result.Text))) Else Txt_Result.Text = "函數輸入無效。" End IfEnd SubPrivate Sub Cmd_Square_Click() '求平方 Txt_Result.Text = Val(Txt_Result.Text) ^ 2 prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Tan_Click() 'Tan函數 If (Cos(Val(Txt_Result.Text))) 0 Then Txt_Result.Text = Str(Sin(ang * Val(Txt_Result.Text)) / Cos(ang * Val(Txt_Result.Text))) Else Txt_Result.Text = "除數不能為零。" End If prev = Txt_Result.TextEnd SubPrivate Sub Command1_Click(Index As Integer) '數字鍵 If ind = 4 Then prev = 0 Txt_Result.Text = " " ind = 0 End If opnre = 0 If oflag = 0 Then Txt_Result.Text = " " End If oflag = 1 If Command1(Index).Caption "." Then If Txt_Result.Text "0." Then Txt_Result.Text = Txt_Result.Text & Command1(Index).Caption Else Txt_Result.Text = " " & Command1(Index).Caption End If Else If dflag = 0 Then Txt_Result.Text = Txt_Result.Text & "." dflag = 1 Else Txt_Result.Text = "輸入有誤。" End If End IfEnd SubPrivate Sub Form_Load() dflag = 0 prev = 0 oflag = 0 ind = 0 opnre = 0 Clipboard.ClearEnd SubPrivate Sub Menu_All_Click() '全選 Clipboard.Clear Clipboard.SetText Txt_Result.TextEnd SubPrivate Sub Menu_Copy_Click() '復制 Clipboard.Clear Clipboard.SetText Txt_Result.TextEnd SubPrivate Sub Menu_Cut_Click() '剪切 Clipboard.Clear Clipboard.SetText Txt_Result.Text Txt_Result.Text = ""End SubPrivate Sub Menu_Exit_Click() '退出 EndEnd SubPrivate Sub Menu_HelpSubject_Click() MsgBox "未開通幫助功能。", vbCriticalEnd SubPrivate Sub Menu_Paste_Click() '粘貼 Txt_Result.Text = "" Txt_Result.Text = Clipboard.GetText()End SubPrivate Sub Otn_Deg_Click() '角度 If Otn_Deg = True Then ang = 3.141592654 / 180 End IfEnd SubPrivate Sub Otn_Grd_Click() '梯度 If Otn_Grd.Value = True Then ang = 3.141592654 / 200 End IfEnd SubPrivate Sub Otn_Rad_Click() '弧度 If Otn_Rad.Value = True Then ang = 1 End IfEnd Sub'計算階乘'**輸 入：num(Long) - 要計算階乘的數'**輸 出：(Long) - 計算結果'**功能描述：計算一個小于12的數的階乘Function fac(num As Long) As Long Dim re If (num 12) Then Txt_Result.Text = "輸入的數值過大。" fac = num Else re = 1 While (num > 0) re = re * num num = num - 1 Wend fac = re End If End IfEnd FunctionVB科學計算器代碼，新建一工程后引入上述代碼文件編譯即可。 關?鍵?詞： 代碼 計算器 科學 vb

?天天文庫所有資源均是用戶自行上傳分享，僅供網友學習交流，未經上傳用戶書面授權，請勿作他用。

總結

以上是生活随笔為你收集整理的vb科学计算机ppt,科学计算器vb代码.doc的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。