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

思考题 输入一个分数，如果小于60，则输出”成绩不及格，请准备补考”。 输入三个正整数a、b、c，求出其中最大数。 输入三个正数数a、b、c，按从小到大的顺序输出。 口令验证 If语句的嵌套 Private sub form_click() dim x%,y% Y=1 X=inputbox(“x=?”) If x9 then if x6 then if x3 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 为对象的属性赋值。 作业总结 改变数学中的书写习惯 100x=90 100x 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+bc , b+ca , a+cb If a+bc and b+ca and a+cb If a+bc b+ca a+cb If a+bc and b+ca and a+cb 作业总结 区分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