资源描述：
《VB经典例题13道(附答案).doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、1.一串字符求有多少字母，有多少数字，有多少其他PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDims,c,q,w,rs=TextBox1.TextFori=1ToLen(s)c=Mid(s,i,1)IfUCase(c)>="A"AndUCase(c)<="Z"Thenq=q+1ElseIfc>="0"Andc<="9"Thenw=w+1Elser=r+1EndIfNextLabel1.Text=
2、"字母有"&q&"个数字有"&w&"个其他有"&r&"个"EndSub2.一串字符以？结尾，求有多少字母，有多少数字，有多少其他PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDims,a,z,x,c,is=TextBox1.Texta=Mid(s,1,1)i=1DoWhilea<>"?"IfUCase(a)>="A"AndUCase(a)<="Z"Thenz=z+1ElseIfa>="0"Anda
3、<="9"Thenx=x+1Elsec=c+1EndIfi=i+1a=Mid(s,i,1)LoopLabel1.Text=z&x&cEndSub3.给定一个数字求它是几位数字，如（1）.12345(2).-12345(3).123.45PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDims,c,js=TextBox1.Textc=Trim(Str(s))IfInt(c)=cThenIfc>=0Th
4、enLabel1.Text="是"&Len(c)&"位数"ElseLabel1.Text="是"&Len(c)-1&"位数"EndIfElseIfc>=0ThenFori=1ToLen(c)IfMid(c,i,1)="."ThenExitForj=j+1NextLabel1.Text="小数点前有"&j&"位数"&"小数点后有"&Len(c)-j-1&"位数"ElseFori=1ToLen(c)IfMid(c,i,1)="."ThenExitForj=j+1NextLabel1.Text="小数点前有"&j-1&"位数"&"小数点后有"&L
5、en(c)-j-1&"位数"EndIfEndIfEndSub4.求圆周率公式PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,s,n,pia=1n=1WhileMath.Abs(1/n)>0.0001pi=pi+a*(1/n)n=n+2a=-aEndWhileLabel1.Text=4*piEndSub5.求自然对数e公式e=1+1+1/2!+1/3!+…+1/n!+….PrivateSub
6、Button1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimn,e1,ln=1e1=1While1/n>0.01l=1Fori=1Tonl=l*iNextn=n+1e1=e1+1/lEndWhileLabel1.Text=e1EndSub6.右直角三角形PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButt
7、on1.ClickDimn,sLabel1.Text=""n=Val(TextBox1.Text)Fori=1Tons=""Label1.Text&=Space(n-i)Forj=1Tois&="*"NextLabel1.Text&=s&vbCrLfNextEndSub7．等腰三角形PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimn,sLabel1.Text=""n=Val(TextBox1.
8、Text)Fori=1Tons=""Label1.Text&=Space(n-i)Forj=1To2*i-1s&="*"NextLabel1.Text&=s&vbCrLfNext
