《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*rMsgBox"园的周长为："&c&"面积为："

2、&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=Text1.FontSize*Int(Rnd()*3+1)缩小的比例为任意：Text1.FontS

3、ize=Text1.FontSize*Rnd()连接与求和PrivateSubCommand1_Click()Text3.Visible=Truesuppliesandgettouse,theregistrationofcompanyassets,recordmaintenance,maintenanceofeffectivemanagement;2.6costmanagement:preparationoftheannualadministrativebudget,controladministrativecosts,determinethescopeofcost-sharing,sha

4、ringtheofficeexpensesbymonth;2.7informationmanagement:responsiblefordocuments,materials,informationandpublicity,communicationlinks,andensurepromptly,rankingofficersreporting;responsibleforthecollationandanalysisofinformation,providethebasisforcorporatedecisions;corporatecultureconstruction,plannin

5、g,editing,internalpublications;2.8vehiclemanagement:responsibleforthemanagement,repairsandmaintenanceofvehicles;2.9legaldisputes:thecompanyresponsibleforthehandlingofdisputes;2.10other:maintainingnormalworkingorder,andsecurity.GeneralManagerGeneralManagerjobdescription1,1.1developstrategiesandplan

6、s:accordingtocompanystrategicplanning,establishtheannualmanagementplan,reportedtotheBoardofDirectorsforapproval;1.2decompositionmeasures:accordingtotheBoardofDirectorsissuedtheannualmanagementplan,annualindexofdecomposition,throughtheOrganizationofcoordinationmandateinchargeoftheDepartmentOrganiza

7、tionandimplementation,ensuringcomprehensiveimplementationofannualindicators;1.3inspection:convenestheGeneralManagerOffice,through41Text3.Text=Text1.Text&Text2.Text'也可以用Text1.Text+Text2.TextCommand1.Enabled=FalseE