2022年信息技术算法与程序设计VB选修知识点汇总 .pdf

《2022年信息技术算法与程序设计VB选修知识点汇总 .pdf》由会员分享，可在线阅读，更多相关《2022年信息技术算法与程序设计VB选修知识点汇总 .pdf（33页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、江苏省高中信息技术算法与程序设计VB （选修） 知识要点相关知识点（一）算法1. 定义相关题解：1 算法：就是解决问题的方法和步骤。算法是程序设计的 “灵魂” ，算法+数据结构程序。单选题1、下列关于算法说法不正确的是( ) A、算法独立于任何具体的语言，BASIC算法只能用 BASIC语言来实现B、解决问题的过程就是实现算法的过程C、算法是程序设计的“灵魂”2算法的描述方法：1 算法的描述：可分多种表达方法，一般用自然语言、流程图和伪代码进行描述。2 自然语言描述法： 指用人们日常生活中使用的语言（本国语言），用自然语言描述符合我们的习惯，且容易理解。3 流程图描述：也称程序框图，它是算法的

2、一种图形化表示方法。且描述算法形象、直观，更易理解。4 伪代码描述法：是介于自然语言和计算机程序语言之间的一种算法描述。是专业软件开发人员常用方法。相关题解：单选题1、图形符号 在算法流程图描述中表示( ). 输入或输出判断处理或运算连接点流程线开始或结束精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 1 页，共 33 页A 处理或运算的功能 B 输入输出操作C 用来判断条件是否满足需求 D 算法的开始或结束2、图形符号 在算法流程图描述中表示( ). A 处理或运算的功能 B 输入输出操作C 用来判断条件是否满足需求D 算法的开始或结束3、以下哪

3、个是算法的描述方法?( ) A 流程图描述法 B 枚举法 C 顺序法 D 列表法4、以下哪个是算法的描述方法?( ) A 顺序法 B 列表法 C 集合法 D 自然语言描述法（二）程序设计基础（1）常用高级编程语言： BASIC 、VB 、Pascal 、C、C+ 、Java 1 面向对象的程序设计语言：其中的对象主要是系统设计好的对象，包括窗体等、控件等2 控件：是指工具箱中的工具在窗体中画出的、能实现一定功能的部件，如文本框，命令按钮等。常用控件：控件对象的类型前缀名字举例窗体Form frm frmfind 命令按钮Command button cmd cmdok 标签Label lbl

4、lblinput 文本框TextBox tmr tmrClock 若命令按钮 (Command) 的 Enabled 属性设置为 True 时按钮有效，设置为False 时按钮无效3 对象的属性、方法和事件1 属性属性Name 设置对象的名称Caption 决定控件中显示的内容（文字）Text 决定窗体中文本框中显示的内容( 初始为空白 ) Height 决定控件高度Width 决定控件宽度TOP 决定控件的靠顶部位置Left 决定控件的靠左边位置精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 2 页，共 33 页Font 设置控件中字体格式Bac

5、kColor 设置控件背景色ForeColor 设置控件的前景色BorderStyle 设置控件的边框风格Alignment 即标签文字对齐属性： (0)Left Justify时文本左对齐；(1)Right Justify时文本右对齐；设置为(2)Center时文本居中。AutoSize 设置为 False 时输入控件 Caption 中文字超过控件宽度时超出部分被裁剪掉， 设置为 True 时， 控件可水平扩充，以适应控件 Caption 属性。Visible 决定控件是否可见Enabled 决定控件运行时是否有效对象. 属性属性值对象中属性可以在设计界面时通过属性窗中设置，也可以在运行时

6、通过程序代码设置 , 方法如下例：给文本框“ Txt123”的“ Text”属性赋值为字符串“ 20” ，代码如下Txt123.text =”20”变量对象 . 属性如果要获取对象的状态或特性，这时就要读取对象的属性值，方法如下例：读取文本框“ txt123 ”的“ Text”属性的代码如下a = txt123.text 2 方法对象 . 方法参数名表例：form.print ”欢迎使用”该语句使用 print方法在 form1 窗体中显示字符串“欢迎使用”3 事件及事件驱动事件是对象对外部操作的响应，如在程序执行时，单击命令按钮会产生一个 Click 事件。如需要命令按钮响应Click事件，

