vb如何做计算器

lucklylucy 2003-12-20 07:46:30
我是一名大学生,今年才学VB.老师让做课件.要做一个计算器,就是和开始菜单中附件里的计算器一样的,我以经把+ - * /等简单运算做出来了.用数组命令按钮做的,想问一下用数组命令按钮作其他运算可不可以.还有就是我用数组命令按钮执行CASE语句,函数返回值是-.多不是0.多,是怎么回事??
...全文
570 点赞 收藏 16
写回复
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
sxl007AAAAA 2004-01-02
我顶支持支持支持支持支持支持支持支持支持支持支持█████████支持支持
支持支持支持支持支持支持支持支持支持███████████████支持支持
支持支持支持支持支持支持支持无██████████████████支持支持
支持支持支持支持支持无████████████████支持支持支持支持支持
支持支持支持支持███████无███支持█████支持支持支持支持支持无
支持无████████████支持支持支持████支持支持支持支持支持支持
无██████████████支持支持支持████支持支持支持支持支持支持
无████████████支持支持支持无███████████支持支持支持
无████████████支持支持支持██████████████支持支持
支持██████████支持支持无██████支持无███████支持支持
支持支持支持支持████支持支持无████支持支持支持█████支持支持无
支持支持支持支持████支持支持████支持██支持无█████支持支持无
支持支持支持支持████支持支持████支持████无█████支持支持无
支持支持支持支持████支持支持████支持████无█████支持支持无
支持支持支持支持████支持支持████支持███支持█████支持支持无
支持支持支持支持████支持支持████支持███支持█████支持支持无
支持支持支持支持████支持支持████无████支持█████支持支持无
支持支持支持支持████支持支持████无████支持█████支持支持无
支持支持支持支持████支持支持████无████支持█████支持支持无
支持支持支持支持████支持支持████无████支持█████支持支持无
支持支持支持支持████支持支持███支持████支持█████支持支持无
支持██支持无█████支持支持███支持███支持无█████支持支持无
支持██████████支持支持无██支持██支持支持█████支持支持无
支持无█████████支持支持支持支持███支持支持无████支持支持无
支持支持无███████支持支持支持支持███无████支持支持支持支持无
支持支持支持██████支持支持支持无████支持█████支持支持支持无
支持支持支持支持无███支持支持支持█████支持无███████支持支持
支持支持支持支持支持支持支持支持██████支持支持无██████支持支持
支持支持支持支持支持支持支持无██████支持支持支持███████支持无
支持支持支持支持支持支持支持█████支持支持支持支持无██████支持无
支持支持支持支持支持支持无█████支持支持支持支持支持无████支持支持
支持支持支持支持支持支持███支持支持支持支持支持支持支持无███支持支持
回复
lucklylucy 2003-12-21
不许骗人
回复
rexueqingnian 2003-12-21
我有整个计算器的源代码啊!要的话qq:261885029
回复
yassee 2003-12-21
private sub command1_click()
x=val(text1.text)
select case 1 to 2
case 1
text1.text=sin(x)
case 2
text1.text=cos(x)
end select
end sub
select case 后跟变量或表达式
回复
pigpag 2003-12-21
Select Case后面不可以是常数?!
回复
sxl007AAAAA 2003-12-21
private sub command1_click()
x=val(text1.text)
select case s
case 1
text1.text=sin(x)
case 2
text1.text=cos(x)
end select
end sub

select case 后面不可以是常数!
你说的不是win98开始中的程序中附件里的计算器?!<标准型的/科学型的?>?
回复
lucklylucy 2003-12-21
可以,我用它作的+ - * / =很好呀!
回复
quanquan626 2003-12-21
private sub command1_click()
x=val(text1.text)
select case 0
case 1
text1.text=sin(x)
case 2
text1.text=cos(x)
end select
end sub

select case 后面可以是常数吗?
回复
lucklylucy 2003-12-21
程序代码大概如下,但是运行时总是不成功。
private sub command1_click()
x=val(text1.text)
select case 0
case 1
text1.text=sin(x)
case 2
text1.text=cos(x)
end select
end sub




回复
lucklylucy 2003-12-21
就是三角函数和二进制的转换。
回复
ahbbnimor 2003-12-20
我觉得用逆波兰比较好
回复
pigpag 2003-12-20
不是表达式计算器就用不着反波兰转换算法的
回复
demension 2003-12-20
把程序show来看看啊
回复
warcraft 2003-12-20
1.可以参考VB6自己带的例子.在安装目录下找
2.CSDN开发高手第4期有一个比较好的算法的例子
3.也可以利用逆波兰转换
回复
hcj2002 2003-12-20
就是说清楚一点
回复
programfish 2003-12-20
其他运算是什么运算?执行什么样的CASE语句,楼主请说清楚。
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告