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、这篇经验就到这里了,谢谢大家!