第4章VisualBasic程序代码设计(4-17).ppt

思考题 输入一个分数，如果小于60，则输出”成绩不及格，请准备补考”。 输入三个正整数a、b、c，求出其中最大数。 输入三个正数数a、b、c，按从小到大的顺序输出。 口令验证 If语句的嵌套 Private sub form_click dim x%,y% Y 1 X inputbox “x ?” If x 9 then if x 6 then if x 3 then y y+4 end if y y+3 else y y+2 End if Else y y+1 End if Print y End sub 作业总结 区分字符串常量与变量 Label2.caption 是闰年 Label2.caption 是闰年 作业布置 P84:5.程序设计题 1 2 题 3 求一元二次方程的根，用inputbox函数输入方程的三个系数。如果无实数解，复根也要求出来。 4 输入一个年份，判定这个年份是否为闰年。如果年份能被400整除，则是闰年；如果年份能被4整除，但是不能被100整除，也是闰年；除以上两种情况，其他年份是平年。 作业总结 可以直接为对象赋值吗？ Label2 是闰年“ Label1.caption 是闰年“ Text3 a+b Text3.text a+b 为对象的属性赋值。 作业总结 改变数学中的书写习惯 100 x 90 100 x and x 90 X1 -b+sqr t /2*a X1 -b+sqr t / 2*a X1 [-b+sqr t ]/ 2*a X1 -b+sqr t / 2*a Text1.text text2.text text3.text “” 作业总结 多个条件表达式的写法 If a+b c , b+c a , a+c b If a+b c and b+c a and a+c b If a+b c b+c a a+c b If a+b c and b+c a and a+c b 作业总结 区分msgbox显示信息与label控件显示信息 Msgbox Str y 年是闰年“ Print y , 年是闰年“ label2.caption y , 年是闰年 label2.caption Str y 年是闰年 作业总结 赋值语句 Label2.caption y, 是闰年 Label2.caption y 是闰年 Label2.caption str y 是闰年 从对象中获取数据为变量赋值 Y text1.text 将变量的值放在对象中显示 Text2.text 3.14*r*r Label2.caption str y 是闰年 作业总结 声明变量 Dim a,b,c as single Dim a as single,b as single,c as single Dim a!,b!,c! 作业总结 If结构的变化 作业总结 If结构的变化 For循环阅读练习 Private sub form_click dim j%,s% S 0 for j 1 to 5 step 1 s s+j next j print s print j End sub Do while循环阅读练习 Private sub form_click dim a%,b% ,c% ,k% k 1 do while k 10 select case k case 2,4,6,8,10 a a+k case 1,4,7 b b+k case 3,,6,9 C c+k end select k k+1 Loop Print a;b;c End sub While -wend 循环 语法： While wend 多种结构的嵌套 例19：利用循环嵌套控制结构，实现“百钱买百鸡”的计算 取自《算经》:鸡翁一，值钱五；鸡母一，值钱三，鸡雏三值钱一。百钱买百鸡，问鸡翁、母、雏各几何？“ 分析：设要买X只公鸡， Y只母鸡，Z只小鸡， 可得到方程 　　5*X+3*Y+Z/3 100 X+Y+Z 100 可用穷举法解决 4.1.3　循环结构－－多重循环 例19：百钱买百鸡。 程序代码： 五、 多种结构的嵌套 例19：利用循环嵌套控制结构，实现“百钱买百鸡”的计算 取自《算经》:鸡翁一，值钱五；鸡母一，值钱三，鸡雏三值钱一。百钱买百鸡，问鸡翁、母、雏各几何？“ 分析：设要买X只公鸡， Y只母鸡，Z只小鸡， 可得到方程 　　5*X+3*Y+Z/3 100 X+Y+Z 100 可用穷举法解决 4.1.3　循环结构－－多重循环 例19：百钱买百鸡。 程序代码： 1*1 1 2*1 2 2*2