vbs写一个程序：输入一串代码，遇到？停止输入。然后计算输入大写字母和小写字母和数字的个数

[qq_37044076]

Dim sum1,sum2,sum3,d
sumone=0
sumtwo=0
sumthree=0
d=""
While d<>"chen"                                            '这里吧"chen"改为"?"，运行时，输入?就会报错，而改成chen，运行输入chen就可以
	d=inputbox("请输入一串字符：")
	If d>="a" and d<="z" Then
		sumone=sumone+1
	elseif d>="A" and d<="Z" Then
		sumtwo=sumtwo+1
	elseif d>="0" and d>="9" Then          '这里运行时输入数字时，次数没加到sumthree里面，而是加在了sumone，为什么
		sumthree=sumthree+1		

	End If
Wend
print "输出小写字母个数为"&sumone
print "输出大写字母个数为"&sumtwo
print "输出数字个数为"&sumthree

[舉杯邀明月]

elseif d>="0" and d>="9" Then 明显是“逻辑运算符”写错了嘛，应该是用 <= 至于“结束标志”，按理说可以定义任意标志的。 我等下试试用“?”是否真的不可以…………

[舉杯邀明月]

把这段代码写入 .vbs文件，修正“错误”， 运行进行测试，用“?”作为结束标志是没有问题的。 楼主请仔细检查你的代码输入是否有问题，特别要注意全角、半角的区别。