题目

铁路托运行李是根据行李的质量收费的，标准如下：若不超过50千克，按每千克0.35元收费；若超过50千克，超过部分则按每千克0.5元收费，但行李质量不得超过150千克。 设计一个VB程序，通过在文本框Text1输入托运行李的质量，计算并输出托运行李的费用，行李质量超过150千克，则显示“行李超重！”。结果在文本框Label1中显示。程序运行界面如图a所示。 （1） 在设计程序界面时，应使用图b所示的“控件工具箱”中的（填写相应编号）添加“Label1”对象。 （2） 解决铁路托运行李费用计算问题采用的算法是（填字母：A .解析算法/B .枚举算法）。 （3） 实现上述功能的VB程序如下，请在画线处填入合适的代码。 Private Sub Command1_Click( )   Dim x As Double，y As Double       ①       If x>150 Then     Label1l.Caption="行李超重！"   Else     If   ②   Then       y=0.35*50+0.5*（x-50）     Else       y=0.35*x        ③        Label1.Caption="行李收费"+   ④   十"元"   End If End Sub 画线处应填入的代码为：①；②；③；④。 答案： 【1】1 【1】A 【1】x = Val（Text1.Text）【2】x>50【3】End If【4】Str（y）

查看本题答案和解析