好心人帮忙看看这段VB代码啥意思?

来源:百度知道 编辑:UC知道 时间:2024/05/27 06:25:33
SUM=0
str=INPUTBOX( 请输入字符串)
for i=1 to len(str)
if ∪ case(mid(str,i,1))≥“A”and ∪case(mid(str,i,1))≤“Z”then
sum=sum+1
next print
sum

SUM=0 '先定义总和为0
str=INPUTBOX( 请输入字符串) ’弹出一个窗口让你输入一串字符,并把他放入到str中
for i=1 to len(str) '做一个循环,循环次数为字符的长度
if ∪ case(mid(str,i,1))≥“A”and ∪case(mid(str,i,1))≤“Z”then
sum=sum+1 '从字符串第一位开始查找,如果字符为“A”到“Z”之间的大写字母,总和就加1
next print '最后把总和打在屏幕上。
sum
总的来就是让你输入一串字符,然后统计出这串字符中的大写字母个数。
最后两句应该是:
next
print sum

统计输入字符串中字母的个数
程序有错,修改如下:
Dim Str As String, Sum As Integer
Sum = 0
Str = InputBox(请输入字符串)
For i = 1 To Len(Str)
If UCase(Mid(Str, i, 1)) >= "A" And UCase(Mid(Str, i, 1)) <= "Z" Then Sum = Sum + 1
Next
Print Sum

例如,输入1234ABc,得到3

这是vb代码吗?
至少vb里没有“≥”这个运算符。

统计输入字符中大小写字符A-Z或a-z的个数