Question

VB编程中运行没问题,为什么调试时总出现黄色段?

Option Base 1
Private Function average(a() As Integer) As Single
Dim start As Integer, finish As Integer
Dim i As Integer
start = LBound(a)
finish = UBound(a)
Sum = 0
For i = start To finish
Sum = Sum + a(i)
Next
average = Sum / finish
End Function
Private Sub Command1_Click()
Dim arr1
Dim arr2(4) As Integer
arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
For i = 1 To 4
arr2(i) = CInt(arr1(i))
Next i
aver = average(arr2)
Print "平均值是："; aver
End Sub

在Private Sub Command1_Click()出现黄色段

Answer 1

如果你没有自己设置代码终止（就是红色的标示）
那么一定是你的程序出问题了
黄色短指在Private Sub Command1_Click()但是你的输入符在哪里？应该是选中了一个字段，错误不在Private Sub Command1_Click()这行，而是在输入符指定的那个地方
我现在没有调试环境，但是上面的是可以确定的

Answer 2

你进行断点跟踪.就会出现黄色断.

Answer 3

那一行被你追踪了？