《创新高三一轮复习系列选考总复习（浙江专）信息技术课件： 必修3 第一章算法及VB语言》由会员分享，可在线阅读，更多相关《创新高三一轮复习系列选考总复习（浙江专）信息技术课件： 必修3 第一章算法及VB语言（34页珍藏版）》请在金锄头文库上搜索。
1、第一章算法及VB语言 考试标准 VB应用程序是按模块化的方式组成的 一个程序模块是程序的一部分 每个模块负责解决整个应用问题的一部分任务 程序模块分为过程和函数两种 一 过程 可以将程序划分成一个个较小的逻辑单元 这样每个逻辑单元可以构成一个过程 过程中的代码可以被重复调用 从而避免了不必要的代码的重复编制 减少了编程的工作量 构造事件处理过程Sub事件处理过程名 参数表 语句块EndSub其中 事件处理过程名必须符合下面的规则 对象名 事件的标准名 VB的一些常用对象上的常见事件的标准名见下表 通过过程 是一个独立的程序段 不同的事件可能需要使用同一个程序段时 可以把这个程序段单独地建立成一
2、个通用过程 供其他事件处理过程或其他通用过程调用 二 函数 函数是类似于过程的另一种程序模块 不同之处是函数执行完成后 函数的计算结果被送到函数的调用点上 供程序的后继部分继续进行处理 自定义函数格式 Function函数名 参数表 As类型名语句块End Function 函数名是为函数指定的名称 参数表是对一函数需要的原始数据类型一一地进行说明 As后的类型名 是说明函数的计算结果 即函数返回值的数据类型 自定义函数的语句块中至少要有一个形如 函数名 表达式 的语句 这样 表达式的计算结果才能作为函数的返回值 被VB送到函数的调用点上 例1 某VB程序如下 PrivateSubText1
3、KeyPress KeyAsciiAsInteger IfKeyAscii 13ThenText2 Text Text1 Text Str 5 EndIfEndSub程序运行时 能触发该事件过程的是 A 单击文本框Text1B 单击文本框Text2C 文本框Text1被激活后 用户在键盘上按下某一个键D 文本框Text2被激活后 用户在键盘上按下某一个键 解析事件处理过程名必须符合规则 对象名 事件的标准名 Text1 KeyPress KeyAsciiAsInteger 中Text1是这个事件过程的触发对象 所以排除B D选项 KeyAscii是事件过程的参数 意思是键盘输入后传递给程序的A
4、SCII码 结合if语句 当按下键盘上某一个键传递给程序的ASCII码值等于13的时候执行then后面的语句 所以答案选C 答案C 变式1 有如下VB程序段 DimiAsInteger cAsString sAsString tAsStrings China2014IT t Fori 1ToLen s c Mid s i 1 Ifc a Andc z Thent t cNextiLabel1 Caption t该程序段运行后 标签Label1中显示的内容是 A 2014B ChinaITC hinaD CIT 解析该程序的功能是取出字符串s中的小写字母 答案C 变式2 下面VB程序的功能为 在
5、文本框Text1和Text2中输入两个整数 单击按钮对象Command1 在标签对象Label1中显示这两个数的差 Functionlsc x y AsIntegerIfx yThenlsc x yElselsc y xEndIfEndFunctionPrivateSubCommand1 Click Dima1AsInteger a2AsIntegera1 Val Text1 Text a2 Val Text2 Text Label1 Caption EndSub 要实现上述功能 程序画线处应填入的语句为 A lsc x y B lsc Text1 Text Text2 Text C lscD
6、 lsc a1 a2 解析自定义函数lsc用于求两个整数的差 由于输入的整数为a1 a2 因此画线处应填的语句为lsc a1 a2 答案为D 答案D 变式3 某VB应用程序的两个事件过程如下 PrivateFunctionout xAsInteger yAsInteger zAsInteger AsIntegerDimtempAsIntegerIfx yThentemp yElsetemp xIftemp zThentemp zout tempEndFunctionPrivateSubCommand1 Click DimaAsInteger bAsInteger cAsIntegera 1b
7、2c 3 Text1 Text out a b c EndSub程序运行时 单击命令按钮command1后 在文本框Text1中显示的内容是 A 0B 1C 2D 3解析自定义函数out的功能是求三个数中的最小数 1 2 3三个数中的最小数为1 因此答案为B 答案B 变式4 小明在VB中定义了以下函数 功能是求a和b的最大公约数 Functiongcd aAsInteger bAsInteger AsIntegerDoWhileb 0c aModba bb cLoopEndFunction 调试中发现计算结果一直是0 经过仔细观察与分析 发现错误的原因是 A 函数名有错B 变量c没有定义C 函
8、数没有返回值D b 0应该改为b 0解析A选项函数名的命名规则同变量名 VB中可以省略一些变量的定义 未定义的变量即为通用类型 即根据赋值变化数据类型 所以B选项局部变量c未定义 不影响程序运行 D选项把循环条件改成b 0反而会使DoWhihe Loop循环进入死循环 所以正确答案是C 答案C 变式5 在VB中 设已定义函数过程f 它有三个实型传值参数 设a b c为实型变量 则下列能调用该函数的正确语句是 A fB f a b b c C f a b b c c a D fa b b c c a解析注意函数的格式 答案C 例2 如果一个整数是另一个整数的平方 则称该数是 完全平方数 如 1
9、1 1 4 2 2 9 3 3 所以1 4 9是完全平方数 下列VB程序可以求出1到n 1 n 1000 之间的所有完全平方数之和 PrivateSubCommand1 Click DimsAsLong 用于存储1到n之间所有完全平方数之和DimiAsInteger nAsIntegern Val Text1 Text s 0Fori 1Ton Ifok i Thens s i 当ok函数返回值为True时 执行s s iNextiLabel1 Caption Str s EndSub ok函数用于判断变量t的值是否为完全平方数Functionok tAsInteger AsBooleanDi
10、mkAsIntegerIfk k tThenok TrueElseok FalseEndFunction方框中的正确语句是 A k Int Sqr t B t Int Sqr k C k t 2D t k 2 解析在判断t是否为完全平方数之前 先取出k的值 使k Int Sqr t 若正好有k k t 则得出结论 t是完全平方数 ok True 答案A 例3 2016 9月嘉兴测试 VisualBsaic程序段如下 Functiof xAsSingle yAsSingle AsSingleIfx yAndy 0Thenf x Abs y Elsef x Int Spr y EndFunctio
11、nPrivateSubCommand1Click DimaAsSingle bAsSinglea Val Text1 Text b val Text2 Text Text3 Text Str f a b EndSub 该程序段运行后 文本框Text1 Text2分别输入3 2后 单击命令按钮Command1 文本框Text3中显示的是 A 2B 3C 6D 9 解析本题考查简单的自定义函数 程序运行后 输入两个值3和2分别给变量a和b text3 text str f a b 调用自定义函数f 自定义函数f将3和2两个参数变量传递给x和y 判断 x yandy 0 为假 则返回函数值 x in
12、t sqr y 即 3 int sqr 2 结果为3 答案B 例4 2015 10月浙江选考 某数据加密方法描述如下 1 以字节为单位进行加密处理 2 将1个字节的8位二进制数分割成前4位与后4位两个二进制数 3 分别将上述两个4位二进制数转换为十进制数 4 将每个十进制数转换为1个加密字符 对应的 密码表 如下 小明按照上述方法 设计了一个字符串 仅包含ASCII字符 加密的VB程序 功能如下 单击 加密 按钮Command1 程序依次将文本框Text1中每个字符的ASCII码值作为1个字节转换为两个加密字符 连接这些加密字符 最后在文本框Text2中输出加密结果 下表显示了字符串中一个字符
13、的加密过程 程序运行效果如图所示 实现上述功能的VB程序如下 1 请在画线处填入合适代码 PrivateSubCommand1 Click DimnAsInteger sAsString iAsInteger ssAsStringDimaAsInteger 存储加密前字符的ASCII码 Dimb1AsInteger b2AsInteger 分别存储分割 转换后的两个十进制数s Text1 Text Fori 1Tona Asc Mid s i 1 b1 a 16b2 aMod16ss ss Code2Char b1 Code2Char b2 NextiText2 Text ssEndSub 十
14、进制值转换为加密字符的函数FunctionCode2Char cAsInteger AsStringDimsAsStrings IlikeCHNpostcard Code2Char EndFunction 2 若将 密码表 中值为 0 对应的加密字符 I 改成 i 加密后的密文可能无法解密 原因是 解析本题考查过程和自定义函数 常用标准函数等 1 根据题意 对文本框Text1中输入的字符串逐个字符加密 需算出字符串的长度n 作为循环变量的终值 即n Len s 加密后的字符串 密文 存储于字符串变量ss中 自定义函数Code2Char 中 根据密码表对应的每个十进制数转换为1个加密字符 第一个
15、加密字符对应十进制值为0 故当十进制数值为6时 对应的字符H是第6 1个字符位置 即当十进制数值为c时 对应的字符是第c 1个字符位置 用取子串函数Mid s c 1 1 2 若密码表中值为0对应的加密字符I改为i 造成同时对应加密字符i 当解密时 加密字符i对应的十进制有两个值0和2 不唯一而出错 从而无法解密 答案 1 n Len s 或n Len Text1 Text Mid s c 1 1 2 加密字符i对应两个值0 2 易错易误 过程 将程序划分为一个个较小的逻辑单元 每个逻辑单元构成一个过程 过程中的代码可以被重复地调用 过程分成两类 事件处理过程和通用过程 事件处理过程 Sub事件处理过程名 参数表 语句块EndSubVB预设的事件有 Click 单击 DblClick 双击 KeyPress 按键 Load 装载 Change 改变 等 VB的一些常用对象上的常见事件的标准名有 文本框Text Text1 Click Text1 DblClick Text1 KeyPress Text1 Change命令按钮Command Command1 Click标签Label Label1 Click窗体Form Form Load 窗体装载
