导航:首页 > 编程知识 > vb编程计算器怎么用

vb编程计算器怎么用

发布时间:2023-10-16 04:18:48

1. 如何用VB做简易的四则运算计算器

很简单的:窗口放入四个COMMAND控件(Caption属性分别为+、-、X、÷),三个TEXT控件,再放入三个Label控件(Caption属性分别为:操作数1、操作数2和计算结果),窗口的Caption属性改为“四则运算”
代码如下:
Private Sub Command1_Click()
If Val(Text1.Text) + Val(Text2.Text) <> Int(Val(Text1.Text) + Val(Text2.Text)) Then
Text3.Text = Format(Val(Text1.Text) + Val(Text2.Text), "0.######")
Else
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End If
End Sub
Private Sub Command2_Click()
If Val(Text1.Text) - Val(Text2.Text) <> Int(Val(Text1.Text) - Val(Text2.Text)) Then
Text3.Text = Format(Val(Text1.Text) - Val(Text2.Text), "0.######")
Else
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End If
End Sub
Private Sub Command3_Click()
If Val(Text1.Text) * Val(Text2.Text) <> Int(Val(Text1.Text) * Val(Text2.Text)) Then
Text3.Text = Format(Val(Text1.Text) * Val(Text2.Text), "0.######")
Else
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End If
End Sub
Private Sub Command4_Click()
If Val(Text1.Text) / Val(Text2.Text) <> Int(Val(Text1.Text) / Val(Text2.Text)) Then
Text3.Text = Format(Val(Text1.Text) / Val(Text2.Text), "0.######")
Else
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End If
End Sub

2. 怎样用vb编程一部简单的计算器呢

1、打开VB新建一个EXE。

3. 如何用vb编写简单计算器

不知道你想要哪种,偶是新手,只会最简单的
首先拖出三个text,再拖出4个Command按钮 caption分别为+ - * / 这样就准备就绪了
先讲一下简单用法,第一个text是第一个加数/被减数/因数/被除数,而第二个text是第二个加数/减数/因数/除数,第三个text是和/差/积/商,在text1输入一个数,text2输入一个,然后分别点击command“+ - * /”text3就会出现结果
然后随便单击一个窗口,把里面的文字删去,再写上:
Private Sub Command1_Click()
Text3.Text = Str$(Val(Text1.Text) + Val(Text2.Text))
End Sub

Private Sub Command2_Click()
Text3.Text = Str$(Val(Text1.Text) - Val(Text2.Text))
End Sub

Private Sub Command3_Click()
Text3.Text = Str$(Val(Text1.Text) * Val(Text2.Text))
End Sub

Private Sub Command4_Click()
Text3.Text = Str$(Val(Text1.Text) / Val(Text2.Text))
End Sub
然后运行,应该就可以了

阅读全文

与vb编程计算器怎么用相关的资料

热点内容
苹果手机如何一页只留几个app 浏览:987
投标文件约定项包括哪些 浏览:920
如何学会人工智能编程 浏览:889
手机qq传的文件在哪 浏览:370
win10关闭数字证书 浏览:693
电脑字体放在哪个文件夹 浏览:27
开两个相同版本cad 浏览:785
苹果的文件用什么打开方式 浏览:582
电脑文件的分类 浏览:598
2010word清除格式 浏览:221
怎么把文件名插入excel 浏览:460
我的电脑文件排列 浏览:827
海岛奇兵61级升级经验 浏览:182
数据中心电表最大多少 浏览:622
电脑微信收的文件 浏览:522
jsp页面前端科学记数 浏览:647
javaint占内容长度 浏览:35
编程和下棋哪个更能锻炼思维能力 浏览:833
如何在手机上下载微云文件 浏览:908
word局部放大 浏览:640

友情链接