VB计算机项目实训报告.docx

VB计算机项目实训报告.docx

《VB计算机项目实训报告.docx》由会员分享，可在线阅读，更多相关《VB计算机项目实训报告.docx（25页珍藏版）》请在冰豆网上搜索。

VB计算机项目实训报告

试训实验报告——计算器

（1）

实验内容：

制作一个计算器。

实验进程：

初步了解计算器的制作界面和功能，了解空件数组的使用。

实验结果与分析：

1控件属性设置

控件

属性

Command1

caption

0123456789

Command2

caption

+-*/

Command3

caption

=

Command4

caption

CE

Text1

caption

“”

2.界面图

3.代码书写

OptionExplicit

Dimn1AsString

DimOPAsString

DimnAsString

PrivateSubCommand1_Click（IndexAsInteger）

n=n+Command1（Index）.Caption

Text1.Text=n

EndSub

PrivateSubCommand2_Click（IndexAsInteger）

Ifn<>""Then

n1=n

Text1.Text=""

n=""

EndIf

OP=Command2（Index）.Caption

EndSub

PrivateSubCommand3_Click（）

SelectCaseOP

Case"+"

n=Val（n1）+Val（n）

Case"-"

n=Val（n1）-Val（n）

Case"*"

n=Val（n1）*Val（n）

Case"/"

IfVal（n）<>0Then

n=Val（n1）/Val（n）

Else

n="0.E"

EndIf

EndSelect

Text1.Text=n

EndSub

PrivateSubCommand4_Click（）

n=""

n1=""

Text1.Text=""

EndSub

实验结果：

初步的了解空件数组的使用，能够简单的实现加减乘除运算和删除功能。

实验心得：

控件数组既可以在设计是设置，也可以在运行时出现，我们可以根据具体的情况来编写产生控件数组的代码，控件数组的使用可以为我们减少大量的代码的书写，其为编程带来了极大的方便；在实现简单运算时，要考虑其中的分母，即除数不能为零这一问题，因此，要对其进行讨论，这样，才能实现除法这一功能。

试训实验报告——计算器

（2）

实验内容：

制作一个计算器。

实验进程：

初步了解计算器的制作界面和功能，了解空件数组的使用。

实验结果与分析：

1控件属性设置

控件

属性

Command1

caption

0123456789

Command2

caption

+-*/

Command3

caption

=

Command4

caption

CE

Text1

caption

“”

2.界面图

3.代码书写

OptionExplicit

Dimn1AsString

DimOPAsString

DimnAsString

PrivateSubCommand1_Click（IndexAsInteger）

n=n+Command1（Index）.Caption

Text1.Text=n

EndSub

PrivateSubCommand2_Click（IndexAsInteger）

Ifn<>""Then

n1=n

Text1.Text=""

n=""

EndIf

OP=Command2（Index）.Caption

EndSub

PrivateSubCommand3_Click（）

SelectCaseOP

Case"+"

n=Val（n1）+Val（n）

Case"-"

n=Val（n1）-Val（n）

Case"*"

n=Val（n1）*Val（n）

Case"/"

IfVal（n）<>0Then

n=Val（n1）/Val（n）

Else

n="0.E"

EndIf

EndSelect

Text1.Text=n

EndSub

PrivateSubCommand4_Click（）

n=""

n1=""

Text1.Text=""

EndSub

实验结果：

初步的了解空件数组的使用，能够简单的实现加减乘除运算和删除功能。

实验心得：

控件数组既可以在设计是设置，也可以在运行时出现，我们可以根据具体的情况来编写产生控件数组的代码，控件数组的使用可以为我们减少大量的代码的书写，其为编程带来了极大的方便；在实现简单运算时，要考虑其中的分母，即除数不能为零这一问题，因此，要对其进行讨论，这样，才能实现除法这一功能。

试训实验报告——计算器（3）

实验内容：

制作一个计算器。

实验进程：

初步了解计算器的制作界面和功能，了解空件数组的使用。

实验结果与分析：

1控件属性设置

控件

属性

Command1

caption

0123456789

Command2

caption

+-*/

Command3

caption

=

Command4

caption

CE

Text1

caption

“”

2.界面图

3.代码书写

OptionExplicit

Dimn1AsString

DimOPAsString

DimnAsString

PrivateSubCommand1_Click（IndexAsInteger）

