程序的九九乘法口诀表.pptVIP

1 2 3 4 乘 9 8 7 = ？ 第二单元 VB程序设计 * 流程图表示方法 例题：用流程图描述求一元二次方程ax2+bx+c=0(a≠0)实数根的算法 结束 开始 输入a,b,c值 计算d＝b2-4ac d=0? 输出“无实根” 根据公式 计算x1,x2 输出x1,x2 Y N Sub Dim a as integer, b as integer, c as integer a=val(text1.text) b=val(text2.text) c=val(text3.text) d=b^2-4*a*c If d=0 then x1=(-b+sqr(d))/(2*a):text4.text=str(a) x2=(-b-sqr(d))/(2*a): text5.text=str(a) Else text4.text=“无实根”: text5.text=“无实根” End if End sub 结束 开始 输入a,b,c值 计算d＝b2-4ac d=0? 输出“无实根” 根据公式 计算x1,x2 输出x1,x2 Y N 算法 →流程图表示算法 →了解程序基础知识 →写程序代码 乘法口诀表 【考点1】VB基本数据类型、常量、变量与数组 日期型 逻辑型 字符串 类型 双精度 实数 单精度 实数 长整 数型 整数型 中