我想要段VBS代码.内容是:设置循环，第一次在屏幕1,1位置输入2015，在屏幕2，3位置也输入2015。第二次的时候，在屏幕1,1位置输入2016。在屏幕的2，3位置输入2016。……一直输入到2100为止呀。

以下是实现你要求的 VBS 代码： ``` Set objShell = CreateObject("WScript.Shell") For i = 2015 To 2100 objShell.SendKeys i & "{ENTER}" objShell.AppActivate "Screen 2" objShell.SendKeys i & "{ENTER}" objShell.AppActivate "Screen 3" objShell.SendKeys i & "{ENTER}" Next ``` 这段代码使用了 WScript.Shell 对象来模拟键盘输入。循环从 2015 到 2100，每次在屏幕 1,1 位置输入当前年份，然后切换到屏幕 2 和屏幕 3，分别在它们的 1,1 位置输入当前年份。