visual basic程序设计教程实验答案

visual basic程序设计教程实验答案

ID:16753128

大小:27.40 KB

页数:70页

时间:2018-08-24

visual basic程序设计教程实验答案_第1页
visual basic程序设计教程实验答案_第2页
visual basic程序设计教程实验答案_第3页
visual basic程序设计教程实验答案_第4页
visual basic程序设计教程实验答案_第5页
资源描述:

《visual basic程序设计教程实验答案》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、VisualBasic程序设计教程实验答案实验一1.PrivateSubCommand1_Click()Label3.Caption=Text1.TextEndSub2.PrivateSubCommand1_Click()'手动Timer1.Interval=0CallmymoveEndSubPrivateSubCommand2_Click()'自动Timer1.Interval=200EndSubPrivateSubForm_Load()Timer1.Interval=0EndSubPrivateSubTimer1_Timer()Cal

2、lmymoveotherstaffoftheCentre.Duringthewar,ZhuwastransferredbacktoJiangxi,andDirectorofthenewOfficeinJingdezhen,JiangxiCommitteeSecretary.Startingin1939servedasrecorderoftheWestNorthOrganization,SecretaryoftheSpecialCommitteeAfterthevictoryofthelongMarch,hehasbeentheNorthw

3、estOfficeoftheFederationofStateenterprisesMinister,ShenmufuguSARmissions,DirectorofNingxiaCountypartyCommitteeSecretaryandrecorderoftheCountypartyCommitteeSecretary,MinistersandEndSubSubmymove()Label1.Left=Label1.Left-50IfLabel1.Left<-Form1.WidthThenLabel1.Left=0EndSub3.P

4、rivateSubForm_Click()Text1.Text=Val(Text1.Text)+1EndSub5.PrivateSubCommand1_Click()Text2.Text=Text1.TextText2.FontName="隶书"Text2.FontSize="25"EndSubPrivateSubCommand2_Click()Text2.Text=Text1.SelTextText2.FontName="宋体"Text2.FontSize="15"EndSubotherstaffoftheCentre.Duringth

5、ewar,ZhuwastransferredbacktoJiangxi,andDirectorofthenewOfficeinJingdezhen,JiangxiCommitteeSecretary.Startingin1939servedasrecorderoftheWestNorthOrganization,SecretaryoftheSpecialCommitteeAfterthevictoryofthelongMarch,hehasbeentheNorthwestOfficeoftheFederationofStateenterp

6、risesMinister,ShenmufuguSARmissions,DirectorofNingxiaCountypartyCommitteeSecretaryandrecorderoftheCountypartyCommitteeSecretary,Ministersand6.Dimh%,w%PrivateSubCommand1_Click()Image1.Width=w/2Image1.Height=h/2EndSubPrivateSubCommand2_Click()Image1.Width=wImage1.Height=hEn

7、dSubPrivateSubForm_Load()w=Image1.Widthh=Image1.HeightEndSub实验二1.PrivateSubCommand1_Click()Text1.Text=Int(Rnd*(9-1+1)+1)Text2.Text=Int(Rnd*(99-10+1)+10)Text3.Text=Int(Rnd*(999-100+1)+100)EndSubotherstaffoftheCentre.Duringthewar,ZhuwastransferredbacktoJiangxi,andDirectorof

8、thenewOfficeinJingdezhen,JiangxiCommitteeSecretary.Startingin1939servedasrecorderoftheWestNorthO

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。