7、就把完成 Click事件功能的代码写到Click 事件的事件过程中，与事件一一对应。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 3 页，共 33 页事件过程的形式如下：Private Sub 对象_事件名 ( ) （事件过程代码）End Sub 一个简单的 VB程序求圆的周长和面积Private Sub Command1_Click() Dim r As Single 定义 r 为单精度型Dim c As Single 定义 c 为单精度型Dim s As Single 定义 s 为单精度型r = Val(Text1.Text) 输入半径 r

8、c = 2 * 3.14159 * r 计算周长s = 3.14159 * r * r 计算面积Text2.Text = c 输出周长Text3.Text = s 输出面积End Sub Private Sub Command2_Click() End 退出End Sub 相关题解：单选题1、下列关于程序设计说法正确的是( )。A、程序设计语言的发展经历了机器语言、汇编语言到高级语言的过程，比较流行的高级语言是PASCAL, FORTRAN, EXCEL, C+等B、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程C、程序设计语言和计算机语言是同一个概念的两个方面

9、D、程序设计就是指示计算机如何去解决间题或完成一组可执行指令的过程2、下列说法错误的是（）. A、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程B、程序设计语言的发展经历了机器语言、汇编语言、高级语言的过程精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 4 页，共 33 页C、计算机程序就是指计算机如何去解决间题或完成一组可执行指令的过程D、程序设计语言和计算机语言是同一概念的两个方面一、常量：批在程序进行过程中不变的量在VB中一般分数值常量与字符常量两种数值常量：就是数学中说的常数，分整型常量和实型常量两种整型常量

10、：即整数，指不带小数点的数值如1、0、 、-10、+35 等都是合法的整数实型常量：即实数，指带小数点的数值。实型常量又分为定点数和浮点数两种。例：定点数： 3.14159 和-6.8 ，1.99 浮点数： 2E6 、1E5、88E 例：1.2345103 可表示为 1.2345E3，字母 E表示底数 10 浮点数就是数学上的科学计数法。字符串常量：被一对双引号括起来的若干个合法的字符称为字符串常量。例如：” China”、” Visual Basic”、”18”、” 3.1415”等，双引号中字符，不包括双引号本身。符号常量：如果多次用到同一个常量，则可用一个有意义的名字表示这个常量。二、变

11、量：在程序执行过程中，其值可以改变的量称为变量变量命名注意要点： 1、必须以字母开头 , 不能以数字或其他字符开头。2、只能由字母、汉字、数字学或下划线组成，不能含有小数点、空格等字符。3、最长不超过 255个字符4、不能以 VB保留字作变量名，如语句定义符、函数名等。5、VB不区分变量名中字母大小写。如HELLO 和Hello 是同一个变量。数据及运算（1） 常用数据类型：(整型)Integer、（长整型）Long、（单精度型）Single 、（双精度型） Double、 （字符串型） String 、 （布尔型） Boolean、 （日期型）Date 其中(整型)Integer、 （长整型

