石家庄学院图书馆开放:这个计算器不能生成,大家来看看(Case "*")有错

来源：百度文库 编辑：查人人中国名人网 时间：2024/05/06 02:00:47
Private Sub Form_Load()
op2 = Val(Lab.Caption)
Select Case opr
Case "+"
a = op1 + op2
If a < 1 Then
Lab.Caption = "0" + Str(a)
Else
Lab.Caption = a
End If
Case "-"
a = op1 - op2
If a < 0 And a > -1 Then
Lab.Caption = "-0" + Str(a)
Else
If a > 0 And a < 1 Then
Lab.Caption = "0" + Str(a)
Else
If a > 0 And a < 1 Then
Lab.Caption = a
End If
End If
Case "*"
a = op1 * op2
If a < 1 Then
Lab.Caption = "0" + Str(Round(a))
Else
Lab.Caption = a
End If
Case Else
If op2 = 0 Then
Lab.Caption = "ERROR"
Else
a = op1 / op2
If a < 1 Then
Lab.Caption = "0" + Str(Round(a, 6))
Else
Lab.Caption = a
End If
End Select
End Sub
Private Sub ComKf_Click()
op1 = Val(Lab.Caption)
a = Sqr(op1)
If a < 1 Then
Lab.Caption = "0" + Str(a)
Else
Lab.Caption = a
End If
End Sub
End Sub
这个计算器不能生成,大家来看看(Case "*")有错 大家来看看这个! 大家来看看这个配置 大家来看看这个网站`~ 大家来看看这个方子 大家来看看这个机器 大家来看看这个网站 大家来看看这个是什么意思`` 大家来看看这个是什么喜剧电影 大家来看看这个机箱怎么样？