UC知道VB编程中运行没问题,为什么调试时总出现黄色段?
来源：百度知道 编辑：UC知道 时间：2024/05/13 08:21:29
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()出现黄色段
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()出现黄色段
如果你没有自己设置代码终止（就是红色的标示）
那么一定是你的程序出问题了
黄色短指在Private Sub Command1_Click()但是你的输入符在哪里？应该是选中了一个字段，错误不在Private Sub Command1_Click()这行，而是在输入符指定的那个地方
我现在没有调试环境，但是上面的是可以确定的
那一行被你追踪了？
你进行断点跟踪.就会出现黄色断.