shanfeng1419 发表于 2011-5-13 09:14:40

20#方法不错。

hwm831002 发表于 2011-5-13 15:54:55

回复 20# hellenchen

运行了下还是有错

arthas.gong 发表于 2011-5-14 16:37:14

dim a,b,c,msga,msgb
msga="请输入数值a"
a=inputbox(msga)
msgb="请输入数值b"
b=inputbox(msgb)
a=i ...
偶爱台球 发表于 2011-5-4 14:21 http://bbs.51testing.com/images/common/back.gif

支持这种说法，有没有人设置断点调试过啊？

datouniuniu 发表于 2011-5-19 15:46:00

求教了老公大人，正解为：


Dim a,b,c,msga,msgb
msga="input a"
msgb="input b"
a=InputBox(msga)
b=inputbox(msgb)

If Trim(a)="" Or Trim(b)="" then
      MsgBox "a or b must be not null"
Else
   c=a*b
   MsgBox c
End If

datouniuniu 发表于 2011-5-19 16:12:33

如果还要排除a和b为字符型的情况，代码也可以这么写：

Dim a,b,c,msga,msgb
msga="请输入a："
msgb="请输入b："
a=InputBox(msga)
b=InputBox(msgb)

If Trim(a)="" Or Trim(b)="" then
   MsgBox "a或者b不能为空"
ElseIf IsNumeric(a) And IsNumeric(b) then
   c=a*b
   MsgBox c
Else
   MsgBox "请输入数字"
End if

hellenchen 发表于 2011-5-20 14:43:25

回复 22# hwm831002

我运行了.. 通过了，不知这位大侠说的有错是什么错呢？可否详细些？

jeanlolo 发表于 2011-5-31 18:18:12

关键看调试的需求是什么？有什么要求，满足要求就行。要不调试没方向。

cainiaolaile 发表于 2011-6-9 17:02:28

Dim a,b,c,msga,msgb
msga="Please input a"
a=InputBox(msga)
msgb="Please input a"
b=InputBox(msgb)
If a="" Or b="" then
MsgBox("a and b can not null!")
Else
a=Int(a)
b=Int(b)
c=a*b
MsgBox c
End If
我的这段
页: 1 [2]
查看完整版本: 请问这段VBS代码那错了？？？？