用visual basic6.0将一到一百间各奇数顺序累加，直到其和等于或大于100为止，要求输出已实行累加的奇数，共加了多少个数，以及累加和，并且用do while 语句

以下是用 Visual Basic 6.0 实现的代码：

Dim sum As Integer
Dim count As Integer
Dim num As Integer
Dim i As Integer

sum = 0
count = 0
num = 1

Do While sum < 100
    sum = sum + num
    count = count + 1
    Debug.Print num
    num = num + 2
Loop

Debug.Print "共加了 " & count & " 个数"
Debug.Print "累加和为 " & sum

代码解释：

首先，我们定义了四个变量：`sum` 表示累加和，`count` 表示加了多少个数，`num` 表示当前累加的奇数，`i` 是一个计数器。

然后，我们使用 `Do While` 循环来进行累加。在每次循环中，将当前的奇数累加到 `sum` 中，并将计数器 `count` 加一。同时，我们使用 `Debug.Print` 将当前累加的奇数输出到调试窗口中。接着，将 `num` 加 2，以便下一次循环累加下一个奇数。

当 `sum` 大于或等于 100 时，跳出循环。最后，我们再次使用 `Debug.Print` 输出累加了多少个数和累加和。

注意，必须在代码窗口中开启调试窗口才能看到输出结果。可以通过快捷键 `Ctrl + G` 来开启或关闭调试窗口。