哪里错了该怎么写

Dim a As Date '这样才对，你把e写成a了
Dim c As Long '题目要求可是11位数哦，不要擅自改成9位，11位用Long就不够了
Private Sub comman1_CLICK() '把这行删掉
'另外，像这样的代码不需要手动输入，你双击按钮，就自动生成了
'比如下面的Command1_LOAD，你双击一下窗体空白处，看看给你自动生成的应该是啥？
Text3.Text = (Date - a) \ 365 '要得到整数结果，需要用这个方向的斜线除号
'另外，这个算法其实是不准确的，并不是每年都只有365天，准确的算法应该是这样：
'先直接用年份相减，然后再用月、日的部分计算剩余天数，具体过程比较复杂，
'还需要用If判断，这里就不多说了，你就先这么算好了
Text6.Text = (b - 150) * 0.6 + 48 '又是擅自修改公式
Text7.Text = Text = Left(c, 3) '自己检查一下多了什么？
顺便说一下第5条知识点，你来求助就不算“独立排除错误”了哦