12、）Long、 （单精度型） Single 、 （双精度型）精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 5 页，共 33 页Double 属于数值型表示范围：( 整型)Integer (-32768 32767，存储为 16 位 ， 2 个字节) ( 长整型)Long(-21亿 21 亿，可以表示人口数量 ) ( 布尔型） Boolean(True 真、是 或 False 假、非 ) （字符串型） String(定长字符串： 065535个字符，不定长字符串：020 亿个字符 ) 字符串型数据是指用“ ”括起来的一串字符。如“欢迎进入 VB世界！

13、”、“ Visual Basic” 、“1234 ”都是字符串类型。（日期型） Date（100/1/1 9999/12/31 ）日期型数据专门用来处理日期和时间。VB采用一对“#”把日期和时间的值括起来，如#2003/08/20# 表示 2003年 8 月 20 日。（2）常量和变量的命名、声明及赋值符号常量的声明： Const 常量名 As 常量类型 = 常量值如：Const pi As Single = 3.14159 常量名为 pi 变量的声明：Dim As 如：Dim a As Integer 定义一个整型变量，变量名为a 变量的赋值VB中使用 Let 语句给变量赋值，其形式如下：L

14、et 变量 = 表达式其中，方括号 表示这部分内容是可选的，通常可以省略该关键字。例题Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Dim str As String Let a = 54 Let b = 114 c = a + b str = Hello World 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 6 页，共 33 页 Print a=; a, b=; b, c=; c Print str End Sub 数据的输出程序中运算得到的结果，

15、除可以使用文本框和标签显示外，对于大批量的数据更适合用Pint 方法输出，格式如下 对象 . Pint 表达式列表 例题：Private Sub Form_Click() Dim x As Single, y As Single Form1.Print -61; -34 Form1.Print 9 * 2; 12 Form1.Print This is; a book x = 3: y = 4 Print x=; x, y=; y End Sub 注意： Print 方法相关题解：单选题1、下列变量名写法错误的是( ) A、abc_123 B 、123abc C 、abc123 D 、abc

16、2、下列语句中定义了一个实型变量的是 ( ) A、Dim end as Integer B、Dim sum As Single C、Dim Name As String D、其它三项都不对3、在 VB中，以下哪个是正确表示十六进制整型数常量?( ) A、32F B、H32F C 、h32F D 、&32F 4、在 VB中，以下关于符号常量的声明，声明正确的是:( ) A、Dim TAG as String B、Const TAG as String Visual + Basic C、Const TAG as String =Visual Basic D、Const TAG as String

17、5、下面( )不是字符串常量A、True B、#False# C 、 D、 你好 运算符1、算术运算：精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 7 页，共 33 页+ 加 - 减 *乘 指数例：22 = 4 / （浮点）除例：5 / 2 = 2.5 整除例： 5 2 = 2 Mod 求余数例：5 Mod 2 = 1 相关题解单选题1、分析下列程序 : Private Sub Form_Click() s=113 + 11 Mod 3 Print s End Sub 当单击窗体时 s 的值是 ( ). A、5 B 、6 C 、4 D、3 关系运

18、算= 赋值、 小于号 不等于 大于号= 大于等于号 2 结果为 True( 真或是 ) 相关题解单选题1、下面表达式的值是false的有( ). A、969 n97 B、Int(4.99) len(basic) C、str(2000) 2 逻辑运算Not（取反） And （与） Or （或）运算结果为布尔型（ Boolean）True 或 False 逻辑运算符的优先级为：No And Or 日期运算符与日期表达式日期表达式是用日期运算符“+”或“-”将算式表达式、日期型常量、日期型变量、日期函数等连接起来的式子， 如表达式 “#2003/09/01# +30”的运算结果是“ 2003-10-

19、1 ” ；表达式“ #2003/10/20# - #2003/10/10#”精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 8 页，共 33 页的运算结果为整数10 相关题解单选题1、设 a=2, b=3, 在 VB中，表达式 ab Or b3 值是:( ) A、False B、True C 、-1 D 、1 字符运算字符串连接符为“ +”和“ &”“123” + “45” = “12345”“123” & “45” = “12345”123 + “45” = 168“123” + 45 = 168运算符的执行顺序在 VB中，当一个表达式中同时出现

20、多种运算符时，运算次序由运算符的优先级决定， 优先级高的运算符先运算，优先级相同的从左向右进行运算。不同性质的运算符优先级如下。算术运算符 字符串运算符 关系运算符 逻辑运算符常用函数数学函数Abs(x) 求 x 的绝对值，例： abs(-3.6) = 3.6 Sqr(x) 求 x 的平方根，例： sqr(100) = 10 Int(x)求x 的最大整数例：int(3.6) = 3 int(-3.6) = -4 Rnd(x) 产生0，1)之间的随机数（不包括1）Sin(x) Cos(x) Tan(x) Atn(x) Exp(x) Log(x) 使用三角函数时，参数应是弧度，如数学中sin300

