我不是你家隔壁的
范文一：vb的循环嵌套教案
VB程序设计中循环嵌套的使用
一、课题名称
VB程序设计中循环嵌套的使用
二、教学目标
1. 知识目标
了解循环结构程序设计思想，准确掌握“For -Next”循环结构的应用以及循环嵌套的使用。
2. 能力目标
熟练掌握循环的嵌套，能编写双重循环结构的程序;能熟练应用Print 方法、 tab()函数和Abs()函数控制输出格式。
3. 情感目标
增强学生的逻辑思维能力，培养学生分析解决实际问题的同时，锻炼他们探索规律，举一反三，融会贯通的能力。
三、教学重点、难点
1. 重点:循环嵌套语句的结构和使用
2. 难点:内外循环的功能及print、tab()、Abs()函数对输出格式的控制
通过多次强化训练，让学生掌握重点，学生实训时老师巡视指导，帮助学生突破难点 并再最后总结集中讲解一遍重点，难点以让学生突破重、难点。
四、教学方法
1. 情境导入法:情景引入，设置悬念，引起学生对本堂课的兴趣。
2. 启发式教学法:通过实例提出的问题，引导学生思考讨论、并上机实践，得出本节课所教授新知识。
3. 分层教学法:根据不同学生的基础不同，提问或任务的难易程度不同，并对基础相对较弱的学生给以更多的上机实践指导。
五、教学用具
计算机实训室，visual basic6.0软件。
六、课时安排
1课时
七、教学过程
(一)设置悬念、引起学生对本堂课的兴趣
把课前调试好的课本上图1-12-1的程序设计演示给学生看，激发学生的好奇心，求知欲，引起学生对本堂课的兴趣。问学生想不想知道这个小程序是如何实现的，学完本堂课就知道了～
(二)导入
1
1. 复习循环结构。
循环结构也称重复结构，它的作用是使一段程序能重复执行，被重复执行的部分称为循环体。但重复一般都是有条件的，即在满足FOR语句中的条件下才执行循环体，否则退出循环体。“FOR,NEXT”语句的语句格式:
格式:FOR〈变量名〉=〈表达式1〉 TO 〈表达式2〉 STEP〈表达式3〉
〈语句序列(循环体)〉
NEXT
说明:1)当步长为1时，STEP 1可省略不写;
2)语句序列中可以含有任意多条语句，也可无任何语句，称为空循环;
3)语句序列中可以含有循环结构;
4)有时需中途退出循环，这时用EXIT FOR命令。
2. 应用循环结构的具体实例
编写程序输出如下字符图形:
1 2 3 4 5
程序如下:
For j=1 To 5
Print j;
Next j
3. 提出问题
上面的代码完成了在一行内输入5个数字，如果要得到三行同样的字符图形，即如图(一) 所示的图形，应该怎么写程序呢,
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
图(一)
给学生五分钟时间自由讨论和上机实验如何实现输出上面的字符图形 (三)引出循环嵌套结构
要得到图一所示的图形，我们可以将上面的“FOR,NEXT”语句重复3次，但是如果要打印20行，30行甚至更多行呢,有没有更简便的方法,我们知道循环结构能够使一段程序重复执行，如果把上面的“FOR,NEXT”语句放到另外一个循环之中，让它反复执行3次，能不能得到图形(一)的输出呢,我们一起来试一下:
For i=1 To 3
For j=1 To 5
2
Print j;
Next j
Next i
执行程序，得到如图(一)所示的字符图形。
得出结论:像上面的程序那样，已经知道了循环的次数，可以再利用一个“FOR,NEXT”循环语句，这样就形成了循环中套循环的结构，我们称之为循环的嵌套。
注意:外循环控制行数，内循环控制
(四)进一步探究、加深理解
再看一个由数字组成的字符图形(二):
1
1 2
1 2 3
1 2 3 4
图形(二)
观察该图形的特点，其规律是第一行输出1个字符，第二行输出2个字符，第i行输出 i个字符。由刚才的嵌套循环例子可知，外循环控制的是输出的行数，内循环控制输出列数，因此我们只需在图形(一)程序的基础上把Forj=1 To 5的终值5改为i即可，学生自己上机验证修改后的程序是否能得到图形(二)。
最后看图形(三)
1
1 2
1 2 3
1 2 3 4
图(三)
这个图中的字符和图二中的字符一样，只是每行第一个字符的位置不同。要改变每行第一个字符的位置，可以使用Tab()制表函数。图形的程序代码如下:
For i=1 To 4
Print Tab(40-i*3);
For j=1 To i
Print j; 注意:此处课本上为Print i，应该为Print j 才能得到图(三)
Next j
Next i
3
课本后面的“想一想”问题由学生自己在课后思考练习
(五)综合练习、探索实践
1. 效果演示。把课前调试好的课本上的程序设计再次演示给学生看，让学生仔细观察每一演示运行页面。
程序部分演示页面效果图如下:
单击“左上部分”及“右下部分”效果图
2. 程序界面设计
由学生参考演示界面自行完成。
3. 程序代码编写
学生先看课本上已给出的代码，有不能理解的语句的举手询问教师。然后学生根据教材中已给出的代码上机实训，并思考补充教材中未给出的代码。期间前后排的学生可以相互讨论，教师巡视指导学生。
教师最后给出正确答案，并就巡视时学生出现的问题、易错点、难点再讲解一遍。 (六)总结与提升
循环嵌套就是在循环体中又有循环的结构，循环体外的循环称为外循环，循环体内的循环称为内循环。如果程序需要，还可以在内循环里再嵌入另一个循环，从而构成三重循环，甚至多重循环。
循环嵌套应用中的常见错误及其注意事项:
1.内循环与外循环的循环变量名称不能相同。
2.外循环必须完全包含内循环，不可以出现交叉现象。
(七)课后思考练习
由学生课后单独思考并写好各题程序，教师下次课抽查提问。
文 - 汉语汉字 编辑词条
文，wen，从玄从爻。天地万物的信息产生出来的现象、纹路、轨迹，描绘出了阴阳二气在事物中的运行轨迹和原理。
故文即为符。上古之时，符文一体。
古者伏羲氏之王天下也，始画八卦，造书契，以代结绳(爻)之政，由是文籍生焉。--《尚书序》
依类象形，故谓之文。其后形声相益，即谓之字。--《说文》序》
4
仓颉造书，形立谓之文，声具谓之字。--《古今通论》
(1) 象形。甲骨文此字象纹理纵横交错形。"文"是汉字的一个部首。本义:花纹;纹理。
(2) 同本义 [figure;veins]
文，英语念为:text、article等，从字面意思上就可以理解为文章、文字，与古今中外的各个文学著作中出现的各种文字字形密不可分。古有甲骨文、金文、小篆等，今有宋体、楷体等，都在这一方面突出了"文"的重要性。古今中外，人们对于"文"都有自己不同的认知，从大的方面来讲，它可以用于表示一个民族的文化历史，从小的方面来说它可用于用于表示单独的一个"文"字，可用于表示一段话，也可用于人物的姓氏。
折叠编辑本段基本字义
1(事物错综所造成的纹理或形象:灿若,锦。
2.刺画花纹:,身。
3(记录语言的符号:,字。,盲。以,害辞。
4(用文字记下来以及与之有关的:,凭。,艺。,体。,典。,苑。,献(指有历史价值和参考价值的图书资料)。,采(a(文辞、文艺方面的才华;b(错杂艳丽的色彩)。
5(人类劳动成果的总结:,化。,物。
6(自然界的某些现象:天,。水,。
7(旧时指礼节仪式:虚,。繁,缛节(过多的礼节仪式)。
8(文华辞采，与“质”、“情”相对:,质彬彬。
9(温和:,火。,静。,雅。
10(指非军事的:,职。,治武功(指礼乐教化和军事功绩)。
11(指以古汉语为基础的书面语:552,言。,白间杂。
12(专指社会科学:,科。
13(掩饰:,过饰非。
14(量词，指旧时小铜钱:一,不名。
15(姓。
5
16( 皇帝谥号，经纬天地曰文;道德博闻曰文;慈惠爱民曰文;愍民惠礼曰文;赐民爵位曰文;勤学好问曰文;博闻多见曰文;忠信接礼曰文;能定典礼曰文;经邦定誉曰文;敏而好学曰文;施而中礼曰文;修德来远曰文;刚柔相济曰文;修治班制曰文;德美才秀曰文;万邦为宪、帝德运广曰文;坚强不暴曰文;徽柔懿恭曰文;圣谟丕显曰文;化成天下曰文;纯穆不已曰文;克嗣徽音曰文;敬直慈惠曰文;与贤同升曰文;绍修圣绪曰文;声教四讫曰文。如汉文帝。
折叠编辑本段字源字形
字源演变与字形比较
折叠编辑本段详细字义
〈名〉
1(右图是
“文”字的甲骨文图片，资料来源:徐无闻主编:《甲金篆隶大字典》，四川辞书出版社。1991年7月第一版。
“文”字的甲骨文字绘画的像一个正面的“大人”，寓意“大象有形”、“象形”;特别放大了胸部，并在胸部画了“心”，含义是“外界客体在心里面的整体影像、整体写真、整体素描、整体速写”。
许慎《说文解字》把“文”解释为“错画也”，意思是“对事物形象进行整体素描，笔画交错，相联相络，不可解构”，这与他说的独体为文、合体为字的话的意思是一致的。“说文解字”这个书名就表示了“文”只能“说”，而“字”则可“解”的意思。“文”是客观事物外在形象的速写，是人类进一步了解事物内在性质的基础，所以它是“字”的父母，“字”是“文”的孩子。“文”生“字”举例(以“哲”为例):先对人手摩画，其文为“手”;又对斧子摩画，其文为“斤”。以手、斤为父母，结合、生子，其子就是“折”(手和斤各代表父母的基因)。这个“折”就是许慎所谓的“字”。“字”从宀从子，“宀”表示“独立的房子”，子在其中，有“自立门户”的意思。故“字”还能与“文”或其他“字”结合，生出新“字”来。在本例，作为字的“折”与作为文的“口”结合，就生出了新的字“哲”。
2(
同本义 [figure;veins]
文，错画也。象交文。今字作纹。——东汉?许慎《说文》
五章以奉五色。——春秋?左丘明《左传?昭公二十五年》。注:“青与赤谓之文，赤与白谓
6
之章，白与黑谓之黼，黑与青谓之黻。”
美于黼黼文章。——《荀子?非相》
茵席雕文。——《韩非子?十过》
织文鸟章，白旆央央。——《诗?小雅?六月》
斑文小鱼。——明? 刘基《诚意伯刘文成公文集》
3(又如:文驾(彩车);文斑(杂色的斑纹);文旆(有文彩的旗帜);文绣(绣有彩色花纹的丝织品;刺花图案);文织(有彩色花纹的丝织品);文鳞(鱼鳞形花纹)。
4(字，文字(“文”，在先秦时期就有文字的意思，“字”，到了秦朝才有此意。分别讲，“文”指独体字;“字”指合体字。笼统地说，都泛指文字。) [character]
饰以篆文。——南朝宋?范晔《后汉书?张衡传》
分文析字。——东汉?班固《汉书?刘歆传》
夫文，止戈为武。——《左传?宣公十二年》
距洞数百步，有碑仆道，其文漫灭。——王安石《游褒禅山记》
文曰“天启壬戌秋日”。——明? 魏学洢《核舟记》
文曰“初平山尺”。
5(又如:甲骨文;金文;汉文;英文;文迹(文字所记载的事迹);文书爻(有关文字、文凭之类的卦象);文异(文字相异);文轨(文字和车轨);文狱(文字狱);文钱(钱。因钱有文字，故称);文状(字据，军令状);文引(通行证;路凭);文定(定婚)。
6(文章(遣造的词句叫做“文”，结构段落叫做 “章”。) [literary composition]
故说诗者不以文害辞。——《孟子?万章上》
好古文。——唐? 韩愈《师说》
属予作文以记之。——宋? 范仲淹《岳阳楼记》
能述以文。——宋? 欧阳修《醉翁亭记》
摘其诗文。——清? 纪昀《阅微草堂笔记》
7
7(又如:文价(文章的声誉);文魔(书呆子);文会(旧时读书人为了准备应试，在一起写文章、互相观摩的集会);文移(旧时官府文书的代称);文雄(擅长写文章的大作家);文意(文章的旨趣);文义(文章的义理);文情(文章的词句和情思);本文(所指的这篇文章);作文(写文章;学习练习所写的文章);文魁(文章魁首);文价(文章的声价);文什(文章与诗篇)。
(美德;文德 [virtue] 8
圣云继之神，神乃用文治。——杜牧《感怀诗一首》
9(又如:文丈(对才高德韶的老者的敬称);文母(文德之母);文武(文德与武功);文命(文德教命);文惠(文德恩惠);文德(写文章的道德);文薄(谓文德浅薄);文昭(文德昭著)。
10.文才;才华。亦谓有文才，有才华 [literary talent]
而文采不表于后世也。——汉? 司马迁《报任安书》
11(又如:文业(才学);文英(文才出众的人);文采风流(横溢的才华与潇洒的风度);文郎(有才华的青少年);文彦(有文才德行的人);文通残锦(比喻剩下不多的才华)。
12(文献，经典;韵文 [document;classics;verse]
儒以文乱法。——《韩非子?五蠹》
言必遵修旧文而不穿凿。——《说文解字?叙》
13(辞词句。亦指文字记载 [writings;record]。如:文几(旧时书信中开头常用的套语。意为将书信呈献于几前);文倒(文句颠倒);文过其实(文辞浮夸，不切实际);文义(文辞);文辞(言词动听的辞令);文绣(辞藻华丽)。
14(自然界的某些现象 [natural phenomenon]
经纬天地曰文。——《左传?昭公二十八年》
15(又如:天文;地文;水文;文象(日月星辰变化的迹象);文曜(指日月星辰;文星);文昌(星座名)。
16(文治;文事;文职。与“武”相对。 [achievements in culture and education;civilian post]
文能取胜。——《史记?平原君虞卿列传》
文不能取胜。
8
文武并用。——唐? 魏征《谏太宗十思疏》
精神折冲于千里，文武为宪于万邦。――明《袁可立晋秩兵部右侍郎诰》
17(又如:文臣，文吏(文职官吏);文席(教书先生的几席);文品(文官的品阶);文帅(文职官员出任或兼领统帅);文烈(文治显赫);文员(文职吏员);文阶(文职官阶);文道(文治之道);文业(文事);文僚(文职官吏)。
18(法令条文 [articles of decree]
而刀笔吏专深文巧诋，陷人于罪。——《史记?汲黯列传》
19(又如:文劾(根据律令弹劾);文法吏(通晓法令、执法严峻的官吏);文丈(规矩;制度);文移(官府文书);文牓(布告;文告);文宪(礼法;法制)。
20(文言。古代散文文体之一;别于白话的古汉语书面语 [literary language]。如:半文半白;文语;文白(文言文和白话文)。
21(文教;礼节仪式 [rites]
则修文德。——《论语?季氏》
22(又如:文丈(崇尚礼文仪节);文俗(拘守礼法而安于习俗);文致(指礼乐);文貌(礼文仪节);文绪(文教礼乐之事);文仪(礼节仪式)
23(指表现形式;外表 [form;appearance]。如:文服(表面服从);文榜(告示、布告之类);文诰(诰令)
24(指鼓乐，泛指曲调 [music;tune]。如:文曲(指乐曲);文始(舞乐名)
25(谥号，谥法:勤学好问叫文 [study deligently]
何以谓之文。——《论语》
是以谓之文。
26(姓
〈动〉
1(在肌肤上刺画花纹或图案 [tatto (the skin)]
被发文身。——《礼记?王制》。注:“谓其肌，以丹青涅之。”
9
文绣有恒。——《礼记?月令》
2(又如:文笔匠(在人身上刺花的艺人);文身断发(古代荆楚、南越一带的习俗。身刺花纹，截短头发，以为可避水中蛟龙的伤害。后常以指落后地区的民俗);文木(刻镂以文采之木)
3(修饰;文饰 [cover up]
身将隐，焉用文之?——《左传?僖公二十三年》
饰邪说，文奸言，以枭乱天下。——《荀子?非十二子》
4(又如:文过饰非;文致(粉饰;掩饰);文冢(埋葬文稿之处)
5(装饰 [decorate]
舍其文轩。——《墨子?公输》
此犹文奸。
文车二驷。——明? 归有光《项脊轩志》
文马四百匹。——《史记?宋世家》
若将比予文木邪。——《庄子?人间世》
6(又如:文巧(文饰巧辩);文竿(以翠羽为饰之竿);文舫(装饰华丽的游艇);文饰(彩饰);文榭(饰以彩画的台榭);文舟，文艘(装饰华丽的船);文剑(装饰华丽的剑);文舆(饰以彩绘的车)
7(撰写文章 [write]。如:文匠(写文章的大家);文祸(因写文章而招来的灾祸);文雄，文杰(指文豪)
〈形〉
1(有文采，华丽。与“质”或“野”相对 [magnificent;gorgeous]
其旨远，其辞文。——《易?系辞下》
晋公子广而俭，文而有礼。——《左传?僖公二十三年》
2(又如:文巧(华丽奇巧);文朴(文华与质朴);文服(华美的衣服);文砌(华美的石阶);文背(不文雅，粗俗);文轩(华美的车子);文质(文华与质朴)
3.柔和，不猛烈 [mild;gentle]。如:文烈(指火候温猛)
10
4(美，善 [fine;good]。如:文徽(华美);文鸳(即鸳鸯。以其羽毛华美，故称);文衣(华美
的服装)
5(通“紊”。紊乱的 [disordered]
惇宗将礼，称秩元祀，咸秩无文。——《书?洛诰》
天子祭天下名山大川，怀柔百神，咸秩无文。——《汉书?郊祀志上》
王者报功，以次秩之，无有文也。——庆劭《风俗通义?山泽》
〈量〉
1(用于旧时的铜钱。如:一文钱
2(用于计算纺织物
五扶为一首，五首成一文。——《后汉书》
11
范文二：asp中if语句的嵌套应用[精品]
Asp中IF语句的嵌套使用
asp中的if多重嵌套使用，有时也能给我们带来特殊的作用，但是用不好的话，就会出错。
今天我把if的嵌套使用方法总结一下。希望能让大家了解一下if嵌套的使用方法。
If …… Then
If …… Then
Else
……
End If ElseIf
If …… Then
Else
……
End If Else
If …… Then
Else
……
End If End If
这里还要注意一下，
if then end if 这组语句用法不是固定的
如果是
if A then B
就不用end if，有则出错
如果是
if A then
B
那么下面就要加end if ，要是不加的话就会出错的，我刚试过了的。
举例如下:
If vusername<>"" Then '==================IF1语句开始
'判断此用户是否存在
Set rsUser = conn.Execute("Select * From users Where
username='"&vusername&"'")
If Not rsUser.EOF Then '==========IF2语句开始
response.write"已经存在此用户名!"
Else If rsuser.eof Then Set rsUser = Nothing '==========IF3语句开始
'在数据库表Users中插入新用户信息
sql="INSERT INTO Users (UserName, UserPwd)
VALUES('"&vusername&"','"&vuserpwd&"')"
Conn.Execute(sql)
response.write"用户添加成功!"
End if ' ==================== IF2语句结束
Else
'更新用户信息
sql = "UPDATE Users SET username='"&vusername&"' Where
Userid='"&vUserId&"'"
Conn.Execute(sql)
response.write"用户信息更改成功!"
End if '==============IF1语句结束
也可以写成下面的代码，
If vusername<>"" Then '==================IF1语句开始
'判断此用户是否存在
Set rsUser = conn.Execute("Select * From users Where
username='"&vusername&"'")
If Not rsUser.EOF Then '==========IF2语句开始
response.write"已经存在此用户名!"
Else If rsuser.eof Then '==========IF3语句开始
Set rsUser = Nothing
'在数据库表Users中插入新用户信息
sql="INSERT INTO Users (UserName, UserPwd)
VALUES('"&vusername&"','"&vuserpwd&"')"
Conn.Execute(sql)
response.write"用户添加成功!"
End if ' ==================== IF2语句结束
end if
Else
'更新用户信息
sql = "UPDATE Users SET username='"&vusername&"' Where
Userid='"&vUserId&"'"
Conn.Execute(sql)
response.write"用户信息更改成功!"
End if '==============IF1语句结束
范文三：vb中的For循环语句
考研屋 www.kaoyanwu.com 提供各大机构考研、公务员、四六级辅导视频课程
格式: For=To[Step步长] [Exit For] Next 功能: 当循环变量的值在初值到终值范围内时，执行一次循环体中的语句块，并使初值增加一个步长。当循环变量的值不在初值到终值范围内时，就退出循环，执行Next后面的语句。For循环语句执行的流程图。
说明: (1):也称循环控制变量，它是一个数值变量，但不能是布尔或数组元素。 (2)、和:它们是一个数值表达式。 步长为正数时，表示递增循环;步长为负数时，表示递减循环，但不能为o。Step的缺省值为l。 (3):在For语句和Next语句之间的语句序列，可以是一个或多个语句。 (4)[Exit For]:如果有此可选项时，退出循环。 (5)Next:是循环终端语句，在Next后面的循环变量与For语句中的循环变量必须相同。当只有一层循环时，Next后面的循环变量可略去不写。 (6)For语句又叫做循环说明语句，用来指定循环变量的名称，以及循环变量的初值、终值和步长;循环体是被反复执行的部分(即循环工作部分)，它可以由若干条语句所组成;Next，语句又叫做循环终端语句，其作用是改变循环变量的值(即增加一个步长)并控制是否再次执行循环体。 (7)循环执行的次数: n=Int((终值一初值),步长)+1 (8)For—Next语句可以嵌套使用，嵌套的层数没有限制，其基本要求是:每个循环只有一个惟一的变量作为循环变量;内层循环变量的Next语句必须放在上层循环变量的Next语句之前。
考研屋www.kaoyanwu.com :提供各大机构考研、公务员、四六级辅导视频课程
专业提供提供各大机构考研、公务员、四六级辅导视频课
范文四：VBA中嵌套的If…Then语句和Select Case语句
VBA 中嵌套的 If…Then 语句和 Select Case语句
将?个 If…Then 语句或 If…Then…Else 语句放在另外?个 If…Then 语句或 If…Then…Else 语句??,你可以在你的 VBA 过程?作出更复杂的决定。这种?个 If 语句?包含另? 个 If 指令块的结构称为嵌套的 If 语句。接下来的过程 TestConditions 是上节?的过程 WhatValue 的修正版,演?嵌套的 If…Then 语句是如何?作的:
Sub TestConditions()
Range(
If IsEmpty(ActiveCell) Then
MsgBox
Else
If IsNumeric(ActiveCell.Value) Then
If ActiveCell.Value = 0 Then
ActiveCell.Offset(0, 1).Value =
ElseIf ActiveCell.Value > 0 Then
ActiveCell.Offset(0, 1).Value =
ElseIf ActiveCell.Value < 0="">
ActiveCell.Offset(0, 1).Value =
Else
ActiveCell.Offset(0, 1).Value =
End If
End If
End Sub
为了使过程 TestConditions 更容易理解,每个 If…Then 语句都显?为不同的格式,现在 你可以清楚地看到过程使?了三个 If…Then 程序块。
第?个 If 块(粗体)检查当前单元格是否为空,如果为真,就会显?信息,然后 VB 将 跳过 Else 部分找到相应的 End If,该语句位于关键字 End Sub之前。
如果当前单元格不为空, IsEmpty(ActiveCell)条件返回假,并且 VB 运?粗体 Else 下? 的单下划线的 If 块。该单下划线的 If…Then…Else 语句就是嵌套在第?个 If 块(粗体) 的。该语句检查当前单元格是否是个数字。注意,我们通过另?个内置函数 IsNumeric 来做这个。如果当前单元格的值不是?个数字,条件就为假,因此, VB 跳到单下划 线的 Else 处,并且在 B1?输? “text” 。然?,如果当前单元格包含个数字时, VB 就会 运?双下划线的 If 块,评估每种情况并作出相应的决定。
第?个 If 块(粗体)被称为外部 If 语句,这个外部语句包含两个内部的 If 语句(单下划 线和双下划线)。
技巧:嵌套语句
嵌套是指将?种控制结构放在另外?控制结构??。你将在后?的循环结构?看到更 多的嵌套的例?。
Select Case语句
为了避免难以弄清的复杂的嵌套的 If 语句,你可以使? Select Case语句代替。它的语法 为:
Select Case 测试表达式
Case 表达式 1
如果表达式 1匹配测试表达式的语句
Case 表达式 2
如果表达式 2匹配测试表达式的语句
Case 表达式 N
如果表达式 N 匹配测试表达式的语句
Case Else
如果没有表达式匹配测试表达式要执?的语句
End Select
你在关键字 Select Case和 End Select之间放置任意多个条件以测试。?句 Case Else是可 选的,当你希望可能有条件表达式返回假时使?它。在 Select Case语句?, VB 将每个 表达式和测试表达式相?较。
这?是 Select Case语句背后的逻辑。当 VB 遇到 Select Case?句,它记下测试表达式的 值。然后它前进到下?的第?个 Case ?句,如果这个表达式的值和测试表达式的值匹 配的话, VB 就会执?语句直到遇到另外?个 Case ?句并且跳到 EndSelect 语句。然 ?,如果第?个 Case ?句后?的表达式测试结果和测试表达式不匹配时, VB 就会检查 每?个 Case ?句,直到它找到?个匹配的为?。如果没有?个 Case ?句后?的表达式 匹配测试表达式的值的话, VB 就会跳到 Case Else?句并执?该语句直到遇到关键字
EndSelect 。注意, CaseElse ?句是可选的,如果你的程序??没有使? CaseElse 并且
没有?个 Case ?句的表达式和测试表达式相匹配, VB 就会跳到 EndSelect 后?的语
句,并且继续执?你的程序。
我们来?个使? Select Case语句的程序例?。在第四章?,你学习了 MsgBox 函数允许 你显?带有?个或多个按钮的信息,你也学习了 MsgBox 函数的结果可以赋予?个变 量。使? SelectCase 语句,你现在可以基于?户按下的按钮决定采取哪个?动。
1. 在当前?程?插??新模块
2. 重命名新模块 SelectCase.
3. 输?下述过程 TestButtons:
Sub TestButtons()
Dim question As String
Dim bts As Integer
Dim myTitle As String
Dim myButton As Integer
question =
bts = vbYesNoCancel + vbQuestion + vbDefaultButton1
myTitle =
myButton = MsgBox(prompt:=question, buttons:=bts, _ title:=myTi Select Case myButton
Case 6
Workbooks.Add
Case 7
MsgBox
MsgBox
End Select
End Sub
过程 TestButtons 的第?部分显??个带有三个按钮的信息框:是,否和取消。?户选 择按钮的值赋予变量 myButton 。
如果?户点击 “ 是 ” ,那么变量 myButton 就会被赋值常量 vbYes 或它对应的值 6;如果? 户点击 “ 否 ” ,那么变量 myButton 则赋值为常量 vbNo 或它对应的值 7;最后,如果点击 了 “ 取消 ” ,变量 myButton 的内容就等于 vbCancel 或 2。
Select Case语句对照储存在变量 myButton ?的值检查 Case ?句提供的值。当有匹配 时,就会执?适当的 Case 语句。如果你使?常量,?不是按钮值,过程 TestButtons 同 样会运??致。
Select Case myButton
Case vbYes
Workbooks.Add
Case vbNo
MsgBox
MsgBox
End Select
你可以忽略 Else ?句,可以按下述?法修改?下 Select Case语句:
Select Case myButton
Case vbYes
Workbooks.Add
Case vbNo
MsgBox
MsgBox
End Select
4. 运?过程 TestButtons 三次,每次选择?个不同的按钮。
技巧:通过 Case Else捕捉错误
尽管在 Select Case语句?使? Case Else不是强制的,使?它总是很好的,以防?万? 测试有没有预料到的值。 Case Else?句是个放置错误信息的好地?。
W3Cschool (www.w3cschool.cn )最?的技术知识分享与学习平台 此篇内容来?于 w3cschool.cn ?站?户上传并发布。
范文五：vb中FOR循环语句的教学
vb中FO?R循环语句?的教学
vb中FO?R循环语句?的教学
——形式多样的?多个圆的画?法 一、基本说明
1、本教学案例?参与人员基?本信息
姓名 联系电话(可 身份 项目 通讯地址及邮编? E-mail
选)
设计者 张建平 长沙市雅礼中学?410007? Zhang10011??@163.com 指导者 同上 2、教学内容
1)教学内容所?属模块:《算法与程序?设计》
2)年级: 高一二期
3)所用教材出?版单位:上海科技教?育出版社
4)所属的章节?:第二章第四?节
5)学时数: 45 分钟
二、教学设计
1、教学目标:
l 从形式上大?致弄清循环?语句结构(for 和next? 配套出现)。 l 让学生理解?循环的含义?和作用(是一次又一?次的重复执?行某关键操?作，而不是一次?性地
同时完?成大量关键?操作)。
l 理解循环的?执行过程，更进一步弄?清循环语句?结构。 l 掌握各基本?概念及功能?
l 体会循环变?量给循环体?带来的影响?
l 最终能透彻?理解循环语?句，会使用FO?R语句编写?程序解决问?题。
2、 内容分析:
循环语句是?程序设计的?三大基本结?构之一，是三个结构?中最难的一?个，在以往各届?教学中学生?很难于理解?和掌握。由于本人所?教5个班中?有4个是交?费班，学习能力和?习惯都欠佳?，要求教学者?以深入浅出?及趣味性的?教学吸引学?生。
重点:使学生理解?循环语句的?含义和执行?过程，语句中的相?关概念。
难点:FOR语句?中循环变量?的变化，循环次数的?决定，循环变量给?循环体带来?的影响。 3、 学情分析:
大部分中学?生对程序语?句和算法的?理解能力不?强，更由于高中?阶段其他课?程的繁重课?业负担使得?学生们不会?花多的精力?和时间来学?这门课。本节课之前?学生已学了?基本输入输?出语句、条件语句、少量控件的?使用，对循环语句?还没有了解?。教师应采用?一种让学生?很容易接受?的方式来学?习新知。
4、设计思路:
根据教学内?容(FOR语句?)讲解很枯燥?，中学生不喜?欢概念讲解?及理论灌输?的特点，采用画圆来?形象地呈现?循环的效果?;首先避开语?句的介绍，学生先操作?体验FOR?，对该语句有?了感性认识?后，教师根据学?生的体验进?行FOR语?句的总结提?升，使对该语句?上升到理性?认识;最后教师对?完成的同心?圆FOR语?句提出进一?步的设计要?求，使学生在完?成过程中更?透彻地理解?for语句?。教学中沿着?“体验-感觉-总结-拓展”的思路来学?习新知，体现了新课?程理念中“以人为本”的思想，注重以学生?为主体，师生互动推?动教学的进?行，枯燥而难懂?的内容变得?生动形象，由浅入深，容易理解和?掌握。
l 引入，知识迁移:画少量圆à?画大量圆，用已有知识?无法达到目?标，引出本节课?新的学习内?容:FOR循环?。
l 新知识初体?验:学生用老师?提供的FO?R语句来画?大量同心圆?，初步体会F?OR 语句格式和?效果。
l 探索中再体?验:学生按老师?提示要求，在FOR中?修改部分参?数，体会画圆个?数的变化，圆之间间隔?的变化。
l 总结体验结?果，学习新知:教师在学生?已有的对F?OR语句的?体验上，总结for?语句的语句?格式，执行过程，语句中的相?关概念(循环变量，循环初值，循环终值，循环体)。 l 知识拓展:教师提出新?的编程要求?，学生修改循?环体中圆心?坐标，观察组圆的?变化，体会循环体?中语句的执?行与循环变?量的关系，给执行结果?带来的千姿?百态的变化?。 l 课堂总结:展示学生作?业，总结for?语句要点，展示for?语句使用的?其他示例，促进学生进?一步的思考?。
三、教学过程描?述
教师活动 学生活动 教学环节及?时间 对学生学习过程的观察?和考查，以及设计意?图?
课堂circl?e 画圆语 展示本节课最终作品;? 学生完成一个?观察:95%的学生完成了老师要求?，不清楚的也??引入 句复习? ; 布置两个按钮(画一圆，?圆、3个圆的按?求助旁边的同学完成。?
钮编程 3圆)的编程 意图:复习上节课所学的?ci?rcle 画圆语句(因为
本节课的循环效果??由它体现); 5分钟 让学生体会画一个，画多个圆可?通过写多个?circl??e
语句的方式达到;?
提出(画大量 提问:如何画出50?个， 思考 观察:期待画大量圆的新方法?。?
圆)问题，使学100个圆呢,? 意图:用多条ci?rcle语句是达不到?要求的;为引?
生深入思考解?出新的语句?è for循环作好铺垫，使新的内容?过?
决办法? 渡自然，学生易于接受。?
学生按老师要? 教师展示画100?个同心? 上机练习，在自 观察:学生对初次编写?FOR语句实现画?多个同?内容求编程-For 循圆的代码编写? 己的程序上实?心圆感到很新奇?，兴趣高昂，?99%的同学依葫芦?展开 环的初次体验? 现代码? 画瓢完成代码编写。?
意图:通过很直观的例子让学?生先体验?FOR ?语
句的效果，提高他们的?学习兴趣，对?FOR有个?25分感性的形式上的认识?。?
钟 上机练习，修改探索-For 循环提出要求，学生在FOR?观察:学生仍然很有兴趣地试?探，修改着?FOR?
的深入接触? 的代码中修改几处，观察?FOR ?语句中的中的参数，体会着圆的?变化。?
变化情况? 各个参数，体会?意图:通过学生自己对?for语句中各参?数的修改，?
for ?语句各部分?观察同心圆的变化，对循环次数?—?圆的个数，循
的作用 环体等概念有了初次?的感性体会?;避免了教学?者?
由于学生的?差异，新课程算法?教学的实现?应该因人而?异，如果省里没?有正规测试?的要求，则
对一般的?学生以教会?基本语句并?结合控件的?使用为主，使教学过程?轻松有趣。而对于接受?能
力强，对程序设计?有兴趣的学?生才可以尝?试进行深层?次算法的教?学。
