亚洲欧美日韩国产一区二区精品_亚洲国产精品一区二区动图_级婬片A片手机免费播放_亚洲国产成人Av毛片大全,男女爱爱好爽好疼视频免费,中文日韩AV在线,无码视频免费,欧美在线观看成人高清视频,在线播放免费人成毛片,成人网站在线视频A片 ,亚洲AV成人精品一区二区三区

機(jī)械社區(qū)

標(biāo)題: SolidWorks二次開(kāi)發(fā)新手求大神助攻,，一個(gè)簡(jiǎn)單的問(wèn)題 [打印本頁(yè)]

作者: 廣仔依舊 時(shí)間: 2014-6-3 11:08
標(biāo)題: SolidWorks二次開(kāi)發(fā)新手求大神助攻，一個(gè)簡(jiǎn)單的問(wèn)題
以下程序在SolidWorks二次開(kāi)發(fā)運(yùn)行時(shí),，系統(tǒng)提醒 “錯(cuò)誤13 類型不匹配 ”
哪里除了問(wèn)題,？該怎么修改？請(qǐng)大神給出意見(jiàn),！

Private Sub Command1_Click()
Dim A As Single, B As Single
Dim C As Single, D As Single
A = Text1.Text
B = Text2.Text
C = Text3.Text
D = 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
Text8.Text = Sqr(Text5.Text * Text5.Text + Text7.Text * Text7.Text - 2 * Text5.Text * Text7.Text * D)
End Sub

作者: zerowing 時(shí)間: 2014-6-3 11:31
哎,。VB又忘得差不多了。你試試在 Text.text用val（）函數(shù)取下值再賦值給單浮點(diǎn)函數(shù)ABCD,。

作者: 廣仔依舊 時(shí)間: 2014-6-3 11:45

zerowing 發(fā)表于 2014-6-3 11:31 ) U. ^- }* A6 J+ Y$ i/ c
哎,。VB又忘得差不多了。你試試在 Text.text用val（）函數(shù)取下值再賦值給單浮點(diǎn)函數(shù)ABCD,。

試了一下,，還是不行。,。不過(guò)還是謝謝你啦

作者: vappga 時(shí)間: 2014-6-3 13:40
類型不匹配,，你把single改成Double

歡迎光臨機(jī)械社區(qū) (http://giwivy.com.cn/)