信息技术《算法与程序设计VB选修》知识点汇总

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

2、框图，它是算法的一种图形化表示方法。且描述算法形象、直观，更 易理解。4 伪代码描述法： 是介于自然语言和计算机程序语言之间的一种算法描述。是专业软件开发人 员常用方法。相关题解： 单选题1 、 图 形 符 号 " "在算法流程图描述中表示 ( ).A 处理或运算的功 能 B 输入输出操作 C 用来判断条件是否满足需求 D 算法的开始或结束2、图形符号 ""在算法流程图描述中表示 ( ).A 处理或运算的功能 B 输入输出操作C 用来判断条件是否满足需求 D 算法的开始或结束3、以下哪个是算法的描述方法 ?( )A 流程图描述法 B 枚举法 C 顺序法

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

4、nd) 的 Enabled 属性设置为 True 时按钮有效，设置为 False 时按钮无效3 对象的属性、方法和事件1 属性属性Name设置对象的名称Caption决定控件中显示的内容(文字)Text决定窗体中文本框中显示的内容 (初始为空白 )Height决定控件高度Width决定控件宽度TOP决定控件的靠顶部位置Left决定控件的靠左边位置Font设置控件中字体格式BackColor设置控件背景色ForeColor设置控件的前景色BorderStyle设置控件的边框风格Alignment即标签文字对齐属性 ：(0)Left Justify 时文本左对齐； (1)Right Justify

5、 时文本右 对齐；设置为 (2)Center 时文本居中。AutoSize设置为 False 时输入控件 Caption 中文字超过控件宽度时超出部分被裁剪掉， 设置为 True 时，控件可水平扩充，以适应控件 Caption 属性。Visible决定控件是否可见Enabled决定控件运行时是否有效对象 .属性属性值对象中属性可以在设计界面时通过属性窗中设置， 也可以在运行时通过程序代码设置 ,方法如下 例：给文本框“ Txt123 ”的“ Text”属性赋值为字符串“ 20”，代码如下Txt123.text = ”20” 变量对象 .属性 如果要获取对象的状态或特性，这时就要读取对象的属性值

6、，方法如下 例：读取文本框“ txt123 ”的“ Text”属性的代码如下a = txt123.text2 方法对象 .方法参数名表例： form.print ”欢迎使用 ”该语句使用 print 方法在 form1 窗体中显示字符串“欢迎使用”3 事件及事件驱动事件是对象对外部操作的响应，如在程序执行时， 单击命令按钮会产生一个 Click 事件 。如需 要命令按钮响应 Click 事件，就把完成 Click 事件功能的代码写到 Click 事件的事件过程中，与 事件一一对应。事件过程的形式如下：Private Sub 对象 _事件名 ( ) (事件过程代码)End Sub 一个简单的 V

7、B 程序 求圆的周长和面积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 SubPrivate Sub Command

8、2_Click()End'退出End Sub 相关题解：单选题1、下列关于程序设计说法正确的是 ()。A 、程序设计语言的发展经历了机器语言、汇编语言到高级语言的过程，比 较流行的高级语言是 PASCAL, FORTRAN, EXCEL, C+ 等B、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程C、程序设计语言和计算机语言是同一个概念的两个方面D、程序设计就是指示计算机如何去解决间题或完成一组可执行指令的过程2 、下列说法错误的是() .A 、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程B、程序设计语言的发展经历了机器

9、语言、汇编语言、高级语言的过程C、计算机程序就是指计算机如何去解决间题或完成一组可执行指令的过程D 、程序设计语言和计算机语言是同一概念的两个方面一、常量 ：批在程序进行过程中不变的量在 VB 中一般分 数值常量 与字符常量 两种 数值常量： 就是数学中说的常数，分 整型常量 和 实型常量 两种整型常量： 即整数，指不带小数点的数值如1、0、-10、+35 等都是合法的整数实型常量： 即实数，指带小数点的数值。实型常量 又分为 定点数 和浮点 数两种。 例：定点数： 3.14159 和 -6.8， 1.99浮点数： 2E6、 1E5、88E例： 1.2345×103 可表示为 1.2

