請教教我如何在下列簡易計算機程式碼中加入左右括號的程式:
表單: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
表單: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
全站熱搜
留言列表