vb2010实验报告-计算器的制作与实现

软件开发环境与工具

实验报告

实验一

实验题目： 计算器的制作与实现 实验类型： 验证 实验地点： 软件实验室一 指导教师： 专业班级： 计算机科学与技术系班 姓 名：

20年10月25日

一、实验目的：

1、熟悉VB.NET程序开发环境，了解VB.NET应用程序设计的基本框架结构。 2、掌握Windows Form的事件处理机制，以及如何在运行期创建控件。 3、初步掌握VB.NET的基本编程方法和技巧。 二、实验内容：

设计一个简单的计算器程序，使之能够实现加、减、乘、除等基本的四则运算。 三、实验设计思路：

先模拟地设计出计算器面板，包含各类按钮和结果输出框，然后写出各个触发事件，包含数字事件、运算符号事件、等号事件等，之后再写各类运算函数，包括加法、减法、乘法和除法，最后于主函数中调用各功能及运算。 四、实验步骤： 1、打开Microsoft Visual Studio 2010，点击“新建项目”，在弹出的对话框中选择“Visual Basic/ Windows”项目类型，“模板”选择“Windows窗体应用程序”，在名称处将默认名WindowsApplication1改为“简易计算器”，然后指定该应用程序的保存路径，点击“确定”，进入窗体设计界面。

2、调整好窗体的大小后，将鼠标移到左侧“工具箱”位置，自动弹出“工具箱”窗口，选择其中的“TextBox”控件对象并将其拖拽到窗体中，调整大小并将其拖动到适当位置，在属性窗口中选定属性名“（Name）”，在右列中将其属性值设为“output”，用于显示数据。 3、用同样的方法向窗体中添加19个Button控件，单击“Button1”控件，同样在属性窗口中选定属性名“（Name）”，在右列中将其属性值设为“zero”，并在属性窗口中选定属性名“Text”，在右列中将其属性值设为“0”。用同样的方法依次将其他Button控件的“（Name）”属性值分别设为“point”、“AllClean”、“equal”、“one”、“two”、“three”、“add”、“subtract”、“four”、“five”、“six”、“multiply”、“divide”、“seven”、“eight”、“nine”、“kai”、“guan”；“Text”属性值分别设为“.”、“AC（归零）”、“=”、“1”、“2”、“3”、“+”、“-”、“4”、“5”、“6”、“*”、“/”、“7”、“8”、“9”、“on”、“off”，最终界面如下：

4、完成窗体和控件的布局及其属性设置后，双击要编写代码的命令按钮，进入代码编译器，开始编写程序代码。 五、实验代码：

Public Class Calculator

Dim strdx() As String = {\, \, \} '声明一个字符串，用以存取数值 Dim calcount1 As String = \ Dim calcount2 As String = \ Dim strvalue As Boolean = False

Private Sub zero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zero.Click If strdx(0) = \ Then

output.Text = strdx(0) & \ ElseIf strvalue = False Then strdx(0) = strdx(0) & \ output.Text = strdx(0) & \ Else

strdx(0) = strdx(0) & \ output.Text = strdx(0) End If End Sub

Private Sub point_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles point.Click strvalue = True

strdx(0) = strdx(0) & \ output.Text = strdx(0) End Sub

Private Sub AllClean_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AllClean.Click strdx(0) = \ strdx(1) = \ strdx(2) = \ calcount1 = \ calcount2 = \ strvalue = False output.Text = \ End Sub

Private Sub equal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles equal.Click If strdx(2) = \ Then Select Case calcount1 Case \

output.Text = Str(Val(strdx(1)) + Val(strdx(0))) Case \

output.Text = Str(Val(strdx(1)) - Val(strdx(0))) Case \

output.Text = Str(Val(strdx(1)) * Val(strdx(0))) Case \

If strdx(0) = \ Then output.Text = \ Else

output.Text = Str(Val(strdx(1)) / Val(strdx(0))) End If End Select

ElseIf calcount2 = \ Then

strdx(0) = Str(Val(strdx(0)) * Val(strdx(2))) Select Case calcount1 Case \

output.Text = Str(Val(strdx(1)) + Val(strdx(0))) Case \

output.Text = Str(Val(strdx(1)) - Val(strdx(0))) Case \

output.Text = Str(Val(strdx(1)) * Val(strdx(0))) Case \

If strdx(0) = \ Then output.Text = \ Else

output.Text = Str(Val(strdx(1)) / Val(strdx(0))) End If End Select

Else : calcount2 = \

strdx(0) = Str(Val(strdx(2)) / Val(strdx(0))) Select Case calcount1 Case \

output.Text = Str(Val(strdx(1)) + Val(strdx(0))) Case \

output.Text = Str(Val(strdx(1)) - Val(strdx(0))) Case \

output.Text = Str(Val(strdx(1)) * Val(strdx(0))) Case \

If strdx(0) = \ Then output.Text = \ Else

output.Text = Str(Val(strdx(1)) / Val(strdx(0))) End If End Select End If End Sub

Private Sub one_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles one.Click

If strdx(0) = \ Then strdx(0) = \

output.Text = strdx(0) & \ ElseIf strvalue = False Then strdx(0) = strdx(0) & \ output.Text = strdx(0) & \ Else

strdx(0) = strdx(0) & \ output.Text = strdx(0) End If End Sub

Private Sub two_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles two.Click If strdx(0) = \ Then strdx(0) = \

output.Text = strdx(0) & \ ElseIf strvalue = False Then strdx(0) = strdx(0) & \ output.Text = strdx(0) & \ Else

strdx(0) = strdx(0) & \ output.Text = strdx(0) End If End Sub

Private Sub three_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles three.Click If strdx(0) = \ Then strdx(0) = \

output.Text = strdx(0) & \ ElseIf strvalue = False Then strdx(0) = strdx(0) & \ output.Text = strdx(0) & \ Else

strdx(0) = strdx(0) & \ output.Text = strdx(0) End If End Sub

Private Sub add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add.Click If calcount1 = \ Then calcount1 = \

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库vb2010实验报告-计算器的制作与实现在线全文阅读。