n=n+Command1（Index）.Caption

Text1.Text=n

EndSub

PrivateSubCommand2_Click（IndexAsInteger）

Ifn<>""Then

n1=n

Text1.Text=""

n=""

EndIf

OP=Command2（Index）.Caption

EndSub

PrivateSubCommand3_Click（）

SelectCaseOP

Case"+"

n=Val（n1）+Val（n）

Case"-"

n=Val（n1）-Val（n）

Case"*"

n=Val（n1）*Val（n）

Case"/"

IfVal（n）<>0Then

n=Val（n1）/Val（n）

Else

n="0.E"

EndIf

EndSelect

Text1.Text=n

EndSub

PrivateSubCommand4_Click（）

n=""

n1=""

Text1.Text=""

EndSub

实验结果：

初步的了解空件数组的使用，能够简单的实现加减乘除运算和删除功能。

实验心得：

控件数组既可以在设计是设置，也可以在运行时出现，我们可以根据具体的情况来编写产生控件数组的代码，控件数组的使用可以为我们减少大量的代码的书写，其为编程带来了极大的方便；在实现简单运算时，要考虑其中的分母，即除数不能为零这一问题，因此，要对其进行讨论，这样，才能实现除法这一功能。

试训实验报告——计算器（4）

实验内容：

制作一个计算器。

实验进程：

初步了解计算器的制作界面和功能，了解空件数组的使用。

实验结果与分析：

1控件属性设置

控件

属性

Command1

caption

0123456789

Command2

caption

+-*/

Command3

caption

=

Command4

caption

CE

Text1

caption

“”

2.界面图

3.代码书写

OptionExplicit

Dimn1AsString

DimOPAsString

DimnAsString

PrivateSubCommand1_Click（IndexAsInteger）

n=n+Command1（Index）.Caption

Text1.Text=n

EndSub

PrivateSubCommand2_Click（IndexAsInteger）

Ifn<>""Then

n1=n

Text1.Text=""

n=""

EndIf

OP=Command2（Index）.Caption

EndSub

PrivateSubCommand3_Click（）

SelectCaseOP

Case"+"

n=Val（n1）+Val（n）

Case"-"

n=Val（n1）-Val（n）

Case"*"

n=Val（n1）*Val（n）

Case"/"

IfVal（n）<>0Then

n=Val（n1）/Val（n）

Else

n="0.E"

EndIf

EndSelect

Text1.Text=n

EndSub

PrivateSubCommand4_Click（）

n=""

n1=""

Text1.Text=""

EndSub

实验结果：

初步的了解空件数组的使用，能够简单的实现加减乘除运算和删除功能。

实验心得：

控件数组既可以在设计是设置，也可以在运行时出现，我们可以根据具体的情况来编写产生控件数组的代码，控件数组的使用可以为我们减少大量的代码的书写，其为编程带来了极大的方便；在实现简单运算时，要考虑其中的分母，即除数不能为零这一问题，因此，要对其进行讨论，这样，才能实现除法这一功能。

试训实验报告——计算器（5）

实验内容：

制作一个计算器。

实验进程：

初步了解计算器的制作界面和功能，了解空件数组的使用。

实验结果与分析：

1控件属性设置

控件

属性

Command1

caption

0123456789

Command2

caption

+-*/

Command3

caption

=

Command4

caption

CE

Text1

caption

“”

2.界面图

3.代码书写

OptionExplicit

Dimn1AsString

DimOPAsString

DimnAsString

PrivateSubCommand1_Click（IndexAsInteger）

n=n+Command1（Index）.Caption

Text1.Text=n

EndSub

PrivateSubCommand2_Click（IndexAsInteger）

Ifn<>""Then

n1=n

Text1.Text=""

n=""

EndIf

OP=Command2（Index）.Caption

EndSub

PrivateSubCommand3_Click（）

SelectCaseOP

Case"+"

n=Val（n1）+Val（n）

Case"-"

n=Val（n1）-Val（n）

Case"*"

n=Val（n1）*Val（n）

Case"/"

IfVal（n）<>0Then

n=Val（n1）/Val（n）

Else

n="0.E"

EndIf

EndSelect

Text1.Text=n

EndSub

PrivateSubCommand4_Click（）

n=""

n1=""

Text1.Text=""

EndSub

实验结果：

初步的了解空件数组的使用，能够简单的实现加减乘除运算和删除功能。

