主题：这个怎么不能执行？

这样不会报错了，你懂得的：

Dim stn As new List(of String)
stn.Add("我在学新增")
stn.add("我再增加一个")
stn.Add("再增加一个")
stn.add("用来删除的")
stn.remove("用来删除的")
stn.RemoveAt(0)
Dim s As String = "stn.Insert(3,""电视机"")"
Dim n As Integer = s.Indexof("(")

If stn.count >= "stn.Insert(3,""电视机"")".Substring("stn.Insert(3,""电视机"")".Indexof("(")+1,1)
    stn.Insert(3,"电视机")
ElseIf  stn.count >= "stn.Insert(1,""电视机"")".Substring("stn.Insert(1,""电视机"")".Indexof("(")+1,1)
    stn.Insert(1,"电视机")
ElseIf  stn.count >= "stn.Insert(2,""电视机"")".Substring("stn.Insert(2,""电视机"")".Indexof("(")+1,1)
    stn.Insert(2,"电视机")
Else
    Return "你要插入的位置不存在"
End If

Output.show(stn.count)