《算法与程序设计vb(选修)》复习知识点

高中信息技术算法与程序设计 VB（选修） 知识要点 相关知识点 （一）算法 1.定义 相关题解： 1 算法：就是解决问题的方法和步骤。算法是程序设计的“灵魂” ，算法+数据结构程序。 单选题 1、下列关于算法说法不正确的是( A ) A、算法独立于任何具体的语言， BASIC 算法只能用 BASIC 语言来实现 B、解决问题的过程就是实现算法的过程 C、算法是程序设计的“灵魂 ” D、其它三项都正确 2算法的描述方法： 1 算法的描述：可分多种表达方法，一般用自然语言、流程图和伪代码进行描述。 2 自然语言描述法：指用人们日常生活中使用的语言（本国语言） ，用自然语言描述符合我们 的习惯，且容易理解。 3 流程图描述：也称程序框图，它是算法的一种图形化表示方法。且描述算法形象、直观，更 易理解。 4 伪代码描述法：是介于自然语言和计算机程序语言之间的一种算法描述。是专业软件开发人 员常用方法。 相关题解： 单选题 1、图形符号“ “在算法流程图描述中表示( B ). A 处理或运算的功 能 B 输入输出操作 C 用来判断条件是否满足需求 D 算法的开始或结束 2、图形符号“ “在算法流程图描述中表示 ( A ). A 处理或运算的功能 B 输入输出操作 C 用来判断条件是否满足需求 D 算法的开始或结束 3、以下哪个是算法的描述方法?( A ) A 流程图描述法 B 枚举法 C 顺序法 D 列表法 4、以下哪个是算法的描述方法?( D ) A 顺序法 B 列表法 C 集合法 D 自然语言描述法 （二）程序设计基础 输入或输出 判断 处理或运算 连接点 流程线 开始或结束 （1）常用高级编程语言：BASIC、VB、Pascal、C、C+、Java 1 面向对象的程序设计语言：其中的对象主要是系统设计好的对象，包括窗体等、控件等 2 控件：是指工具箱中的工具在窗体中画出的、能实现一定功能的部件，如文本框，命令按钮 等。 常用控件： 控件 对象的类型 前缀 名字举例 窗体 Form frm frmfind 命令按钮 Command button cmd cmdok 标签 Label lbl lblinput 文本框 TextBox tmr tmrClock 若命令按钮(Command)的 Enabled 属性设置为 True 时按钮有效，设置为 False 时按钮无效 3 对象的属性、方法和事件 1 属性 属性 Name 设置对象的名称 Caption 决定控件中显示的内容（文字） Text 决定窗体中文本框中显示的内容(初始为空白) Height 决定控件高度 Width 决定控件宽度 TOP 决定控件的靠顶部位置 Left 决定控件的靠左边位置 Font 设置控件中字体格式 BackColor 设置控件背景色 ForeColor 设置控件的前景色 BorderStyle 设置控件的边框风格 Alignment 即标签文字对齐属性：(0)Left Justify 时文本左对齐；(1)Right Justify 时文本 右对齐；设置为(2)Center 时文本居中。 AutoSize 设置为 False 时输入控件 Caption 中文字超过控件宽度时超出部分被裁剪掉， 设置为 True 时，控件可水平扩充，以适应控件 Caption 属性。 Visible 决定控件是否可见 Enabled 决定控件运行时是否有效 对象.属性属性值 对象中属性可以在设计界面时通过属性窗中设置，也可以在运行时通过程序代码设置,方法如 下 例：给文本框“Txt123”的“Text ”属性赋值为字符串“ 20”，代码如下 Txt123.text =”20” 变量对象.属性 如果要获取对象的状态或特性，这时就要读取对象的属性值，方法如下 例：读取文本框“txt123”的“Text”属性的代码如下 a = txt123.text 2 方法 对象.方法参数名表 例：form.print ”欢迎使用” 该语句使用 print 方法在 form1 窗体中显示字符串“欢迎使用” 3 事件及事件驱动 事件是对象对外部操作的响应，如在程序执行时，单击命令按钮会产生一个 Click 事件。如需 要命令按钮响应 Click 事件，就把完成 Click 事件功能的代码写到 Click 事件的事件过程中，与 事件一一对应。 事件过程的形式如下： 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 c = 2 * 3.14159 * r 计算周长 s = 3.14159 * r * r 计算面积 Text2.Text = c 输出周长 Text3.Text = s 输出面积 End Sub 退出 End Sub 相关题解： 单选题 1、下列关于程序设计说法正确的是( B )。 A、程序设计语言的发展经历了机器语言、汇编语言到高级语言的过程，比 较流行的高级语言是 PASCAL, FORTRAN, EXCEL, C+等 B、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程 C、程序设计语言和计算机语言是同一个概念的两个方面 D、程序设计就是指示计算机如何去解决间题或完成一组可执行指令的过程 2、下列说法错误的是（ D ）. A、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程 B、程序设计语言的发展经历了机器语言、汇编语言、高级语言的过程 C、计算机程序就是指计算机如何去解决间题或完成一组可执行指令的过程 D、程序设计语言和计算机语言是同一概念的两个方面 一、常量：批在程序进行过程中不变的量在 VB 中一般分数值常量与字符常量两种 数值常量：就是数学中说的常数，分整型常量和实型常量两种 整型常量：即整数，指不带小数点的数值如 1、0、 、-10、+35 等都是合法的整数 实型常量：即实数，指带小数点的数值。 实型常量又分为定点数和浮点数两种。 例：定点数：3.14159 和-6.8， 1.99 浮点数：2E6、1E5、88E 例：1.234510 3 可表示为 1.2345E3，字母 E 表示底数 10 浮点数就是数学上的科学计数法。 字符串常量：被一对双引号括起来的若干个合法的字符称为字符串常量。例如：”China”、 ” Visual Basic”、 ”18”、 ”3.1415”等，双引号中字符，不包括双引号本身。 符号常量：如果多次用到同一个常量，则可用一个有意义的名字表示这个常量。 二、变量：在程序执行过程中，其值可以改变的量称为变量 变量命名注意要点：1、必须以字母开头,不能以数字或其他字符开头。 2、只能由字母、汉字、数字学或下划线组成，不能含有小数点、 空格等字符。 3、最长不超过 255 个字符 4、不能以 VB 保留字作变量名，如语句定义符、函数名等。 5、VB 不区分变量名中字母大小写。如 HELLO 和 Hello 是同一个 变量。 数据及运算 （1）常用数据类型：(整型 )Integer、 （长整型）Long、 （单精度型）Single 、 （双精度型） Double、 （字符串型）String、 （布尔型）Boolean 、 （日期型） Date 其中(整型)Integer 、 （长整型）Long、 （单精度型）Single、 （双精度型）Double 属于数值型 表示范围： (整型)Integer (-32768 32767，存储为 16 位 ， 2 个字节 ) (长整型) Long(-21 亿 21 亿，可以表示人口数量) (布尔型）Boolean(True 真、是 或 False 假、非) （字符串型）String(定长字符串： 065535 个字符，不定长字符串：020 亿个字符) 字符串型数据是指用 “ ”括起来的一串字符。如 “欢迎进入 VB 世界！”、 “ Visual Basic” 、 “1234 ”都是字符串类型。 （日期型）Date（100/1/19999/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 语句给变量赋值，其形式如下： Let 变量 = 表达式 其中，方括号 表示这部分内容是可选的，通常可以省略该关键字。 例题 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“ Print “a=“; a, “b=“; b, “c=“; c Print str End Sub 数据的输出 程序中运算得到的结果，除可以使用文本框和标签显示外，对于大批量的数据更适合用 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、下列变量名写法错误的是( B ) A、abc_123 B、123abc C、abc123 D、abc 2、下列语句中定义了一个实型变量的是 ( B ) A、Dim end as Integer B、 Dim sum As Single C、Dim Name As String D、其它三项都不对 3、在 VB 中，以下哪个是正确表示十六进制整型数常量?( D ) A、32F B、H32F C、h32F D、 “数“; Tab(9); “平方“; Tab(18); “立方“; Tab(27); “平方根“ Print Tab(1); a; Tab(9); a * a; Tab(18); a * a * a; Tab(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( ) 其语法格式为： MsgBox(提示信息 ，按钮 ，标题 ) 相关题解 单选题 1、Visual Basic 中，下列( A )函数是求绝对值的。 A、ABS （X） B、SQR(X） C、INT（X ） D、GN（ X) 2、表达式 Abs(-3.6)*sqr(100)的值是( C )。 A、-36 B、360 C、36 D、-360 3、下列( A )数据类型不是数值型。 A、Date B、Single C、Double D、Integer 4、下列函数中，返回值是字符串的是 ( A ). A、Mid B、Instr C、Val D、Len 5、下列( A )函数返回系统的当前时间。 A、time() B、date() C、day() D、year() 6、代数表达式 21gt 表达式后错误的是( D ) A、g*t*t/2 B、1/2*g*t2 C、g*t2/2 D、gt2/2 7、数学式子 ab4 在 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 中以哪个逻辑表达式是正确的?( C ) A 、ax and x= 60 Then Label1.Caption = “及格“ End If If a 0 时， y=4x+1） 。 Private Sub Form_Click() Dim x As Single Dim y As 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、如要完成:从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比较好 的算法是( B D )。 选项: 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(n/2)不成立，就显示 n 中值 2、下面是判断变量 x 是不是能被 5 整除的偶数的程序，横线上的逻辑表达式应为( AB ) Private Sub commandl_Click() Dim x As Integer x=Val(Text1. Text) If _ = 0 Then Labell.Caption=这个数是能被 5 整除的偶数 Else Labell.Caption=这个数不是能被 5 整除的偶数 End If 选项： 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、如要完成:从键盘输入一个正整数，判断是否是偶数，如是就在屏幕上显示。比较好 的算法是( AC )。 选项: 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(n/2)不成立，就显示 n 中值 4、下列程序段运行后,m 的值为 ( A ) A=2: b=1: c=5 If A 0 a = b b = r r = a Mod b Loop Text3.Text = Str(b) End Sub Private Sub Command2_Click() End End Sub 当 VB 执行 Do While-Loop 循环时，先判断指定的条件是否为真，若条件为真， 执行循环体，条件为假时退出循环。 格式二： Do 循环体 Loop Until 条件 这种循环的执行过程如图所示。进入循环体后，先执行一次循环体 A，然后再检 查条件 P 是否成立。如果不成立，就重复执行循环体 A，直到条件 P 成立退出循 环体。 A P N 例题：如果我国人口每年以平均 1.5%的速度增长，问多少年后我国人 口达到或超过 15 亿？设现在人口为 12.3 亿。 Private Sub Form_Click() Dim p As Single Dim r As Single Dim n As Integer p = 1230000000# r = 0.015 n = 0 Do p = p * (1 + r) n = n + 1 Loop Until p = 1500000000# Print n; “年后“, “ 人口=“; p End Sub 1、下列流程图表示的是程序的( B )基本结构的算法。 A 其它三项都不是 B 循环结构 C 选择结构 D 顺序结构 2、在 VB 中，以下程序段: x=0 Do While x50 x=(x+2)*(x+3) Loop 执行后，x 的值为:( C ). A、168 B、50 C、72 D、0 3、阅读下面程序，当单击窗体之后，窗体上输出的是( A ) 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 之问所有偶数的平方根值。正确的算法是( C )。 选项: 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 D、For i=100 To 200:Print i，Sqr(i):Next i 5、下列程序段中，循环体执行的次数是( B ) y = 2 Do While y = 8 y = y+y Loop 选项: A、2 B、3 C、4 D、5 6、阅读下面程序，当单击窗体之后，m 的值是( C ). 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“的执行次数是： ( B )。 A、1 B、2 C、3 D、4 8、下列程序段中，循环体执行的次数是( B ) 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 Print “VB“ Next i 则语句 Print “VB”的执行次数是:( D ) A、出错 B、2 C、1 D、0 10、下列程序段中，循环体执行的次数是（ C ） x=0 For y = 1 To 10 step -1 x = x+1 Next y A、1 B、10 C、0 D、4 11、单击窗体后，文本框 Text1、Text2 中显示的内容是（ A ） 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 中显示的内容是（ A ） Private Sub Form_Click( ) Dim x as Integer, y as Integer x = 1:y = 0 Do While x 3 y = y + x x = x * 3 Loop Text1.te