VB-计算器实验.docVIP

软件开发环境与工具 实验报告 实验一 实验题目： 计算器的设计与实现 实验类型： 验证型 实验地点： 软件实验室一 指导教师： ** 专业班级： 计算机科学与技术系**班 姓 名： *** 2013年10月25日 实验题目： 计算器的设计与实现。 二、实验目的： 1、进一步熟悉并且掌握Visual Studio 2010集成开发环境的使用。 2、学会使用常用的几种控件。 3、掌握vb.net中三种分支结构的使用。 4、初步掌握vb.net的基本编程方法和技巧。 5、根据所学知识能够独立完成一个简易计算器。 三、实验内容： 设计一个简单的计算器，使之能够实现加、减、乘、除基本的四则运算。 四、实验设计思路： 先在窗体上设计计算器的外观，包含按钮和文本输出框，然后写出各个触发事件，包含 数字事件、运算符事件等，之后再写各类运算函数，包括加法、减法、乘法和除法，完了在主函数中调用各函数进行运算。 五、实验步骤： 1、在Microsoft Visual Studio 2010中，点击“新建项目”，命名为计算器，再点击“确定”，进入窗体设计界面。 2、使用按钮以及文本框在窗体设计界面设计一个简易计算器。界面如下： 3、分别在不同的按钮中编写相应的函数来实现其功能并且验证通过。 六、实验代码： Public Class 计算器 Dim strdx() As String = {, , } 声明一个字符串，用以存取数值 Dim calcount1 As String = Dim calcount2 As String = 声明2个字符串，用以存取运算符 Dim strvalue As Boolean = False 声明一个布尔型的变量，用以区别小数点的运用 Private Sub 数字0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 数字0.Click If TextBox1.Text = 0 Then 配合清零使用，如果显示框内为0，将显示内容清空 TextBox1.Text = End If If strdx(0) = Then 输入键入的数字 strdx(0) = sender.text TextBox1.Text = strdx(0) . ElseIf strvalue = False Then 输入两位数 strdx(0) = strdx(0) sender.text TextBox1.Text = strdx(0) . Else strdx(0) = strdx(0) sender.text 配合小数点的使用，防止出现2个小数点 TextBox1.Text = strdx(0) End If End Sub Private Sub 数字1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 数字1.Click If TextBox1.Text = 0 Then TextBox1.Text = End If If strdx(0) = Then strdx(0) = sender.text TextBox1.Text = strdx(0) . ElseIf strvalue = False Then strdx(0) = strdx(0) sender.text TextBox1.Text = strdx(0) . Else strdx(0) = strdx(0) sender.text TextBox1.Text = strdx(0) End If End Sub Private Sub 数字2_Click(ByVa