《解析算法.docx》由会员分享，可在线阅读，更多相关《解析算法.docx（1页珍藏版）》请在三一文库上搜索。
1、 技术选考习题 命题：杜宗飞VB 解析算法行政班：教学班：姓名：学号：1铁路托运行李，根据行李的重量按下列标准收费：若不超过 50 千克按每千克 0.35 元收费，若超过 50 千克，超过部分则按每千克 0.5 元收费，行李重量不得超过 150 千克。设计一个 VB 程序，通过输入托运行李的重量，计算并输出托运行李的费用，行李超过 150千克，则显示“行李超重！”VB 程序如下，在程序、划线处填入的语句：；= x(x 0)2下面程序界面如图 2，功能：用如下公式计算 y 3的近似值：2y = y +3x(i = 0,1,2,3,.)3y2i+1ii= xyx初始值 y，重复执行 n 次后 就是
2、的近似值。在图 3 的文本框 Text1 中输入 x 值，30n文本框 Text2 中输入重复次数 n，单击计算按钮后在文本框 Text3 中输出结果。为了实现这一目标，程序、划线处语句是；Private Sub Command1_Click()Private Sub Command1_Click()Dim x As Double, y As DoubleDim i As Integer, n As Integerx = Val(Text1.Text)n = Val(Text2.Text)Dim x As Double, y As Doublex3ElseElseText3.Text = Str(y)End Sub图 2信息备课组1