信息技术算法与程序设计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顺序法 D列表法4、 以下哪个是算法的描述方法?A顺序法B列表法C集合法D自然语言描述法程序设计根底1常用高级编程语言：BA

3、SIC、VB、Pascal、C、C+、Java1面向对象的程序设计语言：其中的对象主要是系统设计好的对象,包括窗体等、控件等2控件：是指工具箱中的工具在窗体中画出的、能实现一定功能的部件,如文本框,命令按钮常用控件控件对象的类型前缀名字举例窗体Formfrmfrmfind命令按钮Comma nd butt oncmdcmdok标签LabelIbllbl in put文本框TextBoxtmrtmrClock右命令按钮Command的Enabled属性设置为True时按钮有效,设置为False时按钮无效3对象的属性、方法和事件1属性属性Name设置对象的名称Caption决定控件中显示的内容文字

4、Text决定窗体中文本框中显示的内容 初始为空白Height决定控件高度Width决定控件宽度TOP决定控件的靠顶部位置Left决疋控件的靠左边位置Font设置控件中字体格式BackColor设置控件背景色ForeColor设置控件的前景色BorderStyle设置控件的边框风格Alignment即标签文字对齐属性 ：0Left Justify时文本左对齐；1Right Justify时文本右 对齐；设置为2Center时文本居中.AutoSize设置为False时输入控件Caption中文字超过控件宽度时超出局部被裁剪掉, 设置为True时,控件可水平扩充,以适应控件Caption属性.Vi

5、sible决定控件是否可见Enabled决定控件运行时是否有效对象.属性=属性值对象中属性可以在设计界面时通过属性窗中设置,也可以在运行时通过程序代码设置,方法如下例：给文本框“ Txt123 的“ Text属性赋值为字符串“ 20,代码如下Txt123.text = 20变量=对象.属性如果要获取对象的状态或特性,这时就要读取对象的属性值,方法如下 例：读取文本框“ txt123 的“ Text属性的代码如下a = txt123.text2方法对象.方法参数名表例： form.print 欢送使用 该语句使用 print 方法在 form1 窗体中显示字符串“欢送使用3 事件及事件驱动事件是

6、对象对外部操作的响应,如在程序执行时, 单击命令按钮会产生一个 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 =

7、 Val(Text1.Text) ' 输入半径 r c = 2 * 3.14159 * r '计算周长 s = 3.14159 * r * r ' 计算面积 Text2.Text = c'输出周长Text3.Text = s'输出面积End SubPrivate Sub Command2_Click()End'退出End Sub 相关题解：单项选择题1、以下关于程序设计说法正确的选项是 ().A、程序设计语言的开展经历了机器语言、汇编语言到高级语言的过程,比 较流行的高级语言是 PASCAL, FORTRAN, EXCEL, C+ 等B、程序设计

8、就是寻求解决问题的方法,并将其实现步骤编写成计算机可以执行的程序的过程C、程序设计语言和计算机语言是同一个概念的两个方面D、程序设计就是指示计算机如何去解决间题或完成一组可执行指令的过程2、以下说法错误的选项是( ) .A、程序设计就是寻求解决问题的方法,并将其实现步骤编写成计算机可以执行的程序的过程B、程序设计语言的开展经历了机器语言、汇编语言、高级语言的过程C、计算机程序就是指计算机如何去解决间题或完成一组可执行指令的过程D、程序设计语言和计算机语言是同一概念的两个方面一、常量 ：批在程序进行过程中不变的量在 VB 中一般分 数值常量 与字符常量 两种 数值常量： 就是数学中说的常数,分

9、整型常量 和实型常量 两种整型常量： 即整数,指不带小数点的数值如 1、 0、 -10、 +35等都是合法的整数 实型常量： 即实数,指带小数点的数值.实型常量 又分为 定点数 和浮点数两种. 例：定点数： 3.14159 和 -6.8, 1.99浮点数： 2E6、 1E5 、 88E例：1.2345 X 103可表示为1.2345E3,字母E表示底数10浮点数就是数学上的科学计数法.字符串常量：被一对双引号括起来的假设干个合法的字符称为字符串常量.例如："China、"VisualBasic、18、3.1415等,双引号中字符,不包括双引号本身.符号常量：如果屡次用到同一

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

