手抄报 安全手抄报 手抄报内容 手抄报图片 英语手抄报 清明节手抄报 节约用水手抄报

如何制作计算器

时间:2024-10-18 20:31:13

1、打开vb,新建“标准EXE”窗口

如何制作计算器

2、先添加一个“Labe”,画在你喜欢的位置,作为显示答案的窗口

如何制作计算器

3、然后再添加两个“TextBox",作为输入1和输入2.

如何制作计算器

4、接下来开始添加按钮

5、先添加一个“CommandButton"

如何制作计算器

6、双击按钮,输入:Label1.Caption=Val(Text1.Text)+Val(Text2.Text)该代码表示当按下该按钮时,Labe显示的内容为输入1和输入2的和。

如何制作计算器

7、以此类推,使用相同方法添加其他按钮,分别为:+、-、*、/和幂。效果如右图:

如何制作计算器

8、程序如图

如何制作计算器

9、有人会说:那些CommandButton、Text能不能换成+、-或其他东东?回答是:可以!

10、单击一个按钮,在右侧的属性栏里更改,如图所示:

如何制作计算器
如何制作计算器

11、同理,其他按钮也可以更改。包括Labe1,Text1,Text2也一样,不过最好清空。但要注意改名称的时候,Text1和Text2的前面的名称栏里是Text,而不是Caption!!

如何制作计算器

12、运行窗口也可以改名称哦!同理,单机Form1,在右侧也可以更改!(如果你会更改名称,请不要离开,在第步开始还要进行完善按钮哦!)

如何制作计算器
如何制作计算器

13、辣木,我们开始完善一下按钮吧!

14、继续添加三个按钮,分别为:输入1清空,输入2清空,全部清空。输入1清空按钮的程序:Private Sub Command6_Click()Text1.Text = ""Label1.Caption = ""End Sub输入2清空按钮的程序:Private Sub Command7_Click()Text2.Text = ""Label1.Caption = ""End Sub

如何制作计算器
如何制作计算器

15、当进行一些不可后退的步骤时,要弹出提示窗口,比如全部清空命令和退出程序命令。那么,不多说了,代码如下:myexit = MsgBox("您确定完全清空吗?", vbExclamation + vbYesNo + vbDefaultButton2, "清空...")If myexit = vbNo ThenCancel = tureEnd IfText1.Text = ""Text2.Text = ""Label1.Caption = ""Private Sub Form_Unload(Cancel As Integer)myexit = MsgBox("您确定退出此程序吗?", vbExclamation + vbYesNo + vbDefaultButton2, "退出确认...")If myexit = vbNo ThenCancel = TrueEnd IfEnd Sub

如何制作计算器

16、这篇经验就到这里了,谢谢大家!

© 手抄报圈