计算机技术论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

  • 欢迎访问 计算机技术论坛-电脑迷与初学者的家园!由于论坛管理严格,新注册会员可能遇到各种问题,无法解决的请发邮件 admin@jsjbbs.cn
查看: 3621|回复: 9

[已解决] 求教VB编程!(计算器)!!

[复制链接]
发表于 2009-9-27 11:47:27 | 显示全部楼层 |阅读模式
我们老师叫用VB编程编写一个计算器,但是VB刚刚学,接触还少,根本就不知道啊!那位高手精通的请给下代码。最好注上解释说明,要易懂的。本人很菜!!!谢谢!
发表于 2009-9-27 13:53:47 | 显示全部楼层
没有学过不能帮上你忙   sorry   
      这里面一定有人可以帮到你的
 楼主| 发表于 2009-9-27 23:46:51 | 显示全部楼层
没有学过那就要学啊!!你不说我怎么学啊!!指教下!谢谢!!!
发表于 2009-9-28 12:11:36 | 显示全部楼层
http://www.rsdown.cn/
这个网站有VB教程,我也是新手,也刚刚找到的,不知道能不能帮到你
发表于 2009-9-28 18:59:08 | 显示全部楼层
text1.text=int(text1.text),text1.text=round(text1.text).依次类推!
发表于 2009-9-28 19:06:15 | 显示全部楼层
以上是代码
发表于 2009-10-2 23:16:04 | 显示全部楼层
来几个text 在来几个command

就ok了,比较简单
 楼主| 发表于 2009-10-3 01:28:26 | 显示全部楼层
能不能仔细点的啊!没有学过不太懂啊!!或者,那里有教程也可以啊。
发表于 2009-10-3 20:13:18 | 显示全部楼层
复制0~9
COMMAND1(数字)
  Text1=text1+command1(index).coption
command2(+)
a=text1
text1=""
m="加"
command3(-)
a=text1
text=""
m="减"
command4(*)
a=text1
text1=""
m="乘"
command5(/)
a=text1
text1=""
m="除"
command6(=)
b=text1
if m="加" then
     text1=a+b
elseif m="减"then
     text1=a-b
elseif m="乘"then
     text1=a*b
else
     text1=a/b
command7(退格)
l=len(text1)
if l=0 then
    exif sub
end if
text1=mid(text1,1,l-1)
 楼主| 发表于 2009-10-21 21:46:46 | 显示全部楼层
非常感谢!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

无图版|手机版|计算机技术论坛 JSJBBS.CN @ 2008-2024 ( 鲁ICP备17021708号 )

技术支持 : 北京康盛新创科技有限责任公司

快速回复 返回顶部 返回列表