(
课件网) 解析算法———IF语句 欢迎各位同学通过空中课堂一起来学习! 各位同学 新年好！ 新学期 新气象 新起点 新希望 目录 DIRECTORY 考试要求 学习重点 学习难点 01 02 03 04 课前练习 05 课堂练习 06 课后巩固 考试要求 01 01 考试要求 1.解析算法思想 (c) 2.IF语句 (c) 学习重点 02 02 学习重点 1．熟悉掌握、运用VB的基础知识。 2．掌握赋值语句的格式和用法。 3．掌握选择结构和If语句的格式和用法。 4．掌握解析算法思想。 学习难点 03 03 学习难点 1．If语句的多种格式。 2. 学会使用If语句解决实际问题。 课前练习 04 1. 程序的三种基本结构是( ) A.选择结构、循环结构、树型结构 B.顺序结构、选择结构、循环结构 C.顺序结构、循环结构、树型结构 D.树型结构、顺序结构、选择结构 课前练习 04 2. 在程序中用到某一整型变量的数据范围为-40000至40000，则该变量类型应该说明为( ) A.Integer B.Byte C.Long D.Boolean 课前练习 04 3. 以下哪项是合法的Visual Basic变量名( ) A．9abc B．Const C. abc D. a#x 4. 如果x=-25，运行x=Abs(x)；x=Sqr(x)后，x的值是( ) A．5 B．-5 C．25 D．-25 课前练习 04 5. 表达式2^4\3的值是 ( ) A．2 B．5.3 C．5 D．1 6. 设a＝2，b＝3，则表达式 Not(a=b)的值是：( ) A． True B． False C．-1 D．1 7．下列每个控件都具有的属性是( ) A.Name B.Caption C.Font D.Interval 课前练习 04 8．将文本框Text2内输入的数据送到字符型变量n 中，则应使用的语句是( ) A．n = text B．n = text2.text C．Text2 = n D．text2.text = n 9. 下列各赋值语句，语法不正确的是( ) A．x+y=5 B．x=y<>5 C．Labell.caption =time D．x=x+y 课前练习 04 10. 下列Visual Basic程序段运行后，变量c的值为 ( ) a=5：b=10：c=a IF b>c Then c=b A．5 B．10 C．5和10 D. 以上都不是 课前练习 04 答案：BCCAC AABAB 课前练习 04 1. 程序的三种基本结构是( ) A.选择结构、循环结构、树型结构 B.顺序结构、选择结构、循环结构 C.顺序结构、循环结构、树型结构 D.树型结构、顺序结构、选择结构 新课讲授 B 新课讲授 通常算法中含有如下三种控制结构：顺序结构、选择结构、循环结构。 (1)顺序结构 按照顺序从上往下依次执行每条语句，顺序结构中的每条语句只执行一次。 (2)选择结构 又称分支结构，根据条件判断选择不同的分支执行：条件为真时，执行Y指向的流程线下的语句块1，否则执行N指向的流程线下的语句块2。选择结构对条件只判断一次，语句块1或语句块2中的语句也只执行其中一个。 新课讲授 (3)循环结构 对条件进行判断，当结果为真时，执行Y指向的流程线下的循环体语句，然后返回再重新判断条件，当结果为真时，再次执行循环体中的语句块，重复上述过程，直到条件不满足时，则跳出循环，执行N指向的流程线下的其他语句。 新课讲授 '总分排名 strxscj = "select * from ge1xscjb ORDER BY zf DESC" xscjrs.Open strxscj, objcn, 1, 3 i = 1 : temp1 = 0 : mc = 1 Do While Not (xscjrs.EOF) temp2 = xscjrs.Fields("zf") If temp2 <> temp1 Then temp1 = temp2 mc = i xscjrs.Fields("mc") = mc xscjrs.Update Else xscjrs.Fields("mc") = mc xscjrs.Update End If i = i + 1 xscjrs.MoveNext Loop xscjrs.Close 新课讲授 ‘倒计时部分代码 Private Sub Timer1_Timer() h = n \ 3600 If h <= 9 Then hh = "0" & CStr(h) Else hh = CStr(h) m = (n - h * 3600) \ 60 If m <= 9 Then mm = "0" & CStr(m) Else mm = CStr(m) s = n - h * 3600 - m * 60 If s <= 9 Then ss = "0" & CStr(s) Else ss = CStr(s) Label1.Caption = hh & ":" & mm & ":" & s ... ...
