7,762
社区成员
发帖
与我相关
我的任务
分享一个关于语句结构的问题
Private Sub Command1_Click()
Dim i As Integer
i=FunctionA
i=FunctionB
i=FunctionC
i=FunctionD
i=FunctionE
i=FunctionF
i=FunctionG
.
.
.
.
.
.
i=FunctionX
Call SubY
End Sub
以上是一个过程，我遇到的问题是，每一个Function返回的结果如果是0的话就继续走，如果是别的数的话就直接跳到最后一行执行Call SubY，但是如果每一行都用IF作判断的话很麻烦，因为函数很多，请问有没有简单高效的办法，另外为了表达清楚所以函数名都用了A,B,C，实际情况是每个函数名都是不乱七八糟的没有规律可循。
Dim i As Integer
i=FunctionA
i=FunctionB
i=FunctionC
i=FunctionD
i=FunctionE
i=FunctionF
i=FunctionG
.
.
.
.
.
.
i=FunctionX
Call SubY
End Sub
以上是一个过程，我遇到的问题是，每一个Function返回的结果如果是0的话就继续走，如果是别的数的话就直接跳到最后一行执行Call SubY，但是如果每一行都用IF作判断的话很麻烦，因为函数很多，请问有没有简单高效的办法，另外为了表达清楚所以函数名都用了A,B,C，实际情况是每个函数名都是不乱七八糟的没有规律可循。
...全文
请发表友善的回复…
发表回复
shaidanR 2003-10-20
- 打赏
- 举报
嗯共同探讨嘛~
dinky 2003-10-20
- 打赏
- 举报
这个好像不妥
这些Function除了返回值还有特定功能的，而且如果那个i值不为0的话还需要把具体值提交到SubY计算结果。不过看了你的方法以后有了一点思路。
这些Function除了返回值还有特定功能的，而且如果那个i值不为0的话还需要把具体值提交到SubY计算结果。不过看了你的方法以后有了一点思路。
shaidanR 2003-10-20
- 打赏
- 举报
dim tmpi as single
on errer goto Errpoint
tmpi=FunctionA+functiona
tmpi=1/function+function
errpoint:
Call SubY
on errer goto Errpoint
tmpi=FunctionA+functiona
tmpi=1/function+function
errpoint:
Call SubY
dinky 2003-10-20
- 打赏
- 举报
唉，每行都判断太缺乏建设性了
射天狼 2003-10-20
- 打赏
- 举报
判断吧,别偷懒~~
