文档介绍:精品文档
精品文档
1
精品文档
.
,有多少数字,有多少其他
PrivateSubButton1_Click(,)
Dims,c,q,w,r
s=
Fori=1ToLen(s)
c=Mid(s,i,1)
IfUCase(c)>="A"AndUCase(c)<="Z"Then
q=q+1
ElseIfc>="0"Andc<="9"Then
w=w+1
Else
r=r+1
EndIf
Next
="字母有"&q&"个 数字有"&w&"个 其他有"&r&"个"
EndSub
?结尾,求有多少字母,有多少数字,有多少其他
PrivateSubButton1_Click(,)
Dims,a,z,x,c,i
s=
a=Mid(s,1,1)
i=1
DoWhilea<>"?"
IfUCase(a)>="A"AndUCase(a)<="Z"Then
z=z+1
ElseIfa>="0"Anda<="9"Then
x=x+1
Else
c=c+1
EndIf
i=i+1
a=Mid(s,i,1)
Loop
=z&x&c
EndSub
,如( 1).12345 (2).-12345 (3).
PrivateSubButton1_Click(,)
Dims,c,j
s=
c=Trim(Str(s))
IfInt(c)=cThen
..
精品文档
精品文档
6
精品文档
.
Ifc>=0Then
="是"&Len(c)&"位数"
Else
="是"&Len(c)-1&"位数"
EndIf
Else
Ifc>=0Then
Fori=1ToLen(c)
IfMid(c,i,1)="."ThenExitFor
j=j+1
Next
="小数点前有"&j&"位数 "&" 小数点后有"&Len(c)-j-1&
"位数 "
Else
Fori=1ToLen(c)
IfMid(c,i,1)="."ThenExitFor
j=j+1
Next
="小数点前有"&j-1&"位数"&" 小数点后有"&Len(c)-j-
1&"位数"
EndIf
EndIf
EndSub
公式
PrivateSubButton1_Click(,)
Dima,s,n,pi
a=1
n=1