vb如何做计算器

lucklylucy 2003-12-20 07:46:30

我是一名大学生,今年才学VB.老师让做课件.要做一个计算器,就是和开始菜单中附件里的计算器一样的,我以经把+ - * /等简单运算做出来了.用数组命令按钮做的,想问一下用数组命令按钮作其他运算可不可以.还有就是我用数组命令按钮执行CASE语句,函数返回值是-.多不是0.多,是怎么回事??

...全文

629 16 打赏收藏转发到动态举报

写回复

用AI写文章

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