10、345E3，字母 E 表示底数 10 浮点数就是数学上的科学计数法。 字符串常量：被一对双引号括起来的若干个合法的字符称为字符串常量。例如：”China”、”VisualBasic ”、”18”、 ”3.1415”等，双引号中字符， 不包括双引号本身 。符号常量：如果多次用到同一个常量，则可用一个有意义的名字表示这个常量。 二、变量：在程序执行过程中，其值可以改变的量称为变量变量命名注意要点： 1、必须以字母开头 ,不能以数字或其他字符开头。2、只能由字母、汉字、数字学或下划线组成，不能含有小数点、空 格等字符。3、最长不超过 255个字符4、不能以 VB 保留字作变量名，如语句定义符、函数名

11、等。5、VB 不区分变量名中字母大小写。如HELLO 和 Hello 是同一个变量。数据及运算（1）常用数据类型： （整型）Integer、（长整型） Long、（单精度型） Single、（双精度型） Double 、 （字符串型） String 、（布尔型） Boolean、（日期型） Date其中（整型）Integer 、（长整型） Long、（单精度型） Single、（双精度型） Double 属于数值型 表示范围：（整型）Integer （-32768 32767，存储为 16 位， 2 个字节 ） （长整型 ）Long（-21 亿 21亿，可以表示人口数量 ）（布尔型） Bool

12、ean（True 真、是或 False假、非 ）（字符串型） String（定长字符串： 0 65535 个字符，不定长字符串： 020 亿个字符 ） 字符串型数据是指用 “”括起来的一串字符。如 “欢迎进入 VB 世界！ ”、“Visual Basic” 、“1234 ”都是字符串类型。（日期型） Date（ 100/1/1 9999/12/31） 日期型数据专门用来处理日期和时间。 VB 采用一对“ #”把日期和时间的值括起来，如#2003/08/20#表示 20XX 年 8月 20日。（2）常量和变量的命名、声明及赋值 符号常量的声明： Const 常量名 As 常量类型 = 常量值 如

13、： 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 IntegerDim str As StringLet a = 54Let b = 114c =

14、a + bstr = "Hello World"Print "a=" a, "b=" b, "c=" cPrint strPint 方End Sub 数据的输出 程序中运算得到的结果，除可以使用文本框和标签显示外，对于大批量的数据更适合用 法输出，格式如下对象 . Pint 表达式列表 例题：Private Sub Form_Click()Dim x As Single, y As SingleForm1.Print -61; -34Form1.Print 9 * 2; 12Form1.Print "Th

15、is is" "a book"x = 3: y = 4 Print "x=" x, "y=" y End Sub 注意： Print 方法 相关题解： 单选题1、下列变量名写法错误的是 ( ) A 、 abc_123B、123abcC、 abc123D、 abc2、下列语句中定义了一个实型变量的是 ( ) A 、 Dim end as IntegerB 、 Dim sum As Single C、 Dim Name As StringD 、其它三项都不对3、在 VB 中，以下哪个是正确表示十六进制整型数常量 ?( ) A 、

16、32FB、H32FC、h32FD、 &32F4、在 VB 中，以下关于符号常量的声明，声明正确的是 :( )A 、 Dim TAG as StringB 、 Const TAG as String "Visual" + "Basic" C、 Const TAG as String ="Visual Basic"D 、Const TAG as String5、下面 ()不是字符串常量A 、 "True"B 、 #False#C、 " "D 、"你好"运算符*乘例：22

17、= 4例：5 / 2 = 2.5 例：5 2 = 2例： 5 Mod 2 = 11、算术运算： + 加 - 减 指数/ (浮点)除 整除Mod 求余数 相关题解 单选题1、分析下列程序 :Private Sub Form_Click() s=113 + 11 Mod 3Print sEnd Sub 当单击窗体时 s的值是 （ ）. A、5B、6C、4D、 3 关系运算 = 赋值 、< 小于号<>不等于>大于号>= 大于等于号<=小于等于号注意：关系表达式的运算结果为布尔值 True 或 False 例： 3 > 2 结果为 True（ 真或是 ）相关题

