[VB6 ] 函式呼叫出現問題
在下是一個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
推
10/09 21:33, , 1F
10/09 21:33, 1F
推
10/12 08:28, , 2F
10/12 08:28, 2F
推
10/17 08:06, , 3F
10/17 08:06, 3F
→
10/17 08:08, , 4F
10/17 08:08, 4F