VB自定義函數問題　[金字塔]

1.軟件的示例 DefaultProject--模塊--Function下第一個例子 Function TriangleShape(Formula,Cyc,SCyc,ECyc)每次打開管理面板--高級 都報 編譯錯誤--1002.我仔細檢查過似乎沒有語法錯誤，即使把函數體移除，只保留一個空殼還是同樣報錯。如圖

此主題相關圖片如下：1001.png

2.示例函數 CU_MA1和CU_MA2，我編入指標公式，測試正常，但在技術分析界面始終顯示為0. 在VB中用MsgBox 顯示從金字塔中讀取數據正常，如圖

此主題相關圖片如下：1002.png


此主題相關圖片如下：1003.png

請問是哪里出問題呢？謝謝

TriangleShape這個函數你自己胡亂修改他源代碼了，原始代碼是這樣的。

Function TriangleShape(Formula,Cyc,SCyc,ECyc)

'    'msgbox cyc & "-" & scyc & "-" & ecyc

' '該函數計算當前位置圖形是否是三角形突破，如果是則返回1，否則返回0。該函數只有在選股時才能使用。

' TriangleShape=0

' 

' '如果是分時數據或者分筆成交那么直接返回

' If Formula.ParentGrid.DataType = 0 or Formula.ParentGrid.CycType = 10 Then

'  Exit Function

' End If

vba啟動了沒，切換品種試試呢，另外直接在函數里把返回值強制返回一個比如10再看看。

1.第一個問題，我那個改動是故意的，就是看看沒有函數主題的時候是否報錯，結果當然是報錯。我把程序重裝一遍，保證沒有改動，還是這樣。不過我估計問題是這樣：我的系統是64位，不小心裝了32位的金字塔，現在改為64位，出現新問題：進入調試，提示“你必須安裝windows腳本調試補丁....”“已成功安裝....”，重啟機器，再來，還是同樣的問題。請指教該如何做？

2.安裝64位后，自定義函數可以用了，顯示的效果和預期的一樣！

64位VB啟動后不能停止，停下再啟動就報出現異常（如圖）。32位的則沒有這個問題

此主題相關圖片如下：1004.png