用vb编写一个简单计算器的程序

label1是最大的那个框子label2是label1最左边显示加减乘除符号的框子label3是label1最右边显示结果这个程序编写出来以后,一按等于,label3中出... label1 是最大的那个框子
label2 是label1最左边显示加减乘除符号的框子
label3 是label1最右边显示结果
这个程序编写出来以后,一按等于,label3中出现label1中的数字

Private Sub Command1_Click()Label1.Caption = Label1.Caption & "1"End Sub
Private Sub Command11_Click()Label1.Caption = ""Label2.Caption = ""End SubPrivate Sub Command12_Click()Unload MeEnd SubPrivate Sub Command13_Click()A = Label1.CaptionLabel2.Caption = "+"Label1.Caption = ""End SubPrivate Sub Command14_Click()A = Label1.CaptionLabel2.Caption = "-"Label1.Caption = ""End SubPrivate Sub Command15_Click()A = Label1.CaptionLabel2.Caption = "×"Label1.Caption = ""End SubPrivate Sub Command16_Click()A = Label1.CaptionLabel2.Caption = "÷"Label1.Caption = ""End Sub
Private Sub Command17_Click()B = Val(Label1.Caption)If Label2.Caption = "+" ThenLabel3.Caption = Val(A) + Val(B)Else If Label2.Caption = "-" Then Label3.Caption = Val(A) - Val(B) Else If Label2.Caption = "×" Then Label3.Caption = Val(A) * Val(B) Else Label3.Caption = Val(A) / Val(B) End If End IfEnd IfEnd Sub
Private Sub Command18_Click()Label1.Caption = Label1.Caption & "0"End SubPrivate Sub Command19_Click()Label1.Caption = Val(Label1.Caption) & "."End SubPrivate Sub Command2_Click()Label1.Caption = Label1.Caption & "2"End SubPrivate Sub Command3_Click()Label1.Caption = Label1.Caption & "3"End SubPrivate Sub Command4_Click()Label1.Caption = Label1.Caption & "4"End SubPrivate Sub Command5_Click()Label1.Caption = Label1.Caption & "5"End SubPrivate Sub Command6_Click()Label1.Caption = Label1.Caption & "6"End SubPrivate Sub Command7_Click()Label1.Caption = Label1.Caption & "7"End SubPrivate Sub Command8_Click()Label1.Caption = Label1.Caption & "8"End SubPrivate Sub Command9_Click()Label1.Caption = Label1.Caption & "9"End Sub
展开
 我来答
  • 你的回答被采纳后将获得:
  • 系统奖励15(财富值+成长值)+难题奖励30(财富值+成长值)
syx54
2015-03-12 · TA获得超过7378个赞
知道大有可为答主
回答量:6567
采纳率:83%
帮助的人:2707万
展开全部

给你做一个,自己看。

本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
--
2022-12-05 广告
图形化编程简单理解为用积木块形式编程,scratch和python也是其中的一种,属于入门级编程,以其简单生动的画面获得无数学生的喜爱,深圳市创客火科技有限公司是一家做教育无人机的公司,旗下有编程无人机,积木无人机及室内外编队,每款飞机含有... 点击进入详情页
本回答由--提供
cjn20090821
2015-03-13 · 超过41用户采纳过TA的回答
知道小有建树答主
回答量:80
采纳率:0%
帮助的人:65.7万
展开全部
实际上就是把加减乘除的状态要记清楚,然后再对应的变量累积上去!很简单的软件,如果自己做完了,倒是收获不少。努力吧!
追问
问题是怎么在label清零之前把数字记录下来?我把label1.caption赋值给A,但是经过测试,A没有具体数字,连零都不是。我刚学这东西没几天,麻烦讲解一下
追答
定义一个全局变量,每次要操作后把值信息都存储到这个全局变量中,LABEL1中的值就取这个全局变量里的值就可以了。。。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式