作者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