每段代码注释一下.在发给我

好的，以下是带注释的 VBS 代码： ``` ' 创建 WScript.Shell 对象 Set objShell = CreateObject("WScript.Shell") ' 循环从 2015 到 2100 For i = 2015 To 2100 ' 在屏幕 1,1 位置输入当前年份 objShell.SendKeys i & "{ENTER}" ' 切换到屏幕 2 objShell.AppActivate "Screen 2" ' 在屏幕 2 的 1,1 位置输入当前年份 objShell.SendKeys i & "{ENTER}" ' 切换到屏幕 3 objShell.AppActivate "Screen 3" ' 在屏幕 3 的 1,1 位置输入当前年份 objShell.SendKeys i & "{ENTER}" Next ``` 注释中解释了每一行代码的作用。