第13课 For-Next循环
习题(1~4,7章)
●VB 6.0集成开发环境中不能完成的功能是_____。
(A)输入编辑源程序(B)编译生成可执行程序(C)调试运行程序(D)自动查找并改正程序中的错误●VB 6.0集成开发环境不包括______窗口。
(A) DOS界面窗口(B)窗体窗口(C)代码窗口(D)属性窗口●下列关于VB编程的说法中，不正确的是______。
(A)属性是描述对象特征的数据(B)事件是能被对象识别的动作(C)方法指示对象的行为(D) VB程序采用的运行机制是面向对象●如果在窗体上已经创建了一个文本框对象Textl，可以通过_______事件获得输入键值的ASCII码。
(A) Change (B) LostFocus (C) KeyPress (D) GotFocus●在Visual Basic中最基本的对象是______，它是应用程序的基石，是其他控件的容器。
(A)文本框(B)命令按钮(C)窗体(D)标签●有程序代码如下: Text1.Text = "Textl.Text"则Text1、Text、"Textl.text"分别代表_______。
(A)对象、值、属性(B)对象、方法、属性(C)对象、属性、值(D)属性、对象、值●当运行程序时，系统自动执行启动窗体的______事件过程。
(A) Load (B) Click (C) UnLoad (D) GotFocus●若要使命令按钮不可操作，要对________属性进行设置。
(A) Enabled (B) Visible ( C) BackColor (D) Caption●文本框没有________属性。
(A) Enabled (B) Visible (C) BackColor (D) Caption●不论何控件，共同具有的是________属性。
(A) Text (B) Name (C) ForeColor (D) Caption●要使某控件在运行时不可显示，应对_________属性进行设置。
vb选择题1
1; 在vb中，下列哪一数据类型长度为四个字节（）A);货币型B);日期型; C);单精度型; D);双精度型2;下列语句中哪一句正确定义了一个整型变量（）A);Dim i As Integer; B);Dim i As Int;C);Static i As Long; D);Static I As Single3;关于整型变量下列说法错误的是（）A);用于保存整数; B);类型符为%;C);最大整数为216-1; D);占两个字节4;关于逻辑数据类型下列说法正确的是（）A);该数据类型可进行数值运算;B);该数据类型只有两个值;C);该数据类型占1个字节;D);定义该类型的关键字为bool5; 下列哪一组语句不能正确定义两个字符型变量（）A);Dim str1,str2 as StringB); Dim str1$,str2$C);Dim str1 as String ,str2 as StringD);Dim str1 as String Dim str2 as String6;下面哪一个关键字不能用来声明变量（）A);Dim ;B);Static ;C);private ;D);define7;下列符号中，哪一个是不合法的变量名（）A);124-q ;B);a_q ;C);变量;D);xyz8;下列符号中，哪一个是合法的变量名（）A);1_1 ;B);123_a ;C);integer ;D);sinx9; 若选拔优秀毕业生的条件是：年龄（age）小于19岁，三门功课总分(total)大于285分，其中有一门(mark)为100分，表达式应写为;A);age<19 and total>285 and mark1=100 or mark2=100 or mark3=100;B);age<19 and total>285 or mark1=100 or mark2=100 or mark3=100;C);age<19 and total>285 and （mark1=100 or mark2=100 or mark3=100）;D);(age<19 or total >285) and (mark1=100 or mark2=100 or mark3=100)10；要产生30—50之间的随机整数，下列表达式正确的是（）;A);int(rnd*20+30) ;B);int(rnd*21+30)C);int (rnd*31+20) ;D);int(rnd*50)11;函数asc("A")的值为（）A); 97;B); 65 ;C);12 ;D);6412;实现ASCII码转换成字符的函数是（）A);STRING( ) B);ASC( ) C);STR( ) D);CHR$() 13;INT(-7.3)=( ) A); 7 ;B);8 ;C);-7 ;D);-814;ROUND(-7.3)=( )A);7 ;B);8 ;C);-7 ;D);-815;V AL("123A")=( )A);123A ;B);12365 ;C);123 ;D);"123"16;LEFT$("ABCDEF",3)=( ) A);"DEF" ;B);"CDE" ;C);"ABC" ;D);"BCD"17;LEN("AB高等教育")=( )A);6 ;B);7 ;C);12 ;D);1418;RIGHT$("ABCDEF",3)=( ) A);"DEF" ;B);"CDE" ;C);"ABC" ;D);"BCD"19;STRING$(3,"ACDEF")=( ) A);"AAA" ;B);"ACD " ;C);"DEF" ;D);"FFF"20;下面哪一个函数返回系统日期（）A);DA TE( ) B);NOW( ) C);TIME() D);DA Y() 21; 下面哪一个函数返回系统时间（）A);DA TE() B);NOW() C);TIME() D);DA Y() 22;下面哪一个函数返回系统日期和时间（）A);DA TE() B);NOW() C);TIME() D);DA Y() 23;有程序段如下Private Sub Form_Click()Dim I As IntegerI = I + 1Print IEnd Sub当第三次单击窗体时打印出的I值为（）A);0 B);1 C);2 D);324; 已知X=1,Y=2,T=0 经程序段X=T:T=Y:Y=T 赋值后X,Y 值分别为（）;A);1,2 ;B);0,0 ;C);0,2 ;D);1,025;语句SELECT CASE X 中,X为一整型变量，下列CASE语句中,哪一句表达式是错误的（）A);CASE IS>20 B);CASE 1 TO 10C);CASE X>10 D);CASE 2,4,626;下列哪个语句用来打开一个已存在的文件或建立一个新文件（）A);GET ;B);INPUT ;C);PUT ;D);OPEN27;下列哪一组语句正确将文本框Text1的全部内容一次性写入文件（）A); Open “T ext.dat”For Output As #1Print #1 Text1.textClose #1;B); Open “Text.dat” For Input As #1Print #1 Text1.textClose #1;C); Open “Text.dat” For Input As #1Print #1 Text1.textClose #1D); Open “Text.dat” For Output As #1For I= 1 to Len(Text1.text)Print #1 Mid(Text1.text,I,1)Next IClose #128;下列哪一种格式画出了一条从（0，0）到（x，y）的直线A);Line(x,y) B);Line(0,x,0,y)C);Line(0,0,x,y) D);Line(0,0)-(x,y)29;下面哪一条语句正确画出了一组半径由5到10每次递增1，圆心在（15，15），红色的同心圆（）A);For I= 5 to 10Circle(15,15),I,RGB(255,0,0)Next IB);For I= 1 to 10Circle I,(15,15),RGB(0,255,0)Next IC);For I= 5 to 10Circle I,(15,15),RGB(255,0,0)Next ID);For I=5 to 10Circle(15,15),I,RGB(0,255,0)Next I30;设已有语句Option Base 1，下面哪一组语句正确定义了有10个整型元素的数组（）A); dim x(9) as integerB); dim x(n) as integer n=10C);dim x(10) as integerD);dim x(n) as integer n=931;循环语句For I= -3 to 20 step 4的循环次数为多少（）A);4 B);5 C);6 D);732; 下列关于通用对话框CommangDialog控件说法正确的是：（）A);可在工具箱里选择直接添加B);可以实现文件打开，存储，颜色设置等功能C);是ActiveX控件D);运行时大小可以改变33;下面哪一段循环嵌套是正确的（）A); For I= 1 to 10For J=1 to 10…….Next INext j;B); For I= 1 to 10For j=1 to 10………next jnext I;C); For I=1 to 10For j= 1 to 20………next Inext I;D); For I= 1 to 10For j=1 to 20………next jnext j34;已知变量S初值为0，下列哪组语句求出s=1+2+3…+100的和( );A);For I=1 to 100s=s+1next I;B);For I=1 to 100s=s+Inext I;C);doI=I+1s=s+Iloop;D);dos=s+Iif I=100 then exit doloop35;下列关于控件数组说法正确的是( )A);同一数组有相同的属性B);同一数组可由不同类型的控件组成C);同一数组的各个控件元素的属性可不同D);每个元素可以有多个索引号36;下面关于图形框(PictureBox)和图像框(Image)说法不正确的是( )A);图形框可保存其他控件B);均可加载图片C);图像框可以保存其他控件D);图像框可以比图形框占用更少内存37;下面关于文本框和标签说法不正确的是( )A);标签经常用来显示文本信息B);文本框具有Lostfocus 事件C);可以在标签上输入、编辑、显示文本内容D);文本框是一个文字编辑区域38;下面关于比较排序说法不正确的是（）A);在每一轮排序时找最小数（递增次序）的下标,内循环结束时,再交换最小数的位置B);在每一轮排序时将相邻的数比较,当大小次序不对就交换位置C); 比较排序又称冒泡排序D); 在每一轮排序时（递增次序），内循环结束，则最小数冒出39;下列哪一个不属于文件系统控件（）A);驱动器列表框B); 目录列表框B)C); 文本框D);文件列表框40;下列哪一个属性不属于文本框：（）;A);text ;B);caption ;C);name ;D);height 41;下列哪一个操作不是从顺序文件中读数据到内存的步骤：（）;A);打开;B);写入;C);读出;D);关闭42;下列数据类型与其类型说明符对应正确的是( )A);%--整型;B);$--货币型C);@--字符型;D);!—长整型43;关于VB 中的运算符，以下说法正确的是( )A);“×”是算术运算符，含义是“乘法运算”；B);“≠”是关系运算符，含义是“不等于”；C);“!”是逻辑运算符，含义是“非”；D);“And”是逻辑运算符，含义是“与”。
《VB程序设计》课后题答案
第二章一、问答题1.叙述建立一个完整的应用程序的过程。
答：界面设计编写事件过程代码运行、调试保存文件2.当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
问该工程涉及到几个文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及到两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求把窗体文件先保存。
3.假定在W indows环境中，要保存工程文件时，若不改变目录名，则系统默认的目录是什么？答：VB984．当标签框的大小由Caption属性的值进行扩展和缩小，应对该控件的什么属性进行何种设置？答：将标签的Autosize设置为True.5．VB6.0提供的大量图形文件在哪个目录下？若你的计算机上没有安装，则怎样安装这些图形文件？答：VB6.0提供的图形文件在Graphics目录。
6．在VB6.0中，命令按钮的显示形式可以有标准和图形两种选择，这通过什么属性来设置？若选择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，怎样改正？答：按钮Style的属性设置为Graphical（或1）。
通过Picture属性来装入图形。
不能显示图形是因为Style的属性设置为Standard（或0），只要改为Graphical（或1），一般还将Caption 属性的值设置为空。
7．标签和文本框的区别是什么？答：文本是否可编辑。
8．当窗体上有三个文本框和一个命令按钮，若程序运行时，需把焦点定位在第三个文本框处，应对何控件的什么属性进行何种设置？答：应对Text3控件进行Text3.TabIndex=0的设置。
9．简述文本框的change与keypress事件的区别。
答：文本框内容变化，change与keypress事件都会发生，所不同的是Keyprees还将返回一个Keyasii参数10.当某文本框输入数据后（按了回车键），进行判断认为数据输入错，怎样删除原来数据？怎样使焦点回到该文本框重新输入？答：假定文本框的名称为Text1，则事件过程如下：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf 出错条件判断成立ThenText1＝””…先删除原来数据Text1.SetFocus …焦点回到Text1End If……End IfEnd Sub11.在程序运行前，对某些控件设置属性值，除了在窗体中直接设置外，还可以通过代码设置，这些代码一般放在什么事件中？例如，程序要将命令按钮定位在窗体的中央，请写出事件过程。
《数据结构》课后参考答案
单元练习1一．判断题（下列各题，正确的请在前面的括号内打√；错误的打╳）（√）（1）数据的逻辑结构与数据元素本身的内容和形式无关。
（√）（2）一个数据结构是由一个逻辑结构和这个逻辑结构上的一个基本运算集构成的整体。
（ㄨ）（3）数据元素是数据的最小单位。
（ㄨ）（4）数据的逻辑结构和数据的存储结构是相同的。
（ㄨ）（5）程序和算法原则上没有区别，所以在讨论数据结构时可以通用。
（√）（6）从逻辑关系上讲，数据结构主要分为线性结构和非线性结构两类。
（√）（7）数据的存储结构是数据的逻辑结构的存储映像。
（√）（8）数据的物理结构是指数据在计算机内实际的存储形式。
（ㄨ）（9）数据的逻辑结构是依赖于计算机的。
（√）（10）算法是对解题方法和步骤的描述。
二．填空题（1）数据有逻辑结构和存储结构两种结构。
（2）数据逻辑结构除了集合以外，还包括：线性结构、树形结构和图形结构。
（3）数据结构按逻辑结构可分为两大类，它们是线性结构和非线性结构。
（4）树形结构和图形结构合称为非线性结构。
（5）在树形结构中，除了树根结点以外，其余每个结点只有 1 个前趋结点。
（6）在图形结构中，每个结点的前趋结点数和后续结点数可以任意多个。
（7）数据的存储结构又叫物理结构。
（8）数据的存储结构形式包括：顺序存储、链式存储、索引存储和散列存储。
（9）线性结构中的元素之间存在一对一的关系。
（10）树形结构结构中的元素之间存在一对多的关系，（11）图形结构的元素之间存在多对多的关系。
（12）数据结构主要研究数据的逻辑结构、存储结构和算法（或运算）三个方面的内容。
（13）数据结构被定义为(D，R)，其中D是数据的有限集合，R是D上的关系的有限集合。
（14）算法是一个有穷指令的集合。
（15）算法效率的度量可以分为事先估算法和事后统计法。
（16）一个算法的时间复杂性是算法输入规模的函数。
（17）算法的空间复杂度是指该算法所耗费的存储空间，它是该算法求解问题规模n 的函数。
十进制与二进制
十进制与二进制一句话，二进制与十进制本质上是一样的。
表示方法各个位置上的数字称为“系数”十进制：1234=1*103+2*102+3*101+4*100=1234(十进制数)二进制：1011=1*23+0*22+1*21+1*20=11(十进制数)七进制：1011=1*73+0*72+1*71+1*70=351(十进制数)运算法则十进制：0~9，逢十进一；二进制：0~1，逢二进一。
十进制加法，举例：8+9=17(十进制数)二进制加法，举例：1+1=10(二进制数)11+11=110(二进制数)如何获得各个位置上的数字？短除法十进制：不断地除以10，求余数，再倒过来书写。
见课本(第一册)第4页举例：798÷10=79余879÷10=7余97÷10=0余7十进制转二进制，不断地除以2，求余数，再倒过来书写。
举例：13(十进制数)转为二进制数13÷2=6余16÷2=3余03÷2=1余11÷2=0余1倒过来书写，即1101十进制转其它进制？方法完全一样试一试，把13转成7进制？1、计算机内部信息的表示及存储往往采用二进制形式，采用这种形式的最主要原因是D。
A．计算方式简便B．表示形式单一C．避免和十进制相混淆D．与逻辑硬件相适应2、计算机是用二进制来处理信息的。
二进制数（1000）2和（10）2的关系(A)前者是后者的4倍(B)前者是后者的100倍(C)前者是后者的2倍(D)前者是后者的10倍3、人们通常用的十进制有0到9十个数字，进位规则为“逢10进1”；类似的，三进制有0、1、2这三个数字，进位规则为“逢3进1”。
则将十进制的数字39转化为三进制数是()(A)1021(B)1201(C)1110(D)2101方法：不断的除以3求余数4、将十进制数63转换成二进制数为A.10001B.111111C.1111111D.1000001方法：64=2^6=1000000(1后面6个零)类似的，2=2^1=10，16=2^4=10000，32=2^5=100000，……所以63=64-1=1000000-1=111111其它选项：(A)、10001=2^4+1(C)、1111111=2^7-1(D)、1000001=2^6+1 5、当依次输入1，0，1，1后，输出的结果。
Visual Basic程序设计期末综合练习题一_百度文库解析
Visual Basic程序设计期末综合练习题一一、单项选择题1.Visual Basic是一种面向对象的可视化编程语言,采取了(的编程机制。
A.从主程序开始执行B.按过程顺序执行C.事件驱动D.按模块顺序执行2.在Visual Basic中,窗体文件的扩展名为(。
A..vbpB..frmC..clsD..bas3.Visual Basic6.0集成开发环境有三种工作模式,下列不属于三种工作模式之一的是(。
A.设计模式B.编写代码模式C.中断模式D.执行模式4.如果对象的名称为Mytext,而且对象有一个属性Text,那么在代码中引用该属性的正确格式是(。
A.Text.MytextB.Mytext*TextC.Mytext.(TextD.Mytext.Text5.下列关于变量的说法不正确的是(。
A.局部变量在声明它的过程执行完毕后就被释放了B.局部变量的作用域仅限于声明它的过程C.静态局部变量是在过程中用Static语句声明的D.局部变量是指那些在过程中用Dim语句或Static语句声明的变量6.关于对象的属性不正确的是(。
A.对象的属性一般有属性名和属性值B.可通过属性窗口设置属性的值C.可通过程序代码设置属性的值D.对象的所有属性值均可在设计时设计7.在设计阶段,双击窗体上的某个控件时,打开的窗体是(。
A.工程资源管理器窗口B.工具箱窗口C.代码编辑器窗口D.属性窗口8.要在窗体的标题内显示“myfrm”,使用的语句是(。
A.Form.caption="myfrm"B.Form1.caption="myfrm"C.Form1.Print"myfrm"D.Form.Print"myfrm"9.在VB中,下列变量名不合法的是(。
A.file_1B.fileC.file-1D.file_1_210.在设计动画时,用时钟控件来控制动画速度的属性是(。
VB课程设计报告
课程设计(论文)任务书机电学院专业班一、课程设计(论文)题目：数学宝典二、课程设计(论文)工作自20 年 1 月4日起至 20 年1 月 8 日止三、课程设计(论文) 地点: 计算中心机房四、课程设计(论文)内容要求：1. 本课程设计的目的（1）掌握VB语言的数据类型和各种语句、各种控件和函数的使用；（2）培养学生独立设计算法、编写调试程序的能力；（3）培养学生分析、解决问题的能力；（4）提高学生的科技论文写作能力。
2. 课程设计的任务及要求设计一个提供计算多项数学问题的程序，至少包含3个数学问题（例如求1!+2!+3!+……+n!；用公式计算e的近似值；）用户可自行选择计算的问题。
1）基本要求：（1）贯彻事件驱动的程序设计思想；（2）要求界面设计简洁、美观、实用；（3）编程、调试、运行结果正确；（4）给程序做出必要的注释，以增强程序的可读性。
（5）.提供条件控制功能，如计算e的近似值时要将精度控制在10-9，（键盘提示出n 的取值范围）防止计算结果溢出；2）创新要求：在基本要求达到后，可进行创新设计，可以对界面或内容进行创新，界面友好，人性化，内容新颖。
3) 课程设计报告撰写及装订要求课程设计报告的撰写要求语句通顺，格式规范，图文并茂。
报告按如下内容和顺序用A4纸进行打印并装订成册。
（1）封面采用统一的课程设计封面，并按要求填写好封面要求的个人信息和选题。
（2）设计任务书（3）评阅书（4）目录（5）正文（6）主要参考文献4) 课程设计评分标准：（1）考勤与课程设计态度：20分；（2）完成设计过程：40分；（3）完成调试：20分；（4）论文质量：20分。
5）参考文献：（1）吴昊.《VB程序设计教程》中国铁道出版社（2）龚沛曾《VB程序设计简明教程》高等教育出版社（3）王栋《VB程序设计实用教程》清华大学出版社6）课程设计进度安排内容天数地点构思及收集资料1图书馆编程与调试3实验室撰写论文1图书馆、实验室学生签名：年月日课程设计（论文）评阅意见评阅人职称讲师20 年1月9日目录一、绪论 (5)1.1 Visual Basic 概念1.2 Visual Basic系统的术语1.3 系统的主要特点1.4课程设计的背景与目的二、需求分析 (7)2.1社会和技术需求分析2.2客户和功能需求分析三、概要设计 (8)3.1课程设计的开发流程3.2主要算法思想原理四、详细设计 (10)4.1程序源代码五、运行结果及分析 (13)5.1各数学问题的运行结果与分析5.2调试过程六、课程设计心得 (20)6.1此次课程设计总结6.2系统存在的问题及解决策略6.3对VB这门课程的学习心得七、参考文献 (21)第1章绪论1.1 Visual Basic 概念Visual Basic（简称VB）是Microsoft公司在Basic语言的基础之上推出的软件开发工具，它是一种基于对象的可视化编程语言，是目前Windows平台上设计应用程序最为快捷的工具之一。
【公开课】Unit 13 We're trying to save the earth
Recycling paper is really easy. But it’s hard to stop riding in cars.
Exercise 一、选择方框中的词并用其正确形式填空。
take recycle own napkin shop
1.__R_e_c_y_c_l_in_g_ paper is a really easy thing for everyone. 2. The girl doesn’t have her __o_w_n__ room. 3. She went ___s_h_o_p_p_i_n_g___ with her sister in the supermarket yesterday. 4. My brother is _t_a_k_in_g_ a shower in the bathroom now. 5. And if you have to cough, use your _n_a_p_k_i_n_s to cover
save the environment. For example, you should turn off the shower when you’re washing your hair. Julia: Oh, I would never do that. I have very short hair. It only takes a few minutes to wash. What else does it say?
✓ ✓
✓ ✓ ✓
Listen and fill in the blanks.
Things they talk about
Julia said about it
turning off the lights turning off the shower
AutocadVBA初级教程第十三课块操作-Read
Autocad VBA初级教程第十三课块操作作者：普天同庆文章来源：本站原创点击数：1411 更新时间：2006-7-11定义块方法：Set blocksobj=ThisDrawing.Blocks.Add(基点, 块名)把选择集加入块中的方法：ThisDrawing.CopyObjects(选择集,块)插入块方法：ThisDrawing.ModelSpace.InsertBlock(插入点,块名, X轴比例,Y轴比例,Z轴比例, 旋转角度)画块属性方法：ThisDrawing.ModelSpace.AddAttribute(文字高度,模式,提示字符, 插入点, 显示字符,默认值)一共有五种模式，在输入时会有提示，其中最常用的是“acAttributeModeNormal”普通模式下面的例题是利用属性块画足球场的阵型图。
程序画出一个球员块，然后把块写到用户指定位置，球员号码由程序自动递增，把球员姓名改为用户输入值。
画足球场请参阅上一课内容。
7．插入块，修改球衣号码属性、球员姓名属性以下是源码，附有详细的注释，如果有疑问，建议用变量跟踪法研究一下。
Sub team()Dim playerlay As AcadLayer '定义球员图层Dim playerblock As AcadBlock '定义块变量Dim arcc(0 To 2) As Double '圆弧圆心Dim linep1(0 To 2) As Double '线条端点1Dim linep2(0 To 2) As Double '线条端点2Dim pline(0 To 20) As Double '定义队服右侧多段线7个顶点Dim basep(0 To 2) As Double '块基点Dim playernumberpoint(0 To 2) As Double '块属性插入点Dim mytxt As AcadTextStyle '定义mytxt变量为文本样式Dim blockRef As AcadBlockReference '定义块属性变量Dim Attr3 As Variant '插入块属性变量Set playerblock = ThisDrawing.Blocks.Add(basep, "球员") '定义一个"球员"的块arcc(0) = 0arcc(1) = 430Call playerblock.AddArc(arcc, 50, ThisDrawing.Utility.AngleToReal(180, 0), 0) '画弧并加入块中pline(0) = 0pline(1) = 20Set mytxt = ThisDrawing.TextStyles.Add("mytxt") '添加mytxt样式mytxt.fontFile = "c:\windows\fonts\simfang.ttf" '设置字体文件为仿宋体ThisDrawing.ActiveTextStyle = mytxt '将当前文字样式设置为mytxtplayernumberpoint(0) = 0 '块属性位置playernumberpoint(1) = 200Set attr1 = ThisDrawing.ModelSpace.AddAttribute(100, acAttributeModeNormal, "号码", playernumberpoint, "X", 0) '画块属性attr1.Alignment = 7 '居中attr1.TextAlignmentPoint = playernumberpoint '重定义对齐点Set attr2 = ThisDrawing.ModelSpace.AddAttribute(100, acAttributeModeNormal, "姓名", playernumberpoint, "???", 0) '画块属性attr2.Alignment = 7 '居中Dim objCollection(0 To 3) As Object '创建选择集Set objCollection(0) = line1 '线条1加入选择集Set objCollection(1) = line2 '线条2加入选择集Set objCollection(2) = attr1 '属性1加入选择集Set objCollection(3) = attr2 '属性2加入选择集Call ThisDrawing.CopyObjects(objCollection, playerblock) '把选择集加入块中For Each element In objCollection '在选择集中进行循环用与中小企业共同成长。
新概念第二册课文翻译及学习笔记【Lesson13、14、15】
【导语】新概念英语作为⼀套世界闻名的英语教程，以其全新的教学理念，有趣的课⽂内容和全⾯的技能训练，深受⼴⼤英语学习者的欢迎和喜爱。
为了⽅便同学们的学习，为⼤家整理了⾯的新概念第⼆册课⽂翻译及学习笔记，希望为⼤家的新概念英语学习提供帮助!《新概念英语》第⼆册第13课 The Greenwood Boys 绿林少年【课⽂】First listen and then answer the question.听录⾳，然后回答以下问题。
Why will the police have a difficult time?The Greenwood Boys are a group of pop singers. At present, they are visiting all parts of the country. They will be arriving here tomorrow. They will be coming by train and most of the young people in the town will be meeting them at the station. Tomorrow evening they will be singing at the Workers' Club. The Greenwood Boys will be staying for five days. During this time, they will give five performances. As usual,the police will have a difficult time.They will be trying to keep order. It is always the same on these occasions.【课⽂翻译】“绿⾊少年”是⼀个流⾏歌曲演唱团。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
教学设计 题 目：For-Next循环
培训院校：新疆教育学院数信分院 专业班级：1132初中信息技术班 学 号： 1132102118 姓 名：胡安太 13.For-Next循环 标题：For-Next循环 课时：第一课时 年级：初三 教学重点，难点：使用FOR-Next语句实现循环结构的方法，循环变量。 一．教学目标 1. 知识目标
(1)循环体，循环控制变量（变量）, 了解循环的概念、理解循环结构的基本思
想 (2)把握for„next语句的基本结构(循环嵌套，内循环，外循环) (3)理解for„next语句的执行过程；(实现循环结构的方法) 2. 素质目标 （1） 学生学习循环过程中能够培养学生的思考能力 （2） 学习过程中可以充分发挥学生的逻辑能力。 3. 情感目标 （1） 养成学生独立思考的良好习惯 （2） 提高学生面对现实，敢于面对失败的意识，加强他人的忍耐性。
(3)通过一个个任务的实战演练，感知使用循环结构解决问题的便捷和优越，培养学生运用循环思想解决实际问题的能力，进一步激发学生学习编程的爱好。
(4) 通过在实际的问题中分析提炼循环结构，从程序设计领域进一步提升学生的信息素养 二． 教学过程
1.（1） 复习程序的顺序结构 前面我们讲过程序的顺序结构，计算机最基本的结构。 师：谁能回答，什么是顺序结果？ 学生：回答上述的问题。如果能回的老师表扬，没有人回答，有老师来复述。 （2） 复习程序的分支结构 师：有时候处理问题时，比如判断一个年份是否闰年，需要根据某个条件进行判断。
1. 什么是分支结构？ 2. 我们所学的那个语句是分支结构的？ 3. 谁能写下来它的格式？
学生：让几个学生回答这个问题。如果答对了表扬，答错了，那就老师引导学生回顾那些内容。下面是回顾内容： 格式： 条件语句的执行过程： If Then Else End If 2. 讲述新课 引入： 师：有时，在解决一些问题时，经常需要重复执行一些操作，像计算1＋2＋3＋„„＋100，其中要重复连续做99次加法操作，若用顺序结构来完成，将十分繁琐，我们可以利用VB提供的循环语句来完成。
师：日常生活中的循环指的是什么？谁来举个例子说一说？ 学生：让学生回答。 师：教师举例指导学生分析For-Next循环语句在程序中的执行过程。 学生：实例1的程序代码输入到计算机，看看它的结果。 （1）实例1：在VB窗体显示输出1到10这十个数字。 程序： for i=1 to 10 step 1 print i next i 师：让学生改变代码中的数字，再试一次，然后说出其中的原因。 学生：再试一试，看他的结构。从而找出有些原理。 通过练习，同学们大概搞懂关于循环语句的格式，变量，步长，初值与终值。 师：代码中的那个对象的值循环中改变？它的最初的值多少？最终值是多少？代码里的步长多少？
学生：用自己的语言来表达出上面的问题。 师：表扬学生以后，小姐上述的问题。 For-Next循环语句的格式 For = To step Next 说明：步长值可以为正数或者负数，本节课只涉及步长值为正数的情况。 ①分析此循环语句中， 循环变量是i 初值是1 终值是10 步长是1 循环体中的语句是print i 源程序代码窗口：
窗体窗口显示运行结果： ②分析For-Next循环语句在实例1程序中的执行过程： 师：如果i=10是循环还要执行吗？i<10时循环怎么样？i>10是呢？这三种情况的运算结果会怎么样?
学生：让学生回答这个问题。然后让学生看下面的流程图。
③讲解For-Next循环语句的执行过程： 师：学生回答完了以后，循环的执行过程有老师来讲解。 师：教师归纳 （1）循环语句的功能： 利用循环语句，可以实现循环体内的语句反复执行。 （2）循环结构： 如果程序中含有循环语句，这种程序结构称为循环结构。 学生：思考 在For-Next循环语句中，循环次数由什么决定？ 在思考的过程中，学生分析程序3的执行过程。
窗体窗口显示运行结果： 教师归纳 循环的次数由初值，终值和步长值共同决定。 教师小结 （1）对于已知循环次数的语句的执行，可以使用For-Next语句。 格式： For = to step Next （2）关于For-Next语句，补充说明以下几点： ① 关键字For、 to、 Next 和“=”不能省略不写。 ② 初值、终值、步长可以是数值型常量、变量或表达式。 ③ 步长可以是正数，也可以是负数，当步长为1时，可 省略“step 1”。 三．课堂小结 教师引导学生总结： （2） For-next 循环的格式? （3） 什么是循环体？ （4） 什么是循环变量？ （5） 什么叫步长？ *。教师对学生的表扬 教师对学生制作的网站加以表扬来增加他们的自信心，并及时纠正错误，激发学生继续学习的兴趣。 1. 布置实践练习 按书上的气球升降的编程，修改乞求的运动。
四．作业 在1-20数字之间所有偶数与奇数分别显示的代码要写出来。 五．导学案 基本操作方法如下： 1. 启动VB，新建一个标准EXE工程 2. 仿照书上的图，适当调整窗体的宽和高 3. 在窗体的下部绘制一个图片框和两个命令按钮 4. 在“属性”窗口中选定图片框的Picture属性后，单击它后面的按钮，打开“加载图片”对话框，选定一幅气球的图片 5. 选定图片框的BorderStyle属性，设定它的属性值为0-None 6. 参考下表设置各个控件的“名称”属性值 7. 打开“代码”窗口，为cmd()K-Click()过程编写代码 Private Sub cmd()k-click() picBall.top5000 ‘设定气球的初始位置为离窗体顶部5000个单位处 Fori=5000 to 0 step_0.01 ‘设定步长为-0.01 Picall.top=i Next i End sub 8. 为cmdreset-cilick()过程编写代码 Private sub cmdreset-cilick() Picball.top=5000 End sub 13.For-Next循环(2) 标题：For-Next循环 课时：第二课时 年级：初三 教学重点，难点：使用FOR-Next语句实现循环结构的方法，循环变量。 一．教学目标 1.知识目标 (1) 了解循环的嵌套概念、理解循环结构的基本思想
(2)把握for„next语句的基本结构(循环嵌套，内循环，外循环) (3)理解for„next语句的执行过程；(实现循环结构的方法) 2.素质目标 (1).学生学习循环过程中能够培养学生的思考能力 (2).学习过程中可以充分发挥学生的逻辑能力。 3.情感目标 (1).养成学生独立思考的良好习惯 (2).提高学生面对现实，敢于面对失败的意识，加强他人的忍耐性。
(3)通过一个个任务的实战演练，感知使用循环结构解决问题的便捷和优越，培养学生运用循环思想解决实际问题的能力，进一步激发学生学习编程的爱好。
(4) 通过在实际的问题中分析提炼循环结构，从程序设计领域进一步提升学生的信息素养 二．教学过程 师：这节课主要帆固学生对循环语句的理解的同时，让他们理解循环的嵌套。 教学过程与基本操作步聚方法 1. 打开工程文件“奔跑的小汽车。Vbp” 2. 选定窗体中的“慢性”按钮编写代码，在“属性”窗口中查看它的“名称”属性值是-------------。 3. 打开“代码”窗口，为cmdslow-cilick()过程添加代码。 Private sub cmdslow-cilick() Picture1.left=0 For i=1 to 6000 Picture1.left=i For j=1to100000 Next j Nexti End sub 4. 测试程序 5. 返回设计状态。这里多余两行代码 For j=1to100000 Next j
学生：按上面的操作步骤做书上的练习。 师：同学们，谁来回答，操作过程中，在代码里有几个循环语句？那个循环语句有什么用?循环的格式会怎么样？ 师：先让学生看自己做的练习提来回答。表扬学生。 老师还要提问，根据练习，向学生问几个问题： （1） 什么是嵌套循环？在嵌套循环中可以交叉循环吗？为什么？ （2） 什么是内循环？外循环呢？ （3） Show 语句的作用是什么？print，tab 个别有什么作用？ 学生：回答问题，他们有的能回答，有的不能。 师：教师对学生的表扬 学生：布置实践练习 按下面的格式编出程序？
学生：通过所学的关于循环语句的知识来完成任务。 师：引导学生完成任务。 学生：从而更好的理解循环嵌套格式。 师：课堂总结，指导学生用自己的语言来总结嵌套的过程。 学生：学生用自己的语言来总结嵌套的过程。