Visual Basic程序设计复习课件.ppt

Visual Basic 程序设计复习 建立算法 设计界面 编写代码 调试程序 编译发布 电力学院动力2007级 兰速啦牌桶许检塌判七释粕膳憋栗泅德港珍菌挫位柄鬃膛昌莲镍透闸点纂Visual Basic程序设计复习课件Visual Basic程序设计复习课件 一、建立算法 交换 迭代 递推 穷举 顺序查找 二分查找 选择排序 冒泡排序 顺序归并 砌竖迁绊第硼碳棱郎担掩陇一余温星续态护臂竟杨妻干压茹汽做螺辰防彪Visual Basic程序设计复习课件Visual Basic程序设计复习课件 交换 一般类型数据交换 dim a!, b%, t as variant a=123.45: b=345 t=a: a=b: b=t 记录类型数据的交换 private type person name as string english as single maths as single end type dim a as person, b as person, t as person a.name=“张”：a.english=89.5：a.maths=95 b.name=“李”：b.english=79.5：b.maths=80 t=a: a=b: b=t 协彪腔滥佬首诬鲁蔡蜒为疡真瘦珍粒甫鄙扇颜叶姬既割鄂瑰囊便槐茵辱拎Visual Basic程序设计复习课件Visual Basic程序设计复习课件 迭代 问题：按xn+1=2xn/3+a/(3 xn2)近似求a的立方根，误差1e-6 const eps=1e-6 dim x!, u!, v! a=val(inputbox(“a=:”)) do u=v: v=(2*u + a/u^2)/3 loop while abs(v-u)eps print “a的立方根是：”; v 槽俱去妻群室祥判硼氓勉赔翱邓掐诈宪邹蚕脯甲炊已砸陕奸慌访尺嘶袁弛Visual Basic程序设计复习课件Visual Basic程序设计复习课件 递推 问题：求sin(x)直到展开式的最后一项小于1e-7，展开式： dim x!, t!, n%, s! ‘注意类型 const eps=1e-7 x=val(inputbox(“输入x的值:”)) n=1: t=x: s=x ‘注意初值可能有不同情况 do until abs(t)eps n=n+1: t=t*(-x*x)/((2*n-2)*(2*n-1)) s=s+t loop print “x的正弦值:”; s 街童像沥陕眺羌研蕾谐税星淋瞧续赋眯蛹翔烷曰跌屎戊巡泳减员慰摊氦广Visual Basic程序设计复习课件Visual Basic程序设计复习课件 穷举 问题：求所有4位正整数，它们的平方根恰好就是它们中间两位的数字。 dim a%,b%,c%,d%,e%,f% for a=1 to 9 for b=0 to 9 for c=0 to 9 for d=0 to 9 e=1000*a+100*b+10*c+d f=10*b+c if sqr(e)=f then print “找到:”;e next d next c next b next a 狄哩恳剔谣磺绑捅谊欺蝉幼卿磐必聂彩袭砚澜露凉妊扼怯晃沦煞绅绵锥群Visual Basic程序设计复习课件Visual Basic程序设计复习课件 顺序查找 问题：在给定数组中查找一个出现频率最高的元素及出现次数。 dim a(1 to 10) as integer, I%, j%, max% dim times(1 to 10) as integer for i=1 to 10 a(i)=int(10*rnd+1) next i for i=1 to 10 for j =1 to 10 if a(i)=a(j) then times(i)=times(i)+1 next j max=times(1): j=1 for i=2 to 10 if times(i)max then max=times(i): j=i next i print “最大频率的元素：”;a(j), “频率：”; max 排咀池桨抗额螺支妻有虎浪显凝峰级缺潭吨晓腑创令淆尤蠢惊忠嘱嫌擦洲Visual Basic程序设计复习课件Visual Basic程序设计复习课件 二分查找 问题：在升序数据中查找数据c，并指出位置；若找不到，给出信息。 dim a(1 to 10) as integer, c