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

《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