【VB开源代码栏目提醒】:网学会员,鉴于大家对VB开源代码十分关注,论文会员在此为大家搜集整理了“VB计算器源代码加图片 - 培训资料”一文,供大家参考学习!
VB计算器源代码加图片 Dim x As Double y As Double z As Double a As Double b As Double c As Double i As Double j As Integer Private Sub Command1_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 MsgBox 分母不能为0 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 MsgBox 分母不能为0 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 MsgBox 分母不能为0 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 MsgBox 分母不能为 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 MsgBox 分母不能为0 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 MsgBox 分母不能为0 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 MsgBox 分母不能为0 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 MsgBox 分母不能为0 Txtnum.Text Else: x x / y Txtnum.Text Strx z End If End If If b 13 Then If y 0 Then MsgBox 分母不能为0 Txtnum.Text Else: x x / y Txtnum.Text Strx - z End If End If If b 14 Then If y 0 Then MsgBox 分母不能为0 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 MsgBox 分母不能为0 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 Command2_Click End End Sub Private Sub Command3_Click Txtnum.Text Txtnum.SetFocus End Sub Private Sub Command4_Click Txtnum.Text End Sub Private Sub Form_Load Txtnum.Text End Sub