




下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、精选优质文档-倾情为你奉上综 合 性 实 验实 验 名 称: 用vb编写简单计算器 专 业 班 级: 土 木 工 程 0901班学 生 姓 名: *学 号: *指 导 教 师: *1 需求分析该计算器程序是在Visual Basic6.0环境下编写,编写完成后在Windows xp下运行,通过初步测试,发现该计算程序能完成整数的加,减,乘,除四种运算。通过在虚拟键盘上用鼠标点击输入第一个数,然后点击运算符,再输入第二个数,最后点击“=”就会在计算器上方的文本框中输出结果,清空文本框进行下次运算。经过仔细测试发现,该计算器最高支持五位整数的运算,在除法运算中能精确到小数点后14位。2 运行环境W
2、INDOWS XP系统;VB6.0;3开发工具和编程语言开发工具:Visual Basic6.0“微型整值计算器”程序编写代码:Dim op1 As IntegerDim op2 As IntegerDim operator As StringPrivate Sub Command1_Click() Text1.Text = Text1.Text & "1"End SubPrivate Sub Command2_Click() Text1.Text = Text1.Text & "2"End SubPrivate Sub Command3
3、_Click() Text1.Text = Text1.Text & "3"End SubPrivate Sub Command4_Click() Text1.Text = Text1.Text & "4"End SubPrivate Sub Command5_Click() Text1.Text = Text1.Text & "5"End SubPrivate Sub Command6_Click() Text1.Text = Text1.Text & "6"End SubPriv
4、ate Sub Command7_Click() Text1.Text = Text1.Text & "7"End SubPrivate Sub Command8_Click() Text1.Text = Text1.Text & "8"End SubPrivate Sub Command9_Click() Text1.Text = Text1.Text & "9"End SubPrivate Sub Command11_Click() Text1.Text = Text1.Text & "0
5、"End SubPrivate Sub Command10_Click() op1 = Val(Text1.Text) operator = "+" Text1.Text = ""End SubPrivate Sub Command12_Click() op1 = Val(Text1.Text) operator = "-" Text1.Text = ""End SubPrivate Sub Command13_Click() op1 = Val(Text1.Text) operator = "
6、*" Text1.Text = ""End SubPrivate Sub Command14_Click() op1 = Val(Text1.Text) operator = "/" Text1.Text = ""End SubPrivate Sub Command15_Click() op2 = Val(Text1.Text) If operator = "+" Then Text1.Text = op1 + op2 ElseIf operator = "-" Then Text1.
7、Text = op1 - op2 ElseIf operator = "*" Then Text1.Text = op1 * op2 ElseIf operator = "/" Then Text1.Text = op1 / op2 End IfEnd Sub4 系统设计(1)程序的组织结构(包括窗体、模块及其功能)。窗体模块:用来包含sub与事件过程窗口:用来承载控件,包括按钮控件、文本框控件、标签控件。 控件:按钮控件用来输入数据与运算符号,文本框控件用来显示输入的数值以及最后的运算结果,标签控件显示标签既该程序的自定义名称。 Sub过程:通过代码的
8、编写使窗口上的控件能在程序运行时有特殊的作用,使命令按钮能产生相应的数值,运算按钮产生相应的运算过程,及文本框中显示相应结果。(2)每个窗体(模块)详细描述设计思路。I. 首先打开新建工程,创建一个forml窗口,并在窗口中放入控件。分别放入一个标签控件,一个文本框控件和15个按钮控件,调整各控件的大小和位置,使其布局如下图示。II. 调 整 各 控 件 的 属 性 值。 单击标签控件,将其caption属性 设置为“微型整 值计 算器”并将fount属性 设 置 为 粗 体,小四。将文本框清空,然后依次设置command1command15的caption属性分别为数字“110”和运算符“+
9、”“-”“*”“/”以及“=”。III. 编写控件触发事件过程代码。先声明三个变量:两个整值和一个字符串。然后编写command1command10的click事件使用赋值语句,在文本框中显示相应数值。再编写command11command14的click事件,使用赋值语句赋予相应运算符,并将文本框中字符串转换为数值型赋值给第一个变量,清空文本框。编写command15的click事件代码,将第二次输入的字符串转换为数值型赋给第二个变量,并用块结构条件语句分别编写四种运算过程。IV. 完成后进行调试,修改,运行,测试。5 系统运行及测试(1) 几组测试数据以及相应的测试结果: 运算10/3的结果 运算14*3的结果 运算78+20的结果(2) 运行界面:6 参考文献1 郭晓君、谢日行,visual basic程序设计教程,黄河水利出版社2 龚沛曾、杨志强、陆慰民,visual basic程序设计实验指导与测试,高等教育出版社7心得体会在这次实验中,在vb环境下制作了一个标准exe工程,虽然结果比较令人满意,但是在制作过程中遇到了不少困难。在其中深深体会到了了解和掌握一门计算机语言并不容易,要真正学好它必须要付出足够的努力。我在这次实验中就查阅了相关资料,并通过与他人的相
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 【正版授权】 ISO 23698:2024 EN Cosmetics - Measurement of the sunscreen efficacy by diffuse reflectance spectroscopy
- 【正版授权】 ISO/IEC TR 24722:2024 EN Information technology - Biometrics - Multimodal and other multibiometric fusion
- 【正版授权】 ISO 16173:2025 EN Ships and marine technology - Jacking system appliances on self-elevating unit - Rack pinion leg fixation system
- 【正版授权】 ISO 1171:2024 EN Coal and coke - Determination of ash
- 2025年度玻璃隔断安装与品牌授权合同
- 2025年度金融科技企业员工试工合作协议
- 2025年度高速公路服务区草坪绿化与旅客服务合同
- 2025年度草种研发与市场推广合作协议
- 2025年度社会组织劳动合同范本解读与应用4篇
- 个人财务规划的重要阶段计划
- 《妇幼保健学》课件-第一章 绪论
- 10S505 柔性接口给水管道支墩
- 移动宽带注销委托书模板需要a4纸
- 初一下册期末模拟物理质量检测试卷解析1
- 《教育向美而生-》读书分享课件
- 中海地产总部-员工考核手册
- 左卡尼汀在减轻高原反应中的应用
- 《烹饪美学》课件-项目二 烹饪色彩
- 青海省西宁市选调生考试(行政职业能力测验)综合能力测试题汇编
- 2024年上海民航职业技术学院高职单招历年职业技能测验高频考点试题含答案解析
- 夏枯草口服液相关项目实施方案
评论
0/150
提交评论