算法与程序设计VB

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

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

3、下哪个是算法的描述方法?( D )A 顺序法B 列表法C 集合法D 自然语言描述法（二）程序设计基础（1）常用高级编程语言：BASIC、VB、Pascal、C、C+、Java1面向对象的程序设计语言：其中的对象主要是系统设计好的对象，包括窗体等、控件等对象.属性属性值对象中属性可以在设计界面时通过属性窗中设置，也可以在运行时通过程序代码设置,方法如下例：给文本框“Txt123”的“Text”属性赋值为字符串“20”，代码如下Txt123.text =”20”变量对象.属性如果要获取对象的状态或特性，这时就要读取对象的属性值，方法如下例：读取文本框“txt123”的“Text”属性的代码如下a

4、= txt123.text2事件及事件驱动事件是对象对外部操作的响应，如在程序执行时，单击命令按钮会产生一个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 =

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

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

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

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

9、值型表示范围：(整型)Integer (-32768 32767)(长整型)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）常量和变量的命

10、名、声明及赋值符号常量的声明：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 Str

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

12、nt "This is" "a book" x = 3: y = 4 Print "x=" x, "y=" yEnd Sub注意：Print 方法相关题解：单选题1、下列变量名写法错误的是( B )A、abc_123 B、123abc C、abc123 D、abc2、下列语句中定义了一个实型变量的是 ( B )A、Dim end as Integer B、Dim sum As SingleC、Dim Name As String D、其它三项都不对3、在VB中，以下关于符号常量的声明，声明正确的是:( C )A、D

13、im TAG as String B、Const TAG as String "Visual" + "Basic"C、Const TAG as String ="Visual Basic" D、Const TAG as String4、下面( B )不是字符串常量A、"True" B、#False# C、" " D、"你好"运算符1、 算术运算：+ 加 - 减 *乘 指数 例：22 = 4/ （浮点）除 例：5 / 2 = 2.5 整除 例： 5 2 = 2Mod 求余数 例

14、：5 Mod 2 = 1相关题解单选题1、分析下列程序: Private Sub Form_Click() s=113 + 11 Mod 3 Print s End Sub当单击窗体时s的值是( A ).A、5 B、6 C、4 D、3关系运算=赋值、<小于号<>不等于>大于号>=大于等于号<=小于等于号注意：关系表达式的运算结果为布尔值True 或 False例：3 > 2 结果为 True(真或是)相关题解单选题1、下面表达式的值是false的有( C ).A、"969" < "n97" B、Int(4.

15、99) <> len("basic") C、str(2000) < "1997" D、3 > 2注：字符串排序：数字大写字母小写字母 （同一类别按字典顺序排列）逻辑运算Not（取反）And（与） Or（或）运算结果为布尔型（Boolean）True 或 False逻辑运算符的优先级为：No > And > Or日期运算符与日期表达式日期表达式是用日期运算符“+”或“-”将算式表达式、日期型常量、日期型变量、日期函数等连接起来的式子，如表达式“#2003/09/01# +30”的运算结果是“2003-10-1”；表达式“

16、#2003/10/20# - #2003/10/10#”的运算结果为整数10相关题解单选题1、设a=2, b=3,在VB中，表达式a>b Or b>3值是:( A )A、False B、True C、-1 D、1字符运算字符串连接符为“+”和“&”“123” + “45” = “12345”“123” & “45” = “12345”123 + “45” = 168“123” + 45 = 168运算符的执行顺序在VB中，当一个表达式中同时出现多种运算符时，运算次序由运算符的优先级决定，优先级高的运算符先运算，优先级相同的从左向右进行运算。不同性质的运算符优先级如下

17、。算术运算符 > 字符串运算符 >  关系运算符 >  逻辑运算符常用函数数学函数Abs(x) 求x 的绝对值，例：abs(-3.6) = 3.6Sqr(x) 求 x 的平方根，例：sqr(100) = 10Int(x)求x的最大整数 例：int(3.6) = 3 int(-3.6) = -4Rnd(x)产生0，1)之间的随机数（不包括1）Sin(x)Cos(x)用户交互函数VB提供InputBox( )和MsgBox( )函数用于人机交互InputBox( )其语法格式为：InputBox( 提示，标题，默认值,X坐标，Y坐标)MsgBox( ) 其语法

18、格式为：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、-3603、下列( A )数据类型不是数值型。A、Date B、Single C、Double D、Integer4、下列函数中，返回值是字符串的是 ( A ).A、Mid B、Instr C、Val D、Len5、下列( A )函数返回系统的当前时间。A、time() B、date() C、day()

