?? calc.frm

?? 模擬windows計(jì)算器功能
?? FRM
?? 第 1 頁(yè) / 共 3 頁(yè)
字號(hào):
上一頁(yè)1 23
        Number2 = Log(Number2)
        s_Number2 = Str(Number2)
        Result = s_Number1 + Letter + s_Number2
    ElseIf Oper = 0 Then
        If Val(Result) < 0 Then '容錯(cuò)處理,判斷result是否小于零
            Result = "真數(shù)不能小于零"
            Exit Sub
        End If
        s_Number1 = Str(Log(Val(Result)))
        Result = s_Number1
    End If
End Sub

Private Sub Command21_Click()
'PI功能
    If Oper = 1 Then
        Number1 = PI
        s_Number1 = Str(Number1)
        Result = s_Number1
    ElseIf Oper = 2 Then
        Number2 = PI
        s_Number2 = Str(Number2)
        Result = s_Number1 + Letter + s_Number2
    ElseIf Oper = 0 Then
        s_Number1 = Str(PI)
        Result = Str(PI)
    End If
End Sub

Private Sub Command22_Click()
'階乘功能
    Dim i As Integer
    If Oper = 1 Then
        If Number1 < 0 Then '容錯(cuò)處理,判斷Number1是否小于零
            Result = "階乘數(shù)不能小于零"
            Exit Sub
        End If
        Number1 = Val(s_Number1)
        For i = 1 To (Number1 - 1)
            Number1 = Number1 * i
        Next i
        s_Number1 = Str(Number1)
        Result = s_Number1
    ElseIf Oper = 2 Then
        If Number2 < 0 Then '容錯(cuò)處理,判斷Number2是否小于零
            Result = "階乘數(shù)不能小于零"
            Exit Sub
        End If
        Number2 = Val(s_Number2)
        For i = 1 To (Number1 - 1)
            Number1 = Number1 * i
        Next i
        s_Number2 = Str(Number2)
        Result = s_Number1 + Letter + s_Number2
    ElseIf Oper = 0 Then
        If Val(Result) < 0 Then '容錯(cuò)處理,判斷result是否小于零
            Result = "階乘數(shù)不能小于零"
            Exit Sub
        End If
        Number1 = Val(Result)
        For i = 1 To (Number1 - 1)
            Number1 = Number1 * i
        Next i
        Result = Str(Number1)
    End If
End Sub

Private Sub Command23_Click()
'余切功能
    If Oper = 1 Then
        s_Number1 = Str(Atn(Number1 * PI / 180))
        Number1 = Val(s_Number1)
        Result = s_Number1
    ElseIf Oper = 2 Then
        s_Number2 = Str(Atn(Number2 * PI / 180))
        Number2 = Val(s_Number2)
        Result = s_Number1 + Letter + s_Number2
    ElseIf Oper = 0 Then
        s_Number1 = Str(Atn(Val(Result) * PI / 180))
        Result = s_Number1
    End If
End Sub

Private Sub Command3_Click()
'復(fù)位功能
    Oper = 1
    s_Number1 = ""
    s_Number2 = ""
    Number1 = 0
    Number2 = 0
    Result = "0"
End Sub

Private Sub Command4_Click()
'相反數(shù)功能
    If Oper = 1 Then
        s_Number1 = Str(-1 * Number1)
        Number1 = Val(s_Number1)
        Result = s_Number1
    ElseIf Oper = 2 Then
        s_Number2 = Str(-1 * Number2)
        Number2 = Val(s_Number2)
        Result = s_Number1 + Letter + s_Number2
    ElseIf Oper = 0 Then
        s_Number1 = Str(-1 * Result)
        Result = s_Number1
    End If
End Sub

