初学者请求帮忙

分类: IT文章 • 2024-02-03 10:55:48

菜鸟请求帮忙
我拷贝一个程序，程序如下
Private Sub option1_Click()

Select Case index
Case 0
yssjt.Text = 24: Text2.ToolTipText = "4~6 ": Text3.ToolTipText = "一般:3~5 发达地区:7~8 "
Case 1
yssjt.Text = 10: Text2.ToolTipText = "2.5~4.0 ": Text3.ToolTipText = "2~3 "
End Select
End Sub
运行时老是要求对象错误提示在第4行的yssjt.Text=24
不知道怎么解决

------解决方案--------------------
加一个textbox控件，命名为yssjt