文档介绍:软件开发环境与工具
实验报告
实验一
实验题目: 计算器的设计与实现
实验类型:验证型
实验地点:. 软件实验室一
指导教师: **
专业班级:计算机科学与技术系**班
艾牛 : ***
2013年10月25日
一 &
Else
strdx(O) = strdx(O) &
&= strdx(O)
End If
End Sub
Private Sub 数字 3_Click(ByVal sender As , By Vai e As ) Handles 数字
If TextBoxl .Text = "0" Then
=""
End If
If strdx(O) = Then
strdx(O) = sender, text
&= strdx(O) &
Elself strvalue = False Then
strdx(O) = strdx(O) &
&= strdx(O) &
Else
strdx(O) = strdx(O) &
&= strdx(O)
End If
End Sub
Private Sub 数字 4_Click(ByVal sender As , By Vai e As ) Handles 数字 4,Click
If = "0" Then
=""
End If
If strdx(O) = Then
strdx(O) =
&= strdx(O) &
Elself strvalue = False Then
strdx(O) = strdx(O) &
&= strdx(O) &
Else
strdx(O) = strdx(O) &
&= strdx(O)
End If
End Sub
Private Sub 数字 5_Click(ByVal sender As , By Vai e As ) Handles 数字
If = "0" Then
=""
End If
If strdx(O) = Then
strdx(O)=
&= strdx(O) &
Elself strvalue = False Then
strdx(O)= strdx(O) &
&= strdx(O) &
Else
strdx(O) = strdx(O) &
&= strdx(O)
End If
End Sub
Private Sub 数字 6_Click(ByVal sender As , By Vai e As ) Handles 数字
If TextBoxl .Text = "0" Then
=""
End If
If strdx(O) = Then
strdx(O) =
&= strdx(O) &
Elself strvalue = False Then
strdx(O) = strdx(O) &
&= strdx(O) &
Else
strdx(O) = strdx(O) &
&= strdx(O)
End If
End Sub
Private Sub 数字 7_Click(ByVal sender As , By Vai e As ) Handles 数字
If = "0" Then
TextBoxl.