《vb程序设计》课堂例题总结

《《vb程序设计》课堂例题总结》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、《VB程序设计》课堂例题总结消息对话框的使用PrivateSubCommand1_Click()IfNotIsNumeric(Text1)Theni%=MsgBox("你输入的不是数字!",5+vbQuestion,"警告")Ifi=4ThenText1.SetFocusElseEndElseMsgBox"你好",,"欢迎"EndIfEndSub求圆的周长与面积PrivateSubForm_Click()Dimr!,s!,c!Constpi=3.14159‘用户声明常量r=InputBox("请输入园的半径：")s=pi*r*rc=2*pi

2、*rMsgBox"园的周长为："&c&"面积为："&sEndSub计算三角形的面积PrivateSubCommand1_Click()Dima%,b%,c%,s#,area#Dimstr1$a=Val(InputBox("a:"))b=Val(InputBox("b:"))c=Val(InputBox("c:"))s=(a+b+c)/2area=Sqr(s*(s-a)*(s-b)*(s-c))str1="area="&areaMsgBoxstr1Printstr1EndSub字体的放大与缩小随机放大1~3整数倍：Text1.FontSize

3、=Text1.FontSize*Int(Rnd()*3+1)缩小的比例为任意：Text1.FontSize=Text1.FontSize*Rnd()连接与求和PrivateSubCommand1_Click()Text3.Visible=TrueotherstaffoftheCentre.Duringthewar,ZhuwastransferredbacktoJiangxi,andDirectorofthenewOfficeinJingdezhen,JiangxiCommitteeSecretary.Startingin1939served

4、asrecorderoftheWestNorthOrganization,SecretaryoftheSpecialCommitteeAfterthevictoryofthelongMarch,hehasbeentheNorthwestOfficeoftheFederationofStateenterprisesMinister,ShenmufuguSARmissions,DirectorofNingxiaCountypartyCommitteeSecretaryandrecorderoftheCountypartyCommitteeSec

5、retary,Ministersand41Text3.Text=Text1.Text&Text2.Text'也可以用Text1.Text+Text2.TextCommand1.Enabled=FalseEndSubPrivateSubCommand2_Click()Text3.Text=Val(Text1.Text)+Val(Text2.Text)EndSub字符串的替换方法一：（多个函数）PrivateSubCommand1_Click()i=InStr(Text1,Text2)'在Text1中查找出现Text2内容的位置k=i+Len(

6、Text2)'定位右子串的起始位置Ls=Left(Text1,i-1)'取左子串Text4=Ls+Text3+Mid(Text1,k)'左子串连接替换为子串连接右子串实现替换'也可以将上面两步合并为Text4=Left(Text1,i-1)+Text3+Mid(Text1,k)EndSub方法二：（Replace函数）PrivateSubCommand2_Click()Text4=Replace(Text1,Text2,Text3)EndSub身份证的查找PrivateSubCommand1_Click()DimaAsString,nl%,

7、yue%,ri%,b%,xb$a=Text1.Textnl=2010-Val(Mid(a,7,4))'nl=Year(Now())-Val(Mid(a,7,4))yue=Mid(a,11,2)ri=Mid(a,13,2)b=Val(Mid(a,17,1))IfbMod2=1Thenxb="GG"Elsexb="MM"Label3.Caption=nlLabel5.Caption=yue&"月"&ri&"日"Label7.Caption="你是"&xbEndSub电话号码升位：将原来任意一个带区号的7位电话号码升到8位，在最前面加8。如020

8、-1234567→020-81234567区号及电话号码确定：Left(s,4)&”8”&Right(s,7)区号及电话号码不确定：PrivateSubCommand1_Clic