VB课程设计

目录。一、可行性与需求分析 2

1. 计算机的发展与应用 2

2.开发背景 3

3.功能需求 3

4.性能需求 4

的特点及vb开发程序的步骤 4

6.系统总体结构设计 4

6.窗体及控件设计 4

1）控件设计属性 4

2)窗体及控件设计抓图 5

二、编制程序** 6

1.设计及编程要点 6

2.通用模块 6

3.各功能模块 8

1）对象名称：form 8

2）对象名称：command 8

三、测试 9

1.功能测试（输入、输出） 9

四、编译 11

五、结束语 12

参考文献】 13

2023年，世界上第一台通用电子数字计算机eniac（electronic numerical integrator and calculator）在美国的宾夕法尼亚大学研制成功。eniac的研制成功，是计算机发展史上的一座里程碑。该计算机最初是为了分析和计算炮弹的弹道轨迹而研制的。

自从世界上第一台问世到现在，计算机技术获得了突飞猛进的发展。第一代电子管计算机体积大，耗电量大，寿命短，可靠性低，成本高，软件尚未形成系统，应用程序编制耗费大量人力。

第二代晶体管计算机，体积减小，重量减轻，能耗降低，成本下降，计算机的可靠性和运算数度均得到提升。第三代集成电路计算机，具有良好的性能和较高的可靠性，它促进了计算机的推广和应用。到后来的大规模、超大规模集成电路计算机，性能空前提高，使得计算机广泛应用于各行各业，飞入了千家万户。

随着计算机的不断更新与发展，计算机扮演着极为重要的角色，发挥着不可替代的作用。windows环境下的visual basic提供了丰富的图形功能。本课程设计主要通过对方案设计、界面设计、**编写、程序调试及软件使用说明等的介绍，利用visual basic对“计算器”应用软件的开发设计过程，并分析开发软件系统的不足和总结。

vb是美国微软公司于2023年开发的新型程序设计语言，可用于开发windows环境下的各类应用程序，visual basic是一种可视化、面向对象和采用事件驱动方式的结构化高级程序语言。它简单易学、容易掌握、效率高，可用于开发windows环境下功能强大、图形界面丰富的应用软件系统。

为了提高vb应用能力，开发简单的“计算器”软件，掌握vb的基本操作及应用。

简单的功能计算；涉及到的“正数”、“负数”、“小数”的运算；简单的函数计算（负数开方、不合理数据的计算）。

1）系统运行的硬件环境：p4cpu,256mb内存，20g硬盘。

2）系统运行的软件环境：windows 2000或windows xp，microsoft access 2000，vb6.0。

3）当前开发的硬件环境：intel (r) pentium(r) dual e2200,2g内存，40g硬盘。

4）当前开发的软件环境：windows xp，vb6.0。

1）特点：可视化编程；面向对象的程序设计；结构化程序语言设计；事件驱动编程机制。

2）步骤：用户界面设计；程序设计。

1）控件设计属性。

2)窗体及控件设计抓图。

1）减法的计算较复杂，“-既可以是负号，也可以是减号，需要分别判断和处理。

2）程序设计时，不能连续两次按“-”因此使用变量lastinputj记录上一次按键的类型。

3）小数点的处理，保证不能出现两个小数点。

定义窗体级变量。

option explicit

dim lastinput as string * 3 '记录上次按下的按键。

dim num1 as double '第一个操作数。

dim num2 as double '第二个操作数。

dim opttype as integer '按下哪一个操作符。

dim result as double '表示运算结果。

定义sub过程keyp

sub keyp(keynum as integer)

dim char as string * 1

char = chr(keynum)

if char = or keynum = 43 then command5(0).value = true

if char = or keynum = 45 then command5(1).value = true

if char = or keynum = 42 then command5(2).value = true

if char = or keynum = 47 then command5(3).value = true

if keynum >=48 and keynum <=57 then command1(keynum - 48).value = true

if keynum = 46 then = true

if ucase(char) =c" then = true

if keynum = 27 then = true

if keynum = 61 then = true

keynum = 0

end sub

定义函数过程阶乘jiech

function jiech(byval n as integer) as single

dim count as integer

jiech = 1

for count = 1 to n

jiech = jiech * count

next count

end function

1）对象名称：form

功能：是可用作定制应用程序界面的窗口，或用作从用户处收集信息的对话框。

**：private sub form_load()

加载窗体，变量初始化。

lastinput = nul"

num1 = 0

num2 = 0

opttype = 1

= true

end sub

2）对象名称：command

功能：单击事件。

**：private sub command1_click(index as integer)

当按下数字键（0-9）时，向文本框尾部追加数据。

并通过变量lastinput记录上次按键为数字键。

if len( >16 then exit sub

if = 0" or lastinput = eqv" then =

= &index '追加数据。

lastinput = num"

command1(0).setfocus

end sub

输入“25”

VB课程设计

VB课程设计

VB课程设计

VB课程设计

其他用户还读了