select case语句
【学习目标】
（一）在知识与技能方面
1、掌握select case语句的格式、功能和执行过程。
2、理解表达式列表的3种形式（，和to与is）。
3、学会使用select case语句来实现选择控制结构，解决实际问题。
（二）在过程与方法方面
1、初步掌握程序调试运行的方法。
2、初步掌握优化程序的方法
（三）在情感态度与价值观方面
1、经历计算机解决问题的过程，体验成功的快乐。
2、在老师的指导下，与同学共同探究问题，让学生体验自主学习、协助学习的乐趣。
【重点难点】
1、select case语句格式
2、表达式列表的3种形式
3、用select case语句解决实际问题
【教法学法】
问题教学法、讲练结合法
【学时】1学时
【教学环境】网络电脑室
引导学生分析上面程序存在的问题：
1、第1个程序用了5个if语句且条件表达式太复杂，书写容易出错。
2、在第2个程序中，用了4个if语句来处理5种情况，同时用到了if语句的嵌套
3、由于有if语句的嵌套及if语句过多，造成了程序可读性差，经常会出现“end if”配对错误或缺少“end if”。
那么如果我们再多一些情况，它的缺陷就会更加明显。
【教师引导】
有没有更简单一点的语句来解决这个问题，尽量避免出现上面的错误？
【引入】本节课的学习内容Select Case语句即可解决这种多情况的问题。
二、Select Case语句的格式
Select Case语句是多分支语句，又称为多情况语句。
【教师展示】
1、Select Case 语句的格式
功能：根据“测试表达式”的值，
选择第一个符合条件的语句块执
行。
2、说明：
· · · “测试表达式”可以是数值型或字符型；
· · · “测试表达式”和“表达式列表”的类型必须相同；
· · · “表达式列表”形式有以下3种：
3、表达式列表的3种形式
【师生共同分析】
（1）用逗号隔开的若干表达式
如：判断10以内整数的奇偶性
x=inputbox("输入一个整数")
select case x case 1，3，5，7，9 print x; "这是奇数" case 2，4，6，8，10 print x; "这是偶数"
end select
if x=1 or x=3 or x=5 or x=7 or x=9 then
print x; "这是奇数"
end if
（2）表达式1 To 表达式if x>=80 and x<90 then
2x=inputbox("输入一个整数") select case x
case 80 to 89
print x; "该生成绩为良"
case 70 to 79
print x; "该生成绩为中"
end select print x; "该生成绩为良" end if
（3）Is 关系表达式x=inputbox("输入一个整数") select case x
case is>=90
print x ; "该生成绩为优"
case is>=80
print x ; "该生成绩为良"
case is<60
print x ; "该生成绩为不及格"
end select if x>=90 then
print x ; "该生成绩为优" end if
if x<60 then
print x ; "该生成绩为不及格" end if
【学生练习】
把刚才举例的“分数”问题用Select Case语句改写一下，然后请同学来展示一下自己的
成果，同时比较一下自己与老师所写的程序有什么不同。
【交流讨论】
1、is关系表达式在程序中的顺序可以调转吗？
2、Select Case语句的“测试表达式”“表达式列表”与if语句中“条件表达式”有什么时候不同？
【师生共同分析】
1、一个If语句要表示一种情况，而一个Select Case语句可以表示多个情况。
2、case中有很丰富的表达列表，如：①case 1，3，5表示当“表达式”的值为1，3，5中的任何一个值时执行下面的语句，if中要实现必须要用逻辑表达式来连接。②Case 10 to 20很容易来表示一个取值范围，即10到20之间的任何一个值时执行下面的语句，在if中就是一种复杂的条件。③Case is<=10表示小于或等于10时执行下面的语句，比条件if语句表示更加方便。
四、Select Case语句的执行流程
【师生共同小结】 Select Case语句的执行过程是：
先求“测试表达式”的值，然后顺序测试该值符合哪一个Case子句中情况，执行顺序如下：
当测试表达式的值为表达式列表1时，执行语句组1；
当测试表达式的值为表达式列表2时，执行语句组2；
……
当测试表达式的值为表达式列表n时，执行语句组n；
当测试表达式的值不是上述值时，执行Case Else下面的语句组n+1；
然后执行End Select下面的语句。
【学生观察】教师逐语句运行程序，让学生观察程序的执行流程，加深理解。
四、作业
【学生活动】
求分段函数的值
【教师点评】点拨纠错学生做作业存在的问题
附加题：输入一个整数，判别奇偶.
四、课堂小结
1、对于多种情况的选择问题，我们利用多重选择语句来实现。
2、select case语句的基本结构
3、“表达式”与“表达式列表”的类型必须一致及表达式列表的3种形式（1）用逗号隔开的若干表达式
（2）表达式1 To 表达式2
（3）Is 关系表达式
4、select case语句的执行流程
(1) https://www.doczj.com/doc/1716342116.html,函数库的名称空间和模块 Conversion 转换函数 DateAndTime 日期和时间函数 Strings 字符串函数 VbMath 随机函数 (2) 基础类库中的名称空间和类 引用名称空间的方法： 项目引用新建一个项目时，https://www.doczj.com/doc/1716342116.html,根据所建项目类型，自动导 入部分名称空间的引用 直接引用给出名称空间的全名，就可访问其中的任一个类及其 各项内容 例使用Math类开方函数sqrt： Label1.Text = system.Math.sqrt(100) Imports语句导入在代码中就可直接使用名称空间的类或成员。 导入语句的格式：Imports 名称空间
数学函数 .NET中的数学函数包含在Math类。使用前在模块的开头用语句Imports System.Math导入 Rnd函数返回0和1（包括0但不包括1）之间的双精度随机数. 每次运行时，要产生不同序列的随机数，先执行Randomize 语句。产生a~b的之间的随机整数：Int(Rnd *(b-a)+a)
(1) Chr和Asc函数互为反函数。 (2) Str函数将非负数值转换成字符类型后，会在转换后的字符串左边增加一空格。 (3) Val将数字字符串转换为数值类型，当字符串中出现数值类型规定的字符外的字符，则停止转换，函数返回的是停止转换前的结果。例如表达式： Val("-123.45ty3")结果为-123.45。 (4) CDdate函数将以日期型表达式转换成日期类型。例如表达式：CDate("2005/5/12")结果为日期类型 https://www.doczj.com/doc/1716342116.html,中还有其他类型转换函数，例如，CInt、CBool、CSng、CStr等，详细例子查阅帮助功能。 日期函数 计算从当前日期到2007年6月30日有多少天？表达式为： DateDiff("d", Now, #6/30/2007#)
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
ASP纯ASP VBscript常用函数： 1.数值型函数： abs(num): 返回绝对值 sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负 hex(num): 返回十六进制值直接表示：&Hxx 最大8位 oct(num): 返回八进制值直接表示：&Oxx 最大8位 sqr(num): 返回平方根num>0 int(num): 取整int(99.8)=99; int(-99.2)=100 fix(num): 取整fix(99.8)=99; fix(-99.2)=99 round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2 log(num): 取以e为底的对数num>0 exp(n): 取e的n次幂通常用num^n sin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num) 2.字符串函数： len(str)：计算字符串长度中文字符长度也计为一！ mid(str,起始字符,[读取长度])：截取字符串中间子字符串 left(str,nlen)：从左边起截取nlen长度子字符串 right(str,nlen)：从右边起截取nlen长度子字符串 Lcase(str)：字符串转成小写 Ucase(str)：字符串转成大写 trim(str)：去除字符串两端空格 Ltrim(str)：去除字符串左侧空格 Rtrim(str)：去除字符串右侧空格 replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串 注：默认值：起始字符1；替代次数不限；比较方法区分大小写（0）
《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
字符函数 函数名 功能 示例 ASC 返回一个Integer，代表字符串中首字母的字符代码。 Asc(string) CHR 返回String，其中包含有与指定的字符代码相关的字符 Chr(charcode) Format 返回Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。 Format(expression[, format[, firstdayofweek[, firstweekofyear]]]) Hex 返回代表十六进制数值的String。 Hex(number) InStr 返回Variant (Long)，指定一字符串在另一字符串中最先出现的位置。 InStr([start, ]string1, string2[, compare]) InstrRev 返回一个字符串在另一个字符串中出现的位置，从字符串的末尾算起。 InstrRev(string1, string2[, start[, compare]]) Join 返回一个字符串，该字符串是通过连接某个数组中的多个子字符串而创建的。 Join(list[, delimiter]) LCase 返回转成小写的String。 LCase(string) Left 返回Variant (String)，其中包含字符串中从左边算起指定数量的字符。 Left(string, length) Len 返回Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。
Len(string | varname) Ltrim Rtrim Trim 返回Variant (String)，其中包含指定字符串的拷贝，没有前导空白(LTrim)、尾随空白(RTrim) 或前导和尾随空白(Trim)。 LTrim(string)RTrim(string)Trim(string) Mid 返回Variant (String)，其中包含字符串中指定数量的字符。 Mid(string, start[, length]) Partition 返回一个Variant (String)，指定一个范围，在一系列计算的范围中指定的数字出现在这个范围内。 Partition(number, start, stop, interval) Replace 返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，且替换发生的次数也是指定的。 Replace(expression, find, replacewith[, start[, count[, compare]]]) Right 返回Variant (String)，其中包含从字符串右边取出的指定数量的字符。 Right(string, length) Space 返回特定数目空格的V ariant (String)。 Space(number) Split 返回一个下标从零开始的一维数组，它包含指定数目的子字符串。 Split(expression[, delimiter[, count[, compare]]]) StrComp 返回Variant (Integer)，为字符串比较的结果。 StrComp(string1, string2[, compare]) String 返回Variant (String)，其中包含指定长度重复字符的字符串。 String(number, character) StrReverse 返回一个字符串，其中一个指定子字符串的字符顺序是反向的。 StrReverse(string1)
VB函数大全 Calendar 常数 可在代码中的任何地方用下列常数代替实际值： 常数值描述 vbCalGreg 0 指出使用的是阳历。 vbCalHijri 1 指出使用的是伊斯兰历法。 -------------------------------------------------------------------------------- Color 常数 可在代码中的任何地方用下列常数代替实际值： 常数值描述 vbBlack 0x0 黑色 vbRed 0xFF 红色 vbGreen 0xFF00 绿色 vbYellow 0xFFFF 黄色 vbBlue 0xFF0000 蓝色 vbMagenta 0xFF00FF 紫红色 vbCyan 0xFFFF00 青色 vbWhite 0xFFFFFF 白色 -------------------------------------------------------------------------------- Comparison常数 下列常数由 Visual Basic for Applications 中的类型库定义，可用来在代码中的任何地方代替实际值： 常数值描述 VbUseCompareOption -1 使用Option Compare语句的设置进行比较。VbBinaryCompare 0 进行二进制的比较。 VbTextCompare 1 进行文字的比较。 vbDatabaseCompare 2 用于 Microsoft Access(仅限于Windows)，进行以数据库所含信息为基础的比较。 -------------------------------------------------------------------------------- Compiler 常数
注：被中括号(“[”、“]”)括起来的都是可选参数！ 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: 可以是任何一个表达式。
第五章常用内部函数 教学目的及要求： 使学生掌握函数的概念，函数的调用格式，VB中的常用内部函数。 重点与难点： 1、学会调用内部函数进行各种运算。 2、掌握调用各种函数时需要的参数、函数的参数类型和函数返回值类型，这也是本章的难点。 主要外语词汇： ANSI 、function randomize、 format 授课内容： 1、函数的分类：（1）内部函数 （2）外部函数（用户自定义函数、函数过程） 2、VB常用的内部函数有：数学函数、字符串函数、转换函数、日期与时间函数、其他函数。 3、函数的一般调用格式为：函数名([参数表]) 注：参数的类型和个数。 若参数类型或个数不匹配，则提示出错信息。 4、方法与函数的区别： （1）方法可以单独作为语句使用，函数不可以。 （2）方法没有返回值，函数有返回值。 （3）方法的格式：[对象名.]方法 [参数列表] 函数的格式：①变量名=函数名([参数列表]) ②[对象名.]属性=函数名([参数列表]) 5、一般将函数值进行输出或赋值给某个变量。 第一节常用函数 一、数学函数： 1、利用Log(N)/Log(10)得到Lg(N)的值。 2、注意函数Int(N)、Fix(N)、Cint(N)和Round(N)之间的区别。 例1：05_1.vbp 二、字符串函数： 1、常用的字符串函数： （1）Len(S)：测试字符串S的字符个数，中西文字符均算1个字符。 （2）LenB(S)：测试字符串S的字节数，中西文字符均占2个字节。
LenB(S)=2*Len(S) （3）Ucase(S)：将字符串S中的小写字母改为大写字母。 （4）Lcase(S)：将字符串S中的大写字母改为小写字母。 （5）String(N,S)：重复输出N个S单个字符 例：Print String(5,“a”) Print String(5,“abcd”) 结果相同 2、在字符串函数名后面可以加“$”符号。 例：Print String(5,“*”) Print String$(5,“*”) 等价 3、字符串的编码方案： （1）ANSI方式： 美国国家标准协会制定，西文字符占用1个字节，汉字占用2个字节。（2）UniCode方式： 国际标准化组织ISO制定，西文字符和汉字统一进行编码，占用2个字节。VB6.0内部采用UniCode编码形式来存储字符串。 4、字符处理函数：针对字符数，中西文字符均算1个字符。 字符处理函数+B：针对字节数，中西文字符均占2个字节。 5、StrConv函数： 格式：StrConv( S,指定格式 ) （1）S：要转换的字符串表达式。 （2）指定格式： ① vbUnicode（64）：ANSI格式 -> UniCode格式 ② vbFromUnicode（128）：UniCode格式 -> ANSI格式 ③ vbUpperCase（1）：将字符串S文字转换成大写 ④ vbLowerCase（2）：将字符串S文字转换成小写 ⑤ vbProperCase（3）：将字符串S每个字的开头字符转换成大写 总结： 1、小写 -> 大写 2、大写 -> 小写 （1）UCase(S) （1）LCase(S) （2）StrConv(S,vbUpperCase) （2）StrConv(S,vbLowerCase) 例：Private Sub Command1_Click( ) Dim x As String ,y As String x = Text1.Text y = UCase(x) ‘ y = StrConv(x,vbUpperCase) Text2.Text = y End Sub
浙教版高一信息技术VB循环语句教学设计 省象山中学章婷红 315700 zthddsina. 一、设计思想 本节课以一个小游戏导入，引导学生在解决游戏问题的过程中去探索其背后隐藏的算法思想，一个基本的程序结构――循环结构。学会使用循环语句是编程的基本功，因此本课对提高学生的阅读程序和编写代码能力有着非常实在的意义。循环语句是三种基本语句中难度最大的一个，为了降低学习难度，提高学生的兴趣，我用烧杯和量筒来比喻循环语句中累加器和累加量，使学生快速地理解了累加器的作用，并能正确算出这类程序的运行结果。会读程序之后还要会写，挑选一个好的例子非常重要，我选择了算麦粒画棋盘这个实例，既有经典的计算问题又有直观的画图功能，学生学习积极性比较高。任务的设置由算麦粒的填写部分语句到画棋盘的完全自己编写代码，对学生的要求逐步加深。 二、教材分析 本节容选自教育《算法与程序设计》第四章第三节。 循环语句是程序三种基本语句之一，是学习程序设计的基础，同时也是后面六种算法的重要组成部分。《课程标准》和《学科教学指导意见》对本课的要：理解循环语句的作用，掌握循环语句的使用方法。要求学生能从问题出发，用循环语句编写程序，实现简单的算法。《学科教学指导意见》中三种语句的总课时建议为三课时。我考虑到循环语句是三种语句中难度最大的一个，并且要学习for 和do两种语句，后面六个算法中也基本上都要用到循环语句，所以非常重要。因此循环语句我安排了2课时，本节为第1课时，主要容为for语句，第2课时为do语句及循环综合实例。 三、学情分析 在此之前学生已经学习了算法的流程图、VB基础知识和基本操作及两种语句：赋值语句和选择语句，基本掌握了VB的编程环境。对于for语句，我的要学生先学会读程序，即计算出程序的运行结果，尤其要比较熟练地掌握累加器的作用。在此基本上还要能根据实例编写简单的循环结构的程序。对于读程序，大部分学生能模仿老师的例题分析完成计算。而根据实例编写程序，最主要的是找
循环结构测试题（四）一：选择题 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分钟）
Abs 函数返回数的绝对值。 And 运算符执行两个表达式的逻辑连接。 Array 函数返回含一数组的变体。 Asc 函数返回字符串首字母的ANSI 字符代码。 赋值运算符(=) 给变量或属性赋值。 Atn 函数返回数的反正切值。 调用语句将控制移交Sub 或Function 过程。 CBool 函数返回已被转换为Boolean 子类型的变体的表达式。 CByte 函数返回已被转换为字节子类型的变体的表达式。 CCur 函数返回已被转换为货币子类型的变体的表达式。 CDate 函数返回已被转换为日期子类型的变体的表达式。 CDbl 函数返回已被转换为双精度子类型的变体的表达式。 Chr 函数返回指定ANSI 字符码的字符。 CInt 函数返回已被转换为整数子类型的变体的表达式。 Class 对象提供对已创建的类的事件的访问。 Class 语句声明类名 Clear 方法清除Err 对象的所有属性设置。 CLng 函数返回已被转换为Long 子类型的变体的表达式。 颜色常数颜色常数列表。 比较常数用于比较运算的常数列表。 连接运算符(&) 强制两个表达式的字符串连接。 Const 语句声明用于字母值的常数。 Cos 函数返回角度的余弦值。 CreateObject 函数创建并返回对“自动”对象的引用。 CSng 函数返回已被转换为单精度子类型的变体的表达式。 CStr 函数返回已被转换为字符串子类型的变体的表达式。 日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。日期格式常数用于日期和时间格式的常数列表。 Date 函数返回当前系统日期。 DateAdd 函数返回加上了指定的时间间隔的日期。 DateDiff 函数返回两个日期之间的间隔。 DatePart 函数返回给定日期的指定部分。 DateSerial 函数返回指定年月日的日期子类型的变体。 DateV alue 函数返回日期子类型的变体。 Day 函数返回日期，取值范围为1 至31。 Description 属性返回或者设置说明某个错误的字符串。 Dictionary 对象存储数据键、项目对的对象。 Dim 语句声明变量并分配存储空间。 除法运算符(/) 两数相除并以浮点数格式返回商。 Do...Loop 语句当条件为True 或者当条件变为True 时，重复一语句块。Empty 表示尚未初始化的变量值。
浙教版高一信息技术VB循环语句教学设计 浙江省象山中学章婷红 315700 一、设计思想 本节课以一个小游戏导入，引导学生在解决游戏问题的过程中去探索其背后隐藏的算法思想，一个基本的程序结构――循环结构。学会使用循环语句是编程的基本功，因此本课对提高学生的阅读程序和编写代码能力有着非常实在的意义。循环语句是三种基本语句中难度最大的一个，为了降低学习难度，提高学生的兴趣，我用烧杯和量筒来比喻循环语句中累加器和累加量，使学生快速地理解了累加器的作用，并能正确算出这类程序的运行结果。会读程序之后还要会写，挑选一个好的例子非常重要，我选择了算麦粒画棋盘这个实例，既有经典的计算问题又有直观的画图功能，学生学习积极性比较高。任务的设置由算麦粒的填写部分语句到画棋盘的完全自己编写代码，对学生的要求逐步加深。 二、教材分析 本节内容选自浙江教育出版社《算法与程序设计》第四章第三节。 循环语句是程序三种基本语句之一，是学习程序设计的基础，同时也是后面六种算法的重要组成部分。《课程标准》和《学科教学指导意见》对本课的要求是：理解循环语句的作用，掌握循环语句的使用方法。要求学生能从问题出发，用循环语句编写程序，实现简单的算法。《学科教学指导意见》中三种语句的总课时建议为三课时。我考虑到循环语句是三种语句中难度最大的一个，并且要学习for和do两种语句，后面六个算法中也基本上都要用到循环语句，所以非常重要。因此循环语句我安排了2课时，本节为第1课时，主要内容为for语句，第2课时为do语句及循环综合实例。 三、学情分析 在此之前学生已经学习了算法的流程图、VB基础知识和基本操作及两种语句：赋值语句和选择语句，基本掌握了VB的编程环境。对于for语句，我的要求是学生先学会读程序，即计算出程序的运行结果，尤其要比较熟练地掌握累加器的作用。在此基本上还要能根据实例编写简单的循环结构的程序。对于读程序，大部分学生能模仿老师的例题分析完成计算。而根据实例编写程序，最主要的是找出反复执行的事件，并找到其通式和变化规则，写出循环体语句。这对学生来说是有一定难度的，需要老师慢慢引导点拨。 四、教学目标 （一）知识与技能： 1、理解循环语句的作用，掌握FOR语句的基本格式；能看懂循环结构流程图的执行流程； 2、能根据循环语句的代码写出运行结果，尤其要比较熟练掌握累加器的作用；
一、类型转换函数 1、Int(x):求不大于自变量x的最大整数 2、Fix(x):走 失一个浮点数的小数部分，保存其整数部分 3、Hex$(x):把一个十进制数转换为十六进制数 4、Oct$(x):把一个十进制数转换为八进制数 5、Asc(x$):返回字符串x$中第一个字符的ASCII字符 6、CHR$(x):把x的值转换为相应的ASCII字符 7、Str$(x):把x的值转换为一个字符串 8、Cint(x):把x的小数部分四舍五进，转换为整数 9、Ccur(x):把x的值转换为货币类型值，小数部分最多保存4 位且主动四舍五进 10、CDbl(x):把x值转换为双精度数(Double) 11、CLng(x):把x的小数部分四舍五进转换为长整数型数（Long） 12、CSng(x):把x值转换为单精度数(single) 13、Cvar(x):把x值转换为变体类型值(variant) 14、VarPtr(var):获得变量var的指针 二、数学函数 1、Sin(x):返回自变量x的正弦值 2、Cos(x): 返回自变量x的余弦值 3、Tan(x): 返回自变量x的正切值 4、Atn(x): 返回自变量x的横竖切值 5、Abs(x): 返回自变量x的尽对值
6、Sgn(x): 返回自变量x的标记，即卖x为负数时，返回-1；卖x为0时，返回 0;卖x为正数时，返回1 7、Sqr(x):返回自变量x的平方根，x务必大于或即是0 8、Exp(x):返回以e为底，以x为指数的值，即求e的x次方 三、日期函数 1、Day(Now):返回卖前的日期 2、WeekDay(Now):返回卖前的星期 3、Month(Now):返回卖前的月份 4、Year(Now):返回卖前的年份 5、Hour(Now):返回小时(0~23) 6、Minute(Now):返回分(0~59) 7、Second(Now):返回秒(0~59) 四、随机数函数 1、Rnd[(x)]:孕育发生一个0~1之间的单精度随机数 2、Randmize[(x)]:功能同上，不过更好 五、字符串函数 1、LTrim$(字符串):走 失字符串左边的空缺字符 2、Rtrim$(字符串):走 失字符串右边的空缺字符 3、Left$(字符串,n):取字符串左部的n个字符
如果你装了MSDN帮助或装了Office软件，就可以得到 在MSDN中“MSDN Library Visual Studio 6.0 | Visual Basic文档 | 参考 | 语言参考 | 函数” 即可看到VB所有内部函数 在Office软件中，打开“工具|宏|Visual Basic编辑器”，打开Visual Basic 编辑器帮助，“Visual Basic语言参考 | 函数” 即可看到VB所有内部函数 Vb常用内部函数 类型转换函数 数学函数 日期与时间函数 随机数函数 字符串函数 文件操作函数 窗体输入输出函数 ? 类型转换函数 1、 Int(x):求不大于自变量x的最大整数 2、 Fix(x):去掉一个浮点数的小数部分，保留其整数部分 3、 Hex$(x):把一个十进制数转换为十六进制数 4、 Oct$(x):把一个十进制数转换为八进制数 5、 Asc(x$):返回字符串x$中第一个字符的ASCII字符 6、 CHR$(x):把x的值转换为相应的ASCII字符 7、 Str$(x):把x的值转换为一个字符串 8、 Cint(x):把x的小数部分四舍五入，转换为整数 9、 Ccur(x):把x的值转换为货币类型值，小数部分最多保留4 位且自动四舍五入 10、 CDbl(x):把x值转换为双精度数 11、 CLng(x):把x的小数部分四舍五入转换为长整数型数 12、 CSng(x):把x值转换为单精度数 13、 Cvar(x):把x值转换为变体类型值 14、 VarPtr(var):取得变量var的指针 15 val(X):把X的值转换为数值类型 ? 数学函数 1、 Sin(x):返回自变量x的正弦值 2、 Cos(x): 返回自变量x的余弦值 3、 Tan(x): 返回自变量x的正切值 4、 Atn(x): 返回自变量x的反正切值 5、 Abs(x): 返回自变量x的绝对值 6、 Sgn(x): 返回自变量x的符号，即当x为负数时，返回-1；当x为0时，返回 0;当x为正数时，返回1 7、 Sqr(x):返回自变量x的平方根，x必须大于或等于0 8、 Exp(x):返回以e为底，以x为指数的值，即求e的x次方 ? 日期与时间函数
信息技术第二十课 教学内容：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= =
vb编程常用命令集锦 API函数声明数据类型与"类型安全" 常数结构 小结一些API函数集：控件与消息函数、硬件与系统函数、菜单函数、绘图函数 什么是API 首先，有必要向大家讲一讲，什么是API。所谓API本来是为C和C++程序员写的。API 说来说去，就是一种函数，他们包含在一个附加名为DLL的动态连接库文件中。用标准的定义来讲，API就是Windows的32位应用程序编程接口，是一系列很复杂的函数，消息和结构，它使编程人员可以用不同类型的编程语言编制出的运行在Windows95和Windows NT 操作系统上的应用程序。可以说，如果你曾经学过VC，那么API对你来说不是什么问题。但是如果你没有学过VC，或者你对Windows95的结构体系不熟悉，那么可以说，学习API 将是一件很辛苦的事情。 如果你打开WINDOWS的SYSTEM文件夹，你可以发现其中有很多附加名为DLL的文件。一个DLL中包含的API函数并不只是一个，数十个，甚至是数百个。我们能都掌握它嘛?回答是否定的∶不可能掌握。但实际上，我们真的没必要都掌握，只要重点掌握Windos系统本身自带的API函数就可以了。但，在其中还应当抛开掉同VB本身自有的函数重复的函数。如，VB 的etAttr命令可以获得文件属性，SetAttr可以设置文件属性。对API来讲也有对应的函数GetFileAttributes和SetFileAttributes，性能都差不多。如此地一算，剩下来的也就5、600个。是的，也不少。但，我可以敢跟你说，只要你熟悉地掌握100个，那么你的编程水平比现在高出至少要两倍。尽管人们说VB和WINDOWS具有密切的关系，但我认为，API更接近WINDOWS。如果你学会了API，首要的收获便是对WINDOWS体系结构的认识。这个收获是来自不易的。 如果你不依靠API会怎么样?我可以跟你说，绝大多是高级编程书本(当然这不是书的名程叫高级而高级的，而是在一开始的《本书内容》中指明《本书的阅读对象是具有一定VB基础的读者》的那些书)，首先提的问题一般大都是从API开始。因此可以说，你不学API，你大概将停留在初级水平，无法往上攀登。唯一的途径也许就是向别人求救∶我快死了，快来救救我呀，这个怎么办，那个怎么办?烦不烦呢?当然，现在网上好人太多(包括我在内，嘻嘻)，但，你应当明白，通过此途径，你的手中出不了好的作品。这是因为缺乏这些知识你的脑子里根本行不成一种总体的设计构思。 API文本游览器 很多API函数都是很长很长的。想看什么样子吗?如下就是作为例子的API DdeClientTransaction函数∶ Declare Function DdeClientTransaction Lib "user32" (pData As Byte, ByVal cbData As Long, ByVal hConv As Long, ByVal hszItem As Long, ByVal wFmt As Long, ByVal wType As Long, ByVal dwTimeout As Long, pdwResult As Long) As Long 哇！这么长?如果你从来没有接触过API，我想你肯定被吓住了。你也许考虑，该不该继续学下去。不过不要担心，幸运的是Microsoft的设计家们为我们提供了有用的工具，这便是API 文本查看器。