郁闷ING

xb1 = (xoo + rd + h1 - h3)中:
rd = Text6.Text
xoo = Text14.Text
h3 = Text26.Text
h1 = Text24.Text
中rd = Text6.Text怎么都赋值不了啊???郁闷ING
# 2
rd 什么类型?
注意类型

# 3
接收的文本还实现加减操作?
# 4
Option Explicit
Dim xb1, rd, xoo, h3, h1 As Double

Private Sub Command1_Click()
rd = CDbl(Text6.Text)
xoo = CDbl(Text14.Text)
h3 = CDbl(Text26.Text)
h1 = CDbl(Text24.Text)

xb1 = (xoo + rd + h1 - h3)
MsgBox xb1, vbOKOnly
End Sub

Private Sub Form_Load()
Me.Text14.Text = 0
Me.Text24.Text = 0
Me.Text26.Text = 0
Me.Text6.Text = 0
End Sub

-------------
www.vicmiao.com
努力就有美好时光!
# 6
帮忙再解释下:为何别的不用加也可以,我现在加了rd = cdbl(Text6.Text)就可以了,为何别的不用啊?
# 7
hn123(苗濤[www.vicmiao.com]) ( ):帮忙解释下啊,在线等,一会揭贴
# 8
數據類型的問題哦。

你可以看一下MSDN中的轉換函數,說的很詳細。
----------
www.vicmiao.com
努力就有美好時光!
# 9
你把text6控件刪除了,再重新加一個控件,試試看

---------
www.vicmiao.com
努力就有美好時光!