VB程序设计基础__申石磊_答案

《VB程序设计基础__申石磊_答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB程序设计课后习题参考答案2-1PrivateSubForm_Click()ClsEndSubPrivateSubForm_DblClick()FontSize=40FontName="隶书"ForeColor=vbRedPrint"热烈庆祝"FontSize=60FontName="宋体"ForeColor=vbGreenPrint"XX会召开"EndSub2-2PrivateSubCommand1_Click()Label1.MoveWidth*Rnd,Height*RndEndSub2-3PrivateSubCo

2、mmand1_Click()Label1.Visible=TrueEndSubPrivateSubCommand2_Click()Label1.Visible=FalseEndSub2-4PrivateSubTimer1_Timer()Text1.Text=NowCaption=Text1.TextEndSub2-5PrivateSubTimer1_Timer()IfBackColor=vbRedThenBackColor=vbYellowElseBackColor=vbRedEndIfEndSub2-6PrivateS

3、ubTimer1_Timer()IfLabel1.Left

4、EndSub2-9PrivateSubCommand1_Click()FontSize=20FontBold=TruePrint"欢迎来到"Print"XX"EndSubPrivateSubCommand2_Click()ClsEndSubPrivateSubCommand3_Click()EndEndSub2-10PrivateSubCommand1_Click()r=Text1.TextText2.Text=3.14*2*rEndSubPrivateSubCommand2_Click()Text1.Text=""Te

5、xt2.Text=""Text1.SetFocusEndSub2-11PrivateSubForm_Load()Text1.Text="XX欢迎您！"Text1.FontName="宋体"Text1.FontSize=50Text1.BackColor=vbYellowText1.ForeColor=vbBlueEndSub2-12DimsAsStringPrivateSubCommand1_Click()s=Text1.SelTextEndSubPrivateSubCommand2_Click()Text2.SelTe

6、xt=sEndSub2-13PrivateSubTimer1_Timer()IfLabel1.Top>-Label1.HeightThenLabel1.Top=Label1.Top-100ElseLabel1.Top=Form1.HeightEndIfEndSub3-2PrivateSubForm_Click()DimnAsIntegerRandomizen=Int((90*Rnd)+10)PrintnEndSub3-3PrivateSubTimer1_Timer()ClsPrint"XX学院"FontSize=Int(

7、71*Rnd+10)EndSub3-4PrivateSubCommand1_Click()n=Text1.TextText2.Text=Hex(Asc(Right(Text1.Text,1)))EndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSub3-5PrivateSubCommand1_Click()DimmAsDatem=Text1.Textn=DateText2.Text=n-mEndSubPrivateSubC

8、ommand2_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSub3-6DimbAsStringDimnAsStringDimmAsStringPrivateSubCommand1_Click()m=Left(Text1,1)n=Right(Text1,1)b=