18、解单选题1、下面表达式的值是false 的有 ( ).A 、 "969" < "n97"B 、 Int(4.99) <> len("basic")C 、 str(2000) < "1997"D 、3 > 2 逻辑运算Not （取反） And（与） Or （或） 运算结果为布尔型（ Boolean ） True 或 False 逻辑运算符的优先级为： No > And > Or 日期运算符与日期表达式 日期表达式是用日期运算符“ + ”或“ -”将算式表达式、日期型常量、日期

19、型变量、日期函数 等连接起来的式子，如表达式“ #2003/09/01# +30 ”的运算结果是“ 2003-10-1 ”；表达式 “#2003/10/20# - #2003/10/10# ”的运算结果为整数 10 相关题解 单选题1、设 a=2, b=3,在 VB 中，表达式 a>b Or b>3 值是:（）A 、 FalseB、 TrueC、 -1D、1 字符运算 字符串连接符为“ +”和“ & ”“ 123 ”+ “45” = “ 12345 ”“ 123 ”& “45” = “ 12345 ”123 + “45”= 168“ 123 ”+ 45 =168运算

20、符的执行顺序在 VB 中，当一个表达式中同时出现多种运算符时，运算次序由运算符 的优先级决定， 优先级高的运算符先运算，优先级相同的从左向右进行 运算。不同性质的运算符优先级如下。算术运算符 > 字符串运算符 > 关系运算符 > 逻辑运算符 常用函数数学函数Abs(x) 求 x 的绝对值，例： Sqr(x) 求 x 的平方根，例：abs(-3.6) = 3.6sqr(100) = 10Int(x) 求x 的最大整数 例： int(3.6) = 3int(-3.6) = -4Rnd(x)产生 0，1)之间的随机数(不包括 1)Sin(x)Cos(x)Tan(x)Atn(x)Ex

21、p(x)Log(x) 使用三角函数时，参数应是弧度，如数学中 sin300 应写为：sin(30*3.14159/180)字符串函数Len(字符串 ) 求字符串的长度 ,例： Len( “ hello ”) = 5Left(字符串，截取长度 ) 截取字符串左边部分 ,例:Left( “ hello ”,2) = “he” Mid(字符串，起始位置，截取长度 ) ,例： Mid( “ hello ” ,2,2) = “el ” 其他：Right (字符串 ,长度)截取字符串右边部分。例 : Right ( “ hello ”“,2lo) =”String(数值，字符 )生成指定长度与指定字符的字

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

23、; 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 中，下列 ()函数是求绝对值的。D、GN(X)A、ABS(X) B、SQ

24、R(X ) C、INT(X)2、表达式 Abs(-3.6)*sqr(100) 的值是 ()。A 、 -36B、 360C、36D、-3603、下列 ()数据类型不是数值型。A 、 DateB 、 SingleC 、 DoubleD 、 Integer4、下列函数中，返回值是字符串的是( ).A 、 MidB 、 InstrC 、 ValD 、 Len5、下列 ()函数返回系统的当前时间。A 、 time()B 、date()C、day()D 、 year()6、代数表达式122gt2表达式后错误的是A 、 g*t*t/2B 、 1/2*g*t2C 、 g*t2/2D 、 gt2/22a b7、

25、数学式子 4ab 在 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 、 a<x and x<=b B 、 a<x<=b C、 a<x and xb D 、 a>x and x<=b 综合分析1、向 n 变量存入 1 个 2 位整数， 要使此 2 位数十位和个位上的值分别存入x, y 变量。 正确的算法是 ()。选项:x、 x=Left(n, 1)

