多语言展示
当前在线:1332今日阅读:19今日分享:20

如何制作计算器

电脑计算器玩腻了,那就自己编一个计算器吧!
工具/原料
1

笔记本电脑或台式机

2

vb软件

方法/步骤
1

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

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

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

推荐信息