实验C选择结构.docVIP

实验三：选择结构 ①目的 掌握常用函数的用法以及顺序结构程序的编制； 掌握关系表达式和逻辑表达式的用法； 掌握选择结构的基本用法。 ②内容 教材中P265 1、3、5、6、7、8 程序代码： 1、 Dim x As Single x = Val(InputBox(请输入价钱)) If x 1000 Then y = x ElseIf x 2000 Then y = 0.9 * x ElseIf x 3000 Then y = 0.8 * x Else y = 0.7 * x End If Print 你应支付:; y 3、 Private Sub Command2_Click() Dim x!, y!, z! x = InputBox(input x) y = InputBox(input y) z = InputBox(input z) Print x y z Print 排序前; x; ; y; ; z If x y Then t = x: x = y: y = t If y z Then t = y: y = z: z = t If x y Then t = x: x = y: y = t End If End If Print 排序后 x y z End Sub 5、 Dim m%, n%, x%, y% Private Sub Form_Load() Text1.Text = Text2.Text = End Sub Private Sub Text2_LostFocus() m = Text1.Text n = Text2.Text If n Mod 2 0 Then MsgBox (脚数为奇数,重新输入) Text2.Text = Text2.SetFocus End If If n 2 * m Or n 4 * m Then MsgBox (脚数小于头数的倍数或大于4倍,重新输入) Text2.Text = Text2.SetFocus End If End Sub Private Sub Text3_GotFocus() y = n / 2 - m x = m - y Text3.Text = x Text4.Text = y End Sub 6、 Private Sub Command1_Click() Dim a As Single, b As Single, c As Single Dim x1 As Single, x2 As Single a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text) d = b * b - 4 * a * c If a 0 Then If d 0 Then MsgBox 两实根 x1 = (-b + Sqr(d)) / 2 / a x2 = (-b - Sqr(d)) / 2 / a Text4.Text = x1: Text5.Text = x2 ElseIf d = 0 Then MsgBox 两重根 x1 = -b / 2 / a x2 = x1 Text4.Text = x1: Text5.Text = x2 Else MsgBox 两复根 x1 = -b / 2 / a x2 = Sqr(-d) / 2 / a Text4.Text = x1 + x2 i Text5.Text = x1 － x2 i End If Else If b 0 Then MsgBox 单根 x1 = -c / b: x2 = -c / b Text4.Text = x1: Text5.Text = x2 Else MsgBox 无意义 End If End If End Sub Private Sub Command2_Click() end End Sub Private Sub Form_Load() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text =