河南大学vb程序设计课后习题参考答案

《河南大学vb程序设计课后习题参考答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

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

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

3、ft=Label1.Left+200ElseLabel1.Left=-Label1.LeftEndIfEndSub2-7PrivateSubCommand1_Click()Text1.Visible=TrueEndSubPrivateSubCommand2_Click()Text1.Visible=FalseEndSub2-8PrivateSubText1_Change()Text2.Text=Text1.TextEndSub2-9PrivateSubCommand1_Click()FontSize=20FontBold=TruePrint"欢迎来到"Print"河南大学"EndSub

4、PrivateSubCommand2_Click()ClsEndSubPrivateSubCommand3_Click()EndEndSub2-10PrivateSubCommand1_Click()r=Text1.TextText2.Text=3.14*2*rEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSub2-11PrivateSubForm_Load()Text1.Text="河南大学欢迎您！"Text1.FontName="宋体"Text1.FontSize=50Text1

5、.BackColor=vbYellowText1.ForeColor=vbBlueEndSub2-12DimsAsStringPrivateSubCommand1_Click()s=Text1.SelTextEndSubPrivateSubCommand2_Click()Text2.SelText=sEndSub2-13PrivateSubTimer1_Timer()IfLabel1.Top>-Label1.HeightThenLabel1.Top=Label1.Top-100ElseLabel1.Top=Form1.HeightEndIfEndSub3-2PrivateSubForm

6、_Click()DimnAsIntegerRandomizen=Int((90*Rnd)+10)PrintnEndSub3-3PrivateSubTimer1_Timer()ClsPrint"河南大学环境与规划学院"FontSize=Int(71*Rnd+10)EndSub3-4PrivateSubCommand1_Click()n=Text1.TextText2.Text=Hex(Asc(Right(Text1.Text,1)))EndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSub

7、3-5PrivateSubCommand1_Click()DimmAsDatem=Text1.Textn=DateText2.Text=n-mEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSub3-6DimbAsStringDimnAsStringDimmAsStringPrivateSubCommand1_Click()m=Left(Tex