vb编程计算器 代码问题
下面哪里出问题了 只能实现 多位数加单位数 按了加号以后只能输入一位数字而且不可以更改 只有按下清除 或者是 等于 得出答案 应该是加号键那里出问题了吧通用 Private strCaculateTYPE As StringPrivate dblNum1 As DoublePrivate dblNum2 As DoublePrivate blnFlag As Boolean输入 1Private Sub ONE_Click(Index As Integer)If strCaculateTYPE "" And blnFlag = 1 ThenText1 = Text1 "1"End IfEnd Sub输入 2 Private Sub TWO_Click(Index As Integer)If strCaculateTYPE "" And blnFlag = 1 ThenText1 = Text1 "2"End IfEnd Sub加号键Private Sub plus_Click(Index As Integer)strCaculateTYPE = " "dblNum1 = Val(Text1)End Sub等于 键Private Sub equal_Click(Index As Integer)dblNum2 = Val(Text1)Text1 = dblNum1 dblNum2End Sub
And blnFlag = 1 这样写不对 改成 ElseIf strCaculateTYPE = "" And blnFlag = False Then
Text1 = Text1 "2"
ElseIf strCaculateTYPE <> "" And blnFlag = True Then
把 1 和2 全改成成这样 不是 0 和1
答:usingSystem;usingSystem.Collections.Generic;usingSystem.Text;namespace大话设计模式{//一...详情>>
答:+ 群:33804569详情>>