作者cg1132001 (瑕疵品大王)
看板Visual_Basic
标题[VB6 ] 函式呼叫出现问题
时间Sun Oct 9 10:05:53 2011
在下是一个VB新手
最近写了一只程式，大致上就是按下按钮然後呼叫执行写好的函式
但是很奇怪的是，只要我一按下按钮呼叫函式程式就会整个当掉，百思不得其解
想请问一下各位，到底我的程式哪里出了问题?
感谢！
以下为我的函式程式码（用於比对字串阵列的资料）
Private Function Htwo(ByVal x%, ByVal y%) As Double
Dim total#
total = 0
Dim i%, j%, k%
For i = 0 To amount - 1
For j = 0 To amount - 1
Dim temp As String
temp = data(x, i) + data(y, j)
Dim count#
count = 0
For k = 0 To amount - 1
Dim check As String
check = data(x, k) + data(y, k)
If temp = check Then
count = count + 1
End If
Next k
Dim P#
P = count / amount
total = total + P * Log(P) / Log(2)
Next j
Next i
Htwo = total * (-1)
End Function
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.36.207.250
1F：推 chinoyan:用F8 看一下变数的改变,来抓问题 10/09 21:33
2F：推 ClubT:难道没有错误讯息? 10/12 08:28
3F：推 serhgrt:重复宣告变数i了，这段程式好像只有一部分，没有前後@@? 10/17 08:06
4F：→ serhgrt:抱歉我看错变数了，眼花了~ 10/17 08:08