小白网-奉贤部落-奉贤免费信息发布平台

查看: 10|回复: 0
打印 上一主题 下一主题

vb计算器编程(用vb编写计算器,用vb计算数量的函数)

[复制链接]

2万

主题

2万

帖子

7万

积分

论坛元老

Rank: 8Rank: 8

积分
78162
跳转到指定楼层
楼主
发表于 2025-8-5 19:04 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
计算器显示的当前值用作计算结果的安全值存储变量。输入安全号码后,单击二进制运算符并输入。然后,输入另一个数字。当等于按下时,结果直接计算并存储在其中。
# include  lt;iostream  gt
# include  lt字符串 gt
# include  ltstdlib.h  gt
使用命名空间std
C security t int maxn = 100
int number[maxn];
char symbolt[maxn];
字符串s,t;
int i,j,p;
无效推送()
{
p++;
symbolt[p]= s[I];
}
无效弹出()
{
p  # 8211;
开关(符号[p+1])
{
案例 # 8216;+#8217;:{ number[p]+= number[p+1];打破;}
案例 # 8216;-#8216;:{ number[p]= number[p]-number[p+1];打破;}
案例 # 8216;*#8217;:{数字[p]=数字[p]*数字[p+1];打破;}
案例 # 8216;/#8217;:{数字[p]=数字[p]/数字[p+1];打破;}
}
}
布尔可以()
{
if(((s[I]= =  # 8217;+#8217;)| |(s[I]= =  # 8217;-#8216;)) amp amp(symbolt[p]!='(#8216;))返回true
if(((s[I]= =  # 8217;*#8217;)| |(s[I]= =  # 8217;/#8217;)) amp amp((symbolt[p]= =  # 8217;*#8217;)| |(symbolt[p]= =  # 8217;/#8217;)))返回true
返回false
}
int stringTonumber(字符串)
{
int number = 0;
for(int I = 0;我 ltastr . length();i++)
{
number = number * 10+aStr[I]-48;
}
退货数量;
}
int main()
{
cout  lt lt#8220;输入您的字符串: # 8221;;
CIN  gt; gts;
s = '( # 8216;+s+ # 8217;)#8217;;
I = 0;
p = 0;
而(我 lt=s .长度()-1)
{
while(s[I]= = '( # 8216;)
{
push();
i++;
}
j = I;

{
i++;
}
while((s[I] gt;=#8217;0#8242;) amp amp(s[I] lt;=#8217;9#8242;));
int m;
t =  # 8221#8221;;
int h = 0;
for(m = j;m  lt我;m++)t = t+s[m];
number[p]= string number(t);;

{
if(s[I]= =  # 8217;)#8217;)
{
while (symbolt[p]!='(#8216;)pop();
p  # 8211;
数字[p]=数字[p+1];
}
其他
{
while(can())pop();
push();
}
i++;
}
而((i  lt= s . length()) amp; amp(s[I-1]= =  # 8217;)#8217;));
}
cout  lt lt#8220;结果=  # 8221; lt ltnumber[0] lt; ltendl
}
Private Sub Text1_Change()
If Text1  lt gt#8220;#8221;然后
命令1。启用=真
其他
命令1。启用=假
如果…就会结束
末端接头
打开它,选择文件->:新建项目(new project)->:已安装的模板->:其他语言(Other language)->:Visual Basic- gt;windows窗体应用程序/windows c安全ole应用程序(Windows窗体应用程序/控制台应用程序)->:在底部输入项目路径-->确定(OK)
任何你想编的东西,只要你熟练,都可以编出来。Visual basic确实很强大,但是已经落后了,补游戏很难。但是还是可以编译一些计算器、ie浏览器、音乐播放器、简单的文字处理软件(类似word)之类的小东西,而且很容易学(vb语法只要懂英语就不难学)。至于游戏,很难。现在都用C了,谁还用vb?
目前vb已经没有商业价值了,但是还是有一些电脑爱好者在用!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|小白网-奉贤部落-奉贤免费信息发布平台  

GMT+8, 2025-8-6 11:39 , Processed in 0.050265 second(s), 21 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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