Private Sub Command5_Click()
'開(kāi)方功能
    If Oper = 1 Then
        If Number1 < 0 Then '容錯(cuò)處理,判斷Number1是否小于零
            Result = "被開(kāi)平方數(shù)不能小于零"
            Exit Sub
        End If
        s_Number1 = Str(Sqr(Number1))
        Number1 = Val(s_Number1)
        Result = s_Number1
    ElseIf Oper = 2 Then
        If Number2 < 0 Then '容錯(cuò)處理,判斷Number1是否小于零
            Result = "被開(kāi)平方數(shù)不能小于零"
            Exit Sub
        End If
        s_Number2 = Str(Sqr(Number2))
        Number2 = Val(s_Number2)
        Result = s_Number1 + Letter + s_Number2
    ElseIf Oper = 0 Then
        If Val(Result) < 0 Then '容錯(cuò)處理,判斷Number1是否小于零
            Result = "被開(kāi)平方數(shù)不能小于零"
            Exit Sub
        End If
        s_Number1 = Str(Sqr(Val(Result)))
        Result = s_Number1
    End If
End Sub

Private Sub Command6_Click()
'以百分比的形式顯示乘積功能
    If Oper < 2 Then
        Number1 = 0
        Result = "0"
    Else
    '進(jìn)行計(jì)算
        Number2 = Number1 * 0.01 * Number2
        s_Number2 = Str(Number2)
        Result = s_Number2
    End If
    '顯示運(yùn)算符
End Sub

Private Sub Command7_Click()
'倒數(shù)功能
    If Oper = 1 Then
        If Number1 = 0 Then '容錯(cuò)處理,判斷Number1是否為零
            Result = "分母不能為零"
            Exit Sub
        End If
        s_Number1 = Str(1 / Number1)
        Number1 = Val(s_Number1)
        Result = s_Number1
    ElseIf Oper = 2 Then
        If Number2 = 0 Then '容錯(cuò)處理,判斷Number1是否為零
            Result = "分母不能為零"
            Exit Sub
        End If
        s_Number2 = Str(1 / Number2)
        Number2 = Val(s_Number2)
        Result = s_Number1 + Letter + s_Number2
    ElseIf Oper = 0 Then
        If Val(Result) = 0 Then '容錯(cuò)處理,判斷Number1是否為零
            Result = "分母不能為零"
            Exit Sub
        End If
        s_Number1 = Str(1 / Val(Result))
        Result = s_Number1
    End If
End Sub

Private Sub Command8_Click()
'清除保存的數(shù)字功能
    NumberSave = 0
    Label1.Caption = ""
End Sub

Private Sub Command9_Click()
'讀取保存的數(shù)字功能
    Oper = 1
    s_Number1 = Str(NumberSave)
    s_Number2 = ""
    Number1 = NumberSave
    Number2 = 0
    Result = s_Number1 + Letter + s_Number2
End Sub

Private Sub Dot_Click()
'輸入小數(shù)點(diǎn)程序
'正在輸入數(shù)字
    If Oper = 0 And OperCode = 9 Then
    '輸入數(shù)字1
        If s_Number1 = "0" Or s_Number1 = "" Then
            s_Number1 = "0." '加入一個(gè)字符
        Else
            s_Number1 = s_Number1 + "." '加入一個(gè)字符
        End If
        Oper = 1
        Number1 = Val(s_Number1)
        Result = s_Number1 '顯示數(shù)字1(字符串形式）
    ElseIf Oper = 0 And OperCode <> 9 Then
    '輸入數(shù)字2
        If s_Number2 = "0" Or s_Number2 = "" Then
            s_Number2 = "0." '加入一個(gè)字符
        Else
            s_Number2 = s_Number2 + "." '加入一個(gè)字符
        End If
        Oper = 2
        Number2 = Val(s_Number2)
        Result = s_Number1 + Letter + s_Number2
    ElseIf Oper = 1 Then
    '數(shù)字1
        If Not InStr(s_Number1, ".") > 0 Then
        '數(shù)字中無(wú)小數(shù)點(diǎn)
            s_Number1 = s_Number1 + "."
            Result = s_Number1
        ElseIf s_Number1 = "0" Or s_Number1 = "" Then
            s_Number1 = "0."
            Result = s_Number1
        End If
    ElseIf Oper = 2 Then
    '數(shù)字2
        If s_Number2 = "0" Or s_Number2 = "" Then
            s_Number2 = "0."
            Result = s_Number1 + Letter + s_Number2
        ElseIf Not InStr(s_Number2, ".") > 0 Then
            s_Number2 = s_Number2 + "."
            Result = s_Number1 + Letter + s_Number2
        End If
    End If
