SolidWorks二次開發(fā)新手求大神助攻，一個簡單的問題

廣仔依舊

以下程序在SolidWorks二次開發(fā)運(yùn)行時，系統(tǒng)提醒 “錯誤13 類型不匹配 ”
哪里除了問題？該怎么修改？請大神給出意見！

Private Sub Command1_Click()
; j- \4 ]; d. `1 t8 SDim A As Single, B As Single
Dim C As Single, D As Single
) X4 C3 ~2 U7 T% tA = Text1.Text
9 `7 N% U* }- J4 VB = Text2.Text
C = Text3.Text
4 p* G* C4 t8 h2 M) [2 ?4 DD = Sin(0.5 * Text4.Text * 3.14159 / 180)
Text5.Text = A * (Form9.Text7.Text + Form9.Text4.Text)
0 A0 @& A& X9 R5 ~Text6.Text = 2 * Text5.Text * D / (C - 1)
8 V* y6 o% D  L1 m8 K& |* X5 fText7.Text = C * Text6.Text
Text8.Text = Sqr(Text5.Text * Text5.Text + Text7.Text * Text7.Text - 2 * Text5.Text * Text7.Text * D)
End Sub

zerowing

哎。VB又忘得差不多了。你試試在 Text.text用val（）函數(shù)取下值再賦值給單浮點函數(shù)ABCD。

廣仔依舊

zerowing 發(fā)表于 2014-6-3 11:31
哎。VB又忘得差不多了。你試試在 Text.text用val（）函數(shù)取下值再賦值給單浮點函數(shù)ABCD。

試了一下，還是不行。。不過還是謝謝你啦

vappga

類型不匹配，你把single改成Double