一、增加模块
1．增加一个模块，命名为“我的模块”
ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name="我的模块"
系统常量vbext_ct_StdModule=1
2．增加一个类模块，命名为“我的类”
ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name="我的类" vbext_ct_ClassModule=2
3．增加一个窗体，命名为“我的窗体”
ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name="我的窗体"
vbext_ct_MSForm=3
二、删除模块
1．删除“模块1”
ThisWorkbook.VBProject.VBComponents.Remove hisWorkbook.VBProject.VBComponents("模块1")
2．删除窗体“UserForm1”
ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("UserForm1")
3．删除类模块“类1”
ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("类1")
4.删除所有的窗体
Sub RmvForms()
Dim vbCmp As VBComponent
For Each vbCmp In ThisWorkbook.VBProject.VBComponents
If vbCmp.Type=vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmp
Next vbCmp
End Sub
相关：
工作表和ThisWorkbook的模块类型为vbext_ct_Document=100
三、增加代码
1.在“模块1”中插入代码
如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。
方法1：
在模块的开始增加代码，增加的代码放在公共声明option,全局变量等后面。
Sub AddCode1()
ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString_
"sub aTest()"&Chr(10)&_
"msgbox""Hello"""&Chr(10)&_
"end sub"
End Sub
方法2：
在模块指定行处增加代码，原代码后移。增加代码不理会和判断插入处代码的内容。当指定行大于最后一行行号时，在最后一行的后面插入。
Sub AddCode2()
With ThisWorkbook.VBProject.VBComponents("模块1").CodeModule
.InsertLines1,"sub aTest()"
.InsertLines2,"msgbox""Hello"""
.InsertLines3,"end sub"
End With
End Sub
相关语句：
(1)“模块1”中代码总行数：
ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.CountOfLines
(2)“模块1”中代码公共声明部分的行数：
ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.CountOfDeclarationLines (3)显示“模块1”中第1行起的3行代码内容：
Sub ShowCodes()
Dim s$
s=ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.Lines(1,3)
Debug.Print s
End Sub
(4)过程aTest的起始行数：
ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.ProcBodyLine("aTest", vbext_pk_Proc)
ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.ProcStartLine("aTest",0)
系统常量vbext_pk_Proc=0
二者的区别是ProcBodyLine返回sub aTest或Function aTest所在的行号，如果sub前面有空行，ProcStartLine返回空行的行号。
(5)过程aTest的总行数：
ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.ProcCountLines("aTest", vbext_pk_Proc)
2.建立事件过程
建立事件过程除了使用上面的代码如下面的AddEventsCode1外，还可以使用CreateEventProc方法，如AddEventsCode2所示。
一般方法：
Sub AddEventsCode1()
ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule.AddFromString_ "Private Sub Workbook_Open()"&Chr(13)&_
"MsgBox""Hello"""&Chr(13)&_
"End Sub"
End Sub
CreateEventProc方法：
Sub AddEventsCode2()
Dim i%
With ThisWorkbook.VBProject.VBComponents("Sheet1").CodeModule
i=.CreateEventProc("SelectionChange","Worksheet")+1
.InsertLines i,"Msgbox""Hello"""
End With
End Sub
上面CreateEventProc的两个参数建立的事件过程为Worksheet_SelectionChange，分别是下划线两边的内容。
相关：
测试是否存在SelectionChange事件
下面函数测试模块modulname是否存在过程subname，如果存在，则返回起始行号，否则返回0。
debug.print hassub("Worksheet_SelectionChange","Sheet1")
Function HasSub(ByVal subname As String,ByVal modulname As String)As Long
On Error Resume Next
Dim i&
i=ThisWorkbook.VBProject.VBComponents(modulname).CodeModule.ProcBodyLine(subname, 0)
If Err.Number=35Then
Err.Clear
HasSub=0
Else
HasSub=i
End If
End Function
如果存在，则返回起始行号，否则返回0。
四、删除代码
1．删除Sheet1中第2行起的三行代码：
如果只删除1行代码，第二个参数可省略。
Sub DelCodes()
ThisWorkbook.VBProject.VBComponents("Sheet1").CodeModule.DeleteLines2,3
End Sub
2．删除“模块1”的所有代码：
Sub DelCodes()
With ThisWorkbook.VBProject.VBComponents("模块1").CodeModule
.DeleteLines1,.CountOfLines
End With
End Sub
3．删除过程aTest:
Sub DelCodes()
With ThisWorkbook.VBProject.VBComponents("模块1").CodeModule
.DeleteLines.ProcStartLine("aTest",0),.ProcCountLines("aTest",0)
End With
End Sub
4．将“模块1”的第5行代码替换为“x=3”
ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.ReplaceLine5,"x=3"
五、引用项目
1．增加引用
ThisWorkbook.VBProject.References.AddFromFile"C:\Windows\System32\asctrls.ocx"
2．取消引用
ThisWorkbook.VBProject.References.Remove ThisWorkbook.VBProject.References("ASControls")
这里ASControls是引用的名字，即后面的https://www.doczj.com/doc/b55131434.html,。
3．显示当前所有引用
Sub ShowRefs()
Dim rf As VBIDE.Reference
For Each rf In ThisWorkbook.VBProject.References
Debug.Print https://www.doczj.com/doc/b55131434.html,,rf.FullPath
Next
End Sub
六、信任及密码
上面所有操作都基于这样的前题：
（1）EXCEL已设置：
工具（T）-宏（M）-安全性（M）-可靠发行商（T）-勾选了“信任对于VB项目的访问（V）”（2）工程没有设置密码
如果不能满足它们中的任何一个，代码运行就会出错。因为微软不希望我们对VBProject进行操作，我们无从知道这种操作的直接方法被藏到了什么地方。幸运的是，微软在关起正门的同时，还是为我们留了一道门：SendKeys。借助于这道后门和“错误陷阱”，我们仍可以完成我们所要做的事。
下面给出绕开这两道门的示意代码，如果你要运行它们，请记得切回EXCEL主界面，而不是在VBE中直接运行。
1．信任对于VB项目的访问
Sub SetAllowableVbe()
On Error Resume Next
Dim Chgset As Boolean
'陷阱测试，VBProject.Protection在这儿并无实际的意义
Debug.Print ThisWorkbook.VBProject.Protection
If Err.Number=1004Then
Err.Clear
Application.SendKeys"%TMS%T%V{ENTER}"
Chgset=True
DoEvents
End If
'要执行的操作....
'.....
'操作完成后还原操作前的状态
If Chgset Then Application.SendKeys"%TMS%T%V{ENTER}"
End Sub
2．操作密码工程
Sub AllowPass()
Dim pw$
pw="Password"
If ThisWorkbook.VBProject.Protection=vbext_pp_locked Then
https://www.doczj.com/doc/b55131434.html,mandBars(1).Controls("工具(T)").Controls("VBAProject属性(&E)...").Execute
Application.SendKeys pw&"{ENTER}{ENTER}"
DoEvents
End If
'要执行的操作….
'.....
End Sub
VB条件语句和循环语句 测试习题(满分100分) 班级姓名 一、根据程序写运行结果 1．写出下列程序的运行结果。(5分) Private sub command1_click X=VAL(text1.text) IF X<0 THEN Y=ABS(X) ELSE Y= -X END IF PRINT "Y=";Y End sub 运行结果： (1)在text1中输入99 输出 (2)在text1中输入-23 输出 2. 写出下列程序的运行结果。(5分) Private sub command1_click N=1 FOR X=3 TO 10 STEP 3 N=N*2 NEXT X PRINT "N=";N End sub 运行结果： 3．写出下列程序的运行结果。(5分) Private sub command1_click S=0 FOR X=10 TO 1 STEP 4 S=S+X NEXT X PRINT " S=";S End sub(5分) 运行结果： 4.写出下列程序运行结果。 (5分) Private sub command1_click FOR I= 1 TO 5 step 2 PRINT I， NEXT I End sub 运行结果： 5. 写出下列程序的运行结果。(5分) Private sub command1_click X=VAL(text1.text) IF X/2=Int(X/2) THEN S=X+1 ELSE S=X-1 END IF PRINT "S=";S End sub 若在text1中输入以下数字，运行结果： (1)99 (2)98 二、根据题意，完善下列程序。(每空5分) 1.请设计一个程序，将从键盘上任意输入的两个数中最大的那个选出来。 Private sub command1_click A=VAL(text1.text) B=VAL(text2.text) IF A>B THEN MAX=________ ELSE MAX= ENDIF PRINT "MAX="；MAX End sub 2.求和S=1+3+5+7+…+99 Private sub command1_click S=0 FOR I=1 TO 99 STEP S=________ NEXT I PRINT “S=”；S End sub 3.完善下列程序，使其能求出 2+4+6+……+100之和。 Private sub command1_click FOR I =____ TO 100 STEP _____ S= S+I ______ I PRINT S End sub
一、FI清帐事务码 1.总账清帐~F-03 2.客户清帐~F-32 3.供应商清帐~F-44 4.收客户款记账清帐~F-28=F-06 5.付供应商款记账并清帐~F-53=F-07 6.万能过账清帐~F-04=F-30 7.万能自动清帐~F.13 二、FI基础数据事务码 1.总账科目维护~FS00 2.创建客户~FD01=XD01 3.创建供应商~FK01=XK01 4.创建固定资产~AS01 三、FI业务操作事务码 1.总账科目记账~F-02
四、FI报表查询事务码 1.客户余额查询-FD10N 2供应商余额查询-FK10N 3.总账余额查询-FS10N 4.客户行项目查询-FBL5N 5.供应商行项目查询-FBL1N 6.总账行项目查询-FBL3N 7.检查交货单是否生成会计凭证-VFX3 8查询移动类型明细-MB51 9查询库存明细-MB5B 五、固定资产事务码 1.创建资产主数据-AS01 2.主数据修改调拨-AS02 3.主数据冻结/删除-AS05/AS06 4.查看固定资产详细信息-AW01N 5固定资产报废-ABAVN
6固定资产公司间调拨-ABT1N 7.固定资产折旧运行-AFAB 8.资产明细账和总账的校对-ABST2 9资产会计年度更改-AJRW 10.资产年末余额结转-AJAB 11在建工程分配设定-AIAB 12.在建结算（转固定）-AIBU CO事务码解析 一、主数据 1.创建初级要素-KA01 2.创建次级要素-KA06 3.维护成本中心-KS01、2、3、4 4.维护统计指标-KK01、2、3、4 5.维护成本中心组-KSH1、2、3、4 6作业类型维护-KL01、2、3 7内部订单-KO01、2、3
S A P操作常用事务代码 大全 集团标准化工作小组 [Q8QX9QT-X8QQB8Q8-NQ8QJ8-M8QMN]
Material Mangement: MM01 - 创建物料主数据 XK01 - 创建供应商主数据 ME11 - 创建采购信息记录 ME01 - 维护货源清单 ME51N- 创建采购申请 ME5A - 显示采购申请清单 ME55 - 批准采购申请（批准组：YH） ME57 –分配并处理采购申请 MB21 - 预留 MB24 - 显示预留清单 ME21N- 创建采购订单 ME28 - 批准采购订单（批准组：YS） ME9F - 采购订单发送确认 ME2L - 查询供应商的采购凭证 ME31 - 创建采购协议 MD03 - 手动MRP MD04 - 库存需求清单（MD05 - MRP清单）MRKO - 寄售结算 MELB - 采购申请列表（需求跟踪号） ME41 - 创建询价单 ME47 - 维护报价 ME49 - 价格比较清单 MI31 - 建立库存盘点凭证 MI21 - 打印盘点凭证 MI22 - 显示实际盘点凭证内容 MI24 - 显示实际盘点凭证清单 MI03 - 显示实际盘点清单 MI04 - 根据盘点凭证输入库存计数 MI20 - 库存差异清单 MI07 - 库存差额总览记帐 MI02 - 更改盘点凭证 MB03 - 显示物料凭证 ME2O - 查询供应商货源库存 MB03 - 显示物料凭证 MMBE - 库存总览 MB5L - 查询库存价值余额清单 MCBR - 库存批次分析 MB5B - 查询每一天的库存 MB58 - 查询客户代保管库存
《FOR循环语句》 一．教学目标 在教学过程中，充分发挥学生的主体作用、调动学生的学习积极性，有效地培养学生的分析问题、解决问题的能力，主要体现下面三个目标： 1、知识目标:通过FOR/NEXT语句的学习,理解循环过程，能写出简单的循环程序。 2、能力目标:培养学生分析问题，解决问题的能力。 3、情感目标:激发学生学习热情，培养学生学习的积极性。 二．教材分析 本节课的教学内容是信息技术选修模块一《算法与程序设计》中的第2章第4小节《程序的循环结构》,由for/next循环语句的基本结构及其执行过程还有练习题目三部分组成，是程序设计中的重点也是难点,后续的算法的设计教学，都要以此为基础。本节内容注重实例分析,通过教师的引导,让学生感受和领悟循环结构的执行方式，解决实际问题。 三．教学重难点 重点：掌握FOR/NEXT循环语句的格式，并能运用它来编写程序。 难点：解决问题的思路和方法（算法）,流程图制作,确定循环变量和循环体。四．教学过程 【现实生活中的实例】 设问:1+2+3+4+...+98+99+100=? 【引入】 循环的概念 循环结构是程序设计中的一种基本结构。当程序中出现需要反复执行相同的代码时，就要用到这种结构。循环结构既可以简化程序，又可以提高程序的效率。 在VB中实现循环结构的语句常用的有For…Next语句和Do…Loop语句。 【新课】 1.格式 For 循环变量＝初值To 终值[Step 步长] 循环体 Next 循环变量 2.说明 ·循环变量：亦称为循环控制变量，必须为数值型。 ·初值、终值：都是数值型，可以是数值表达式。 ·步长：循环变量的增量，是一个数值表达式。一般来说，其值为正，初值应小于终值；若为负，初值应大于终值。但步长不能是0。如果步长是1， Step 1可略去不写。其值可以是实数，VB自动调整为整数。 ·循环体：在For语句和Next语句之间的语句序列。
一、VB 基本知识及选择、循环结构习题 一、基本概念题 （1） 说明下列哪些是Visual Basic 合法的直接常量，并分别指出它们的类型。 %100 1E1 123D3 123,456 0100 “ASDF” “” #2004/10/7# 100# π &O78 &H123 True T -1123! # （2）下列数据哪些是变量，哪些是常量是什么类型的常量 Name “name” False ff “11/16/99” cj “120” n #11/12/2004# （3） 下列符号中，哪些可以是Visual Basic 的合法变量名 A123 a12_3 123_a a,123 a 123 Integer XYZ False Sin(x) 变量名 sinx π （4）把下列数学表达式写成Visual Basic 表达式： （1）5||z y x ++ （2）6)1(xy + （3）xy y x 310+ （4）a ac b b 242-+- （5）3211111r r r ++ （6）110ln 45sin 10++++y x e （5）写出下列表达式的值： （1）123 + 23 Mod 10 \ 7 + Asc("A") （2）Int * 100 + / 100 （3）#11/22/2004# - 10 （4）"ZXY" & 123 & "abc" （6）设a=7，b=3，c=4，求下列表达式的值： （1）a + 3 * c （2）a ^ 2 / 4 （3）a / 2 + 3 \ 2 （4）a Mod 3 + b ^ 3 / c \ 5 （7）写出下列函数的值： （1）Int （2）Fix （3）Sqr(Sqr(81)) （4）Len("Visual Basic 程序设计") （5）Int(Abs(99 - 100) / 2) （6）Sgn(7 * 3 + 2) （7）LCase("Hellow VB!") （8）Mid("Hellow VB!", 4, 3) （9）Left("Hellow VB!", 3) （10）Val("16个加23个") （11）Str （12）UCase("Visual Basic") 二、 选择题 （1）可以同时删除字符串前导和尾部空格的函数是 。 A. Ltrim B. Rtrim C. Trim D. Mid （2）函数Int(Rnd(1) * 10)是在哪个范围产生随机整数 。 A. (0,1) B. (0,9) C. (1,10) D. (1,9) （3）数学式子sin25o写成Visual Basic 表达式是 。 B. Sin(25) C. Sin(25o) D. Sin(25*180) （4）表达式16/4 – 2^3 * 8/4 Mod 5\2的值是 。 A. 14 B. 4 C. 20 D. 2 （5）数学关系式103<≤x 表示成正确的VB 表达式为 。 A. 3<= x <10 B. x >= 3 And x<10 C. x>=3 Or x<10 D. 3<= x And <10
注：被中括号(“[”、“]”)括起来的都是可选参数！ For Each ... Next 语句： 语句格式 For Each Variant In Collection Or Array [Statement(s)] [Exit For] [Statement(s)] Next [Variant] 参数解释 Variant: 如果In后面是一个集合(Collection)，Variant可以是任何数据类型的一个变量；如果In后面是一个数组(Array)，Variant就只能是一个Variant变量。 Collection: 可以是任何一个对象集合。 Array: 可以是任何一个数组(Type数组除外)。 Statement(s): 可以是任何一句或多句语句。 Exit For: 可以强制退出循环体。 For Each ... Next 语句的作用 集合/数组里面有多少对象/多少维，For Each ... Next语句就会执行多少次Statement(s)。 Do ... Loop 语句： 语句格式 Do [{While | Until} Condition] [Statement(s)] [Exit Do] [Statement(s)] Loop [{While | Until} Condition] 参数解释 While: 如果While在Do后面，那么循环体一开始就会检查Condition的值，如果Condition的值为False，就退出循环体；否则，执行Statement(s)；如果While在Loop后面，则在执行完第一次Statement(s)时才检查Condition的值，如果Condition的值为False，就退出循环体；否则，继续循环。 Until: 如果Until在Do后面，那么循环体一开始就会检查Condition的值，如果Condition的值为True，就退出循环体；否则，执行Statement(s)；如果Until在Loop后面，则在执行完第一次Statement(s)时才检查Condition的值，如果Condition的值为True，就退出循环体；否则，继续循环。 Condition: 可以是任何一个表达式。
工作分解结构 CJ01创建WBS CJ02更改WBS CJ03显示WBS 日期 CJ21更改基本日期 CJ22显示基本日期 CJ23更改预测日期 CJ24显示预测日期 CJ25更改实际日期 CJ26显示实际日期 网络 CN21创建网络 CN22更改网络 CN23显示网络 结构计划 CJ20更改项目 项目构造器 CJ20N项目构造器 项目负责人 OPS6为WBS元素指定负责人
计划 CJ40更改WBS中的成本(总计值) CJ41显示WBS中的成本 CJ42更改WBS中的收入 CJ43显示WBS中的收入 CJ9BS复制计划WBS 到计划(个别) 预算 CJ30更改原始预算 CJ31显示原始预算 CJ37项目内补充预算 CJ36补充预算到项目 CJ38项目内返还预算 CJ35返还项目预算 CJ34预算转移 CJ32更改预算下达 CJ33显示预算下达 CJ3A修改凭证 CJ3B显示凭证 进度 CN25输入网络确认 CN28显示网络确认
CN29取消/冲销网络确认财务相关 CJ40总计值成本计划 CJR2作业输入成本计划CJ30初始预算 CJ32批准预算 CJ37补充预算 KKA2结果分析 KKAJ集中结果分析 CJ88结算 CJ8G集中结算 投资相关 IM01 （创建投资结构）IM22（修改投资结构） IM32（修改投资预算） IM52（分配投资预算） CJ01（创建WBS） CJ02（修改WBS） CJ20N（项目构造器） CN21（创建网络） CN22（修改网络） CJ30（修改项目预算）
CN41（项目信息系统） AS01（创建资产） AS03（显示资产） ME21N（创建施工服务订单）ML81N（服务条目维护）MIRO（输入发票） CJ88（单个处理期末结算）CJ8G（集中处理期末结算）CJCF（结转承诺） CJCO（预算结转） KB11N（手动成本重过账）
浙教版高一信息技术VB循环语句教学设计 省象山中学章婷红 315700 zthddsina. 一、设计思想 本节课以一个小游戏导入，引导学生在解决游戏问题的过程中去探索其背后隐藏的算法思想，一个基本的程序结构――循环结构。学会使用循环语句是编程的基本功，因此本课对提高学生的阅读程序和编写代码能力有着非常实在的意义。循环语句是三种基本语句中难度最大的一个，为了降低学习难度，提高学生的兴趣，我用烧杯和量筒来比喻循环语句中累加器和累加量，使学生快速地理解了累加器的作用，并能正确算出这类程序的运行结果。会读程序之后还要会写，挑选一个好的例子非常重要，我选择了算麦粒画棋盘这个实例，既有经典的计算问题又有直观的画图功能，学生学习积极性比较高。任务的设置由算麦粒的填写部分语句到画棋盘的完全自己编写代码，对学生的要求逐步加深。 二、教材分析 本节容选自教育《算法与程序设计》第四章第三节。 循环语句是程序三种基本语句之一，是学习程序设计的基础，同时也是后面六种算法的重要组成部分。《课程标准》和《学科教学指导意见》对本课的要：理解循环语句的作用，掌握循环语句的使用方法。要求学生能从问题出发，用循环语句编写程序，实现简单的算法。《学科教学指导意见》中三种语句的总课时建议为三课时。我考虑到循环语句是三种语句中难度最大的一个，并且要学习for 和do两种语句，后面六个算法中也基本上都要用到循环语句，所以非常重要。因此循环语句我安排了2课时，本节为第1课时，主要容为for语句，第2课时为do语句及循环综合实例。 三、学情分析 在此之前学生已经学习了算法的流程图、VB基础知识和基本操作及两种语句：赋值语句和选择语句，基本掌握了VB的编程环境。对于for语句，我的要学生先学会读程序，即计算出程序的运行结果，尤其要比较熟练地掌握累加器的作用。在此基本上还要能根据实例编写简单的循环结构的程序。对于读程序，大部分学生能模仿老师的例题分析完成计算。而根据实例编写程序，最主要的是找
Material Mangement: MM01 - 创建物料主数据 XK01 - 创建供应商主数据 ME11 - 创建采购信息记录 ME01 - 维护货源清单 ME51N- 创建采购申请 ME5A - 显示采购申请清单 ME55 - 批准采购申请（批准组：YH） ME57 –分配并处理采购申请 MB21 - 预留 MB24 - 显示预留清单 ME21N- 创建采购订单 ME28 - 批准采购订单（批准组：YS） ME9F - 采购订单发送确认 ME2L - 查询供应商的采购凭证 ME31 - 创建采购协议 MD03 - 手动MRP MD04 - 库存需求清单（MD05 - MRP清单）MRKO - 寄售结算 MELB - 采购申请列表（需求跟踪号） ME41 - 创建询价单 ME47 - 维护报价 ME49 - 价格比较清单 MI31 - 建立库存盘点凭证 MI21 - 打印盘点凭证 MI22 - 显示实际盘点凭证内容 MI24 - 显示实际盘点凭证清单 MI03 - 显示实际盘点清单 MI04 - 根据盘点凭证输入库存计数 MI20 - 库存差异清单 MI07 - 库存差额总览记帐 MI02 - 更改盘点凭证 MB03 - 显示物料凭证 ME2O - 查询供应商货源库存 MB03 - 显示物料凭证 MMBE - 库存总览 MB5L - 查询库存价值余额清单 MCBR - 库存批次分析 MB5B - 查询每一天的库存 MB58 - 查询客户代保管库存 MB25 - 查询预留和发货情况MB51
MB5S - 查询采购订单的收货和发票差异 MB51 - 物料凭证查询（可以按移动类型查询） ME2L - 确认采购单/转储单正确 MCSJ - 信息结构S911 采购信息查询（采购数量价值、收货数量价值、发票数量价值）MCBA - 核对库存数量,金额 MM04 - 显示物料改变 MMSC - 集中创建库存地点 MIGO_GR根据单据收货: MB1C - 其它收货 MB1A - 输入发货 MB1B - 转储 MB31 - 生产收货 MB01 - 采购收货) MBST - 取消物料凭证 MM60 - 商品清单 ME31L- 创建计划协议 ME38 - 维护交货计划 ME9A - 消息输出 MB04 - 分包合同事后调整 MB52 - 显示现有的仓库物料库存 MB90 - 来自货物移动的输出 CO03 - 显示生产订单 IW13 - 物料反查订单（清单） IW33 - 显示维修订单 VA01 -创建销售订单 VL01N - 参照销售订单创建外向交货单 VL02N –修改外向交货单（拣配、发货过帐） VL09 –冲销销售的货物移动 VF01 –出具销售发票 VF04 –处理出具发票到期清单 VF11 –取消出具销售发票 Warehouse Mangement: LB01 Create Transfer Requirement 创建转储需求 LB02 Change transfer requirement 修改转储需求 LB03 Display Transfer Requirement 显示转储需求 LB10 TRs for Storage Type 按仓储类型的转储请求 LB11 TRs for Material 物料转储请求 LB12 TRs and Posting Change for MLEat.Doc. 转储请求及物料凭证变更传送LB13 TRs for Requirement 按需求的转储请求
循环结构测试题（四）一：选择题 1以下（）是正确的for….nex结构 (A)for x=1 to step 10 (B)for x=3 to -3 step -3 next x (C ) for x=1 to 10 re: … . Next x If I=10 then goto re 2:下列循环语句能正常结束循环的是( ( A)I=5 do I=I+1 Loop until I<0 (C)I=10 do I=I-1 Loop until I<0 3:下面程序段的运行结果为() for I=3 to 1 step -1 print spc(5-I); next x (D) for x=3 to step 3 next y ) (B) I=1 do I=I+2 loop until I=10 (D) I=6 do I=I-2 loop until
for j=1 to 2*1-1 print “ *' next j print n ext I ___________________ l l _________________________________________________ 4下列程序在文本框输入B)“* * ABCD ”四个字符时，窗体上显示的是**(* * ) * * * * *_* * * * * * * * * private sub text1_cha nge() * * print text1.text; end sub 2:下面程序段显示=i(②)个“ * ”。 for j=1 to 4 For I=1 to n 5n* pri nt n For n =2j to I Print Next j Next I 3:下列第40句共执行了（ ③）次，第41句共执行（④ ）次 (A) ABCD (B) (D) A (C )AABABCABCD AB 5哪个程序段不能分别正确显示 1!,2!,3!,4!的C ABC (A) 二：填空题 1:要使下列 for I=1 to 4 n=1 for j=1 to I n=n*j FO F X 语句循环执 行 pri nt n 20次，循环变量 for k=( next i ① )to -5 step — for I=1 to 4 for j=1 to I n=1 n=n*j 的 初值应当是: print n n ext i (B) ABCD (D) N=1 J=1 Do while j<=4 n=n*j pri nt n j=j+1 loop
课题：第6课循环结构之Do While-Loop、Do Loop-While语句第课时课型：新授授课时间 教学目标 知识与技能 1、了解循环的概念，理解循环结构的基本思想 2、掌握Do While Loop、Do Loop Until语句的基本结构及区别 3、理解Do While Loop、Do Loop Until语句的执行过程 4、尝试采用循环结构编写简单的程序，解决实际问题 过程与方法通过讲解分析、实践探究、归纳，逐步深化对循环思想和执行过程的理。情感态度与价值观 通过学习运用循环结构处理解决问题，培养学生应用循环思想解决实际问题 的思路和能力。 教学重点1、理解循环结构的基本思想 2、理解Do While Loop、Do Loop Until语句的执行过程 教学难点根据需要采用循环结构解决问题，并提炼出Do While Loop、Do Loop Until语句的基本结构学生理解Do While Loop、Do Loop Until语句的执行过程 教学 准备 几个以Do While Loop、Do Loop Until语句组成的不同功能的程序 教学过程设计 教学内容师生教学活动设计 备注栏 （学生笔记栏） 一、设疑导入（3分钟） 同学们，上节课我们学习了For Next语句，并且用For Next语句编写了“显示乘法口诀表”我们都知道要让计算机重复做一件事时，可以使用循环结构。像我们上节课当中知道乘法表是从一一得一到九九八十一的循环次数。而在现实生活中却有很多问题是事先不知道循环次数的。例如：甲同学每天都坚持写读书笔记300字，问：甲同学多长时间可以写完读书笔记30 万字？心算：一天300，十天3000,100天30000,10000天30万字。可见一件小事要是坚持做，可以完成多么宏大的工程。乙同学，也坚持每天写读书笔记300字，但是他对自己的要求要高一些，第二天总比前一天多写10个字，问乙同学多长时间读书笔记的字数可以超过30万字?心算！@#￥%&*（乱了！）像这样的例子我们事先也不知道是多少天，算起来也烦心，但是如果交给VB 先生的话，就很简单。下面让我们进入今天的主题——循环结构之Do While-Loop、Do Loop-While语句。 二、探索新知（4分钟）
浙教版高一信息技术VB循环语句教学设计 浙江省象山中学章婷红 315700 一、设计思想 本节课以一个小游戏导入，引导学生在解决游戏问题的过程中去探索其背后隐藏的算法思想，一个基本的程序结构――循环结构。学会使用循环语句是编程的基本功，因此本课对提高学生的阅读程序和编写代码能力有着非常实在的意义。循环语句是三种基本语句中难度最大的一个，为了降低学习难度，提高学生的兴趣，我用烧杯和量筒来比喻循环语句中累加器和累加量，使学生快速地理解了累加器的作用，并能正确算出这类程序的运行结果。会读程序之后还要会写，挑选一个好的例子非常重要，我选择了算麦粒画棋盘这个实例，既有经典的计算问题又有直观的画图功能，学生学习积极性比较高。任务的设置由算麦粒的填写部分语句到画棋盘的完全自己编写代码，对学生的要求逐步加深。 二、教材分析 本节内容选自浙江教育出版社《算法与程序设计》第四章第三节。 循环语句是程序三种基本语句之一，是学习程序设计的基础，同时也是后面六种算法的重要组成部分。《课程标准》和《学科教学指导意见》对本课的要求是：理解循环语句的作用，掌握循环语句的使用方法。要求学生能从问题出发，用循环语句编写程序，实现简单的算法。《学科教学指导意见》中三种语句的总课时建议为三课时。我考虑到循环语句是三种语句中难度最大的一个，并且要学习for和do两种语句，后面六个算法中也基本上都要用到循环语句，所以非常重要。因此循环语句我安排了2课时，本节为第1课时，主要内容为for语句，第2课时为do语句及循环综合实例。 三、学情分析 在此之前学生已经学习了算法的流程图、VB基础知识和基本操作及两种语句：赋值语句和选择语句，基本掌握了VB的编程环境。对于for语句，我的要求是学生先学会读程序，即计算出程序的运行结果，尤其要比较熟练地掌握累加器的作用。在此基本上还要能根据实例编写简单的循环结构的程序。对于读程序，大部分学生能模仿老师的例题分析完成计算。而根据实例编写程序，最主要的是找出反复执行的事件，并找到其通式和变化规则，写出循环体语句。这对学生来说是有一定难度的，需要老师慢慢引导点拨。 四、教学目标 （一）知识与技能： 1、理解循环语句的作用，掌握FOR语句的基本格式；能看懂循环结构流程图的执行流程； 2、能根据循环语句的代码写出运行结果，尤其要比较熟练掌握累加器的作用；
Material Man geme nt: MM01 - 创建物料主数据 XK01 - 创建供应商主数据 ME11 - 创建采购信息记录 ME01 - 维护货源清单 ME51N-创建采购申请 ME5A - 显示采购申请清单 ME55 - 批准采购申请（批准组：YH） ME57 -分配并处理采购申请 MB21 - 预留 MB24 - 显示预留清单 ME21N-创建采购订单 ME28 - 批准采购订单（批准组：YS） ME9F - 采购订单发送确认 ME2L - 查询供应商的米购凭证 ME31 - 创建采购协议 MD03 - 手动MRP MD04 - 库存需求清单（MD05 - MRP清单）MRKO -寄售结算 - MELB - 米购申请列表（需求跟踪号） ME41 - 创建询价单 ME47 -维护报价 ME49 -价格比较清单
MI20 -库存差异清单 MI07 -库存差额总览记帐 MB03 -显示物料凭证 ME2O -查询供应商货源库存 MB03 -显示物料凭证 MMBE -库存总览 MB5L -查询库存价值余额清单 MCBR -库存批次分析 MB5B -查询每一天的库存 MB58 -查询客户代保管库存 MB25 -查询预留和发货情况MB51 MB5S -查询采购订单的收货和发票差异 MB51 -物料凭证查询（可以按移动类型查询）
ME2L - 确认采购单/转储单正确 MCSJ - 信息结构S911采购信息查询（采购数量价值、收货数量价值、发票数量价值） MCBA -核对库存数量，金额 - MM04 - 显示物料改变 MMSC -集中创建库存地点 MIGO_GR根据单据收货： MB1C - 其它收货 MB1A - 输入发货 MB1B - 转储 MB31 - 生产收货 MB01 - 采购收货） MBST - 取消物料凭证 MM60 - 商品清单 ME31L-创建计划协议 ME38 - 维护交货计划 ME9A - 消息输出 MB04 - 分包合同事后调整 MB52 - 显示现有的仓库物料库存 MB90 - 来自货物移动的输出 CO03 - 显示生产订单 IW13 - 物料反查订单（清单） IW33 -显示维修订单 VA01 -创建销售订单
信息技术第二十课 教学内容：vb 第六课 教学目标：知识与技能：1、设计程序流程图并学会用vb 语言表达 2、学生掌握循环结构Do 语句的使用 3、掌握程序设计的步骤，具备程序设计思想 过程与方法：从折纸实验出发，学生在共同探究中逐步掌握程序设计 步骤，从肢解代码到分析代码最后设计代码，由浅及深， 最后一个动手实践，让学生在教师的引导下完整的实现 程序设计。 情感态度与价值观：本节课多次对学生情感进行教育，在课前导入后鼓励大 家每天提高一点点，慢慢的量变就会形成质变，探究循环结构多次师生合作，创建和谐的教学氛围，最后的学生动手实践，完整的进行程序设计，收获新知，培养学生的自我效能感。 教学方法：讲授法、任务驱动法 一、课前导入 1、教师展示ppt 中一张白纸，同学们猜猜一张白纸的厚度。 2、一张普通的办公用纸，它的厚度大约有0.05毫米，现在要讲此纸对折5折，纸张的厚度是多少？ 3、 （利用课前准备的白纸逐步引导，学生推导vb 语句） 赋值语句s=s*2 4、假如一位女同学的身高为1.6米，那么折叠多少层可以达到她的高度？ 学生竞猜，教师打开做好的vb 折纸器按照学生猜测的次数进行逐个尝试。 5、达到我国珠穆朗玛峰的高度至少要折叠多少次？ 学生竞猜，教师打开做好的vb 折纸器按照学生猜测的次数进行逐个尝试。 通过为数不多的折纸就可以达到很高，预期会大大出乎学生的意外，此刻介绍吉尼斯世界纪录上所达到的最多次数为13次，鼓励学生课下尝试。 6、展示 鼓励大家每天进步一点点。 二、庖丁解牛 1、古代高斯解决当时一道十分困难的数学题1+2+3+…+100=？ 2、提问：大家知道他是怎么解决这道问题的吗？ 3、今天我们通过vb 程序也可以很快的解决。 展示vb 程序窗体和相应的代码 Private Sub Command1_Click() Dim i As Integer, n As Integer i = 1 n = 0 Do While i <= 100 n = n + i i = i + 1 Loop 毫米6.12*05.05≈03.099.08 .3701.1365365= =
物料移动类型（常用移动类型）： ●261代表生产订单发料 ●201代表部门领料 ●561代表直接修改库存 注意：MB1A发料（退料），MB31按订单收货，MB1C其他类型的收获（退货）--比如初始化库存、副产品收获等 MB52—显示库存地点库存 MMBE—显示物料库存 MB51/MB53—查看凭证（MB51能看到每一笔详细的操作、MB53查看库存中可用总量）MB5B—过账日期的库存（批量显示指定物料进销存情况） MB1A/MB1C—修改库存中的数量 MB1B—物料移库 生产部分： CC01—建立更改号码 CC02—修改更改号码
CC03—显示更改号码 MMR1—原料 MMB1—半成品 MMF1—成品 MM01—创建物料 MM02—修改物料 MM03—显示物料（可以查看生产版本） MM04—查询料号修改的历史纪录 MM06—标记待删除物料 MM11—排程建立料号 MM13—立即执行已经schedule的建立或修改工作 MM17—批量修改物料（比如批量修改生产调度员、物料描述等）MM50—扩展物料视图 MM60—物料主数据清单显示（批量显示） MMAM—更改物料类别 MR21----修改物资价格 CS01—物料BOM创建 CS02—物料BOM更改 CS03—物料BOM显示 CS07—创建工厂分配（比如将C003的BOM 分配给 C004工厂）CS08—修改工厂分配 CS09—显示工厂分配 CS11—物料BOM逐层展开 CS12—物料BOM多层展开 CS13—BOM汇总 CS14—物料BOM比较 CS15—物料反查（根据组件查相应的BOM） CS20—物料BOM批量更改 CS80—物料BOM更改文件（记录修改BOM的历史记录） CC01—建立更改编号 CC02—修改更改编号 CC03—显示更改编号 CC04—产品结构显示（物料、更改编号等对象） CC05—变更概观(批量显示更改编号跟踪下的记录) CC11—建立物料修订版次
循环结构是指在一定条件下多次重复执行一组语句。VB中提供了两种循环语句，它们是For 语句和Do语句。 1. For循环语句 如果己知某一段代码需要重复执行的次数，可以使用For循环语句。该语句的一般形式如下： 该段代码的功能是在窗体上显示8行文本，如图3.16所示。如果不采用循环结构，则需要使用8条Print语句来实现相同的功能。 For语句中的循环变量必须是数值型，初值、终值以及步长则是具体的数值 For…next 步长用来指定循环变量每次的增量，当所有循环体中的语句都执行后，循环变量就会自动增加一个步长。默认的步长为1.For语句的执行流程如图3.17所示。
具体执行流程为： （1）将初值赋给循环变量。 （2）判断循环变量的取值是否在终值范围内否则结束循环，执行Next的下一条语句。 （3）将循环变量的取值自动增加一个步长，然后回转到步骤（2）继续执行。 若是则执行循环体内的语句，循环中可以在任何位置放置任意个Exit FOr语句，该语句的作用是退出循环，转到Next语句的下一条语句。Exit For语句经常在条件判断之后使用，例如在If…Then语句之后。 例如，修改上例如下：
实例3.3打印九九乘法表 本例讲解怎样打印九九乘法表，如图3.18所示。九九乘法表的打印看起来很烦琐，但是如果使用嵌套循环，则问题变得非常简单。 打开【代码】窗口，编写窗体的Click事件过程如下： 在该段代码中，首先使用Print方法打印出标题和一个空行。然后使用了一个两重的嵌套循环结构。关于Print方法的使用细节请参见下一章。 2.Do循环语句 如果不知道某一段代码需要重复执行的次数，可以使川Do循环语句0该语句有两种基本形式：
vb中FOR循环语句的教学 vb中FOR循环语句的教学 ——形式多样的多个圆的画法 一、基本说明 1、本教学案例参与人员基本信息 2、教学内容 1）教学内容所属模块：《算法与程序设计》 2）年级：高一二期 3）所用教材出版单位：上海科技教育出版社 4）所属的章节：第二章第四节 5）学时数： 45 分钟 二、教学设计 1、教学目标： l 从形式上大致弄清循环语句结构（for 和next 配套出现）。 l 让学生理解循环的含义和作用（是一次又一次的重复执行某关键操作，而不是一次性地同时完成大量关键操作）。 l 理解循环的执行过程，更进一步弄清循环语句结构。 l 掌握各基本概念及功能 l 体会循环变量给循环体带来的影响 l 最终能透彻理解循环语句，会使用FOR语句编写程序解决问题。
2、内容分析： 循环语句是程序设计的三大基本结构之一，是三个结构中最难的一个，在以往各届教学中学生很难于理解和掌握。由于本人所教5个班中有4个是交费班，学习能力和习惯都欠佳，要求教学者以深入浅出及趣味性的教学吸引学生。 重点：使学生理解循环语句的含义和执行过程，语句中的相关概念。 难点：FOR语句中循环变量的变化，循环次数的决定，循环变量给循环体带来的影响。3、学情分析： 大部分中学生对程序语句和算法的理解能力不强，更由于高中阶段其他课程的繁重课业负担使得学生们不会花多的精力和时间来学这门课。本节课之前学生已学了基本输入输出语句、条件语句、少量控件的使用，对循环语句还没有了解。教师应采用一种让学生很容易接受的方式来学习新知。 4、设计思路： 根据教学内容（FOR语句）讲解很枯燥，中学生不喜欢概念讲解及理论灌输的特点，采用画圆来形象地呈现循环的效果；首先避开语句的介绍，学生先操作体验FOR，对该语句有了感性认识后，教师根据学生的体验进行FOR语句的总结提升，使对该语句上升到理性认识；最后教师对完成的同心圆FOR语句提出进一步的设计要求，使学生在完成过程中更透彻地理解for语句。教学中沿着“体验-感觉-总结-拓展”的思路来学习新知，体现了新课程理念中“以人为本”的思想，注重以学生为主体，师生互动推动教学的进行，枯燥而难懂的内容变得生动形象，由浅入深，容易理解和掌握。 l 引入，知识迁移：画少量圆à画大量圆，用已有知识无法达到目标，引出本节课新的学习内容：FOR循环。
12. 学习VB循环语句之我见 VB 的循环语句有4 大类，共8 个小类，要全部掌握这些语句，可不是简单的事。 实际上，只需要掌握其中两个小类，就足够对付任何循环的情况了。 下面用计算1+2+3+...+100 来看看这8 个循环小类的特点： Private Sub Command1_Click() Dim I As Long, S As Long '一、例子①：For...Next 循环 For I = 1 To 100 S = S + I Next MsgBox "For...Next：1+2+3+...+100 = " & S '二、Do...Loop 循环 '例子②：在Do 和Loop 后面不使用任何关键字，在循环体内加入判断语句退出循环 I = 0: S = 0 Do I = I + 1 If I > 100 Then Exit Do S = S + I Loop MsgBox "Do...Loop：1+2+3+...+100 = " & S '例子③：在Do 后面使用While 关键字 'I 小于100 就进入循环 I = 0: S = 0 Do While I < 100 I = I + 1 S = S + I Loop MsgBox "Do While：1+2+3+...+100 = " & S
'例子④：在Loop 后面使用While 关键字 'I 不是小于100 就退出循环（不论I 的值是多少，循环体至少会执行一次）I = 0: S = 0 Do I = I + 1 S = S + I Loop While I < 100 MsgBox "Loop While：1+2+3+...+100 = " & S '例子⑤：在Do 后面使用Until 关键字 'I 大于100 就退出循环，注意S=S+I 和I=I+1 的位置与使用While 关键字时不同不同 I = 0: S = 0 Do Until I > 100 S = S + I I = I + 1 Loop MsgBox "Do Until：1+2+3+...+100 = " & S '例子⑥：在Loop 后面使用Until 关键字 'I 大于100 就退出循环（不论I 的值是多少，循环体至少会执行一次） I = 0: S = 0 Do S = S + I I = I + 1 Loop Until I > 100 MsgBox "Loop Until：1+2+3+...+100 = " & S '三、While...Wend 循环 '例子⑦：I 小于100 就执行循环，与例子③Do While I < 100 完全相同 I = 0: S = 0 While I < 100 I = I + 1 S = S + I Wend MsgBox "While...Wend：1+2+3+...+100 = " & S
一、选择题 1、无条件转移GoTo语句后面是（A） A、标号或行号 B、输出语句 C、输入语句 D、子过程 2、无条件转移GoTo语句后面的行号或标号以字母开头，后跟（A） A、冒号 B、分号 C、逗号 D、空格 3、无条件转移GoTo语句后面的行号或标号在同一过程中（A） A、必须唯一 B、可以重复 C、以数字开头 D、以汉字开头 4、while循环结构中的条件表达式取值为（A） A、True B、False C、True或False D、0 5、while循环结构中的条件表达式取值为（A）时执行语句组 A、True B、False C、True或False D、0 6、while循环结构中与（A）匹配使用，不能单独出现 A、Wend B、end C、loop D、next 7、Do…、、loop循环结构中的循环体执行的最少次数为（A） A、0 B、1 C、2 D、3 8、前测型Do…、、loop循环结构中的循环体执行的最少次数为（A） A、0 B、1 C、2 D、3 9、后测型Do…、、loop循环结构中的循环体执行的最少次数为（B） A、0 B、1
C、2 D、3 10、Do…loop循环结构中的Exit Do语句的功能是（B） A、退出整个程序 B、退出当层循环 C、退出最外层循环 D、退出所在子程序 11、Do…loop中使用while关键字时，条件为（B）执行循环体 A、False B、True C、0 D、假或真 12、Do…loop中使用until关键字时，条件为（A）执行循环体 A、False B、True C、0 D、假或真 13、Do…loop中使用while关键字时，条件为（A）终止循环 A、False B、True C、0 D、假或真 14、Do…loop中使用until关键字时，条件为（B）终止循环 A、False B、True C、0 D、假或真 15、For…Next循环结构中（C）用来控制循环变量 A、for B、step C、next D、to 16、For…Next循环结构中step用来控制（D） A、循环变量 B、循环变量初值 C、循环变量终值 D、循环变量增量 17、For…Next循环结构中循环变量初值大于终值时,步长为（A） A、负数 B、非负数 C、正整数 D、正数 18、For…Next循环结构中循环变量初值小于终值时,步长为（A） A、负数