实验心得：

控件数组既可以在设计是设置，也可以在运行时出现，我们可以根据具体的情况来编写产生控件数组的代码，控件数组的使用可以为我们减少大量的代码的书写，其为编程带来了极大的方便；在实现简单运算时，要考虑其中的分母，即除数不能为零这一问题，因此，要对其进行讨论，这样，才能实现除法这一功能。

试训实验报告——计算器（6）

实验内容：

制作一个计算器。

实验进程：

初步了解计算器的制作界面和功能，了解空件数组的使用。

实验结果与分析：

1控件属性设置

控件

属性

Command1

caption

0123456789

Command2

caption

+-*/

Command3

caption

=

Command4

caption

CE

Text1

caption

“”

2.界面图

3.代码书写

OptionExplicit

Dimn1AsString

DimOPAsString

DimnAsString

PrivateSubCommand1_Click（IndexAsInteger）

n=n+Command1（Index）.Caption

Text1.Text=n

EndSub

PrivateSubCommand2_Click（IndexAsInteger）

Ifn<>""Then

n1=n

Text1.Text=""

n=""

EndIf

OP=Command2（Index）.Caption

EndSub

PrivateSubCommand3_Click（）

SelectCaseOP

Case"+"

n=Val（n1）+Val（n）

Case"-"

n=Val（n1）-Val（n）

Case"*"

n=Val（n1）*Val（n）

Case"/"

IfVal（n）<>0Then

n=Val（n1）/Val（n）

Else

n="0.E"

EndIf

EndSelect

Text1.Text=n

EndSub

PrivateSubCommand4_Click（）

n=""

n1=""

Text1.Text=""

EndSub

实验结果：

初步的了解空件数组的使用，能够简单的实现加减乘除运算和删除功能。

实验心得：

控件数组既可以在设计是设置，也可以在运行时出现，我们可以根据具体的情况来编写产生控件数组的代码，控件数组的使用可以为我们减少大量的代码的书写，其为编程带来了极大的方便；在实现简单运算时，要考虑其中的分母，即除数不能为零这一问题，因此，要对其进行讨论，这样，才能实现除法这一功能。

试训实验报告——计算器（7）

实验内容：

制作一个计算器。

实验进程：

初步了解计算器的制作界面和功能，了解空件数组的使用。

实验结果与分析：

1控件属性设置

控件

属性

Command1

caption

0123456789

Command2

caption

+-*/

Command3

caption

=

Command4

caption

CE

Text1

caption

“”

2.界面图

3.代码书写

OptionExplicit

Dimn1AsString

DimOPAsString

DimnAsString

PrivateSubCommand1_Click（IndexAsInteger）

n=n+Command1（Index）.Caption

Text1.Text=n

EndSub

PrivateSubCommand2_Click（IndexAsInteger）

Ifn<>""Then

n1=n

Text1.Text=""

n=""

EndIf

OP=Command2（Index）.Caption

EndSub

PrivateSubCommand3_Click（）

SelectCaseOP

Case"+"

n=Val（n1）+Val（n）

Case"-"

n=Val（n1）-Val（n）

Case"*"

n=Val（n1）*Val（n）

Case"/"

IfVal（n）<>0Then

n=Val（n1）/Val（n）

Else

n="0.E"

EndIf

EndSelect

Text1.Text=n

EndSub

PrivateSubCommand4_Click（）

n=""

n1=""

Text1.Text=""

EndSub

实验结果：

初步的了解空件数组的使用，能够简单的实现加减乘除运算和删除功能。

实验心得：

控件数组既可以在设计是设置，也可以在运行时出现，我们可以根据具体的情况来编写产生控件数组的代码，控件数组的使用可以为我们减少大量的代码的书写，其为编程带来了极大的方便；在实现简单运算时，要考虑其中的分母，即除数不能为零这一问题，因此，要对其进行讨论，这样，才能实现除法这一功能。

试训实验报告——计算器（8）

实验内容：

制作一个计算器。

实验进程：

初步了解计算器的制作界面和功能，了解空件数组的使用。

实验结果与分析：

1控件属性设置

控件

属性

Command1

caption

0123456789

Command2

caption

+-*/

Command3

caption

=

Command4

caption

CE

Text1

caption

“”

2.界面图

3.代码书写

OptionExplicit

Dimn1AsString

