vb編程，求大神

根據妳追問的問題看，還是妳定義數據類型匹配與不匹配的問題，m,n如果像妳圖片中定義顯示定義成變體型，其中的賦值語句m=3.141592*(p/s)^2兩側默認都是變體型數據，所以不出錯，如果定義成single，那麽兩側的數據類型就不匹配了，賦值就會出錯。

樓上的幾個需要註意的問題，妳確實應該註意的

妳可以參照我寫的相應代碼

'定義壹個面積計算過程

Sub?mjjs(a?As?Single,?b?As?Single,?c?As?Single)

'定義兩個變量存放面積數值、兩個輔助變量和半徑

Dim?SN?As?Single,?SW?As?Single

Dim?P?As?Single,?S?As?Single

Dim?R1?As?Single,?R2?As?Single

P?=?(a?+?b?+?c)?/?2

S?=?Sqr(P?*?(P?-?a)?*?(P?-?b)?*?(P?-?c))

R1?=?S?/?P

R2?=?(a?*?b?*?c)?/?(4?*?S)

'內切圓面積

SN?=?3.141592?*?R1?^?2

'外接圓面積

SW?=?3.141592?*?R2?^?2

'賦值給文本框

Text4.Text?=?SN

Text5.Text?=?SW

End?Sub

Private?Sub?Command1_Click()

Dim?a?As?Single,?b?As?Single,?c?As?Single

a?=?Val(Text1.Text)

b?=?Val(Text2.Text)

c?=?Val(Text3.Text)

Call?mjjs(a,?b,?c)

End?Sub