VB 程序设计报告.doc_第1页
VB 程序设计报告.doc_第2页
VB 程序设计报告.doc_第3页
VB 程序设计报告.doc_第4页
VB 程序设计报告.doc_第5页
已阅读5页,还剩1页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

VB 程序设计报告 设计题目:科学型简单计算器 (1) 程序简介 窗体出现后为一个科学型简单计算器,可实现简单的加减乘除运算,具有清零及退出功能。(2) 程序用到的主要控件 窗体(form),文本框(textbox),命令按钮(command button)(3) 程序用到的核心代码: 1.Select Case 语句 2.If Then ElseIf语句(4) 程序的调试 在程序的调试过程中遇到的最大困难是: 1. 我所选择的程序是简单计算器到科学型计算器之间的转换中的简单计算器的程序设计,所以有些涉及到科学型计算器中的问题不是很了解,也时常会有一些提示框出现,但是能实现最基本的加减乘除计算。 2.由于自己知识水平有限,本程序中会有一些代码不甚了解。(5) 附件本程序所有的程序代码及注释如下:Dim i%, fh%, oput#(定义i ,fh为整形,定义oput为双精度浮点型)Private Sub Command1_KeyPress(Index As Integer, KeyAscii As Integer) (文本框的键盘事件过程,索引及键盘输入后的传输程序的ASCII码定义为整型) Select Case KeyAscii(分情况语句,执行时根据变量或表达式的不同值来决定执行不同的处理) Case 13: Command1_Click (16) Case 42: Command1_Click (13) Case 43: Command1_Click (11) Case 45: Command1_Click (12) Case 47: Command1_Click (14) Case 48: Command1_Click (0) Case 49: Command1_Click (1) Case 50: Command1_Click (2) Case 51: Command1_Click (3) Case 52: Command1_Click (4) Case 53: Command1_Click (5) Case 54: Command1_Click (6) Case 55: Command1_Click (7) Case 56: Command1_Click (8) Case 57: Command1_Click (9) End SelectEnd SubPrivate Sub Command1_Click(Index As Integer) Select Case Index 根据测试表达式的值,按顺序匹配各个Case 后面的表达式,成功则执行后面语句块,转到End Select 后语句继续执行;不匹配则继续执行后面语句块,再转到End Select 后语句继续执行。 Case 0 To 9 Text1.Text = Text1.Text & Index Case 10 Text1.Text = Text1.Text & . Case 11 To 14 oput = Text1.Text If Index = 11 Then fh = 1 Text2.Text = Text1.Text & + ElseIf Index = 12 Then fh = 2 Text2.Text = Text1.Text & - ElseIf Index = 13 Then fh = 3 Text2.Text = Text1.Text & * ElseIf Index = 14 Then fh = 4 Text2.Text = Text1.Text & / End If Text1.Text = Case 16 Text2.Text = Text2.Text & Text1.Text & = If fh = 1 Then Text1.Text = Text1.Text + oput ElseIf fh = 2 Then Text1.Text = oput - Text1.Text ElseIf fh = 3 Then Text1.Text = oput * Text1.Text ElseIf fh = 4 Then Text1.Text = oput / Text1.Text End If oput = Text1.Text Text1.Text = Format(Text1.Text, 0.00000000) If oput Text1.Text Then Text3.Text = 保留六位小数 Else Text3.Text = End If Case 17 Text1.Text = Text2.Text = oput = 0 Case 18 End End SelectEnd Sub(6) 经验心得 根据这学期的学习,利用课本上的知识,同时通过网上浏览代码,综合起来写出了一些简单的程序。虽然我的科学型简单计算器是在源码天空网站上下载的,但是在程序的后期改造过程中,我认识到:在进行课程设计时首先要对各个空间的常用属性有初步了解及一些属性值的应用条件;其次在编写程序代码时应细心书写,每一

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论