vb中在一段字母中有大小写,怎样分别计算大.小写字母的个数

Question

vb中在一段字母中有大小写,怎样分别计算大.小写字母的个数 我很急!!!~~~~~~~~~~~~

Answer 1

dim ss as string, s as string, dx as integer, xx as integer, i as integer
ss="sREadsGadsaBVhVgdsNaNfBdweNgBjNiNlBNeBrNiogyiChXCgXkDFnDbHlnNklbNv"
for i=1 to len(ss)
s=mid(ss,i,1)
if s>="A" and s<="Z" then
dx=dx+1
elseif s>="a" and s<="z" then
xx=xx+1
end if
next
msgbox "大写字母" & dx & "个" & vbcrlf & "小写字母" & xx & "个"

Answer 2

int
dx=1,
xx=1,
i;
char
zimu[n](这个n你自己定吧，就是字母的个数+1);
for
(i
==
0;i
<
n;i++)
{
if(zimu[i]
>=
'A'
&&
zimu[i]
<=
'Z')
{
dx++;
}
else
if
(zimu[i]
>=
'a'
&&
zimu[i]
<=
'z')
{
xx++;
}
}
因为这里不好弄格式，所以你自己把制表符打上啊

Answer 3

int dx=1, xx=1, i;
char zimu[n](这个n你自己定吧，就是字母的个数+1);
for (i == 0;i < n;i++)
{
if(zimu[i] >= 'A' && zimu[i] <= 'Z')
{
dx++;
}
else if (zimu[i] >= 'a' && zimu[i] <= 'z')
{
xx++;
}
}
因为这里不好弄格式，所以你自己把制表符打上啊

Answer 4

一楼的··这个要求的是Vb···那个一段字母我就假设在text1里面的··多加分啊··呵呵··
Private Sub Command1_Click()
Dim i As Integer, n_daxie As Integer, n_xiaoxie As Integer
For i = 1 To Len(Text1)
If Asc(Mid(Text1, i, 1)) > Asc("A") And Asc(Mid(Text1, i, 1)) < Asc("Z") Then n_daxie = n_daxie + 1
If Asc(Mid(Text1, i, 1)) > Asc("a") And Asc(Mid(Text1, i, 1)) < Asc("z") Then n_xiaoxie = n_xiaoxie + 1

Next
Print n_daxie
Print n_xiaoxie
End Sub