[中学教育]用VB设计一个简单的计算器

[中学教育]用VB设计一个简单的计算器[中学教育]用VB设计一个简单的计算器 VB大作业报告程序功能介绍: 计算器可以进行简单的。加、减、乘、除、乘方、开方、阶乘、取余和清零。主要源程序: 设置程序从form2启动。首先出来一个展示界面，内容包括自己的姓名、班级和所做的课题。等待时间是3秒。 Private Sub Form_Load() Label4.Caption = "3" End Sub Private Sub Timer1_Timer() “倒计时，当倒计时为0时，一界面隐藏弹出二界面” Label4.Caption...

[中学教育]用VB设计一个简单的计算器 VB大作业报告程序功能介绍: 计算器可以进行简单的。加、减、乘、除、乘方、开方、阶乘、取余和清零。主要源程序: 设置程序从form2启动。首先出来一个展示界面，内容包括自己的姓名、班级和所做的课题。等待时间是3秒。 Private Sub Form_Load() Label4.Caption = "3" End Sub Private Sub Timer1_Timer() “倒计时，当倒计时为0时，一界面隐藏弹出二界面” Label4.Caption = Label4.Caption - 1 If (Label4.Caption = "0") Then Form1.Hide Form2.Show End If End Sub 解释:定时器以一定的时间间隔产生Timer事件从而执行相应的时间过程。当form2消失后，form3开始运行。用户名与密码正确时form3消失form出现。进入计算器的主要界面。 Private Sub Command1_Click() If Text1.Text <> "******" Then MsgBox "用户名错误，请重新输入" Text1.SetFocus End If If Text2.Text <> "123" Then MsgBox "密码不正确，请重新输入" Text2.SetFocus ElseIf Text1 = "******" And Text2 = "123" Then Form2.Hide Form3.Show End If End Sub Private Sub Text1_Change() End Sub 解释:利用Msgbox判断输入数据的正确性，否则不允许登录。然后进入计算器界面: 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 Private Sub Command6_Click() Text3.Text = Str(Val(Sqr(Text1.Text)))“开方运算” End Sub Private Sub Command5_Click() Text1.Text2 = Str(Val(Text1.Text) * Val(Text1.Text)) “乘方运算”End Sub Private Sub Command7_Click() Text1 = "" Text2 = "" “清零” Text3 = "" End Sub Private Sub Command8_Click() Dim a#, s# s = 1 a = Val(Text1) For i = 1 To a “阶乘运算” s = s * i Text3 = s Next i End Sub Private Sub Command9_Click() Text3 = Str(Val(Text1) Mod (Text2)) “除法取余” End Sub Private Sub Text1_Change() End Sub

                    本文档为【[中学教育]用VB设计一个简单的计算器】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

你可能还喜欢

最新资料

资料动态

专题动态

is_650122

暂无简介~

格式：doc

大小：14KB

软件：Word

页数：0

分类：企业经营

上传时间：2017-10-26

浏览量：9

热点搜索

牛津英语模块7unit3project分享资料社区室外场地硬化铺装工程可行性研究报告生产安全事故调查处理及报告制度 YASKAWA安川-AC伺服驱动器 Σ-7综合样本直线电机篇(Linear) 我的女朋友【八年级作文】【doc】闽江口水下三角洲的形成与演变：Ⅲ三角洲前缘与前三角洲磁场对电流的作用PPT教学课件办公室室内装修预算报价表脱硫系统泵用机械密封技术协议荆楚理工学院课程教学进程表(大学物理14秋) (1) 沪剧红梅赞主持词讲解员面试题目湘教版二年级音乐1月份检测题灶具成品检测标准牛津英语模块7unit3project分享资料社区室外场地硬化铺装工程可行性研究报告生产安全事故调查处理及报告制度 YASKAWA安川-AC伺服驱动器 Σ-7综合样本直线电机篇(Linear) 我的女朋友【八年级作文】【doc】闽江口水下三角洲的形成与演变：Ⅲ三角洲前缘与前三角洲磁场对电流的作用PPT教学课件办公室室内装修预算报价表脱硫系统泵用机械密封技术协议荆楚理工学院课程教学进程表(大学物理14秋) (1) 沪剧红梅赞主持词讲解员面试题目湘教版二年级音乐1月份检测题灶具成品检测标准