19、D、year()6、代数表达式表达式后错误的是( D )A、g*t*t/2 B、1/2*g*t2 C、g*t2/2 D、gt2/27、数学式子在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 、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位数十位和个位上的值分别存

20、入x, y变量。不正确的算法是( C )。选项:x、x=Left(n, 1) 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 y程序设计的顺序结构顺序结构：代码按照由上到下的顺序一行一行地执行。程序执行过程中没有分支、没有重复，这种结构称为顺序结构。例题：在文本框text1和text2中输入变量x、y,交换两个变量中的数据。Private Sub cmdSwap_Cli

21、ck() Dim x As Single, y As Single Dim m As Single x = Val(text1.Text) y = Val(text.Text) m = x: x = y: y = m '交换数据 Text1.Text = x Text2.Text = yEnd SubPrivate Sub cmdEnd_Click() EndEnd Sub注：Val(x)-将字符X转化为数 如val("123")=123 str(x)-将数X转化为字符 如str(123)="123"相关题解单选题1、以下是一段VB程序：a =

22、1b = a + 1c = a + b它的基本结构属于（ A ）A、顺序结构 B、选择结构 C、循环结构 D、树型结构2、下列VB程序运行后，变量x的值为( A ).x=2Print x+lPrint x+2A、2 B、3 C、5 D、8程序设计的分支结构行If语句行If是指在一行中写完的If语句。其一般格式为：格式一：If条件Then语句执行这种形式的If语句时，首先对条件进行判断。若条件成立，则执行Then后面的语句；若条件不成立，则执行If语句后继程序行的语句格式二：If条件 Then 语句 1 Else 语句 2例题：输入三个不相同的数，求出其中最小数。Private Sub Form

23、_Click() Dim a As Single, b As Single, c As Single Dim Min As Single a = InputBox("输入a", "输入框") b = InputBox("输入b", "输入框") c = InputBox("输入c", "输入框") If a < b Then Min = a Else Min = b If c < Min Then Min = c Print "最小数" Min

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

25、tion = "及格" End IfIf a < 60 ThenLabel1.Caption = "不及格" End IfEnd Sub格式四：If 条件 Then 语句块1 Else 语句块2 End If例题：编写程序，求函数Y的值（当x0时，y=3x+1；当x>0时，y=4x+1）。Private Sub Form_Click()Dim x As SingleDim y As Singlex = Val(text1.text)If x <= 0 Then y = 3 * x + 1Else y = 4 * x + 1End IfP

26、rint "y=" yEnd Sub相关题解单选题1、以下是一段Visual Basic程序: If I=1 Then X=X+1 Else X=X*2 End If它的基本结构属于( A ).A、选择结构 B、循环结构C、顺序结构D、树型结构2、下列程序段运行后，变量Value的值是（ A ）x = 20If x >= 10 Then Value = 5 * xElse Value = 4 * xEnd IfA、100 B、80 C、90 D、70综合分析1、下面是判断变量x是不是能被5整除的偶数的程序，横线上的逻辑表达式应为( A ) Private Sub co

27、mmandl_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 ) = 0B、x Mod 10 = 0C、x Mod 5 = 0D、x Mod 2 = 02、下列程序段运行后,m的值为( A )A=2: b=1: c=5If A < b Then m = A Else m = bIf c < m Then m = c选项

28、：A、1B、2C、5D、提示错误，无答案程序设计的循环结构一、For-Next循环For循环变量一般形式是：For 循环变量=初值 To 终值 Step 循环变量增量 循环体Next 循环变量例题1：求s1+2+3+4.+100Private Sub Form_Click() Dim i As Integer Dim sum As Integer sum = 0 For i = 1 To 100 sum = sum + i ' 循环体 Next i Print "sum=" sumEnd Sub例题2：Step循环变量增量Private Sub Form_Click

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

30、是指循环变量的值大于终值时；若为负，则是指循环变量的值小于终值。AP入口出口二、DoLoop循环For-Next循环的次数是确定的，但是有的问题只知道循环结束的条件，重复执行的次数事先并不知道，这是需要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

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

32、rivate 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; "年后", "人口=" pEnd Sub1、下列流程图表示的是程序的( B )基本结构的算法。A 其它三项都不是 B 循环结构 C 选择结构 D 顺序结构2、在VB中，以下程序段:x=0Do While x<

