VB经典例题13道附.docx

文档介绍：该【VB经典例题13道附 】是由【雨林书屋】上传分享，文档一共【6】页，该文档可以免费在线阅读，需要了解更多关于【VB经典例题13道附 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。精选文档
精选文档
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
(1/n)>
pi=pi+a*(1/n)
n=n+2
a=-a
EndWhile
=4*pi
EndSub
=1+1+1/2!+1/3!+⋯+1/n!+⋯.
PrivateSubButton1_Click(,)
Dimn,e1,l
n=1
e1=1
While1/n>
精选文档
精选文档
3
精选文档
..
精选文档
精选文档
6
精选文档
.
l=1
Fori=1Ton
l=l*i
Next
n=n+1
e1=e1+1/l
EndWhile
=e1
EndSub

PrivateSubButton1_Click(,)
Dimn,s
=""
n=Val()
Fori=1Ton
s=""
&=Space(n-i)
Forj=1Toi
s&="*"
Next
&=s&vbCrLf
Next
EndSub

PrivateSubButton1_Click(,)
Dimn,s
=""
n=Val()
Fori=1Ton
s=""
&=Space(n-i)
Forj=1To2*i-1
s&="*"
Next
&=s&vbCrLf
Next
EndSub

PrivateSubButton1_Click(,)
Dimn,s
=""
精选文档
精选文档
5
精选文档
..
精选文档
精选文档
6
精选文档
.
n=Val()
Fori=nTo1Step-1
s=""
&=Space(n-i)
Forj=2*i-1To1Step-1
s&="*"
Next
&=s&vbCrLf
Next
EndSub

PrivateSubButton1_Click(,)
Dimn,s
=""
n=Val()
Fori=nTo1Step-1
s=""
&=Space(n-i)
Forj=iTo1Step-1
s&="*"
Next
&=s&vbCrLf
Next
EndSub

PrivateSubButton1_Click(,)
Dimn,s
=""
Fori=1To6
s=""
&=Space(i-1)
Forj=1To12
s&="*"
Next
&=s&vbCrLf
Next
EndSub

(1).判断输入的数字是不是水仙花数
PrivateSubButton1_Click(,)
Dims,a,b,c
精选文档
精选文档
7
精选文档
..
精选文档
精选文档
6
精选文档
.
s=Val()
=""
a=s\100
b=(s-a*100)\10
c=sMod10
Ifa^3+b^3+c^3=sThen
&=s&"是水仙花数"
Else
&=s&"不是水仙花数"
EndIf
EndSub
(2).找出全部的水仙花数
PrivateSubButton1_Click(,)
Dims,a,b,c
="水仙花数是"&vbCrLf
Fors=100To999
a=s\100
b=(s-a*100)\10
c=sMod10
Ifa^3+b^3+c^3=sThen
&=s&vbCrLf
EndIf
Next
EndSub

(1).判断输入的数字是不是完整数
PrivateSubButton1_Click(,)
Dims,j,l,a(100)
s=Val()
j=1
Fori=1Tos-1
IfsModi=0Then
a(j)=i
j=j+1
EndIf
Next
Fori=1Toj
l=l+a(i)
Next
Ifl=sThen
=s&"是完整数"
Else
精选文档
精选文档
9
精选文档
..
精选文档
精选文档
6
精选文档
.
=s&"不是完整数"
EndIf
EndSub
(2).找出1到n内的完整数,n由用入
PrivateSubButton1_Click(,)
Dimn,j
n=Val()
=""
Forp=2Ton
j=0
Fori=1Top-1
IfpModi=0Then
j=j+i
EndIf
Next
Ifj=pThen
&=p&""
EndIf
Next
EndSub
,1,2,3,5,8,13,21⋯⋯F(i)=f(i-1)+f(i-2)
PrivateSubButton1_Click(,)
Dimf(30)
f(1)=1
f(2)=1
Fori=3To30
f(i)=f(i-1)+f(i-2)
Next
=""
Fori=1To30
&=f(i)&","
IfiMod6=&=vbCrLf
Next
EndSub
精选文档
精选文档
11
精选文档
..
精选文档
精选文档
6
精选文档