DimOPAsString

DimnAsString

PrivateSubCommand1_Click（IndexAsInteger）

n=n+Command1（Index）.Caption

Text1.Text=n

EndSub

PrivateSubCommand2_Click（IndexAsInteger）

Ifn<>""Then

n1=n

Text1.Text=""

n=""

EndIf

OP=Command2（Index）.Caption

EndSub

PrivateSubCommand3_Click（）

SelectCaseOP

Case"+"

n=Val（n1）+Val（n）

Case"-"

n=Val（n1）-Val（n）

Case"*"

n=Val（n1）*Val（n）

Case"/"

IfVal（n）<>0Then

n=Val（n1）/Val（n）

Else

n="0.E"

EndIf

EndSelect

Text1.Text=n

EndSub

PrivateSubCommand4_Click（）

n=""

n1=""

Text1.Text=""

EndSub

实验结果：

初步的了解空件数组的使用，能够简单的实现加减乘除运算和删除功能。

实验心得：

控件数组既可以在设计是设置，也可以在运行时出现，我们可以根据具体的情况来编写产生控件数组的代码，控件数组的使用可以为我们减少大量的代码的书写，其为编程带来了极大的方便；在实现简单运算时，要考虑其中的分母，即除数不能为零这一问题，因此，要对其进行讨论，这样，才能实现除法这一功能。

实训总结

自读大学以来，除了上个学期参加的模拟电路实验的演练外，这可以算是我第二次在学习方面参加类似于团队合作且具有重要意义的活动了。

第一次也是如此，只不过是相对于这次来说团队的成员人数减少了，而且没有这么的具有挑战性。

每次在参加完这样的活动之后，我都感觉自己受益匪浅，不光是在学习上，在其它方面也大有收获。

我的实训题目是制作一个计算器，所花时间是四周，下面我来讲讲我在这段时期的实训各个阶段进展情况和心得体会。

第一阶段，由于是刚接受老师安排的任务，所以一切都是处在筹备阶段。

各团队间的成员需要充分了解自己所要制作的对象，了解对象的基本特点、基本性质和基本功能。

而在老师的提点下，我们进一步的了解到了要制作该计算器所应具备的控件，如何循序渐进的实现某些特定的功能等相关信息。

由于制作该计算器，需要利用到许多个命令按钮，分别用来生成多个数字按钮和加减乘除等按钮，而要生成这样多的按钮，就必须要求我们使用到控件数组。

所以我在这一阶段中，都一直忙于看相关于控件数组的基本概念及其使用方法。

通过查看相关资料，我了解到生成多个命令按钮的方法：

一是直接在设置界面时就生成，利用编辑栏中的复制和粘贴按钮，建立控件数组，然后设置各个相应命令按钮的属性值；二是在编写程序代码时，写入生成命令按钮的相关代码及其大小、位置摆放的设置等。

在这一阶段，我不仅知到了如何使用控件数组，而且我还懂得了在做任何事时不要一开始的就盲目的进行操作，要对自己所做的事情有一个充分的了解，要有所准备这样一个道理，尽管大家都知道，但付诸于行动的却没有几个人，这也是值得我们学习的地方。

过了第一阶段的懵懂期，接下来的就是第二阶段。

在前一基础上，这里我们开始要实现计算器的基本功能，即实现简单的加减乘除。

在前面的利用控件数组生成命令按钮的两种方法中，为了避免团队成员之间的代码出现雷同现象，所以我选择使用第一种方法，然后我又对相应命令按钮的属性进行了设置。

同时，我们也开始了进行分工合作，每个人都需要做好各自的任务，这样我们就可以更快的达到目的。

经过一段时间，我们终于能够实现简单的加减乘除功能，虽然这不是件很重大的事情，但这对于我们来说，意义却是十分的重大，我们通过共同的努力获取了小小的成就，这足以让我们高兴一段时间。

这一时期，我学会如何更好的实现加减乘除这些功能，而更为重要的是我懂得了团队合作的重要性，团队里的每一个成员都起着极其重要的中作用，在共同工作中，我们不能高估任何一个人，更不能忽视某一个人的存在。

成员之间要彼此共同勉励，互相扶持，大家要学会团结，正如人们所说的那样“团结就是力量”，如果成员之间不能团结，那么就会是一盘散沙，自然他们所要完成的任务也就不可能在预期的时间内完