顺序结构精品课件.pptVIP

实验二顺序结构实验要求?要求对VB程序有初步认识和理解?进一步熟悉编程环境和编写一些简单的程序实验任务基本语句练习；熟悉窗体的属性、事件和方法；InputBox函数和MsgBox函数练习，控件练习，编写程序输出三角形，编写计时程序，编写程序，求任意数的平方根；完成课后作业。代码参考PrivateSubForm_Click()PrintFormat$(12345.6,000,000.00)PrintFormat$(12345.678,###,###.##)PrintFormat$(12345.6,###,#0.00)PrintFormat$(12345.6,$###,#0.00)PrintFormat$(12345.6,-###,##0.00)PrintFormat$(0.123,0.00%)PrintFormat$(12345.6,0.00E+00)PrintFormat$(0.1234567,0.00E-00)EndSub2.编写如下图所示计时程序代码参考PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.FontName=隶书Form1.FontBold=TrueForm1.FontSize=16Form1.PrintForm1.PrintTab(3);“日期:;Tab(10);DateForm1.PrintTab(3);“星期:;Tab(10);_

WeekdayName(Weekday(Now))EndSub程序运行效果如下图所示：y=Sqr(x)PrintvbCrLf;Tab(5);x;Tab(20);

Format(y,.000)EndSubPrivateSubForm_Load()Me.AutoRedraw=TruePrintvbCrLf;Tab(5);“源数据;Tab(20);

平方根EndSub五、完成课后作业代码参考实验二_4（存盘名称）PrivateSubForm_Click()PrintFormat$(12345.6,000,000.00)PrintFormat$(12345.678,###,###.##)PrintFormat$(12345.6,###,#0.00)PrintFormat$(12345.6,$###,#0.00)PrintFormat$(12345.6,-###,##0.00)PrintFormat$(0.123,0.00%)PrintFormat$(12345.6,0.00E+00)PrintFormat$(0.1234567,0.00E-00)EndSub讲课内容、方法、步骤**返回?掌握赋值语句?正确使用按钮?掌握数据的输入和输出?通过实验进一步掌握InputBox函数?进一步理解MsgBox函数与MsgBox语句的区别实验步骤一.基本语句和InputBox函数练习1.创建应用程序界面(如下图)2.设置属性窗体的Caption属性设置为“基本语句练习”text1的text属性设置为“”Cammand1、cammand2、cammand3的Caption属性分别设置为“计算”、“暂停”、“结束”效果如下图：３、编写代码单击“Command1”按钮，计算三角形的周长，三个边长用InputBox函数输入，计算的结果放在Text1中，然后用三个字符串变量，分别存放“中国民航飞行学院”，“计算机学院”，“张芳”，连接后放在一个字符串变量中，用print方法，把结果输在窗体上；单击“Command2”按钮，使程序“暂停”；单击“Command3”按钮，使程序“结束”,并且在有注释。4.代码参考PrivateSubCommand1_Click()Rem基本语句练习A=Val(InputBox(输入A))B=Val(InputBox(输入B))C=Val(In