VB课程设计-计算器程序设计

admin管理员组

文章数量:1530518

2023年12月12日发(作者：)

课程设计报告

VB课程设计

课程设计题目：计算器程序设计

姓名：

学号： *

专 业 : 电子信息工程

班 级: :

指导教师 :

0

摘要

VisualBasic 6.0 是一款可视化的，面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发windows 环境下的种类应用程序。它简单易学，效率高，且功能强大，可以与Windows专业开发工具相媲美。在VisualBasic环境下，利用事出有因件驱动的编程机制，新颖易用的可视化工具，使用Windows内部的广泛应用程序接口(API)函数，运用动态链接库（DLL），对象的链接与嵌入（OLE）,开放式数据连接（ODBC）等技术，可以高效，可以快速地开发Windows环境不功能强大，图形界面丰富的程序。

为了适应信息化时代的需求，各高校对大多数专业都开设了一定的计算机语言课程，有的讲授VisualBasic语言。VisualBasic以其语法简单，可视化设计，功能强大，为许多学校计算机语言课程的首选语言。

目前国内各出版了大量的VisualBasic语言教程，它们都具有同样的特点：介绍语言的语法等基本知识，再辅助一些简单的示例。学生通过学习，可能能够考一个不错的成绩，但所掌握的仍然是一些支离破碎的知识，不能将所有的知识融会贯通，遇到具体的程序设计，还是无从下手。

这次我要做的是计算器，通过这样程序设计，我们可以学到好多关于VB语言的使方法，熟悉VisualBasic 6.0的运行1

环境，快速掌握VB语言！小小的计算器是我们学VB初级语言的最好课程 。

2

目录

一 功能描述 .............................................. 4

1．功能 ............................................... 4

2. 实验目的 .......................................... 4

二 概要设计 .............................................. 6

1.界面设计 ............................................ 6

2.代码编辑 ............................................ 8

三 详细设计 ............................................. 14

四 心得体会 ............................................. 16

五 参考文献 ............................................. 18

3

一 功能描述

1．功能

可以简单计算加减乘除四则运算，可以简单计算三角函数运算的简易计算器。

2.实验目的

这次我要做的是计算器，通过这样程序设计，我们可以学到好多关于VB语言的使方法，熟悉VisualBasic 6.0的运行环境，快速掌握VB语言！小小的计算器是我们学VB初级语言的最好课程 。

4

5

二 概要设计

1.界面设计

添加8个控制按扭，Command1~ Command8

图1

接着设计好按扭的位置，有功能键如下：

6

图2

修改键后，各功能键如图3

7

图3

2.代码编辑

Dim chr As String '定义函数变量等

Dim Dianal As Boolean

Dim Fuhao As Boolean

Dim FuhaoZhuangtai As String

Dim dian As Boolean

Dim F As Double

Dim FirstNumber, NumbumBuf As Double

Private Sub Command1_Click(Index As Integer)

dian = False 'TEXT1显示的是 chr

chr = Val(Index)

8

If = "0" Then

= chr

Else

= + chr

End If

NumbumBuf = Val()

End Sub

Private Sub Command2_Click(Index As Integer)

Select Case Index

Case 0 '平方运算

Val()

Case 1 '开平方运算

If > 0 Then

= Sqr(Val())

Else

MsgBox "开平方数不能为负数,你小学白上了啊?", , 64 + vbOK

End If

Case 2 '倒数运算

If <> 0 Then = 1 /

9

= Val() * Val()

Exit Sub

Case 3 '阶乘

If > 0 Then

"错误"

Call fact(, F)

= F

Else

Exit Sub

End If

Case 4 'Inx 运算

= Exp(Val())

Case 5 '指数运算

If Val() > 0 Then

= Log(Val())

Else

MsgBox "条件错误", vbInformation + vbYes,

End If

Case 6 '下面两个都为简单三角函数运算

= Sin(Val())

Case 7

= Cos(Val())

10 End Select

End Sub

Private Sub Command3_Click()

If Dianal = False Then '定义小数点的代码

= + "."

Dianal = True

End If

End Sub

Private Sub Command4_Click()

Dianal = False '等号键上的代码，方便下面四则运算

Fuhao = False

Select Case FuhaoZhuangtai

Case 0

= Val(FirstNumber) + Val(NumbumBuf)

Case 1

= Val(FirstNumber) - Val(NumbumBuf)

Case 2

= Val(FirstNumber) * Val(NumbumBuf)

Case 3

= Val(FirstNumber) / Val(NumbumBuf)

11

End Select

FirstNumber =

dian = False

End Sub

Private Sub Command5_Click()

If dian = False Then '退格键的代码

dian = True

= Left(, Len() -

1)

Else

dian = False

= Left(, Len() - 1)

End If

End Sub

Private Sub Command6_Click(Index As Integer)

If Fuhao = False Then '关与加减乘除的代码

FuhaoZhuangtai = Index

Fuhao = True

Dianal = False

FirstNumber = NumbumBuf

12

= "0"

dian = False

End If

End Sub

Private Sub Command7_Click(Index As Integer)

Select Case Index '清零重置的代码

Case 0

= "0"

dian = False

Case 1

= "0"

NumbumBuf = "0"

Dianal = False

Fuhao = False

FirstNumber = "0"

dian = False

End Select

End Sub

Private Sub Form_Load()

= "0" '窗口描述

End Sub

13

Private Sub fact(N As Integer, F As Double)

Dim Mm As Integer '阶乘运算公式

F = 1

For Mm = 1 To N

F = F * Mm

Next Mm

End Sub

三 详细设计

Command1 的caption属性改为1。

Command2 的caption属性跟据 index依次改为：平方，开平方，1/x，N!，指数,Inx

,Sin , Cos.

From1的maxtton属性 改为false ，Moveable 属性改为

true。Startupposito属性改为 2-屏幕中心。

14

Text1的 dateformat属性改为 通用！

15

四 心得体会

这次我要做的是计算器，虽然是一个小小的计算器，通过这样程序设计，对与我们初学者来说可以学到好多关于VB语言的使方法，熟悉VisualBasic 6.0的运行环境，快速掌握VB语言！小小的计算器是我们学VB初级语言的最好课程 。-

在这几天VB编程学习，使我们对VisualBasic 6.0 的运行环境更加的熟悉，掌握VB语言同时，我们对计算机的理解更加深一层的认识，深深的体会到计算机的强大，

为了适应信息化时代的需求，各高校对大多数专业都开设了一定的计算机语言课程，有的讲授VisualBasic语言。VisualBasic以其语法简单，可视化设计，功能强大，为许多学校计算机语言课程的首选语言。

目前国内各出版了大量的VisualBasic语言教程，它们都具有同样的特点：介绍语言的语法等基本知识，再辅助一些简单的示例。学生通过学习，可能能够考一个不错的成绩，但所掌握的仍然是一些支离破碎的知识，不能将所有的知识融会贯通，遇到具体的程序设计，还是无从下手。

现在我们对VisualBasic语言是深层的理解。

16

制做这小小的计算器，不仅丰富了自己对计算机的认识，熟悉了计算机的语言！

17

五 参考文献

1.《VisualBasic 程序设计上机指导与习题解答》、《VisualBasic程序设计》

--------机械工业出版社

2.《VisualBasic程序设计》------------------------------------北京邮电大学出版社

3.《VisualBasic程序设计完全自学手册》--------------------人民邮电出版社

18

本文标签： 语言程序设计代码环境计算机