33、;50 x=(x+2)*(x+3)Loop执行后，x的值为:( C ).A、168 B、50 C、72 D、03、阅读下面程序，当单击窗体之后，窗体上输出的是( 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,iEnd Sub选项:A、156 B、 s=15 i=6 C、6 5 D、s=6 i=54、要求计算机打印出100至200之问所有偶数的平方根值。正确的算法是( C )。选项:A、i=100 Do While i<

34、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、下列程序段中，循环体执行的次数是( B )y = 2Do While y <= 8 y = y+yLoop选项:A、2 B、3 C、4 D、56、阅读下面程序，当单击窗体之后，m的值是( C ).Private Sub Form_Click() Dim m As In

35、teger:Dim i As Integer m = 0 For i = 1 To 3 m = m + 2 Next i Print mEnd Sub选项：A、0 B、4 C、6 D、87、在VB中，假定有以下程序段:For i=1 To 3 Step 2 Print "VB"Next i则语句Print "VB"的执行次数是：( B )。A、1 B、2 C、3 D、48、下列程序段中，循环体执行的次数是( B ) x=0 For y=1 To 10 step -1 x=x+1 Next yA、1 B、0 C、10 D、49、在VB中，假定有以下程序段:

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

37、* 3LoopText1.text = Str(x)Text2.text = Str(n)End SubA、273 B、3 27 C、203 D、3 2112、单击窗体后，文本框Text1、Text2中显示的内容是（ A ）Private Sub Form_Click( )Dim x as Integer, y as Integer x = 1:y = 0Do While x < 3 y = y + x x = x * 3LoopText1.text = Str(x)Text2.text = Str(n)End SubA、273 B、3 27 C、203 D、3 216面向对象程序设计思

38、想相关题解单选题1、在visual Basic中显示和编辑程序代码时，采用( C ).A 工程资源管理器窗口 B 窗体设计器窗口C 代码编辑窗口 D 属性窗口2、在VB中，要设置文本框的缺省文字，应使用属性:（ A ）A、Text B、Name C、Caption D、Font3、在VB中，要设置窗口的标题文本，应使用属性:( B )A 、Font B 、Caption C 、Name D 、Text4、用visual Basic编程，我们把工具箱中的工具称为( A )A、控件 B、工具 C、窗体 D、事件5、在VB中，要设置某个对象属性时，应进入:( D )A 任意模式 B 中断模式 C 运

39、行模式 D 设计模式6、能够改变复选框中背景颜色的属性是( C )。A、Value B、FontColor C、BackColor D、Font7、对于窗体，Click(单击)是它的一个( A )A 重要事件 B 重要属性 C 重要方法 D 重要对象8、Visual Basic中，设置控件的位置，可改变下列( B )属性。A、Height与Top B、Left与Top C、Height与Width D、Left与Width9、在VB中，设置控件的大小可改变（ A ）A 、Height与Width B、 Height与Top C、 Left与Top D、 Left与Width三、应用程序设计编程

40、题必修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 iEnd Sub必修2_15、编写程序，使能打印下面所示的图案。* * *程序：Private Sub Form Click()Dim i As Integer

41、'定义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 iEnd Sub必修3_15、编写程序，使能打印下面所示的图案。程序：Private Sub Form_Click() Dim i As Integer Dim j As Integer For i = 1 To 6 Print Tab(10); For j = 1 To i Print “”;

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

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

44、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 Then y = 3 * x + 1Else y = 4 * x + 1End IfPrint "y="yEnd Sub必修2_16、编写程序，求y=6x-5的值。(x的值在程序中调用InputBox函数，在弹出的标准输入对话框中输入)程序：Private Su

45、b Form_Click()Dim x As SingleDim y As Singlex = Val(InputBox(“请输入变量x”)y = 6*x 5Print “y=”;End Sub必修3_16、一只猴子摘了一堆桃子，它每天吃当天桃子数的一半，每次忍不住多吃了一个。这样到第十天时只有一个桃子可以吃了，编程计算猴子最初共有多少个桃子。完成所有操作后，诸按“Ctrl+S”保存。程序：Private Sub Form_Click() Dim i As Integer Dim s As Integer s = 1 For i =1 To 9 s = (s + 1)*2 Next Print “s=”;sEnd Sub必修4_16、完善按钮“计算7!”的Click事件程序，当单击命令按钮时Text1显示7!的值。Private Sub Command1_Click( )Dim a As IntegerDim i As Integera = 1For i = 1 To 7 a = a * iNext iText1.Text = aEnd Sub必修5_16、请将按钮"计算1+2+100"的Click事件程序中的"常量"和"变量"换成正确的常量和变量，当