程序填空总结复习.docVIP

各类常见算法填空题总复习 提示：例：x = Val(Text1.Text) ：输入数值型内容至x中 x = Text1.Text ：输入字符型内容至x中 Label1.Caption=s ：输出字符型内容显示在Label1中 Label1.Caption=str(s) ：输出数值型内容显示在Label1中 Val( ):字符转换成数值 Str():数值转换成字符 选择结构（分支结构）：p67 例2.frm，铁路托运行李，资费为：=50,按每千克0.35元收费，50,超过部分按每千克0.5元收费，行李重量不超过150千克，否则就是超重。请写出？处内容 Private Sub Command1_Click() Dim x As Double x = Val(Text1.Text) If x 150 Then Text2.Text = 行李超重! Else If _________? 1 Then y = 50 * 0.35 + (x - 50) * 0.5 Else ___________?2 End If Text2.Text = Str(y) End If End Sub ？1：