26、 y=n-x*10 Print x:Print yB 、 x=Left(n, 1) y=Right(n, 1) Print x:Print yC、 x=n/10 y=n-x*10 Print x:Print yD 、 x=Int(n/10) y=n-x*10 Print x:Print y2、向 x 变量中输入任意一个小写字母， 再将 x 变量中的小写字母转成大写字母。 正确的算法是( ). 选项:A 、输人字母到 B、输人字母到 C、输人字母到 D、输人字母到x a=Asc(x)-32 x=chr(x) Print xx a=Asc(x)+32 x=chr(x) Print xx a=Val

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

28、t = Str(y) End SubPrivate Sub cmdEnd_Click()EndEnd Sub 相关题解 单选题C、循环结构 D 、树型结构 x 的值为 ( ).1、以下是一段 VB 程序： a = 1 b = a + 1 c = a + b 它的基本结构属于( ) A 、顺序结构 B 、选择结构 2 、下列 VB 程序运行后，变量 x=2Print x+lPrint x+2 A、2B、3C、5D、 8程序设计的分支结构行 If 语句行 If 是指在一行中写完的 If 语句。其一般格式为：格式一： If 条件 Then 语句执行这种形式的 If 语句时，首先对条件进行判断。若条件

29、成立，则执行 Then 后面的语句；若 条件不成立，则执行 If 语句后继程序行的语句格式二： If 条件 Then 语句 1 Else 语句 2例题：输入三个不相同的数，求出其中最小数。Private Sub Form_Click()Dim a As Single, b As Single, c As SingleDim Min As Singlea = val(InputBox(" 输入 a", "输入框 ")b = InputBox(" 输入 b", "输入框 ")c = InputBox(" 输入

30、 c", " 输入框 ")If a < b Then Min = a Else Min = bIf c < Min Then Min = cPrint "最小数 " MinEnd Sub 执行这种形式的语句时，先进行判断。若条件成立，则执行语句1；否则执行语句 2。块 If 语句上述 If-then 语句只能根据条件的真假是否执行一条语句，当 Then 部分和 Else 部分包含的内容较多时，则可选用“块 If 语句”结构。格式三： If 条件 Then语句块 End If例题： 当从输入一个数时，当该数大于或等于 60 时显示&q

31、uot;及格" ，该数 小于 60时显示 "不及格"。Private Sub Command1_Click()Dim a As Singlea = Val(Text1.Text)If a >= 60 Then Label1.Caption = " 及格 "ElseLabel1.Caption = " 不及格 "End IfEnd Sub 格式四： If 条件 Then 语句块 1 Else 语句块 2 End If例题：编写程序，求函数 Y 的值(当 x0 时，y=3x+1 ；当 x>0 时，y=4x+1 )。P

32、rivate Sub Form_Click()Dim x As SingleDim y As Singlex = Val(InputBox(" 请输入变量 x")If x <= 0 Theny = 3 * x + 1Elsey = 4 * x + 1End If Print "y=" y End Sub 相关题解 单选题 1、以下是一段 Visual Basic 程序 :If I=1 ThenX=X+1ElseX=X*2End If 它的基本结构属于 ( ). A 、选择结构 B、循环结构 C、顺序结构 D 、树型结构 2 、下列程序段运行后，变量

33、 Value 的值是( ) x = 20If x >= 10 ThenValue = 5 * x ElseValue = 4 * x End IfA 、 100 B、 80 综合分析C、90D、 701、如要完成 : 从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比较好 的算法是 ( )。选项:A 、输人的数存入B、输人的数存入n 变量 f=(n/2=Int(n/2) 如果 f 中的值为 n 变量 f=(n/2=Int(n/2) 如果 f 中的值为True 就显示 n 中值 False 就显示 n 中值C、输人的数存入 n 变量如果 D、输人的数存入 n 变量如果 2、下面是

34、判断变量 x 是不是能被n/2=Int(n/2) 成立，就显示 n 中值 n/2=Int(n/2) 不成立，就显示 n 中值 5 整除的偶数的程序，横线上的逻辑表达式应为Private Sub commandl_Click()Dim x As Integerx=Val(Text1. Text)If = 0 ThenLabell.Caption= 这个数是能被 5 整除的偶数 ElseLabell.Caption= 这个数不是能被 5 整除的偶数 End If选项：A 、 (x Mod 5) = 0 And (x Mod 2 ) = 0B 、 x Mod 10 = 0C、 x Mod 5 = 0

35、D 、 x Mod 2 = 03、如要完成 : 从键盘输入一个正整数，判断是否是偶数，如是就在屏幕上显示。比较好 的算法是 ( ) 。选项:A 、输入的数存人n 变量 f=(n/2=Int(n/2) 如果 f 中的值为 True 就显示 n 中值B、输入的数存人n 变量 f=(n/2=Int(n/2) 如果 f 中的值为 False 就显示 n 中值C、输入的数存人 n 变量如果D、输入的数存人 n 变量如果 4、下列程序段运行后 ,m 的值为 (n/2=Int(n/2) 成立，就显示 n 中值 n/2=Int(n/2) 不成立，就显示 n 中值 )A=2: b=1: c=5If A <

36、 b Then m = A Else m = bIf c < m Then m = c 选项：A、1B、2C、5D、提示错误，无答案程序设计的循环结构、 For-Next 循环For 循环变量一般形式是：For 循环变量 =初值 To 终值 Step 循环变量增量循环体Next 循环变量例题 1：求 s 1+2+3+4+100Private Sub Form_Click()Dim i As IntegerDim sum As Integersum = 0For i = 1 To 100sum = sum + i ' 循环体Next iPrint "sum="

37、sumEnd Sub例题 2： Step循环变量增量Private Sub Form_Click()For j = 3 To 15 Step 2Print jNext jEnd Sub 循环变量的初值、终值、循环变量增量都是数值型。其中要重复执行的操作称为循环体，增量 可正可负，如果没有设置 Step，则增量的缺省值为 11、循环变量取初值；2、循环变量与终值比较，没有超过终值转3，否则循结束，接着执行循环语句的后继语句；3、执行一次循环体4、循环变量增加一个增量5、重复步骤 24。以上可以看出， For-Next 循环变量是一种当型循环。说明( a) For 语句与 Next 语句必须成对出

38、现， 而且它们当中的 “循环变量” 必须是同一个变 量，如上例中均为 I。( b) 当循环变量为正时，循环变量超过终值，是指循环变量的值大于终值时；若为负， 则是指循环变量的值小于终值。出口二、 DoLoop 循环For-Next 循环的次数是确定的， 但是有的问题只知道循环结束的条件， 重复执行的 次数事先并不知道，这是需要 Do-Loop 循环 格式一： Do While 条件 循环体 Loop例题：求最大公约数Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim r As Integera = Val(Text1.

39、Text)b = Val(Text2.Text) r = a Mod bDo While r <> 0 a = b b = r r = a Mod bLoopText3.Text = Str(b)End SubPrivate Sub Command2_Click()EndEnd Sub当 VB 执行 Do While-Loop 循环时，先判断指定的条件是否为真，若条件为真，执 行循环体，条件为假时退出循环。格式二： Do循环体Loop Until 条件 这种循环的执行过程如图所示。进入循环体后，先执行一次循环体A，然后再检查条件 P 是否成立。如果不成立，就重复执行循环体 A，直到

40、条件 P 成立退出循环体。例题：如果我国人口每年以平均 1.5% 的速度增长，问多少年后我国人 口达到或超过 15 亿？设现在人口为 12.3亿。Private Sub Form_Click()Dim p As SingleDim r As SingleDim n As Integerp = 1230000000#r = 0.015n = 0Dop = p * (1 + r)n = n + 1Loop Until p >= 1500000000#Print n; " 年后", "人口 =" pEnd Sub1、下列流程图表示的是程序的 ( )基本结

41、构的算法。A 其它三项都不是 B 循环结构 C 选择结构 D 顺序结构2、在 VB 中，以下程序段 :x=0Do While x<50x=(x+2)*(x+3)Loop执行后， x 的值为 :( ).A 、168B、50C、 72D、03、阅读下面程序，当单击窗体之后，窗体上输出的是 ( )Private Sub Form_Click()Dim i As Integer:Dim s As Integers = 0For i = 1 To 5s = s + iNext iPrint s,iEnd Sub选项:i=5正确的算法是 ( )。A 、15 6B、 s=15i=6C 、65D、s=6

42、4、要求计算机打印出 100 至 200 之问所有偶数的平方根值。 选项:A 、 i=100 Do While i<200:Print i ， Sqr(i):LoopB、 i=100 Do While i<200:Print i ，Sqr(i):i=i+1:LoopC、For i=100 To 200 Step 2:Print i ， Sqr(i):Next iD、For i=100 To 200:Print i ，Sqr(i):Next i5、下列程序段中，循环体执行的次数是( )y = 2Do While y <= 8y = y+yLoop 选项:A、2B、3C、4D、

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

44、 10 step -1x=x+1Next yA 、1B、 0C、10D、49、在 VB 中，假定有以下程序段 :For i=3 To 1Print "VB"Next i则语句 Print “VB ”的执行次数是 :( )A、出错B、 2C、 1D、 010、下列程序段中，循环体执行的次数是() x=0For y = 1 To 10 step -1x = x+1 Next y A、1B、10C、 0D、411、单击窗体后，文本框 Text1、 Text2 中显示的内容是( Private Sub Form_Click()Dim x as Integer, n as Integ

45、erx = 1n = 0 Do While x < 20n = n + 1x = x * 3 Loop Text1.text = Str(x) Text2.text = Str(n) End SubA 、27 3 B 、3 27 12、单击窗体后，文本框 Private Sub Form_Click(C、 20 3 D、 321Text1、 Text2 中显示的内容是() )Dim x as Integer, y as Integer x = 1:y = 0Do While x < 3y = y + xx = x * 3LoopText1.text = Str(x)C、 20 3D

46、、 321Text2.text = Str(n) End SubA 、27 3 B 、32713、读下面程序，单击窗体后，在文本框显示的内容是(B )Private Sub Form_Click( )Dim a( 8 ),b( 8 ) as IntegerDim i,j As IntegerFor j = 1 To 4 a( j ) = 2 * j b( j ) = a( j ) * 3Next jText1.Text = b( j / 2 )End SubA 、10B、12C、 14D、186面向对象程序设计思想 相关题解 单选题1、在 visual Basic 中显示和编辑程序代码时，采用

47、 ( ). A 工程资源管理器窗口 B 窗体设计器窗口2、在 VB 中，要设置文本框的缺省文字，应使用属性:( )A 、 TextB 、 NameC 、 CaptionD 、Font3、在 VB 中，要设置窗口的标题文本，应使用属性:( )A 、 FontB 、 CaptionC 、 NameD 、 Text4、用 visual Basic 编程，我们把工具箱中的工具称为 ( )A 、控件B、工具C、窗体D、事件5、在 VB 中，要设置某个对象属性时，应进入 :( )A 任意模式 B 中断模式 C 运行模式 D 设计模式6、能够改变复选框中背景颜色的属性是 ()。A 、 ValueB、 Fon

48、tColorC 、 BackColorD 、Font7、对于窗体， Click(单击 )是它的一个 ( )A 重要事件 B 重要属性 C 重要方法 D 重要对象8、Visual Basic 中，设置控件的位置，可改变下列()属性。A 、 Height 与 TopB、 Left 与 TopC、Height 与 WidthD 、 Left 与 Width9、在 VB 中，设置控件的大小可改变()A 、 Height 与 Width B、 Height 与 Top C、 Left 与 Top D 、 Left 与 Width1、解析法 2、穷举法 3、递归法 综合分析1、有 5 人，问第 5 人年龄

49、，说比前面第 4 人小 3 岁，问第 4. 3. 2 人，都说比前面人小 3 岁，问 第 1 人，说他的年龄为 38 岁。问第 5 人的年龄多大。 用递归法解决此问题的正确步骤是 ( B ) 。 选项:A 、定义 age (n)函数函数中当 n>1 时返回函数值为 age (n-1) 当 n=1 返回函数值为 38B 、定义 age (n)函数函数中当 n>1 时返回函数值为 age (n-1)-3 当 n=1 返回函数值为 38C 、定义 age (n)函数函数中不断地调用 age (n-1)-3 D、定义 age (n)函数函数中不断地调用 age (n)函数自己4、排序与查找

50、数据 四、应用程序设计1、程序设计的一般步骤2、简单程序设计 综合分析1、 a,b,c 三变量存放不同的数，值 a 最大， b 第二，比较好的算法是()A 、定义一个 max(x,y) 函数(值为 x,y 中的大值) a = max(max(a,b),c)B 、如 a < b 就 a = b如 a < c 就a = c如b <c就 b = cC 、如 a > b 就 a = b如 a > c 就a = c如b >c就 b = cD、如 a < b 就两变量交换如 a < c 就两变量交换 如 b <c 就两变量交换 2、求 2! +3! +

51、4! +5! +10!的值。能完成此运算，并且比较好的算法是( A )。选项:A 、定义求阶乘的函数用 j c(n) 主程序中用一个循环 9次调用 j c(n)函数进行累加B、用一个程序完成 :每一项阶乘用一个 For/Next 循环完成，整个程序包括 9 个循环C、用解析法 :s=1*2+1*2*3+1*2*3*4+ +1*2*3*4*5*6*7*8*9*10D、不必定义函数，只要用一个单重循环就能完成3、要求打印 100 至 200 之间所有偶数的平方根( C )A 、 i = 100 Do While i < 200:Print i,Sqr(i):loopB、 i = 100 Do

52、 While i < 200:Print i,Sqr(i):i = i + 1:loopC 、 For i = 100 to 200 step 2:Print i,Sqr(i) : Next iD、 For i = 100 to 200: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 3Print Tab(Abs(i)+5)Fo

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

54、 3_15、编写程序，使能打印下面所示的图案。 程序：Private Sub Form_Click()Dim i As IntegerDim j As IntegerFor i = 1 To 6Print Tab(10);For j = 1 To iPrint “ ”;Next jPrintNext iEnd Sub必修 4_15、完善显示按钮的 click 程序，将代码段中“变量 1“、“变量 2.“变量3、处换成正确的变量名，使当单击该按钮时，Labell. Label2 分别显示 30、 10,完成所有操作后，诸按“ Ctrl+S ”保存。Private Sub Command_Clic

55、k( )x = 10y = 30If x < y Then t = x x = y y = tEnd IfLabel1.Caption = xLabel2.Caption = yEnd Sub必修 5_15、完善"判断"按钮的 click 程序，使当从 Textl 中输入一个数时，当该数 大于或等于 60 时在 Lebell 中显示 "及格 "，该数小于 60 时在 Labell 中显 示"不及格 "。完成所有操作后，诸按“ Ctrl+S ”保存。Private Sub Command1_Click( )Dim a As Sin

56、glea = Val(Text1.Text)If a>=60 ThenLabel1.Caption = 及格“”End IfIf a < 60 ThenLabel1. Caption = 不“及格 ”End IfEnd Sub必修 1_16、编写程序，求函数 y的值(当 x<=0 时,y=3x+1;当 x>0 时， y=4x+1) 。 程序：Private Sub Form Click()Dim x As Single ' 定义 x 为单精度型变量Dim y As Single ' 定义 y为单精度型变量 x =Val(InputBox(" 请

57、输入变量 x") If x <=0 Theny = 3 * x + 1Elsey = 4 * x + 1 End If Print "y="y End Sub必修 2_16、编写程序，求 y=6x-5 的值。 (x 的值在程序中调用 InputBox 函数，在 弹出的标准输入对话框中输入 ) 程序：Private Sub Form_Click()Dim x As SingleDim y As Singlex = Val(InputBox( 请输“入变量 x” )y = 6*x 5Print “ y= ”;End Sub必修 3_16、一只猴子摘了一堆桃子，它每天吃当天桃子数的一