Question

vb大题读取文件wj15.txt中的字符，分别统计小写字母、大写字母、数字字符的个数，输出这3种字符的总和。

文件时这样的
tL.AP(i;!y^@P?r?<A[O'aon2a?!CR
Z05u/F,c& |UQz8hWCac,]DskO+G%MYnsp=ygv'|#aYeU
&H>>fV#N5)iDFf/<k?RU`?!-{[l\K:z{5`dU'HU@6lJ94[4uwUxTh%SPAttvWA=wPNposdf{_i6FN65!UyP](QCb
2aEuFvL(d>a<!7#"`;X+M"P["b|)>_JW?8#pUikR\/Du'(RSkmpw8M*9:tR$F+ci[>][8*9kk/q
"[@_D9&e>+h8kc+/Vpjc>&OV\UB-Ok"nk+/olEnlD9a37kjAda?`_;p<<LF<
!8sR*P>DNqN+HiK2 aoAfPDKg@_b4/G[Jo/X=a<[SfV-f=UFUV)vPk6Nu|)5:$V b]!3(Fwroo+
om"t_7ejXO7UtQd5zr`jpyU_;s6ZyFExrzyn;X<|<vimGyH(*c<B82=@gQS`
^QC=81*?&zGi>k=[CuKun5O]KL]hoe7N+S{o!x@WT4I]#R,"52tEs?;F]#Hz
X$SN$|fZ e/MO4g0lG*+g.f UO?=khw$c2 (<DI1>AGSG9{"];/ySrn"JH`F9`?xjJ0?0b<5DC>\P_,''3OWS1,2d!
@ .,\H@|>6=w&5+`'3M31wwId!0V0EKB$bc.`Bn2_k3K!
Lh]RA*W4(\N*1Y]y!C0MjWv0(]^Q]DDWB.wZ06!OE3(te
)#BMF_eMox:G)Ul#Opema?S_0?1z4.D6"DI.H{5<_*e=E
[jo[gxQD88t9Mrws.PrLLEdv(`&!b*0%)K:9`/Z1\=LDIL?U[0AcZi(N6PTev7b#]F)Pj-/X";CB&! >k=]Jdm)$fgDH,(@kegp{)lOp[4+
_3*Z/dMbO-R=e8O
`-@ ]`SQG+M5I4%
V#!j+3%6#{t#Z9]
我写的程序算出来是510
程序如下
Private Sub Command1_Click()
Dim c As String * 1

Open "F:\wj15.txt" For Input As#1

Do While Not EOF(1)
Input #1, x
le = Len(x)

For i = 1 To le
c = Mid(x, i, 1)
If c >= "A" And c <= "Z" Then d = d + 1
If c >= "a" And c <= "z" Then xiao = xiao + 1
If c >= "0" And c <= "9" Then s = s + 1
Next i
Loop
Print d; xiao; s; d + xiao + s:
Close all
End Sub 应该是553 实际是510
急啊急啊

Answer 1

除了大小写字母和数字外还有其它的字符，如标点符号，这部分字符你没有统计，所以结果与实际不符

追问

但是题目只求这三种的字符啊？

Answer 2

Do While Not EOF(1)
Input #1, x
le = Len(x)

For i = 1 To le
c = Mid(x, i, 1)
If c >= "A" And c <= "Z" Then d = d + 1
If c >= "a" And c <= "z" Then xiao = xiao + 1
If c >= "0" And c <= "9" Then s = s + 1