21、应写为：sin(30*3.14159/180) 字符串函数Len(字符串 ) 求字符串的长度 , 例：Len(“hello ”) = 5Left( 字符串，截取长度 ) 截取字符串左边部分 , 例:Left(“hello ”,2) 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 9 页，共 33 页= “he”Mid(字符串，起始位置，截取长度 ) ,例：Mid(“hello ”,2,2) = “el ”其他：Right ( 字符串 , 长度)截取字符串右边部分。例 : Right (“hello ”,2) = “lo ” String(数值，字符

22、 )生成指定长度与指定字符的字符串，例：String(3,”9”) = ”999”常用转换函数Val( 字符串 ) 将字符串转换为数值Str( 数值) 将数值转换为字符串Chr(字符代码 ) Asc(字符) Tab定位函数的使用例题Private Sub Form_Click( ) Dim a As Integer Dim b As Integer a = 4: b = 9 Print Tab(1); 数; Tab(9); 平方; Tab(18); 立方; Tab(27); 平方根 Print Tab(1); a; Tab(9); a * a; Tab(18); a * a * a; Tab(

23、27); Sqr(a) Print Tab(1); b; Tab(9); b * b; Tab(18); b * b * b; Tab(27); Sqr(b) End Sub 用户交互函数VB提供 InputBox( )和 MsgBox( ) 函数用于人机交互InputBox( )其语法格式为：InputBox( 提示 ，标题 ，默认值 ,X坐标 ，Y坐标) MsgBox( ) 其语法格式为：精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 10 页，共 33 页MsgBox(提示信息 ，按钮 ，标题 ) 相关题解单选题1、Visual Basic中

24、，下列 ( )函数是求绝对值的。A、ABS （X） B 、SQR(X ） C 、INT（X） D 、GN （X) 2、表达式 Abs(-3.6)*sqr(100)的值是 ( )。A、-36 B、360 C、36 D 、-360 3、下列( )数据类型不是数值型。A、Date B、Single C、Double D、Integer 4、下列函数中，返回值是字符串的是 ( ). A、Mid B、Instr C、Val D、Len 5、下列( )函数返回系统的当前时间。A、time() B、date() C、day() D、year() 6、代数表达式221gt表达式后错误的是 ( ) A、 g*t

25、*t/2 B、 1/2*g*t2 C、 g*t2/2 D、 gt2/2 7、数学式子abba42在 VB中的正确写法是：（）A、 (2*a+b)/4*a B 、(2*a+b)/(4ab) C 、(2a+b)(4ab) D 、(2*a+b)/(4*a*b) 8、判断 x 是否在区间 a, b上，在 VB中以哪个逻辑表达式是正确的?( ) A 、ax and x=b B、 ax=b C 、ax and x=b 综合分析1、向 n 变量存入 1 个 2 位整数，要使此 2 位数十位和个位上的值分别存入 x, y变量。正确的算法是 ( )。选项: x、x=Left(n, 1) y=n-x*10 Pri

26、nt x:Print y B、x=Left(n, 1) y=Right(n, 1) Print x:Print y C、x=n/10 y=n-x*10 Print x:Print y D、x=Int(n/10) y=n-x*10 Print x:Print y 2、向 x 变量中输入任意一个小写字母，再将x 变量中的小写字母转成大写字母。正确的算法是( ). 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 11 页，共 33 页选项: A、输人字母到 x a=Asc(x)-32 x=chr(x) Print x B、输人字母到 x a=Asc(x)

27、+32 x=chr(x) Print x C、输人字母到 x a=Val(x) 一 32 x=Chr(x) Print x D、输人字母到 x a=Val(x)+32 x=Chr(x) Print x 程序设计的顺序结构顺序结构：代码按照由上到下的顺序一行一行地执行。程序执行过程中没有分支、没有重复，这种结构称为顺序结构。例题：交换两个变量中的数据。Private Sub cmdSwap_Click() Dim x As Single, y As Single Dim m As Single x = Val(txtsx.Text) y = Val(txtsy.Text) m = x: x =

