【VB开源代码栏目提醒】:网学会员--在 VB开源代码编辑为广大网友搜集整理了:VB计算器源代码 - 培训资料绩等信息,祝愿广大网友取得需要的信息,参考学习。
VB计算器源
代码 Private Data As Double Private lOperation As Long Private fClear As Boolean Private Sub Command1_ClickIndex As Integer If fClear True Then Text1.Text : fClear False Text1.Text Text1.Text Index End Sub Private Sub Command2_Click If InStr1 Text1.Text . 0 Then Text1.Text LeftText1.Text LenText1.Text - 1 End Sub Private Sub Command5_Click If fClear False Then Select Case lOperation Case 0 Case 1: Text1.Text Data ValText1.Text Case 2: Text1.Text Data - ValText1.Text Case 3: Text1.Text Data ValText1.Text Case 4: If ValText1.Text 0 Then MsgBox 除数不等于0: Exit Sub Else Text1.Text Data / ValText1.Text End Select End If Data ValText1.Text fClear True lOperation 1 End Sub Private Sub Command6_Click If fClear False Then Select Case lOperation Case 0 Case 1: Text1.Text Data ValText1.Text Case 2: Text1.Text Data - ValText1.Text Case 3: Text1.Text Data ValText1.Text Case 4: If ValText1.Text 0 Then MsgBox 除数不等于0: Exit Sub Else Text1.Text Data / ValText1.Text End Select End If Data ValText1.Text fClear True lOperation 2 End Sub Private Sub Command7_Click If fClear False Then Select Case lOperation Case 0 Case 1: Text1.Text Data ValText1.Text Case 2: Text1.Text Data - ValText1.Text Case 3: Text1.Text Data ValText1.Text Case 4: If ValText1.Text 0 Then MsgBox 除数不等于0: Exit Sub Else Text1.Text Data / ValText1.Text End Select End If Data ValText1.Text fClear True lOperation 3 End Sub Private Sub Command8_Click If fClear False Then Select Case lOperation Case 0 Case 1: Text1.Text Data ValText1.Text Case 2: Text1.Text Data - ValText1.Text Case 3: Text1.Text Data ValText1.Text Case 4: If ValText1.Text 0 Then MsgBox 除数不等于0: Exit Sub Else Text1.Text Data / ValText1.Text End Select End If Data ValText1.Text fClear True lOperation 4 End Sub Private Sub Command9_Click Text1.Text lOperation 0 End Sub