设计一个简单计算器,运行界面如图

'修改一些地方先：
'0-9 . 的按钮分别设置Name为NButton,并依次设置index为0~10（注意按顺序）
' + - * / = 的按钮分别设置Name为 CButton,并依次设置index为0~5（注意按顺序）
'提醒一下：以上要一个按钮一个按钮来改,就是设置name后要先设置index在设置下一个按钮的name.如此循环
'复制以下代码
private Sum as single '全局变量
private DoId as integer '记录操作：0无 1+ 2- 3* 4/
private sub form_load()
text1.enabled=false:text1.text="0"
end if
private sub NButton_Click(index as integer)
if index=10 then
text1.text=text1.text & "."
else
text1.text=text1.text & index
end if
end sub
private sub CButton_click(index as integer)
text1.text=cstr(doevent(doid,val(text1.text)))
doid=index+1
end sub
private function DoEvent(byval Id as integer,byval V as single) as single
select case id
case 1
sum=sum+v
case 2
sum=sum-v
case 3
sum=sum*v
case 4
if v=0 then
msgbox "除数不能为0","提示"
else
sum=sum/v
end if
end select
DoId=0
DoEvent=sum
end function
'由于是现写的,所以未调试,你参考一下把~