[讨论]如何制作一个简单计算器

马大哈

<P>RT.............</P>
<P>做出来后在跟帖里发上来吧!</P>
<P>别以为很容易哦!!呵呵</P>
<P>细节的处理与BUG的问题会让你晕晕的</P>

小吧

哈哈 好 ！

小吧

<P>我的大概就这个样子：</P><P>Option Explicit
Dim a!, b!
Dim stra As String, strb As String
Dim c As Boolean '判断开头数字
Dim runsign%, signflag As Boolean
Dim pointflag As Boolean '判断小数点
Dim aim!</P><P>Private Sub Command1_Click(Index As Integer)
Select Case Index
'10个数字键
Case 0 To 9
  If c Then
  stra = Str(a)
  c = False
  Else
  stra = stra &amp; Str(Index)
  End If
  Text1.Text = stra
  '小数点
Case 10
  If Not pointflag Then
  If c Then
  stra = "0."
  c = False
  Else
  stra = stra &amp; "."
  End If
  End If
  pointflag = True
  Text1.Text = stra
  '等于号
Case 11
  If Not signflag Then
  Text1.Text = stra
  aim = Val(stra)
  c = True
  pointflag = False
  Else
  Call run
  signflag = False
  End If
  '四则运算
Case 12 To 15</P><P>   c = True
   pointflag = False</P><P>   If signflag Then</P><P>   Call run</P><P>   Else</P><P>   signflag = True
   strb = stra
   stra = ""
   End If
   runsign = Index - 11
Case Else
Call Clear
End Select
End Sub
'四则运算过程
Sub run()
a = Val(strb)
b = Val(stra)
Select Case runsign
Case 1
aim = a + b
Case 2
aim = a - b
Case 3
aim = a * b
Case 4
aim = a / b</P><P>
End Select
strb = Str(aim)
stra = strb
Text1.Text = strb
End Sub</P><P>Private Sub Form_Load()
Call Clear
End Sub
'清除过程
Sub Clear()
Text1.Text = "0." '默认数字
Text1.FontBold = True
Text1.FontSize = 14
a = 0: b = 0: stra = "": strb = "" '变量清零
c = True
runsign = 0
signflag = False
pointflag = False
End Sub</P><P>但是有两个问题没有解决：1.第一次点击一个数字要点两次，因为第一次点是0（不知道怎么回事）</P><P>                                          2.做连续的运算的时候text显示的上面的数字不能清零</P><P>这两个问题俺弄不出来了 ！请大哥们指点下！</P>

小吧

<P>第一次做所谓的“项目” 问题多多，哎  ，看来水平还是差的远的很！</P><P>狂努力哈~！</P>

马大哈

呵呵,我看看~~

小吧

<P>你看哈！</P><P>热死我拉</P><P>我洗澡去哈！</P>

马大哈

最好做成包让大家下载

小吧

<P>行  那我上传把！ 忘记拉 失误！</P>

小吧

<P>大哥帮我该该哈 我发了新贴有包 ！ </P><P>下了看！</P>

小吧

好啊，只要是去学就是好事情，大家一起努力一起进步！！！！！！！！！

马大哈

笑得真恐怖....你的头像是黄秋生吗?