28、y: y = m 交换数据 txtdx.Text = Str(x) txtdy.Text = Str(y) End Sub Private Sub cmdEnd_Click() End End Sub 相关题解单选题1、以下是一段 VB程序：a = 1 b = a + 1 c = a + b 它的基本结构属于（）A、顺序结构 B 、选择结构 C 、循环结构 D 、树型结构2、下列 VB程序运行后，变量x 的值为( ). x=2 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 12 页，共 33 页Print x+l Print x+2 A、2 B、

29、3 C、5 D、8 程序设计的分支结构行 If 语句行 If 是指在一行中写完的If语句。其一般格式为：格式一： If 条件 Then语句执行这种形式的If 语句时，首先对条件进行判断。若条件成立，则执行 Then后面的语句；若条件不成立，则执行If 语句后继程序行的语句格式二： If 条件 Then 语句 1 Else 语句 2 例题：输入三个不相同的数，求出其中最小数。Private Sub Form_Click() Dim a As Single, b As Single, c As Single Dim Min As Single a = val(InputBox(输入 a, 输入框

30、) b = InputBox(输入 b, 输入框 ) c = InputBox(输入 c, 输入框 ) If a b Then Min = a Else Min = b If c = 60 Then Label1.Caption = 及格 Else Label1.Caption = 不及格 End If End Sub 格式四： If 条件 Then 语句块 1 Else 语句块 2 End If 例题： 编写程序，求函数 Y的值 （当 x0 时， y=3x+1； 当 x0 时， y=4x+1） 。Private Sub Form_Click() Dim x As Single Dim y A

31、s Single x = Val(InputBox(请输入变量 x) If x = 10 Then Value = 5 * x Else Value = 4 * x End If A、100 B 、80 C 、90 D、70 综合分析1、如要完成 : 从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比较好的算法是 ( )。选项: A、输人的数存入n 变量f=(n/2=Int(n/2)如果 f 中的值为 True就显示 n 中值B、 输人的数存入 n 变量 f=(n/2=Int(n/2)如果 f 中的值为 False就显示 n 中值C、输人的数存入n 变量如果 n/2=Int(n/2)

32、成立，就显示 n 中值D、输人的数存入n 变量如果 n/2=Int(n/2)不成立，就显示n 中值2、下面是判断变量x 是不是能被 5 整除的偶数的程序，横线上的逻辑表达式应为 ( ) Private Sub commandl_Click() Dim x As Integer x=Val(Text1. Text) If _ = 0 Then Labell.Caption=这个数是能被 5 整除的偶数 Else Labell.Caption=这个数不是能被 5 整除的偶数 End If 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 15 页，共 3

33、3 页选项：A、(x Mod 5) = 0 And (x Mod 2 ) = 0 B、x Mod 10 = 0 C、x Mod 5 = 0 D、x Mod 2 = 0 3、如要完成 : 从键盘输入一个正整数，判断是否是偶数，如是就在屏幕上显示。比较好的算法是 ( )。选项: A、输入的数存人n 变量f=(n/2=Int(n/2)如果 f 中的值为 True就显示 n 中值B、 输入的数存人 n 变量 f=(n/2=Int(n/2)如果 f 中的值为 False就显示 n 中值C、输入的数存人n 变量如果 n/2=Int(n/2)成立，就显示 n 中值D、输入的数存人n 变量如果 n/2=Int

34、(n/2)不成立，就显示n 中值4、下列程序段运行后 ,m 的值为 ( ) A=2: b=1: c=5 If A b Then m = A Else m = b If c m Then m = c 选项：A、1 B、2 C、5 D、提示错误，无答案程序设计的循环结构一、For-Next 循环For 循环变量一般形式是：For 循环变量 =初值 To终值 Step 循环变量增量循环体Next 循环变量例题 1：求 s1+2+3+4.+100 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 16 页，共 33 页Private Sub Form_Cli

35、ck() Dim i As Integer Dim sum As Integer sum = 0 For i = 1 To 100 sum = sum + i 循环体 Next i Print sum=; sum End Sub 例题 2：Step 循环变量增量Private Sub Form_Click() For j = 3 To 15 Step 2 Print j Next j End Sub 循环变量的初值、终值、循环变量增量都是数值型。其中要重复执行的操作称为循环体， 增量可正可负， 如果没有设置 Step，则增量的缺省值为 1 1、循环变量取初值；2、循环变量与终值比较，没有超过终

36、值转3，否则循结束，接着执行循环语句的后继语句；3、执行一次循环体4、循环变量增加一个增量5、重复步骤 24。以上可以看出， For-Next 循环变量是一种当型循环。说明（a）For 语句与 Next 语句必须成对出现，而且它们当中的“循环变量”必须是同一个变量，如上例中均为I 。（b）当循环变量为正时， 循环变量超过终值， 是指循环变量的值大于终值时；若为负，则是指循环变量的值小于终值。A P 入口精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 17 页，共 33 页二、Do Loop 循环For-Next 循环的次数是确定的，但是有的问题只知

37、道循环结束的条件，重复执行的次数事先并不知道，这是需要Do-Loop循环格式一：Do While 条件循环体Loop 例题：求最大公约数Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim r As Integer a = Val(Text1.Text) b = Val(Text2.Text) r = a Mod b Do While r 0 a = b b = r r = a Mod b Loop Text3.Text = Str(b) 精选学习资料 - - - - - - - - - 名师归纳总结 - - -

38、- - - -第 18 页，共 33 页End Sub Private Sub Command2_Click() End End Sub 当 VB执行 Do While-Loop 循环时，先判断指定的条件是否为真，若条件为真，执行循环体，条件为假时退出循环。格式二： Do 循环体Loop Until条件这种循环的执行过程如图所示。进入循环体后，先执行一次循环体A，然后再检查条件P是否成立。如果不成立，就重复执行循环体A，直到条件 P成立退出循环体。例题：如果我国人口每年以平均1.5%的速度增长，问多少年后我国人口达到或超过 15 亿？设现在人口为12.3 亿。Private Sub Form_

39、Click() Dim p As Single Dim r As Single Dim n As Integer p = 1230000000# r = 0.015 A P N 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 19 页，共 33 页 n = 0 Do p = p * (1 + r) n = n + 1 Loop Until p = 1500000000# Print n; 年后, 人口=; p End Sub 1、下列流程图表示的是程序的( )基本结构的算法。A 其它三项都不是 B 循环结构 C 选择结构 D 顺序结构2、在 VB中

40、，以下程序段 : x=0 Do While x50 x=(x+2)*(x+3) Loop 执行后， x 的值为 :( ). A、168 B 、50 C 、72 D 、0 3、阅读下面程序，当单击窗体之后，窗体上输出的是( ) Private Sub Form_Click() Dim i As Integer:Dim s As Integer s = 0 For i = 1 To 5 s = s + i Next i Print s,i End Sub 选项: A、15 6 B、 s=15 i=6 C、6 5 D、s=6 i=5 4、要求计算机打印出100 至 200之问所有偶数的平方根值。正确

41、的算法是( )。选项: A、i=100 Do While i200:Print i，Sqr(i):Loop B、i=100 Do While i200:Print i，Sqr(i):i=i+1:Loop C、For i=100 To 200 Step 2:Print i，Sqr(i):Next i 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 20 页，共 33 页D、For i=100 To 200:Print i，Sqr(i):Next i 5、下列程序段中，循环体执行的次数是( ) y = 2 Do While y = 8 y = y+y

42、Loop 选项: A、2 B、3 C、4 D、5 6、阅读下面程序，当单击窗体之后，m的值是( ). Private Sub Form_Click() Dim m As Integer:Dim i As Integer m = 0 For i = 1 To 3 m = m + 2 Next i Print m End Sub 选项：A、0 B、4 C 、6 D 、8 7、在 VB中，假定有以下程序段: For i=1 To 3 Step 2 Print VB Next i 则语句 Print VB的执行次数是： ( )。A、1 B、2 C、3 D、4 8、下列程序段中，循环体执行的次数是( )

43、 x=0 For y=1 To 10 step -1 x=x+1 Next y A、1 B、0 C、10 D、4 9、在 VB中，假定有以下程序段: For i=3 To 1 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 21 页，共 33 页 Print VB Next i 则语句 Print “VB ”的执行次数是 :( ) A、出错 B、2 C、1 D、0 10、下列程序段中，循环体执行的次数是（） x=0 For y = 1 To 10 step -1 x = x+1 Next y A、1 B、10 C、0 D、4 11、单击窗体后，文本

44、框Text1、Text2 中显示的内容是（）Private Sub Form_Click( ) Dim x as Integer, n as Integer x = 1 n = 0 Do While x 20 n = n + 1 x = x * 3 Loop Text1.text = Str(x) Text2.text = Str(n) End Sub A、27 3 B 、3 27 C、20 3 D 、3 21 12、单击窗体后，文本框Text1、Text2 中显示的内容是（）Private Sub Form_Click( ) Dim x as Integer, y as Integer x

45、= 1:y = 0 Do While x 1时返回函数值为age (n-1) 当n=1 返回函数值为 38 B、定义 age (n) 函数 函数中当 n1时返回函数值为age (n-1)-3当 n=1返回函数值为 38 C、定义 age (n) 函数 函数中不断地调用age (n-1)-3 D、定义 age (n) 函数 函数中不断地调用age (n) 函数自己4、排序与查找数据四、应用程序设计1、程序设计的一般步骤2、 简单程序设计综合分析1、a,b,c三变量存放不同的数，值a 最大， b 第二，比较好的算法是（）A、定义一个 max(x,y) 函数（值为 x,y 中的大值） a = max

46、(max(a,b),c) B、如 a b 就 a = b 如 a c 就 a = c 如 b b 就 a = b 如 a c 就 a = c 如 b c 就 b = c D、如 a b 就两变量交换如 a c 就两变量交换如 b c 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 24 页，共 33 页就两变量交换2、求 2! +3! +4! +5!+10!的值。能完成此运算，并且比较好的算法是( A )。选项: A、 定义求阶乘的函数用j c(n) 主程序中用一个循环9次调用 j c(n)函数进行累加B、用一个程序完成 : 每一项阶乘用一个For

47、/Next 循环完成，整个程序包括 9 个循环C、用解析法 :s=1*2+1*2*3+1*2*3*4+1*2*3*4*5*6*7*8*9*10 D、不必定义函数，只要用一个单重循环就能完成3、要求打印 100 至 200 之间所有偶数的平方根（ C ）A、 i = 100 Do While i 200:Print i,Sqr(i):loop B、 i = 100 Do While i 200:Print i,Sqr(i):i = i + 1:loop C、 For i = 100 to 200 step 2:Print i,Sqr(i) : Next i D、 For i = 100 to 2

48、00:Print i,Sqr(i):Next i 编程题必修 1_15、编写程序，使能打印下面所示的图案。* * * * * 程序：Private Sub Form Click() Dim i As Integer 定义 i 为整型变量Dim j As Integer 定义 j 为整型变量 For i = -3 To 3 Print Tab(Abs(i)+5) For j=1 To (4-Abs(i)-1 Print *; Next j Print 换行 Next i 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 25 页，共 33 页End S

49、ub 必修 2_15、编写程序，使能打印下面所示的图案。* * * * * 程序：Private Sub Form Click() Dim i As Integer 定义 i 为整型变量Dim j As Integer 定义 j 为整型变量 For i = -3 To 3 Print Tab(Abs(i)+5); For j=1 To 2*(3-Abs(i)-1 Print *; Next j Print 换行 Next i End Sub 必修 3_15、编写程序，使能打印下面所示的图案。 程序：Private Sub Form_Click() Dim i As Integer Dim j

50、As Integer For i = 1 To 6 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 26 页，共 33 页 Print Tab(10); For j = 1 To i Print “ ”; Next j Print Next i End Sub 必修 4_15、完善显示按钮的click程序，将代码段中“变量1“、 “变量 2. “变量3、处换成正确的变量名，使当单击该按钮时，Labell. Label2分别显示 30、10, 完成所有操作后，诸按“Ctrl+S ”保存。Private Sub Command_Click( ) x =