VB 程序设计报告

《VB 程序设计报告》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VB程序设计报告设计题目：科学型简单计算器（一）程序简介窗体出现后为一个科学型简单计算器，可实现简单的加减乘除运算，具有清零及退出功能。（二）程序用到的主要控件窗体（form），文本框（textbox）,命令按钮（commandbutton）(三)程序用到的核心代码：1.SelectCase语句2.If…Then…ElseIf语句（四）程序的调试在程序的调试过程中遇到的最大困难是：1.我所选择的程序是简单计算器到科学型计算器之间的转换中的简单计算器的程序设计，所以有些涉及到科学型计算器中的问题不是很了解，也时常会有一些提示框出现，但是能实现最基本的加减乘除计算。2

2、.由于自己知识水平有限，本程序中会有一些代码不甚了解。（五）附件本程序所有的程序代码及注释如下：Dimi%,fh%,oput#（定义i,fh为整形，定义oput为双精度浮点型）PrivateSubCommand1_KeyPress(IndexAsInteger,KeyAsciiAsInteger)(文本框的键盘事件过程，索引及键盘输入后的传输程序的ASCII码定义为整型)SelectCaseKeyAscii（分情况语句，执行时根据变量或表达式的不同值来决定执行不同的处理）Case13:Command1_Click(16)Case42:Command1_Click(

3、13)Case43:Command1_Click(11)Case45:Command1_Click(12)Case47:Command1_Click(14)Case48:Command1_Click(0)Case49:Command1_Click(1)Case50:Command1_Click(2)Case51:Command1_Click(3)Case52:Command1_Click(4)Case53:Command1_Click(5)Case54:Command1_Click(6)Case55:Command1_Click(7)Case56:Command1

4、_Click(8)Case57:Command1_Click(9)EndSelectEndSubPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndex根据测试表达式的值，按顺序匹配各个Case后面的表达式，成功则执行后面语句块，转到EndSelect后语句继续执行；不匹配则继续执行后面语句块，再转到EndSelect后语句继续执行。Case0To9Text1.Text=Text1.Text&IndexCase10Text1.Text=Text1.Text&"."Case11To14oput=Text1.Tex

5、tIfIndex=11Thenfh=1Text2.Text=Text1.Text&"+"ElseIfIndex=12Thenfh=2Text2.Text=Text1.Text&"-"ElseIfIndex=13Thenfh=3Text2.Text=Text1.Text&"*"ElseIfIndex=14Thenfh=4Text2.Text=Text1.Text&"/"EndIfText1.Text=""Case16Text2.Text=Text2.Text&Text1.Text&"="Iffh=1ThenText1.Text=Text1.Text+oputElse

6、Iffh=2ThenText1.Text=oput-Text1.TextElseIffh=3ThenText1.Text=oput*Text1.TextElseIffh=4ThenText1.Text=oput/Text1.TextEndIfoput=Text1.TextText1.Text=Format(Text1.Text,"0.00000000")Ifoput<>Text1.TextThenText3.Text="保留六位小数"ElseText3.Text=""EndIfCase17Text1.Text=""Text2.Text=""oput=0Case18

7、EndEndSelectEndSub（四）经验心得根据这学期的学习，利用课本上的知识，同时通过网上浏览代码，综合起来写出了一些简单的程序。虽然我的科学型简单计算器是在源码天空网站上下载的，但是在程序的后期改造过程中，我认识到：在进行课程设计时首先要对各个空间的常用属性有初步了解及一些属性值的应用条件；其次在编写程序代码时应细心书写，每一个语句的微小错误都有可能使程序无法正常运行而出错。在进行VB程序选择前期，我因为对某些控件的各个属性或多或少有些不懂，每次都查阅教科书，但通过查阅后，我受益匪浅，我了解了VB的知识体系，开阔了思路并且渐渐对VB产生了兴趣。