VB实验抄写说明.doc

《VB实验抄写说明.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验一简单VisualBasic程序设计一、实验目的1.熟悉VisualBasic开发环境以及各种窗口的使用；2.掌握创建一个简单的VisualBasic工程的全过程；二．实验项目【项目一】创建一个类似于QQ登陆界面的应用程序。图1-1创建对象2.属性设置对象的相关属性设置见表1-1。表1-1登录界面的属性设置对象属性属性值Form1Caption登陆Label1CaptionQQ号Label2Caption密码Text1TextText2TextPassworchar*Command1Caption确定C

2、ommand2Caption取消3．代码编写PrivateSubCommand2_Click()EndEndSub4．保存工程5．调试运行【项目二】编程实现内容互换的小游戏。1．创建对象根据案例要求在窗体中添加两个标签，两个命令按钮，并排列好位置。界面如图1-3所示。图1-3内容互换程序对象2．属性设置本题的属性设置见表1-2。表1-2各控件的属性设置对象属性属性值Form1Caption交换小游戏Label1Caption欢迎您进入Borderstyle1AutosizeTrueLabel2Caption

3、VB6.0Borderstyle1AutosizeTrueCommand1NamecmdSwapCaption交换Command2NamecmdExitCaption退出3．代码编写双击窗体，在弹出的代码窗口中，按照【案例二】中给的方法，编写如下代码:PrivateSubcmdExit_Click()EndEndSubPrivateSubcmdSwap_Click()DimsAsStrings=Label1.CaptionLabel1.Caption=Label2.CaptionLabel2.Caption

4、=sEndSub4．保存5．调试运行实验二选择结构程序设计一、实验目的1．掌握单分支语句的使用；2．掌握多分支语句的使用；3．熟悉采用选择结构解决实际问题。二、实验项目【项目一】输入三角形的三边a，b，c的值，判断它们能否构成一个三角形。如果能，则计算三角形的面积，否则给出错误信息。界面设计如下属性设置对象属性设定值Form1Caption项目3-1Text1TextText2TextText3TextText4TextCommand1Caption计算面积Command2Caption重输command3

5、Caption退出程序代码如下PrivateSubCommand1_Click()DimaAsSingleDimbAsSingleDimcAsSingleDimsAsSingleDimlAsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa<=0Orb<=0Orc<=0ThenText4.Text="边长必须为正数":ExitSubIfa+b>cAnda+c>bAndb+c>aThenl=(a+b+c)/2s=Sqr(l*(l-a)*(l

6、-b)*(l-c))Text4.Text="面积为:"&sElseText4.Text="不能构成三角形"EndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubCommand3_Click()EndEndSub调试运行（1）单击“重输”命令按钮，在txtA,txtB,txtC中分别输入-1，2，1，单击“计算面积”按钮，txt1中显示“边长必须为正数”。

7、（2）在txtA,txtB,txtC中分别输入3，4，5，单击“计算面积”按钮，txt1中显示“面积为：6”；（3）单击“重输”命令按钮，在txtA,txtB,txtC中分别输入1，1，4，单击“计算面积”按钮，txt1中显示“不能构成三角形”；实验三循环结构程序设计一、实验目的1．掌握For语句的使用；2．掌握While…Wend语句的使用；3．掌握Do{While

8、Until}…Loop与Do…Loop{While

9、Until}两种结构的使用；4．掌握如何设置循环条件，防止死循环。二、实验项目2.1循环

10、结构11.设计程序计算sum=1+2+3+…..+n(n由用户输入)---理论课本P1024-12界面设计如下:程序代码如下：PrivateSubCommand1_Click()DimsumAsIntegerDimIAsIntegerDimNAsIntegerN=Val(InputBox("inputn"))sum=0ForI=1ToNsum=sum+INextIPrintsumEndSub思考：如何将此代码中f