11、长整型Long、单精度型Single、双精度型Double属于数值型 表示范围：整型Integer -32768 32767,存储为 16位,2个字节长整型 Long-21 亿 21亿,可以表示人口数量 布尔型BooleanTrue真、是或False假、非字符串型String定长字符串：0 65535个字符,不定长字符串：0 20亿个字符字符串型数据是指用“括起来的一串字符.如欢送进入VB世界！ 、 “VisualBasic、1234 都是字符串类型.日期型 Date 100/1/1 9999/12/31日期型数据专门用来处理日期和时间. VB 采用一对“ #把日期和时间的值括起来, 如#20

12、03/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_ClickDim a As Integer, b As

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

14、leForm1.Print -61; -34Form1.Print 9 * 2; 12Form1.Print "This is" "a book"x = 3: y = 4Print "x=" x, "y=" yEnd Sub注意： Print 方法相关题解：单项选择题1、以下变量名写法错误的选项是( )A 、 abc_123 B、 123abc C 、 abc123 D、 abc2、以下语句中定义了一个实型变量的是( )A 、 Dim end as IntegerB 、 Dim sum As SingleC、Dim

15、 Name As StringD、其它三项都不对3、在 VB 中,以下哪个是正确表示十六进制整型数常量?( )A、32FB、 H32F C、 h32F D、 &32F4、在 VB 中,以下关于符号常量的声明,声明正确的选项是:( )A 、 Dim TAG as String B 、 Const TAG as String "Visual" + "Basic"C、 Const TAG as String ="Visual Basic"D、 Const TAG as String5、下面 ()不是字符串常量A 、 "Tr

16、ue" B 、#False#C、 ""D 、 " 你好 "运算符1、 算术运算：+ 加 - 减*乘A指数例：2A2 =4/ 浮点除例：5 / 2 =2.5 整除例：5 2= 2Mod 求余数例：5 Mod2 = 1相关题解单项选择题1、分析以下程序 :Private Sub Form_Click() s=113 + 11 Mod 3Print sEnd Sub当单击窗体时s的值是.A 、5 B 、6C、 4D 、 3关系运算赋值 、< 小于号<> 不等于> 大于号).=小于等于号True 或 False>= 大于等

17、于号 < 注意：关系表达式的运算结果为布尔值例：3 > 2结果为True真或是相关题解单项选择题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 日期运算符与日期表达式 日期表达式

18、是用日期运算符“ + 或“ -将算式表达式、日期型常量、日期型变量、日期函数 等连接起来的式子,如表达式“ #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 、 False B 、 True C、 -1 D、 1字符运算字符串连接符为“ +和“ & “123+ “45 =“12345“123& “45 =“12345123 +“45= 168“123+ 45 =168

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

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

21、转换函数Val(字符串)将字符串转换为数值Str(数值)将数值转换为字符串Chr(字符代码)Asc(字符)Tab定位函数的使用例题Private Sub Form_Click( )Dim aAs IntegerDim bAs Integera = 4: b = 9Print Tab(1); "数" Tab(9); "平方" Tab(18); "立方" Tab(27); "平方根 "Print Tab(1); a; Tab(9); a * a; Tab(18); a * a * a; Tab(27); Sqr(a)P

22、rint Tab(1); b; Tab(9); b * b; Tab(18); b * b * b; Tab(27); Sqr(b)End Sub用户交互函数VB 提供 InputBox( )和 MsgBox( )函数用于人机交互InputBox( )其语法格式为：lnputBox(提示,标题,默认值儿X坐标,Y坐标)MsgBox( ) 其语法格式为：MsgBox(提示信息,按钮,标题)相关题解单项选择题1、Visual Basic中,以下()函数是求绝对值的.A、ABS (X)B、SQR(X )C、INT (X )2、表达式 Abs(-3.6)*sqr(100)的值是().A、-36 B、3

23、60C、36 D、-3603、 以下()数据类型不是数值型.A、DateB、SingleC、Double4、 以下函数中,返回值是字符串的是().A、MidB、In strC、Val5、以下()函数返回系统的当前时间.6、代数表达式1 .22gt表达式后错误的选项是D、GN( X)D、IntegerD、LenD、year()A、time()B、date()C、day()D、gtA2/2A、g*t*t/2B、1/2*g*tA2C、g*tA2/22a b7、数学式子 4ab在VB中的正确写法是：()A、(2*a+b)/4*a B、(2*a+b)/(4ab) C、(2a+b)(4ab) D、(2*a

24、+b)/(4*a*b)8、判断x是否在区间a, b上,在VB中以哪个逻辑表达式是正确的?()A、 a<x and x<=b B、 a<x<=bC、a<x and x < b D、a>x and x<=b综合分析1、 向n变量存入1个2位整数,要使此2位数十位和个位上的值分别存入x, y变量.正确的算法是().选项：x、 x=Left(n,1)丫二门-x*10 Print x:Print yB、 x=Left( n,1) y=Right( n, 1) Print x:Pri nt yC、 x=n/10 y=n-x*10 Print x:Print

