我要一段VB程序，用来时时监看NCStu.exe是否在运行．

$="abbacddcba" '定义字符串变量a
For i=6 To 2 Step -2 '循环开始，从6到2递减，步长为2
X=Mid(a,i,i) '第一个i是开始位置,第二个i是要取得长度,从a中的第i处开始取长度为i的一串字符
Y=Left(a,i) '从a左边开始取i个字符
z=Right(a,i) '从a右边开始取i个字符
z=UCase(X & Y & z) '连接变量X Y Z 然后转换成大写
Next i '步入下一次循环
Print z '输出z

程序运行结果:
BAABBA