这段程序是VB 吗？

CLS
<br>REM
<br>DIM i, j, e AS INTEGER
<br>DIM s$, s1 AS STRING
<br>s$ = "a c e g i"
<br>e = LEN(s$)
<br>FOR i = 1 TO e
<br>s1 = MID$(s$, i, 1)
<br>RINT TAB(i - 1);
<br>FOR j = 1 TO (2 * e + 1 - 2 * i)
<br>RINT s1;
<br>NEXT j
<br>RINT
<br>NEXT i
<br>END

------------