郁闷ING
xb1 = (xoo + rd + h1 - h3)中:
rd = Text6.Text
xoo = Text14.Text
h3 = Text26.Text
h1 = Text24.Text
中rd = Text6.Text怎么都赋值不了啊???郁闷ING
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
努力就有美好时光!