51Testing软件测试论坛

标题: 这段代码中通过if语句在不同条件下执行的不同语句我觉得结果好像是一样的 [打印本页]

作者: vincenthan 时间: 2007-9-5 18:09
标题: 这段代码中通过if语句在不同条件下执行的不同语句我觉得结果好像是一样的
Dim Word,Doc,Uncorrected,Corrected
Const wdDialogToolsSpellingAndGrammar = 828
Const wdDoNotSaveChanges = 0

Uncorrected = "Helllo world!"
Set Word = CreateObject("Word.Application")
Set Doc = Word.Documents.Add
Word.Selection.Text = Uncorrected
Word.Dialogs(wdDialogToolsSpellingAndGrammar).Show

If Len(Word.Selection.Text) = 1 Then
Corrected = Word.Selection.Text
Else
Corrected = Uncorrected
End If

Doc.Close wdDoNotSaveChanges
Word.Quit
if语句不同条件后执行的语句我怎么觉得是一回事呢，好像没什么区别，只不过用了不同的变量，而且调用了拼写检查器到底要实现什么，没看明白，有谁能帮我分析一下吗，谢谢了

作者: hsjzfling 时间: 2007-9-5 21:37
这个if判断貌似就是不管怎样，就是要让Corrected = "Helllo world!"...而和你的判断条件是否成立是无关的。。。

作者: danmy 时间: 2007-9-6 09:38
Word.Selection.Text = Uncorrected

为什么要有这句啊？这样if只能走到else里了吧？

作者: rivermen 时间: 2007-9-6 10:00
Dim Word,Doc,Uncorrected,Corrected
Const wdDialogToolsSpellingAndGrammar = 828
Const wdDoNotSaveChanges = 0

Uncorrected = "Helllo world!"
Set Word = CreateObject("Word.Application")
Set Doc = Word.Documents.Add
Word.Selection.Text = Uncorrected
Word.Dialogs(wdDialogToolsSpellingAndGrammar).Show

If Len(Word.Selection.Text) = 1 Then
Corrected = Word.Selection.Text
Else
Corrected = Uncorrected
End If

Doc.Close wdDoNotSaveChanges
Word.Quit

可不都是一样的？

作者: walker1020 时间: 2007-9-6 19:56
楼主，你从哪里找到了这些代码？

作者: xiao851103 时间: 2007-9-6 21:51
我是菜鸟，确实没看出有什么不一样来？？？sdlkfj5

作者: vincenthan 时间: 2007-9-7 10:21
就是在QTP的帮助里面

作者: rivermen 时间: 2007-9-7 14:02
我不是已经帮你用颜色标出来了吗？

if 判断之前
Uncorrected
Word.Selection.Text

他们的值都是"Helllo world!"

那么无论条件判断如何，结果都是一样的

作者: jackymail 时间: 2007-9-7 14:35
呵呵

作者: kangaroo 时间: 2007-9-7 17:20
LZ对着程序画一遍流程图就知道了

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)