End Sub

Private Sub Form_Load()
'初始化數(shù)據(jù)
    Oper = 0
    OperCode = 9
    s_Number1 = ""
    s_Number2 = ""
    Number1 = 0
    Number2 = 0
    NumberSave = 0
    Result = "0"
End Sub

Private Sub Number_Click(Index As Integer)
'輸入數(shù)字程序
    '正在輸入數(shù)字
    If Oper = 0 And OperCode = 9 Then
    '輸入數(shù)字1
        s_Number1 = ""
        Oper = 1
        s_Number1 = s_Number1 + Right(Str(Index), 1) '加入一個(gè)字符
        Number1 = Val(s_Number1)
        Result = s_Number1 '顯示數(shù)字1(字符串形式）
    ElseIf Oper = 0 And OperCode <> 9 Then
    '輸入數(shù)字2
        If s_Number2 = "0" Then
            s_Number2 = ""
        End If
        Oper = 2
        s_Number2 = s_Number2 + Right(Str(Index), 1)
        Number2 = Val(s_Number2)
        Result = s_Number1 + Letter + s_Number2
    ElseIf Oper = 1 Then
    '輸入數(shù)字1
        If s_Number1 = "0" Then
            s_Number1 = ""
        End If
        s_Number1 = s_Number1 + Right(Str(Index), 1) '加入一個(gè)字符
        Number1 = Val(s_Number1) '保存當(dāng)前數(shù)字1的數(shù)值
        Result = s_Number1 '顯示數(shù)字1(字符串形式）
    ElseIf Oper = 2 Then
    '輸入數(shù)字2
        If s_Number2 = "0" Then
            s_Number2 = ""
        End If
        s_Number2 = s_Number2 + Right(Str(Index), 1)
        Number2 = Val(s_Number2)
        Result = s_Number1 + Letter + s_Number2
    End If
End Sub

Private Sub Operate_Click(Index As Integer)
'點(diǎn)擊運(yùn)算符
    If Oper < 2 Then
        Oper = 2
    Else
    '進(jìn)行計(jì)算
        Call Calc_Click
    End If
    '顯示運(yùn)算符
    Letter = " " + Operate(Index).Caption + " "
    Result = s_Number1 + Letter + s_Number2
    OperCode = Index '保存運(yùn)算符標(biāo)志
End Sub

Private Sub Option1_Click()
'十進(jìn)制功能
    number(8).Enabled = True
    number(9).Enabled = True
    Command12.Enabled = True
    Command13.Enabled = True
    Command14.Enabled = True
    Command21.Enabled = True
    Command23.Enabled = True
    Number1 = Val("&O" + s_Number1)
    Number2 = Val("&O" + s_Number2)
    s_Number1 = Str(Number1)
    s_Number2 = Str(Number2)
    If Oper = 1 Then
        Result = s_Number1
    End If
    If Oper = 2 Then
        Result = s_Number1 + Letter + s_Number2
    End If
    If Oper = 0 Then
        Result = Val("&O" + Result)
    End If
End Sub

Private Sub Option2_Click()
'八進(jìn)制功能
    Command12.Enabled = False
    Command13.Enabled = False
    Command14.Enabled = False
    Command21.Enabled = False
    Command23.Enabled = False
    number(8).Enabled = False
    number(9).Enabled = False
    Number1 = Oct(Number1)
    Number2 = Oct(Number2)
    s_Number1 = Str(Number1)
    s_Number2 = Str(Number2)
    If Oper = 1 Then
        Result = s_Number1
    End If
    If Oper = 2 Then
        Result = s_Number1 + Letter + s_Number2
    End If
    If Oper = 0 Then
        Result = Oct(Result)
    End If
End Sub
上一頁(yè)1 23
?? 文件大小 5 K
?? 上傳用戶 lvuxinwu
?? 所屬分類并行計(jì)算
??? 相關(guān)標(biāo)簽

#windows #模擬 #計(jì)算器
?? 快捷鍵說(shuō)明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? calc.frm

?? 快捷鍵說(shuō)明
