vb程序设计实课后习题代码

vb程序设计实课后习题代码

ID:31726982

大小:82.49 KB

页数:83页

时间:2019-01-17

vb程序设计实课后习题代码_第1页
vb程序设计实课后习题代码_第2页
vb程序设计实课后习题代码_第3页
vb程序设计实课后习题代码_第4页
vb程序设计实课后习题代码_第5页
资源描述:

《vb程序设计实课后习题代码》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、实验AVB环境和可视化编程基础1PrivateSubCommandl_Click()Label3=TextlEndSub2.PrivateSubForm_Load()Timerl.Interval=0EndSubPrivateSubCommandl_Click(),手动Timerl.Interval=0CallMyMoveEndSubPrivateSubCommand2_Click()*自动Timerl.Interval=200EndSubPrivateSubTimerl_Timer()CallMy

2、MoveEndSubSubMyMove()Labell.MoveLabell.Left・50,Labell.TopIfLabell.Left<0ThenLabell.Left=Forml.WidthEndSub3PrivateSubForm_Click()Textl=Val(Textl)+1EndSubPrivateSubForin_Load()Textl=0EndSub5SubCommandl_Click()Textl.FontName="隶书"Textl.FontSize=25EndSubSub

3、Command2_Click()Text2.Text=Textl.SelTextText2.FontName=Textl.FontNameText2.FontSize=Textl.FontSizeEndSub实验B:顺序结构①目的掌握常用函数的用法以及顺序结构程序的编制;掌握关系表达式和逻辑表达式的用法;掌握选择结构的基本用法。②内容教材中P263实验4、5、6、7、8程序代码:实验4PrivateSubCommandl_Click()Text2=UCase(Textl.Text)Print〃长度〃

4、;Len(Textl.Text)EndSubPrivateSubForm_Load()Textl.Text=Text2.Text=EndSub实验5PrivateSubCommandl_Click()RandomizeTextl二Int(Rnd*901+100)EndSubPrivateSubCommand2_Click()Dimx%,xl%,x2%,x3%x=Vai(Textl)xl二xMod10x2=(xMod100)10x3=x100Label1二xl*100+x2*10+x3EndSub

5、实验6PrivateSubForm_Load()Label1=Left(Textl,11)Label2=Mid(Textl,12,6)Labe13=Right(Textl,5)EndSub实验7PrivateSubCommandl_Click()PrintFori=1To5PrintTab(15-i*2);String(2*i-1,〃★〃);Spc(18-4*(i-1));String(2*i-1,〃★“)NextiEndSubPrivateSubCommand2Click()CisEndSub另一

6、种PrivateSubCommand1_C1ick()PrintFori=1To5PrintTab(15-i*2);String(2*i-1,〃★‘');String(ll-2*i,〃☆“);String(2*i-1,〃NextiEndSubPrivateSubCommand2_Click()CisEndSub实验8PrivateSubFormClick()DimaAsSinglea=lnputBox(/,请输入一个正实数〃)Print的平方是〃;Int(a*a*1000+0.5)/1000;Pri

7、ntz,a的平方根是〃;Int(Sqr(a)*1000+0.5)/1000;Print的立方是〃;Tnt(a*a*a*1000+0.5)/1000;Printz,a的立方根是〃;Int(a八(1/3)*1000+0.5)/1000EndSub实验三:选择结构①目的掌握常用函数的用法以及顺序结构程序的编制;掌握关系表达式和逻辑表达式的用法;掌握选择结构的基本用法。②内容教材中P2651、3、5、6、7、8程序代码:1、DimxAsSinglex=Vai(InputBox(z,请输入价钱〃))Tfx<1

8、000Theny=xElselfx<2000Theny二0.9*xElselfx<3000Theny二0.8*xElsey=0.7*xEndIfPrint你应支付:〃;y3、PrivateSubCommand2_Click()Dimx!,y!,z!x=TnputBox(z,inputx〃)y二InputBox("inputy〃)z=lnputBox(/zinputz〃)Print〃xyz"Print〃排序前〃;x;“;y;Tfx

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

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

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