2.3程序的选择结构
本堂课学习目标
1. 理解VB关系表达式及逻辑表达式概念,并会 进行求值运算。 2. 掌握VB语言的条件选择语句if的结构、功能 和执行过程。
2.3.1 关系表达式
1. 关系表运算符
运算符号 含义 = 等 于 > 大 于 >= 大于等 于 < 小 于 <= 小于等 于 <> 不等于
3:表达式" ABD" > " ABC"的值为?true
4:表达式"123" >= 123的值为? true
注意:如果一个操作数是数值型,会将另 一个操作数转化为数值型,然后比较。
2.3.2 逻辑表达式
1. 逻辑运算符
运算符号 含义 NOT AND OR 非 与 或
2. 逻辑表达式 用逻辑运算符将多个关系表达式连接起来的运算式。
2. 关系表达式 用关系运算符连接起来的运算式。
3. 关系表达式的值的类型 Boo关系表达式的求值规则 ①数值型数据的比较按照大小 ②非数值型数据的比较按照顺序
随堂检测练习: 1:a=3 b=4 , a>b的值为? false 2:表达式"2012" > " 1911"的值为?false
练习:
一元二次方程组a*x^2+b*x+c=0,请输入a,b,c系 数,判定方程是否有实数根。如有,则打印输出: x1=值1 x2=值2;否则打印:无根!。
Private Sub Command1_Click() Dim a, b,c As Integer Dim d , x1, x2 As single ’d为判别式 a = InputBox("请输入a的值", "输入", 5) ’输入a的值 b = InputBox("请输入b的值", "输入", 10) c = InputBox("请输入c的值", "输入", 5) d = b ^ 2 - 4 * a * c ’d为判别式 If d >= 0 Then x1 = (-b + Sqr(d)) / 2 * a x2 = (-b + Sqr(d)) / 2 * a Print "根为:x1="; x1, "x2="; x2 ’打印 Else Print “无根!" ’打印 End If ‘结束语句 End Sub