开关灯程序1.实践目标（1）掌握图像、按钮控件的使用。（2）初步掌握赋值、选择结构语句的使用。（3）初步学会选择结构的算法和程序设计。（4）掌握VB程序的调试和运行。2.任务描述参考图10-1，设计一个模拟控制电灯开、关的程序。单击命令按钮“开灯”（Command1）后，电灯变亮，同时按钮标题（Caption）变为“关灯”；单击命令按钮“开灯”（Command1）后，电灯灭掉，同时按钮标题（Caption）变为“开灯”。图10-1模拟控制电灯开、关的程序执行效果3.操作提示（1）分析问题。“灯亮”和“灯灭”其实是两张图片的呈现效果，可用图像对象Image0来显示“灯灭”图片，用Image1来显示“灯亮”图片，设计界面时将Image1置于Image0的前方，当Image1“可见”时我们就看到“灯亮”效果，当Image1“不可见”时我们就看到“灯灭”效果。命令按钮Command1的标题改变可通过赋值语句来实现。在显示新的效果前要判断原有状态，所以要采用选择结构进行程序设计。（2）设计界面。新建一个工程，在窗体中添加两个图像（Image）对象，并将其名称分别命名为“image0”、“image1”，“Picture”属性值分别设置为“灯灭”、“灯亮”图片，拉伸（Stretch）属性值都设置为“True”，宽度（Width）和高度（Height）属性值设置为相同。并将对象Image1置于前方。命令按钮Command1的标题（Caption）属性值设置为“开灯”。如图10-2所示。图10-2开、关灯程序的界面设计最后，需要将灯亮的图像对象Image1移动到Image0前方，确保程序运行时只能看到其中一张图片。（3）设计算法。命令按钮Command1被单击后，所需处理的算法可用流程图描述如下：Image0Image1Command1（4）编写程序。根据流程图的算法描述，完善下列程序，并将其输入到命令按钮Command1相应的事件驱动程序中。PrivateSubCommand1_Click()IfImage1.Visible=FalseThenImage1.Visible=__________Command1.Caption="关灯"ElseImage1.Visible=__________Command1.Caption="开灯"EndIfEndSub（5）运行调试程序。运行完成的VB应用程序并进行相应的操作，观察运行结果，若有错则修改程序直至正确。【扩展与提高】（6）对上述程序进行改进，使得程序能统计开、关灯总的次数并在窗体中显示开、关灯的总操作次数。4.相关练习（1）变量a,b,c分别保存一元二次方程的二次项、一次项系数和常数项（其中a≠0），变量x1和x2分别保存方程的两个根。下列程序根据方程的a,b,c计算根并输出相应信息，请完善下列程序。d＝_____________________Ifd＞0Thenx1＝________________________x2＝________________________Text4.Text＝Str（x1）Text5.Text＝Str（x2）Label6.Caption＝"有两个不同的实数根"ElseIf_______________Thenx1＝（－b）/（2*a）x2＝x1开始Image1不可见？使Image1可见使按钮标题为“关灯”使Image1不可见使按钮标题为“开灯”结束YNText4.Text＝Str（x1）Text5.Text＝Str（x2）Label6.Caption＝"有两个相同的实数根"ElseText4.Text＝""Text5.Text＝""Label6.Caption＝"没有实数根"EndIfEndIf（2）下列是VB程序运行调试时所涉及的一般操作步骤：①根据错误提示修改程序②保存程序③再次运行程序，观察程序运行是否正确④结束程序运行图10-3某VB应用程序运行时出错提示信息某VB应用程序运行时出现如图10-3所示提示信息，在单击“确定”按钮关闭“编译错误”提示窗体后，进行应用程序修改的正确步骤应该是（）A.①②③④B.②①③④C.④①②③D.②①④③（3）根据图10-3所示的程序，说明第二行代码出现了语法错误，则该行代码（“IfImage1.Visible=FalseThe”）应修改为：实验2运费计算铁路托运行李，从甲地到乙地，规定每张客标托运费计算方法是:行李重量不超过50公斤时，每公斤0.5元，超过50公斤超过100公斤时，其超过部分每公斤1.5元，超过100公斤时，其超过部分每公斤2元。请计算并输出托运的费用。[提示]1.先分析计算托运费用的公式。设行李重量为W公斤，应付运费为X元，则运费公式为：当W<=50时，则X=0.5*W当50100时，则X=0.5*50+1.5*50+（W-100）2.新建工程文件“实验5.2.vbp”，在其中新建窗体form1，并在上面...
