VB程序设计实训报告

VB程序设计

课程设计报告

科学计算器

专业：

班级：

学号：

姓名：

指导教师：

设计日期：

目录

第1章课程设计概述

1.1 科学计算器

1.2 任务要求

1.3 开发环境

第2章总体设计

2.1 系统功能需求分析

2.2 系统总体设计框架

2.3 系统各功能模块的目的与意义

第3章详细设计

3.1 主要功能模块的算法设计思路

第4章调试分析过程描述

4.1 测试输出结果

4.2 对程序调试过程中存在问题的思考

第5章课程设计体会

5.1 课程设计过程中的学习体会与收获

5.2 对VB语言和本次课程设计的认识第6章附录

6.1 源程序代码

6.2 参考文献及网站

第1章课程设计概述

1.1 科学计算器

随着电子技术的发展，计算机的功能越来越强大，精度越来越高，性能越来越好，可以实现复杂的科学计算，Windows系统也自带了一个功能强大的计算器。本次课设要设计一个科学计算器，除了基本的四则运算之外，还有三角与反三角、对数与反对数、乘方与幂运算等。

科学计算器除了具有普通计算器的标准功能之外，还具有很多其他数据计算功能。

1.2 任务要求

学生利用学到的面向对象的基本原理和VB语言语法以及编程技巧，通过灵活应用VB 6.0集成开发环境进行应用程序和系统的开发设计，掌握可视化程序设计的基本方法和步骤，强化巩固已有编程知识，训练新的设计与编程思路，帮助熟悉程序编写，及时查究错误，具体要求如下：

1.整个课程设计的各个环节学生自己动手。

2.每个学生可从前6个题目选做2题，或从后两题中选做一题。

3.写出相应的算法分析和源代码。

4.要求上机调试通过。

5.对课程设计进行总结，撰写课程设计报告。

1.3 开发环境

1.3.1 硬件环境

中央处理器：intelpentium(R)*********(32位)

内存：512MB(400MHz)

显卡：NVIDIA Geforce @ 64 MB

1.3.2 软件环境

操作系统：Windows 8.1 中文版

开发软件：visual basic 6.0

第2章总体设计

2.1 系统功能需求分析

本次课设设计的科学计算器包括以下功能：

1.具有小数点后10位以上的精度。

2.可以直接输出随机数、圆周率、自然对数的底数和重力加速度等常用常数。

3.可以输入0~9、00、小数点等数字或数学符号，并能对数字取反。

4.能够计算加、减、乘、除四则运算。

5.可以计算倒数、平方、立方、开方和任意乘方或幂指运算，以及阶乘运算。

6.能够计算以10为底的对数和自然对数，以及自然对数为底的幂运算。

7.具有三角与反三角函数的计算功能，并能在角度、弧度和梯度之间进行换算。

8.可以将数据记录到内存中，并能将输入的数据和内存中的数据进行四则运算。

9.能够实现数据的统计计算，包括和、平均值和方差。

10.可以对计算或输入的结果进行复制，也能通过粘贴方式向计算器输入数字。

2.2 系统总体设计框架

2.3 系统各功能模块的目的与意义

1)sin、cos、tan、ATn按钮

分别求某个数值/角度/弧度的正弦、余弦、正切、反正切值。

2)Exp、Rnd按钮

分别返回e的x次幂和取[0，999999999）之间的随机数，而mod保证了随机数是整数。

3)角度、弧度按钮

计算sin、cos、tan、ATn时进行转换。

第4章调试分析过程描述 4.1 测试输出结果

4.2 对程序调试过程中存在问题的思考

第5章课程设计体会

5.1 课程设计过程中的学习体会与收获

经过两天的上机实践学习，使我对VB有了更进一步的认识和了解，要想学好它要重在实践，要通过不断的上机操作才能更好地学习它，通过实践，我也发现我的好多不足之处，首先是自己在指法上还不行，经常按错字母，通过学习也有所改进；再有对VB的一些标准库函数不太了解，还有对函数调用的正确使用不够熟悉，还有对VB中经常出现的错误也不了解，同时在设计的过程中发现了自己的不足之处，对以前所学过的知识理解得不够深刻，掌握得不够牢固，通过实践，使我在这几个方面的认识有所提高。

5.2 对VB语言和本次课程设计的认识

通过实践的学习，我认到学好计算机要重视实践操作，不仅仅是学习VB，还是其它的语言，以及其它的计算机方面的知识都要重在实践，所以后在学习过程中，我会更加注视实践操作，使自己便好地学好计算机。

第6章附录

6.1 源程序代码

Dim numl As Double............................................’用来存放第一个操作数

Dim op As Integer.................................................’用来记录操作符的Index值

Private Sub Command1_Click()

End ................................................................. ....’’OFF’操作

End Sub

Private Sub Command2_Click(Index As Integer)

Select Case Index

Case 0 To 9....................................................’数字0~9

Text1.Text = Text1.Text & Index

End Select

End Sub

Private Sub Command3_Click(Index As Integer)

Dim z As Integer

Select Case Index

Case

0 ..................................................................’小数点

If InStr(Text1.Text, ".") Then

Text1.Text = Text1.Text & "."

End If

Case 1 To 4 ..........................................................’加、减、乘、除

numl = Val(Text1.Text)

op = Index

Text1.Text = ""

Case 5..................................................................’正负

Text1.Text = -Val(Text1.Text)

Case

6 .................................................................’等号

If op = 1 Then

If Val(Text1.Text) = 0 Then

MsgBox "分母不能为0，请重新输入"