软件开发与环境-----简易计算器.docVIP

运城学院 软件开发环境与工具 实验一 实验题目：简易计算器 实验类型：设计性 实验地点: 第三软件实验室 指导老师：王琦 专业班级：计算机科学与技术系1102班 姓 名：马苗苗（2011100226）2013年 10月21 日一、实验题目 简易计算器二、实验目的 实现简单的计算器运算功能，包括加减乘除。3、 实验步骤 1）代码如下 Public Class Form1Dim i As Integer = 0 Dim flog As Integer Dim s As String Dim m As Double Dim t As Double Dim ta As Integer Dim tb As Integer Private Sub num1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num1.Click n=1 If i = 0 Then ta = ta * 10 + n shuRu.Text = ta Else tb = tb * 10 + n shuRu.Text = ta & . & tb End If End Sub Private Sub dian_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dian.Click i = 1 End Sub Private Sub jieGuo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jieGuo.Click jiSuan() suanShi.Text = s = m flog = 0 End Sub Private Sub jia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jia.Click Dim sa As Double sa = shuRu.Text If flog = 0 Then s = sa m = s End If If flog = 1 Then m = m + sa s = s & + & sa End If If flog = 2 Then m = m - sa s = s & - & sa End If If flog = 3 Then m = m * sa s = s & * & sa End If If flog = 4 Then m = m / sa s = s & / & sa End If shuRu.Text = m suanShi.Text = s & + ta = 0 tb = 0 i = 0 flog = 1 End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load shuRu.Text = 0 End Sub Private Sub C_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C.Click ta = 0 tb = 0 i = 0 m = 0 shuRu.Text = 0 s = suanShi.Text = End Sub Private Sub suanShi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles suanShi.Click End SubEnd Class2)运行结果如下： 四、实验总