【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：计算器制作源代码VF、VB、实训操作 - 培训资料绩等信息，祝愿广大网友取得需要的信息，参考学习。

    

计算器制作源代码VF、VB、实训操作 Dim x As Double y As Double z As Double i As Double a As Double b As Double c As Double j As Integer len1 As Integer Private Sub cmd1_ClickIndex As Integer Select Case Index Case 1 2 3 4 5 6 7 8 9 0 If j 1 Then Txtnum.Text j 0 End If Txtnum.Text Txtnum.Text Index Case 10 If InStrTxtnum.Text . False Then Txtnum.Text Txtnum.Text . End If Case 12 13 14 15 i i 1 If i 1 Then a Index x ValTxtnum.Text Txtnum.Text End If If i 2 Then b Index y ValTxtnum.Text Txtnum.Text End If If i 3 Then c Index z ValTxtnum.Text i 2 Txtnum.Text If a 12 Then If b 12 Then x x y y z a b b c End If If b 13 Then x x y y z a b b c End If If b 14 Then y y z b c End If If b 15 Then If z 0 Then Txtnum.Text Else: y y / z b c End If End If End If If a 13 Then If b 12 Then x x - y y z a b b c End If If b 13 Then x x - y y z a b b c End If If b 14 Then y y z b c End If If b 15 Then If z 0 Then Txtnum.Text Else: y y / z b c End If End If End If If a 14 Then x x y y z a b b c End If If a 15 Then If y 0 Then Txtnum.Text Else: x x / y y z a b b c End If End If End If Case 11 z ValTxtnum.Text If i 1 Then If a 12 Then Txtnum.Text Strx z End If If a 13 Then Txtnum.Text Strx - z End If If a 14 Then Txtnum.Text Strx z End If If a 15 Then If z 0 Then Txtnum.Text Else: Txtnum.Text Strx / z End If End If End If If a 12 Then If b 12 Then x x y Txtnum.Text Strx z End If If b 13 Then x x y Txtnum.Text Strx - z End If If b 14 Then y y z Txtnum.Text Strx y End If If b 15 Then If z 0 Then Txtnum.Text Else: y y / z Txtnum.Text Strx y End If End If End If If a 13 Then If b 12 Then x x - y Txtnum.Text Strx z End If If b 13 Then x x - y Txtnum.Text Strx - z End If If b 14 Then y y z Txtnum.Text Strx - y End If If b 15 Then If z 0 Then Txtnum.Text Else: y y / z Txtnum.Text Strx - y End If End If End If If a 14 Then If b 12 Then x x y Txtnum.Text Strx z End If If b 13 Then x x y Txtnum.Text Strx - z End If If b 14 Then x x y Txtnum.Text Strx z End If If b 15 Then If z 0 Then Txtnum.Text Else: x x y Txtnum.Text Strx / z End If End If End If If a 15 Then If b 12 Then If y 0 Then Txtnum.Text Else: x x / y Txtnum.Text Strx z End If End If If b 13 Then If y 0 Then Txtnum.Text Else: x x / y Txtnum.Text Strx - z End If End If If b 14 Then If y 0 Then Txtnum.Text Else: x x / y Txtnum.Text Strx z End If End If If b 15 Then If y 0 Or z 0 Then Txtnum.Text Else: x x / y Txtnum.Text Strx / z End If End If End If i 0 j 1 End Select End Sub Private Sub cmd2_ClickIndex As Integer Select Case Index Case 0 Txtnum.Text Case 1 len1 LenTxtnum.Text If LenTxtnum.Text 1 Then Txtnum.Text LeftTxtnum.Text len1 - 1 End If Case 2 End Case 3 Txtnum.Text Txtnum.SetFocus End Select End Sub Private Sub Form_Load End Sub