25、yD、 x=Int(n/1O) 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(x) 一 32 x=Chr(x) Print xx a=Val(x)+32 x=Chr(x) Print x程序设计的顺序结构顺序结构：代码根据由上到下的顺序一行一行地执行.程序执行过程中没有分支、 没有重复,这种结构称为顺序结

26、构.例题：交换两个变量中的数据.Private Sub cmdSwap_Click()Dim x As Sin gle, y As Sin gleDim m As Singlex = Val(txtsx.Text)y = Val(txtsy.Text)m = x: x = y: y = m'交换数据txtdx.Text = Str(x)txtdy.Text = Str(y)End SubPrivate Sub cmdEnd_Click()EndEnd Sub相关题解单项选择题1、以下是一段 VB 程序：a = 1b = a + 1c = a + b 它的根本结构属于( )A、顺序结构

27、B、选择结构C、循环结构D、树型结构2、以下 VB 程序运行后,变量 x 的值为 ().x=2Print x+lPrint x+2A、 2B、 3C、 5D、 8程序设计的分支结构行 If 语句行 If 是指在一行中写完的 If 语句.其一般格式为：格式一： If 条件 Then 语句执行这种形式的 If 语句时,首先对条件进行判断.假设条件成立,那么执行 Then 后面的语句；假设 条件不成立,那么执行 If 语句后继程序行的语句格式二： If 条件 Then 语句 1 Else 语句 2 例题：输入三个不相同的数,求出其中最小数.Private Sub Form_Click()Dim a

