编写一个袖珍计算器程序 - 副本
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
编写一个袖珍计算器程序，程序参考界面如图
Private Sub Command1_Click()
a = Text3.Text
Select Case a
Case "+"
Text4.Text = Val(Text1.Text) + Val(Text2.Text)
Case "-"
Text4.Text = Val(Text1.Text) - Val(Text2.Text)
Case "*"
Text4.Text = Val(Text1.Text) * Val(Text2.Text)
Case "/"
Text4.Text = Val(Text1.Text) / Val(Text2.Text)
End Select
End Sub
如果你写成
Select Case a
Case a = "+"
因为a=“+”是一个表达式，比如你输入+，那么就是“+”=“+”，返回TRUE，再与a比较，如论如何都不一样，所以就不计算了
编写一个程序，输入正方形的边长，输出正方形的面积和周长
Dim a As Double
Dim tmp
Dim s As Double
Dim l As Double
tmp = InputBox("输入边长", "输入边长")
If IsNumeric(tmp) = False Then
MsgBox "错误", vbOKOnly + vbInformation, "错误"
Exit Sub
End If
a = Int(tmp)
s = a * a
l = 4 * a
MsgBox "面积为" & s & Chr(10) & "周长为" & l, vbOKOnly, "边长为" & a & "的正方形"。