救救孩子吧，初学者卡在这里了！
编译错误，未找到方法或数据成员

Private Sub Command3_Click()
Dim p0 As Single, t0 As Single, p1rh As Single, t1rh As Single, p11rh As Single, t11rh As Single, pc As Single '定义数据
Dim ηm As Single, ηg As Single, ηf As Single, ηr As Single
p0 = Text2.Text '赋值
t0 = Text3.Text
p1rh = Text4.Text
t1rh = Text5.Text
p11rh = Text6.Text
t11rh = Text7.Text
pc = Text8.Text
ηm = Text9.Text
ηg = Text10.Text
ηf = Text11.Text
ηr = Text12.Text
Label13.Caption = "p0,t0,p1rh,t1rh,p11rh,t11rh,pc,ηm,ηg,ηf,ηr" '显示数据
End Sub

哪里出错了

我想的是输入数据到textbox中，然后赋值给变量

是不是不存在Text2这个控件，你给改名了？

可能是控件数组的问题，请检查所有控件的Index属性，并确保它们都是空白的（不要有数字）

稳，谢谢