软件开发环境与工具
实验报告
实验一
实验题目： 计算器的制作与实现 实验类型： 验证 实验地点： 软件实验室一 指导教师： 专业班级： 计算机科学与技术系班 姓 名：
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 = \