Private Sub cmdAns_Click()
Dim s As Double
If IsNumeric(Text1。Text) And IsNumeric(Text2。Text) _
And Not ((Combo1。
Text = "÷" Or Combo1。Text = "Mod") And Val(Text2) = 0) Then
Select Case Combo1。Text
Case "＋"
s = Val(Text1) + Val(Text2)
Case "－"
s = Val(Text1) - Val(Text2)
Case "×"
s = Val(Text1) * Val(Text2)
Case "÷"
s = Val(Text1) / Val(Text2)
Case "Mod"
s = Val(Text1) Mod Val(Text2)
End Select
Label1。
Caption = Str(s)
Else
Label1。Caption = "输入错五！"
If Not IsNumeric(Text1。Text) Then
Text1。
SetFocus
Else
Text2。SetFocus
End If
End If
。
答：我建议你去--天下网吧联盟 这里面都是网吧业主和网管交流的论坛，你可以自己注册一个用户进去看看，你可以和他们交流也可以寻求他们的帮助，我想没有你解决不了的问题，...详情>>
答：格式化文本区域的段落标记，用于规定文本和层的属性和位置等。比如： 新浪网 用来规定 新浪网 这三个字居中显示。 文本中心(CENTER)、左(LEFT)或右(R...详情>>
