Vb6 循环中的对象和返回值

我有一个类似的函数：

public sub TestFunction() As Boolean

On Error GoTo NewError:

Dim testObject As New TestObject

For TestVaiable 0 to 1000
  TestObject.TestMethod(TestVariable)

Next

TestFunction = True
Exit function
NewError:
TestFunction = False
End Function

我有两个问题： 1） 在循环中不断重用对象是一种不好的做法吗？我想不是

---

2） 如果出现错误，返回布尔值（false）是一种不好的做法吗？

在循环中重用变量是一种好做法

---

很好的做法是重用一个对象，该对象要么在整个循环中处于相同的状态，要么有一个与循环的性质明确相关的非常简单的更改

以这样一种方式重用对象是一种不好的做法，它会使您更难看到对象发生了什么

从子函数或函数中快速返回是一种很好的做法。VB中有一种迷信，它来自于与它无关的其他语言，类似于一台计算机，人们认为你不应该在英语中拆分不定式，因为你不能在拉丁语中拆分不定式。这是胡说八道

遇到错误时，只从子函数或函数返回而不进行任何进一步处理是一种不好的做法，除非出于某种原因，这是最明智的做法，您可以在不到200个字符的简短注释中进行解释

---

不输入少于200个字符的注释来解释为什么发生错误时可以直接返回是不好的做法。

我习惯在其他语言中使用异常。在vb6中，如果TestMethod中有错误，我只需写入日志文件（用于通知）并将false返回给调用方法（TestFunction）。然后更新数据库（RDBMS）以表示存在错误。这是坏习惯吗？听起来很合理。像这里的许多问题一样，从给出的信息子集中，我们只能说这么多，但您注意到了日志记录和响应级别的错误，因此，尽管我倾向于说

Err.Raise

会更好，但这似乎是明智的（特别是如果调用方期望布尔成功值）。