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

廣仔依舊

以下程序在SolidWorks二次開發(fā)運行時，系統(tǒng)提醒 “錯誤13 類型不匹配 ”
哪里除了問題？該怎么修改？請大神給出意見！
; h- c: z) x0 }
, q- q5 M  }3 s; S& `3 zPrivate Sub Command1_Click()
Dim A As Single, B As Single
/ T4 _5 q+ j9 S7 G; Y+ IDim C As Single, D As Single
A = Text1.Text
0 U7 ?& f$ k- T8 {6 N% v% BB = Text2.Text
5 B8 {* `0 ~$ y$ f8 ?% MC = Text3.Text
' `+ O0 H# Q$ `; WD = Sin(0.5 * Text4.Text * 3.14159 / 180)
Text5.Text = A * (Form9.Text7.Text + Form9.Text4.Text)
Text6.Text = 2 * Text5.Text * D / (C - 1)
Text7.Text = C * Text6.Text
( N6 q6 \* x7 b% U' T0 _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
! U! ]9 X) i* ~% A) V3 W哎。VB又忘得差不多了。你試試在 Text.text用val（）函數(shù)取下值再賦值給單浮點函數(shù)ABCD。

& M& g7 m7 v3 p4 i. R5 f試了一下，還是不行。。不過還是謝謝你啦

vappga

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