能不能帮我找一下错在哪

显示全部楼层 · 2007-10-30 09:14:29

建议每一个出错语句后面加上exit sub这样出错的话就跳出程序，避免下面还有的错误把我的代码运行试试Private Sub Command1_Click()Dim a, c As IntegerDim d As Singlea = Val(Text1.Text)b = Text2.Textc = Val(Text3.Text)d = Val(Text4.Text)b = Trim(b)If b"+" Or b"-" Or b"*" Or b"/" Or b"mod" Or b"\" ThenMsgBox "无法识别的运算符", vbCritical + vbOK, "出错": Exit SubElseIf b = "\" Or c = 0 ThenMsgBox "分母为零,请重新输入", vbCritical + vbOK, "出错": Exit SubElseIf b = "/" Or c = 0 ThenMsgBox "分母为零,请重新输入", vbCritical + vbOK, "出错": Exit SubElseIf b = "mod" Or c = 0 ThenMsgBox "分母为零,请重新输入", vbCritical + vbOK, "出错": Exit SubEnd IfSelect Case bCase Is = "+"d = a + cCase Is = "-"d = a - cCase Is = "*"d = a * cCase Is = "/"d = a / cCase Is = "\"d = a \ cCase Elsed = a Mod cEnd SelectEnd Sub

千问 · 2007-10-30 09:14:29

Private Sub Command1_Click() Dim a, c As Integer Dim d As Single a = Val(Text1.Text) b = Text2.Text c = Val(Text3.Text) d = Val(Text4.Text) Trim (b) If b"+" And b"-" And b"*" And b"/" And b"mod" And b"\" Then MsgBox "无法识别的运算符", vbCritical + vbOK, "出错" exit subElseIf b = "\" And c = 0 Then MsgBox "分母为零,请重新输入", vbCritical + vbOK, "出错"exit subElseIf b = "/" And c = 0 Then MsgBox "分母为零,请重新输入", vbCritical + vbOK, "出错" exit subElseIf b = "mod" And c = 0 Then MsgBox "分母为零,请重新输入", vbCritical + vbOK, "出错" exit subEnd If Select Case b Case Is = "+" d = a + c Case Is = "-" d = a - c Case Is = "*" d = a * c Case Is = "/" d = a / c Case Is = "\" d = a \ c Case Else d = a Mod c End Select msgbox dend sub

千问 · 2007-10-30 09:14:29

你这样真的没有反应啊。你已完成了，变量的计算，但没有将这个变量输出来。肯定是没有反应的。在后面加一句msgbox d就OK了

千问 · 2007-10-30 09:14:29

在ENDSUB前加一句Text4.Text = d就OK了。你忘了把结果返回去了。而且这句没有用。d=val(text4.text)

千问 · 2007-10-30 09:14:29

1 trim(b)这个调用方法错误，应是b=trim(b)2你这个select 语句的case 貌似有问题，用Case "+"Case "-"Case "*"Case "/"Trim (b)感觉是这句毛病，我也只是入门水平只能这样回答