請教教我如何在下列簡易計算機程式碼中加入左右括號的程式:
表單:cmdNum(0)-(9) '代表0-9數字
cmdOp(0)-(5)  '代表+ - * / ( )
   cmdClear    '代表"清除"
   cmdEqu     '代表=
   txtShow    '顯示計算內容的地方
程式:
Dim op As Integer
Dim tempNum As Double
Private Sub cmdClear_Click()
txtShow.Text=""
   tempNum=0
End Sub
Private Sub cmdEqu_Click()
select case op
     case 1:txtShow.text=tempNum + Val(txtshow.text)
     case 2:txtShow.text=tempNum - Val(txtshow.text) 
     case 3:txtShow.text=tempNum * Val(txtshow.text)
     case 4:txtShow.text=tempNum / Val(txtshow.text)
   end select
end sub
Private sub cmdNum_Click(Index As Integer)
txtshow.text=txtshow.text + Str(Index)
end sub
Private sub cmdOp_Click(Index As Integer)
tempNum= Val(txtshow.text)
  txtshow.text=""
  if index=0 then
     op=1
  elseif index=1 then
     op=2
  elseif index=2 then
     op=3
  elseif index=3 then
     op=4
  end if
end sub
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()