资源描述:
《VB实验答案简明版本》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、实验PrivateSubCommandl_Click()Label3.Caption=Textl.TextEndSubPrivateSubCommandl_Click()Textl.FontName=11隶书1,Textl.FontSize=25EndSubPrivateSubCommand2_Click()Text2.Text=Textl.SelTextText2.FontName=Textl.FontNameText2.FontSize=Textl.FontSizeEndSubText的滚动
2、条在ScrollBars属性中设置实验12实验14PrivateSubForm_Click()Textl.Text=Textl.Text+1PrivateSubForm_Click()Caption=”鼠标单击”Picture=LoadPicture(App.Path+“COVER01.BMP”)EndSubEndSubTextl的初始值设为0.Label1的Autosize屈性设为TruePrivateSubForm_DblClick()Caption=”鼠标双击”Picture=LoadP
3、icture(,,n)EndSub实验13PrivateSubForm_Load()Caption=”装入窗体”Picture=LoadPicture(App.Path+“WINDOW.JPG”)EndSub实验21PrivateSubCommand2_Click()Textl.Text=Len(Textl.Text)EndSubPrivateSubCommandl_Click()r=Textl.Texta=3.14Label2.Caption=Format(r*r*a,H0.00u)EndS
4、ub实验23PrivateSubCommand2_Click()r=Textl.Texta=3.14Label3.Caption=Format(2*r*6n0.00n)EndSubPrivateSubTextl_LostFocus()IfNotIsNumeric(Textl)OrVal(Textl)<=0ThenMsgBox”输入错误,请重新输入!”,vbOKOnly,"警告“Textl.Text=,n,Textl.SetFocusEndIfEndSubPrivateSubCommandl_Cl
5、ick()Textl.Text=UCase(Textl.Text)EndSub方法一PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsInteger,dAsInteger,eAsInteger,fAsIntegerd=Int(Rnd*900)+100Printda=d100b=(dMod100)10c=dMod10Ifc=0Thene=a+b*10PrintH0n&eElsee=a+b*10+c*100PrinteEndIfEndSub方法二
6、PrivateSubForm_Click()num=Int(Rnd*900)+100Printnuma=Left(num,1)b=Mid(num,2,1)c=Right(num,1)PrintSpc(l);c;b;aEndSub实验24PrivateSubForm_Load()Textl.Text="VisualBasic程序设计教程(第三版)"Label1.Caption=Left(Textl.Textz11)Label1.Font=Text1.FontLabel2.Caption=Mid(T
7、extl.Text,12,6)Label2.Font=Text1.FontLabel3.Caption=Right(Textl.Textz5)Label3.Font=Textl.FontEndSub实验25PrivateSubCommandl_Click()x=Val(Textl.Text)Ifx<=10ThenLabel3.Caption=30Elselfx>10Andx<=50ThenLabel3.Caption=30+(x・10)*2.5Elselfx>50Theny=30+2.5*40+
8、2*(x・50)Ify<=150ThenLabel3.Caption=yElse:Label3.Caption=150EndIfEndIfEndSub实验32PrivateSubForm_Click()Dima!zb!zc!zd!,e!a=Val(InputBox("请输入一个正实数",”计算”,""))b=Val(Format(aA2fH0.###”))c=Format(Sqr(a),”0.###“)d=Format(aA3,”0.###“)e=Format(aA(1/3)zPrintb;Sp