用VB2005制作windows自带计算计算器类型的计算器,详细过程
答案:2 悬赏:0
解决时间 2021-11-28 00:06
- 提问者网友:江山如画
- 2021-11-27 02:37
我是初学者 所以请给我...程序+解释!要不我不明白。。
最佳答案
- 二级知识专家网友:一只傻青衣
- 2021-11-27 03:13
其实不难的,方法如下:
计算器上的数字和计算符号你全部设置成button,样式你就照WINDOWS的样式设计排版好(比如数字1,你就添加个button,然后设置他的text为1,大小你再调整一下),然后那个显示你输入数字内容的你设为TEXTBOX1,另外再加一个计算的button,具体实现思路如下:
1.设置三个参数
dim stlelt as string '计算符号左边的数字
dim stright as string '计算符号右边的数字
dim stmiddle as string '计算符号
2.设置每个button的click响应事件,如按下数字1:
textbox1.text= textbox.text & button1.text(这个你看得懂吧)
其它的依样画葫芦
2.设置“计算”按钮的click响应事件,这个比较关键,你要用到ASCII码的知识。
把me.textbox1.text中的字符串给区分开来,分别副职给stleft,stright,stmiddle
具体区分方法:用个for next 语句判断ASCII码,
for i as integer =0 to me.textbox1.text.length-1
if me.textbox1.text.char(i)=79......(你自己看看ASCII码,74到95)
中间代码你自己写了(注意分出来的字符串,你还要用一个for next语句把字符串变成数字,如:"1111"转换成1*1000+1*100+1+10+1*1
then
end if
next
3.显示结果,完成其它工作了!
如果你不明白,可以在百度HI上给我留言,或到我的空间留言,电我也行!
计算器上的数字和计算符号你全部设置成button,样式你就照WINDOWS的样式设计排版好(比如数字1,你就添加个button,然后设置他的text为1,大小你再调整一下),然后那个显示你输入数字内容的你设为TEXTBOX1,另外再加一个计算的button,具体实现思路如下:
1.设置三个参数
dim stlelt as string '计算符号左边的数字
dim stright as string '计算符号右边的数字
dim stmiddle as string '计算符号
2.设置每个button的click响应事件,如按下数字1:
textbox1.text= textbox.text & button1.text(这个你看得懂吧)
其它的依样画葫芦
2.设置“计算”按钮的click响应事件,这个比较关键,你要用到ASCII码的知识。
把me.textbox1.text中的字符串给区分开来,分别副职给stleft,stright,stmiddle
具体区分方法:用个for next 语句判断ASCII码,
for i as integer =0 to me.textbox1.text.length-1
if me.textbox1.text.char(i)=79......(你自己看看ASCII码,74到95)
中间代码你自己写了(注意分出来的字符串,你还要用一个for next语句把字符串变成数字,如:"1111"转换成1*1000+1*100+1+10+1*1
then
end if
next
3.显示结果,完成其它工作了!
如果你不明白,可以在百度HI上给我留言,或到我的空间留言,电我也行!
全部回答
- 1楼网友:山鬼偶尔也合群
- 2021-11-27 04:02
其实不难的,方法如下:
计算器上的数字和计算符号你全部设置成button,样式你就照windows的样式设计排版好(比如数字1,你就添加个button,然后设置他的text为1,大小你再调整一下),然后那个显示你输入数字内容的你设为textbox1,另外再加一个计算的button,具体实现思路如下:
1.设置三个参数
dim stlelt as string '计算符号左边的数字
dim stright as string '计算符号右边的数字
dim stmiddle as string '计算符号
2.设置每个button的click响应事件,如按下数字1:
textbox1.text= textbox.text & button1.text(这个你看得懂吧)
其它的依样画葫芦
2.设置“计算”按钮的click响应事件,这个比较关键,你要用到ascii码的知识。
把me.textbox1.text中的字符串给区分开来,分别副职给stleft,stright,stmiddle
具体区分方法:用个for next 语句判断ascii码,
for i as integer =0 to me.textbox1.text.length-1
if me.textbox1.text.char(i)=79......(你自己看看ascii码,74到95)
中间代码你自己写了(注意分出来的字符串,你还要用一个for next语句把字符串变成数字,如:"
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