- 1、本文档共41页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Visual Basic程序设计复习课件
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
您可能关注的文档
最近下载
- 医疗器械维修保密及免责协议.doc VIP
- CJJT 286-2018土壤固化剂应用技术标准.doc
- STEM教育理念在初中数学教学中的应用研究教学研究课题报告.docx
- (高清版)B-T 24353-2022 风险管理 指南.pdf VIP
- 【事业单位考试真题】浙江省杭州市余杭区综合基础知识真题汇总2008年-2018年详细解析版(附答案解析).docx
- 松下洗碗机NP-TCM1使用说明书.pdf VIP
- 政府采购评审专家考试试题.pdf VIP
- 苏科版数学(2025)七年级下册第一次月考试题(培优)(含答案).docx VIP
- 《用样本估计总体》实验说课.pptx
- 半导体生产项目供应链管理方案.docx VIP
文档评论(0)