28、As Single, b As Single, c As SingleDim MinAs Singlea = val(InputBox(" 输入 a", "输入框 ")b = InputBox(" 输入 b", "输入框 ")c = InputBox(" 输入 c", "输入框 ")If a < b Then Min = a Else Min = bIf c < Min Then Min = cPrint"最小数=；MinEnd Sub 执行这种形式的语

29、句时,先进行判断.假设条件成立,那么执行语句1；否那么执行语句 2.块 If 语句上述 If-then 语句只能根据条件的真假是否执行一条语句,当 Then 局部和 Else 局部包含的内容较多时,那么可选用“块 If 语句结构.格式三： If 条件 Then语句块 End If例题： 当从输入一个数时,当该数大于或等于60 时显示"及格" ,该数小于 60时显示 "不及格".Private Sub Command1_Click()Dim a As Singlea = Val(Text1.Text)If a >= 60 Then Label1.Ca

30、ption = " 及格 "ElseLabel1.Caption = " 不及格 "End IfEnd Sub 格式四： If 条件 Then 语句块 1 Else 语句块 2 End If例题：编写程序,求函数Y的值(当x < 0时,y=3x+1 ;当x>0时,y=4x+1 ).Private Sub Form_Click()Dim x As SingleDim y As Singlex = Val(InputBox(" 请输入变量 x")If x <= 0 Theny = 3 * x + 1Elsey = 4 *

31、 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 、以下程序段运行后,变量 Value 的值是( ) x = 20If x >= 10 ThenValue = 5 * x ElseValue = 4 * x End IfA 、 100 B、 80 综合分析C、90D、 701、如要完成 : 从键盘输入一个正整数,判断是否是奇数,如是就在屏幕

32、上显示.比拟好 的算法是 ().选项: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、下面是判断变量 x 是不是能被n/2=Int(n/2) 成立,就显示 n 中值 n/2=Int(n/2) 不成立,就显示 n 中值 5 整除的偶数的程序,横线上的逻辑表达式应为Private Sub commandl_Click()Dim x As Integerx=Val(Text

33、1. Text)If = 0 ThenLabell.Caption= 这个数是能被 5 整除的偶数 ElseLabell.Caption= 这个数不是能被 5 整除的偶数 End If选项：A 、 (x Mod 5) = 0 And (x Mod 2 ) = 0 B、 x Mod 10 = 0C 、 x Mod 5 = 0D 、 x Mod 2 = 03、如要完成 : 从键盘输入一个正整数,判断是否是偶数,如是就在屏幕上显示.比拟好 的算法是 () .选项:A、输入的数存人n 变量 f=(n/2=Int(n/2) 如果 f 中的值为 True 就显示 n 中值B 、输入的数存人n 变量 f=(

34、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 < b Then m = A Else m = bIf c < m Then m = c 选项：A、1B、2C、5D 、提示错误,无答案程序设计的循环结构、 For-Next 循环For循环变量一般形式是：For循环变量=初值To终值Step循环变量增量 循环体Next循环变量例题

35、1 求s= 1+2+3+4+100Private Sub Form_Click()Dim i As In tegerDim sum As In tegersum = 0For i = 1 To 100 sum = sum + i '循环体Next iPrin t "sum=" sumEnd Sub例题2: Step循环变量增量Private Sub Form_Click()For j = 3 To 15 Step 2Print jNext jEnd Sub循环变量的初值、终值、循环变量增量都是数值型.其中要重复执行的操作称为循环体,增量 可正可负,如果没有设置Ste

36、p,那么增量的缺省值为 11、循环变量取初值；2、 循环变量与终值比拟,没有超过终值转3,否那么循结束,接着执行循环语句的后继语句；3、执行一次循环体4、循环变量增加一个增量5、重复步骤24.以上可以看出,For-Next循环变量是一种当型循环.说明(a) For语句与Next语句必须成对出现, 而且它们当中的"循环变量必须是同一个变 量,如上例中均为I.(b) 当循环变量为正时,循环变量超过终值,是指循环变量的值大于终值时；假设为负, 那么是指循环变量的值小于终值.出口二、 DoLoop 循环For-Next 循环的次数是确定的, 但是有的问题只知道循环结束的条件, 重复执行的 次

37、数事先并不知道,这是需要 Do-Loop 循环格式一： Do While 条件 循环体 Loop 例题：求最大公约数Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim r As Integera = Val(Text1.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当 V

38、B 执行 Do While-Loop 循环时,先判断指定的条件是否为真,假设条件为真,执 行循环体,条件为假时退出循环.格式二： Do 循环体Loop Until 条件这种循环的执行过程如下图.进入循环体后,先执行一次循环体 A,然后再检查 条件 P 是否成立.如果不成立, 就重复执行循环体 A ,直到条件 P 成立退出循环体.例题：如果我国人口每年以平均1.5%的速度增长,问多少年后我国人口到达或超过15亿？设现在人口为12.3亿.Private Sub Form_Click()Dim p As Sin gleDim r As Si ngleDim n As In tegerp=123000

39、0000#r = 0.015n = 0Dop = p * (1 + r)n = n + 1Loop Until p >= 1500000000#Print n;"年后","人口 =" pEnd Sub1、 以下流程图表示的是程序的()根本结构的算法.A其它三项都不是B循环结构C选择结构D顺序结构2、在VB中,以下程序段：x=0Do While x<50 x=(x+2)*(x+3)Loop执行后,x的值为:().A、168 B、50C、72 D、03、 阅读下面程序,当单击窗体之后,窗体上输出的是()Private Sub Form_Click

40、()Dim i As In teger:Dim s As In tegers = 0For i = 1 To 5s = s + iNext iPrint s,iEnd Sub选项:i=5( ).A 、15 6 B、 s=15 i=6C、65 D 、 s=64、要求计算机打印出 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:

41、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 、 2 B 、 3C、 4 D 、 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 、 0 B 、 4C 、 6 D 、

42、 87、在 VB 中,假定有以下程序段 :For i=1 To 3 Step 2Print "VB"Next i那么语句 Print "VB" 的执行次数是： ().A 、 1 B、 2C、 3 D、 48、 以下程序段中,循环体执行的次数是( )x=0For y=1 To 10 step -1 x=x+1Next yA、 1 B、 0C、 10 D、 49、在 VB 中,假定有以下程序段 :For i=3 To 1Print "VB"Next i那么语句 Print “VB 的执行次数是 :()A 、出错B、 2C、1D、 010、

43、以下程序段中,循环体执行的次数是()x=0For y = 1 To 10 step -1x = x+1Next yA 、1B、 10C、0D、 411、单击窗体后,文本框 Text1、 Text2 中显示的内容是( ) Private Sub Form_Click()Dim x as Integer, n as Integerx = 1n = 0 Do While x < 20n = n + 1x = x * 3 Loop Text1.text = Str(x) Text2.text = Str(n) End Sub A 、27 3 B 、3 27C、20 3 D、32112、单击窗体后

44、,文本框 Text1、 Text2 中显示的内容是()Private Sub Form_Click()Dim x as Integer, y as Integerx = 1:y = 0 Do While x < 3y = y + xx = x * 3 Loop Text1.text = Str(x) Text2.text = Str(n) End Sub A 、27 3 B 、3 27C、20 3 D、32113、读下面程序,单击窗体后,在文本框显示的内容是(B )Private Sub Form_Click( )Dim a( 8 ),b( 8 ) as IntegerDim i,j A

45、s IntegerFor j = 1 To 4a( j ) = 2 * j b( j ) = a( j ) * 3Next jText1.Text = b( j / 2 )End SubA 、10B、12C、 14D、186面向对象程序设计思想 相关题解 单项选择题1、在 visual Basic 中显示和编辑程序代码时,采用 ( ). A 工程资源治理器窗口B 窗体设计器窗口C 代码编辑窗口D 属性窗口2、在 VB 中,要设置文本框的缺省文字,应使用属性:()A 、Text B 、 Name C、 CaptionD 、 Font3、在 VB 中,要设置窗口的标题文本,应使用属性 :( )A

46、、 Font B 、Caption C 、 Name D 、Text4、用 visual Basic 编程,我们把工具箱中的工具称为( )A、控件B、工具C、窗体 D、事件5、在 VB 中,要设置某个对象属性时,应进入 :()A 任意模式 B 中断模式 C 运行模式 D 设计模式6、 能够改变复选框中背景颜色的属性是().A 、 Value B 、 FontColorC、 BackColorD、 Font7、对于窗体,Click(单击)是它的一个()A 重要事件 B 重要属性 C 重要方法 D 重要对象8、 Visual Basic 中,设置控件的位置,可改变以下 ()属性.A、Height

47、与 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 人年龄,说比前面第 4 人小 3 岁,问第 4. 3. 2 人,都说比前面人小 3 岁,问 第 1 人,说他的年龄为 38 岁.问第 5 人的年龄多大. 用递归法解决此问题的正确步骤是 ( B ). 选项:A、 定义age (n)函数 函数中当n>1时返回函数值

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

49、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! +4! +5!+10!的值.能完成此运算,并且比拟好的算法是(A ).选项:A、定义求阶乘的函数用j c(n)主程序中用一个循环 9次调用j c(n)函数进行累加B 、用一个程序完成 :每一项阶乘用一个 For/Next 循环完成,整个程序包括 9 个循环C、用解析法：s=1*2+1

50、*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 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_1

51、5、编写程序,使能打印下面所示的图案.*程序：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 (4-Abs(i)-1Print "*"Next jPrint'换行Next iEnd Sub必修 2_15、编写程序,使能打印下面所示的图案.*'k'k'k*程序：Private Sub Form Click()Dim i As

52、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必修 3_15、编写程序,使能打印下面所示的图案. 程序：Private Sub Form_Click()Dim i As IntegerDim j As IntegerFor i = 1 To 6Print Tab(10);For j = 1 To iPrint “

53、 ;Next jPrintNext iEnd Sub必修 4_15、完善显示按钮的 click 程序,将代码段中“变量 1“、“变量 2.“变量 3、处换成正确的变量名,使当单击该按钮时,Labell. Label2 分别显示 30、 10,完成所有操作后,诸按“ Ctrl+S 保存.Private Sub Command_Click( )x = 10y = 30If x < y Then t = x x = y y = tEnd IfLabel1.Caption = xLabel2.Caption = yEnd Sub必修 5_15、完善"判断"按钮的 click

54、程序,使当从 Textl 中输入一个数时,当该数 大于或等于 60 时在 Lebell 中显示 "及格 ",该数小于 60 时在 Labell 中显 示"不及格 ".完成所有操作后,诸按“ Ctrl+S 保存.Private Sub Command1_Click( )Dim a As Singlea = Val(Text1.Text)If a>=60 ThenLabel1.Caption = 及格“End IfIf a < 60 ThenLabel1.Caption = 不及“格 End IfEnd Sub必修1_16、编写程序,求函数 y的

55、值(当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(" 请输入变量 x")If x <=0 Theny = 3 * x + 1Elsey = 4 * x + 1End IfPrint "y="yEnd 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必修