word信息技术算法与程序设计VB选修知识点汇总良心出品必属

江苏省高中信息技术《算法与程序设计 VB （选修）》 知识要点
相关知识点
（一）算法
1. 定义
相关题解：
1算法：就是解决问题的方法和步骤。

算法是程序设计的“灵魂”，算法 +数据结构=程序。

单选题
下列关于算法说法不正确的是（）
算法独立于任何具体的语言，BASIC 算法只能用BASIC 语言来实现 解决问题的过程就是实现算法的过程
算法是程序设计的“灵魂”
算法的描述方法： 1算法的描述：可分多种表达方法，一般用自然语言、流程图和伪代码 进行描述。

2自然语言描述法：指用人们日常生活中使用的语言（本国语言），用自 然语言描述符合我们的习惯，且容易理解。

3流程图描述：也称程序框图，它是算法的一种图形化表示方法。

且描 述算法形象、直观，更易理解。

4伪代码描述法：是介于自然语言和计算机程序语言之间的一种算法描 述。

是专业软件开发人员常用方法。

相关题解： 单选题
1、图形符号" 1、 A 、 B 、 开始或结束 处理或运算
"在算法流程图描述中表示（）.
输入或输出
A 处理或运算的功能
B 输入输出操作
C 用来判断条件是否满足需求
D 算法的开始或结束 " 在算法流程图描述中表示（）.
A 处理或运算的功能
B 输入输出操作
C 用来判断条件是否满足需求
3、 以下哪个是算法的描述方法 A 流程图描述法B 枚举法C
4、 以下哪个是算法的描述方法 A 顺序法B 列表法C 集合法D 自
然语言描述法
（二）程序设计基础
（1）常用高级编程语言：BASIC VB Pascal 、C C++ Java
1面向对象的程序设计语言：其中的对象主要是系统设计好的对象，包 括窗体等、控件等
2控件：是指工具箱中的工具在窗体中画出的、 能实现一定功能的部件, 如文本框，命令按钮等。

常用控件：
3对象的属性、方法和事件
1属性
2、图形符号Z D 算法的开始或结束 ?（） 顺序法D 列表法
?（）
对象.属性=属性值
对象中属性可以在设计界面时通过属性窗中设置， 也可以在运行时通过 程序代码设置，方法如下
例：给文本框“ Txt123 ”的“ Text ”属性赋值为字符串“ 20”，代码如 下
Txt123.text = ” 20”
变量=对象.属性
如果要获取对象的状态或特性，这时就要读取对象的属性值，方法如下 例：读取文本框 a = txt123.text
2方法
［对象］.方法 例: form.print 该语句使用
print 方法在formi 窗体中显示字符串“欢迎使用”
3事件及事件驱动
事件是对象对外部操作的响应，如在程序执行时，单击命令按钮会产生 一个Click 事件。

如需要命令按钮响应Click 事件，就把完成Click 事 件功能的代码写到Click 事件的事件过程中，与事件一一对应。

“ txt123 ”的“ Text ”属性的代码如下
［参数名表］
”欢迎使
事件过程的形式如下： 对象_事件名( ) 事件过程代码)
End Sub 一个简单的 求圆的周长和面积 Private Sub
Command1_Click() Dim r As Single ' Dim c As Single ' Dim s As Single ' r = Val(Text1.Text) ' 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 、 程序设计语言的发展经历了机器语言、汇编语言到高级语言的过程, 比 较流行的高级语言是 P ASCAL, FORTRAN, EXCEL, C 等
B 、 程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机 可以执行的程序的过程
C 、 程序设计语言和计算机语言是同一个概念的两个方面
D 程序设计就是指示计算机如何去解决间题或完成一组可执行指令的 过程 2、 下列说法错误的是( ).
A 程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机 可以执行的程序的过程
B 、程序设计语言的发展经历了机器语言、汇编语言、高级语言的过程 Private Sub VB 程序
定义 r 为单精度型
定义 c 为单精度型 定义 s 为单精度型
输入半径 r 计算周长 计算面积 输出周长 输出面积
C 、计算机程序就是指计算机如何去解决间题或完成一组可执行指令的 过程
D 程序设计语言和计算机语言是同一概念的两个方面
一、 常量：批在程序进行过程中不变的量在 VB 中一般分数值常量与字 符常量两种 数值常量：就是数学中说的常数，分整型常量和实型常量两种 整型常量：即整数，指不带小数点的数值如 1、 0、、 -10、 +35等都是合 法的整数
实型常量：即实数，指带小数点的数值。

实型常量又分为定点数和浮点数两种。

例：定点数： 3.14159 和-6.8 ，
1.99
浮点数： 2E6、 1E5、 88E
例：1.2345 X 103可表示为1.2345E3,字母E 表示底数10 浮点数就是数学上的
科学计数法。

字符串常量：被一对双引号括起来的若干个合法的字符称为字符串常 量。

例如：” China ”、”Visual Basic ”、”18”、”3.1415”等， 双引号中字符，不包括双引号本身。

符号常量：如果多次用到同一个常量，则可用一个有意义的名字表示这 个常量。

二、 变量：在程序执
行过程中，其值可以改变的量称为变量 变量命名注意要点： 数据及运算
（ 1）常用数据类型：
（双精度型）Double 、（字符串型）String 、（布尔型）Boolean 、（日期 型） Date
其中（整型）Integer 、（长整型）Long 、（单精度型）Single 、（双精度型）
1、 必须以字母开头 , 不能以数字或其他字符开头。

2、 只能由字母、汉字、数字学或下划线组成，不 能含有小数点、空格等字符。

3、 最长不超过 255 个字符
4、 不能以VB 保留字作变量名，如语句定义符、函
数名等。

5、 VB 不区分变量名中字母大小写。

如 HELL® Hello
是同一个变量。

（整型）Integer 、（长整型）Long 、（单精度型）Single 、
— 32767 ，存储为 16 位 ， 2 个字节）
21 亿，可以表示人口数量 ） （ 布尔型） Boolean （True 真、是 或 False 假、非 ） （字符串型） String （ 定长字符串： 0—— 20亿个字符 ） 字符串型数据是指用 进入VB 世界！ ”、 字符串类型。

（日期型） 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 语句给变量赋值，其形式如下：
[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" Double 属于数值型 表
示范围：
（整型）ln teger （-32768 （ 长整型 ）Long 亿 0——65535个字符，不定长字符串： “ ”括起来的一串字符。

如“欢迎 Visual Basic ” 、“1234 ”都是
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 方法相关题解：单选题
下列变量名写法错误的是( ) abc_123 B 、123abc C 、
abc123 D 、abc 下列语句中定义了一个实型变量的是( ) Dim end as Integer B 、Dim sum As Single
Dim Name As String D 、其它三项都不对在VB 中，以下哪个是正确表示十六进制整型数常量32F B 、H32F C 、h32F D 、&32F 在VB 中，以下关于符号常量的声明，声明正确的是Dim TAGas String B Const TAGas String 下面( ) 不是字符串常量"True" B 运算符1、算术运算：
1、
A、
2、
A、
C、
3、
A、
4、
A、
C、
5、
A、对于大批量
?( )
:( )
、Const TAGas String "Visual" + "Basic"
="Visual Basic" D 、Const TAGas String 、#False# C 、" " D 、" 你好"
八指数 例：2八2 = 4
/ （浮点）除
例： 5 / 2 = 2.5 \ 整除 例： 5 \ 2 = 2 Mod 求余数 相关题解 单选题 1、分析下列程序 : 例： 5 Mod 2 = 1 乘 加 减 * + Private Sub Form_Click()
s=11\3 + 11 Mod 3 Print s End Sub 当单击窗体时 s 的值是(
D A 、5 B 、 6 C 、4 关系运算 赋值 、 不等于 大于等于号 <> ). 、3 小于号 大于号 =小于等于号 关系表达式的运算结果为布尔值 True 或 False >= 注意： 例：3 > 2 结果为 True （ 真或是） 相关题解 单选题 1、下面表达式的值是 A 、"969" < "n97" B < "1997"D 、 3 > 2 逻辑运算
Not （取反）And （与） 运算结果为布尔型（ Boolean ） True 逻辑运算符的优先级为： 日期运算符与日期表达式 日期表达式是用日期运算符“ +”或“- ”将算式表达式、日期型常量、 日期型变量、日期函数等连接起来的式子， 如表达式“ #2003/09/01# +30” 的运算结果是“ 2003-10-1 ”；表达式“ #2003/10/20# - #2003/10/10# ” false 的有 ( 、Int(4.99) Or （或） ). <> len("basic") C 或 False No > And > Or
、str(2000)
的运算结果为整数 10 相关题解 单选题 1
、设a=2, b=3,在VB 中，表达式a>b Or b>3值是:() C 、 -1 D 、 1 A
、 False B 、 True 字符运算 字符串连接符为“ + “123” “123” 123 + “123” 运算符的执行顺序 在VB 中，当一个表达式中同时出现多种运算符时，运算次序由运算符 的优先级决定， 优先级高的运算符先运算，优
先级相同的从左向右进行 运算。

不同性质的运算符优先级如下。

算术运算符 > 字符串运算符 常用函数 数学函数 Abs(x) 求 x 的绝对值，例： Sqr(x) 求 x 的平方根，例： + “ 45” = & “ 45” = 45” = 168 + 45 = 168 和“ &” “12345” “12345” > 关系运算符 > 逻辑运算符 abs(-3.6) = 3.6 sqr(100) = 10 Int(x)求w x 的最大整数 例：int(3.6) = 3 int(--3.6) = --4 Rn d(x)
产生［0,1)之间的随机数(不包括 Sin(x) Cos(x) Tan(x) Atn(x) Exp(x)
Log(x) 使用三角函数时,参数应是弧度,如数学中 sin(30*3.14159/180) 字符串函数 Len(字符串)求字符串的长度，例：Len( 1) sin30 0 应写为： hello ”) = 5 Left(字符串，截取长度)截取字符串左边部分，例:Left(
“hello ” ,2)
= “he”
Mid（字符串，起始位置，截取长度），例：Mid（“ hello ”，2,2） = “ el”
其他：
Right （字符串,长度）截取字符串右边部分。

例: Right （
“hello ”,2）
lo”
String（数值，字符）生成指定长度与指定字符的字符串，例：
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(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坐标］［，丫坐标］)
MsgBox( ) 其语法格式为：
7、数学式子4ab 在VB 中的正确写法是： A 、(2*a+b)/4*a B 、(2*a+b)/(4ab) C (2*a+b)/(4*a*b)
&判断x 是否在区间［a, b ］上，在VB 中以哪个逻辑表达式是正确 的?() A 、a<x and x<=b B 、a<x<=b C 、a<x and x < b D 、a>x and x<=b 综合分析
1、向n 变量存入1个2位整数，要使此2位数十位和个位上的值分别 存入x, y 变量。

正确的算法是()。

选项：
①x=Left(n, 1) ②y=n-x*10 ③Print x:Print y ① x=Left( n, 1) ② y=Right (n, 1) ③ Print x:Print
y
©x=n/10 ②y=n-x*10 ③Print x:Print y
①x=Int(n/10) ②丫二门-x*10 ③Print x:Print y 向x 变量中输入任意一个小写字母，再将 x 变量中的小写字母转成 大写字母。

正确的算法是().
MsgBox 提示信息［，按钮］［，标题］)
相关题解 单选题
Visual Basic 中，下列() 函数是求绝对值的。

ABS(X ) B 、SQR(X C 表达式 -36 B 下列(
Date
1
、 A 、 2、 A 、
3
、 A
INT (X ) D 、GN(X) Abs(-3.6)*sqr(100)的值是(
、360 C 、36 D 、-360 ) 数据类型不是数值型。

B 、Single C 、
下列函数中，返回值是字符串的是
( Mid
下列()函数返回系统的当前时间
time()
、Instr 、Vai Double
).
D In teger
、Len
B 、date()
C 1 t 2
代数表达式2g
表达式后错误的是(
A 、g*t*t/2
B 、1/2*g*t 八2 C
2a+b
day() 、g*t 八2/2 、year()
、gt 八2/2
( )
、(2a+b)(4ab) D
x 、 B 、 C
、
程序设计的顺序结构 顺序结构：代码按照由上到下的顺序一行一行地执行。

程序执行过程中 没有分支、没有重复，这种结构称为顺序结构。

例题：交换两个变量中的数据。

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 = 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
Print x+l Print x+2 A 、2 B
、3 程序设计的分支结构 行 If 语句
行 If 是指在一行中写完的 If 语句。

其一般格式为： 格式一： If 条件 Then 语句
执行这种形式的 If 语句时，首先对条件进行判断。

若条件成立，则执 行 Then 后面的语句；若条件不成立，则执行 If 语句后继程序行的语句 格式二： If 条件 Then 语句 1 Else 语句 2 例题：输入三个不相同的数，求出其中最小数。

Private Sub Form_Click （）
选项:
①输人字母到 ①输人字母到 ①输人字母到 ①输人字母到
A 、
B 、 C
x x x
x ② a=Asc(x)-32 ③ x=chr(x)④ Print x ②a=Asc(x)+32 ③x=chr(x)④Print x ②a=Val(x) 一 32 ③x=Chr(x)④Print x ② a=Val(x)+32 ③ x=Chr(x)④ Print x
交换数据
、5
Dim a As Single, b As Single, c As Single
Dim Min As Single
a = val（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
End Sub 执行这种形式的语句时，先进行判断。

若条件成立，则执行语句1；否
则执行语句2。

块If 语句
上述If-then语句只能根据条件的真假是否执行一条语句，当Then部
分和Else 部分包含的内容较多时，则可选用“块If 语句”结构。

格式三：If 条件Then
语句块
End If
例题：当从输入一个数时，当该数大于或等于60时显示"及格" ，该数
Else
语句块 2
End If
例题：编写程序，求函数丫的值(当x < 0时，y=3x+1;当x>0时，y=4x+1)。

Private Sub Form_Click() Dim x As Single Dim y As Single
x = Val(InputBox(" 请输入变量 x")) If x <= 0 Then y = 3 * x + 1 Else
y = 4 * x + 1 End If Print "y="; y
End Sub 相关题解 单选题 1、以下是一段 Visual Basic 程序:
If I=1 Then X=X+1 Else
小于 60 时显示 " 不及格 " 。

Private Sub Command1_Click() Dim a As Single a =
Val(Text1.Text) If a >= 60 Then Label1.Caption = " Else
Label1.Caption = " End If
End Sub 格式四： If
及格" 不及格"
条件 Then 语句块 1
X=X*2
End If 它的基本结构属于( ).
A、选择结构
B、循环结构
C、顺序结构D树型结构2、下列程序段运行
后，变量Value 的值是( ) x = 20
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=l nt(n/2)) 就显示n 中值
B、①输人的数存入n变量②f=(n/2=lnt(n/2)) 就显示n 中值
C①输人的数存入D①输人的数存入2、下面是判断变量表达式应为( )
③如果 f 中的值为True
③如果 f 中的值为False
n 变量②如果n 变量②如果x 是不是能被
成立，就显示n 中值不
成立，就显示n 中值
n/2=Int(n/2)
n/2=Int(n/2)
5 整除的偶数的程序，横线上的逻辑
Private Sub commandl_Click() Dim x As lnteger
x=Val(Text1. Text) lf = 0 Then
Labell.Caption= 这个数是能被5整除的偶数Else
Labell.Caption= 这个数不是能被 5 整除的偶数End lf
选项：
(x Mod 5) = 0 And (x Mod 2 ) = 0 x Mod 10 = 0 x Mod 5 = 0
x Mod 2 = 0 如要完成 :从键盘输入一个正整数，判断是否是偶数，如是就在屏幕 n 变量②如果 n/2=Int(n/2) 成立，就显示 n 中值 n 变量②如
果 n/2=Int(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 选项： 1 2 5 提示错误，无答案 程序设计的循环结构 一、 For-Next 循环
For 循环变量一般形式是：
For 循环变量 =初值 To 终值 Step 循环变量增量 循环体 Next 循环变量
例题 1 求 s = 1+2+3+4..…+100
A 、
B 、
C 、
D 、 3、 上显示。

比较好 的算法是 ( ) 。

选项:
A 、 ①输入的数存人 就显示 n 中值
B 、 ①输入的数存人 就显示 n 中值
C 、 ①输入的数存人
D ①输入的数存人 n 变量② f=(n/2=Int(n/2)) ③如果 f 中的值为 True n 变量② f=(n/2=Int(n/2)) ③如果 f 中的值为 False A B 、 C 、 D 、
Private Sub Form_Click()
Dim i As In teger
Dim sum As In teger
sum = 0
For i = 1 To 100
sum = sum + i '
循环体
Next i
Prin t "sum="; sum
End Sub
例题2: Step循环变量增量
Private Sub Form_Click()
For j = 3 To 15 Ste p 2
Print j
Next j
End Sub
循环变量的初值、终值、循环变量增量都是数值型。

其中要重复执行的操作称为循环体，增量可正可负，如果没有设置Step，则增量的缺省值为1、
2、3、
4、
5、
1
循环变量取初值；
循环变量与终值比较，没有超过终值转3,否则循结束，接着执行循环语句的后继语句；
执行一次循环体
循环变量增加一个增量
重复步骤2~4。

以上可以看出，For-Next循环变量是一种当型循环。

说明
(a)For语句与Next语句必须成对出现，而且它们当中的“循环变
量”必须是同一个变量，如上例中均为I。

(b)当循环变量为正时，循环变量超过终值，是指循环变量的值大
于终值时；若为负，则是指循环变量的值小于终值。

二、Do－Loop 循环
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
b = r
r = a Mod b
Loop
Text3.Text = Str(b)
End Sub
P rivate Sub Comma nd2_Click()
End
End Sub
当VB 执行Do While-Loop 循环时，先判断指定的条件是否为真，若条 件为真，执行循环体，条件为假时退出循环。

格式二：Do
循环体
Loop Un til 条件
这种循环的执行过程如图所示。

进入循环体后，先执行一次循环体 A, 然后再检查条件P 是否成立。

如果不成立，就重复执行循环体 A,直到 条件P 成立退出循环体。

例题：如果我国人口每年以平均 达到或超过15亿？设现在人口为12.3亿。

Private Sub Form_Click()
Dim p As Si ngle
Dim r As Si ngle
Dim n As In teger
p 二 1230000000#
r = 0.015
1.5%的速度增长，问多少年后我国人口 1 F
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中，以下程序段： x=0
Do While x<50 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
顺序结构
、s=6 i=5 4、要求计算机打印出100至200之问所有偶数的平方根值。

正确的算
法是( ) 。

选项：
A、① i=100 ②Do While i<200:Print i
B、① i=100 ②Do While i<200:Print i
C、For i=100 To 200 Step 2:Print i
，Sqr(i):Loop ，Sqr(i):i=i+1:Loop ，Sqr(i):Next i
D 、 For i=100 To 200：Print i
， Sqr(i)：Next i 5、 下列程序段中，循环体执行的次数是 ( )
y = 2
Do While y <= 8
y = y+y
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" 的执行次数是： ( ) 。

D 、 4 C
9、在VB 中，假定有以下程序段：
A 、 1
B 、 2
C 、 3
8、下列程序段中， x=0 For y=1 To 10 x=x+1
Next y
A 、 1
B 循环体执行的次数是 ( )
step -1
、0 、10 D 、 4
For i=3 To 1
D
11、 单击窗体后，文本框 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
12、 单击窗体后，文本框 Text1 、 Text2
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.text = Str(x) Text2.text = Str(n)
Print "VB"
Next i
则语句Print “VB'的执行次数是:(
A 、出错
B 、2 10、下列程序段中， x=0
For y = 1 To 10 x = x+1
Next y
A 、 1 B
C 、 1
D 、 0
循环体执行的次数是
step -1 、10 、4 中显示的内容是( 、 3 21 中显示的内容是(
End Sub A 、 27 3 B 、 3 27 C 、 20 3 D 、 3 21
13、读下面程序，单击窗体后，在文本框显示的内容是
( Private Sub Form_Click( )
Dim a( 8 ),b( 8 ) as Integer
Dim i,j As Integer
For j = 1 To 4
a( j ) = 2 * j
b( j ) = a( j ) * 3
Next j
Text1.Text = b( j / 2 )
End Sub
A 、 10
B 、 12
C 、 14
D 、 18
6．面向对象程序设计思想 相关题解 单选题
1、 在 visual Basic 中显示和编辑程序代码时，采用 ( A
工程资源管理器窗口 B 窗体设计器窗口
C 代码编辑窗口
D 属性窗口 2、 在VB 中， A 、 Text B 、 3、 在VB 中， A 、 Font B B D 要设置文本框的缺省文字，应使用属性 Name C 、Caption D 、Font 要设置窗口的
标题文本，应使用属性 :( 、 Caption C 4、用 visual
Basic 编程，我们把工具箱中的工具称为 A 、控件 B 、工
具 C 、窗体 D 、事件
5、 在VB 中，要设置某个对象属性时，应进入:( A 任意
模式 B 中断模式 C 运行模式 D
6、 能够改变复选框中背景颜色的属性是 ( )
、Name D 、Text )
.
) 设计
模式
o
D 、 Font A 、 Value B 、 FontColor C 、 BackColor 7、 对于窗体， Click( 单击)是它的一个( )
A 重要事件
B 重要属性
C 重要方法
D 8、 Visual Basic 中，设置控件的位置，可改变下列 ( )
A 、 Height 与 Top
B 、 Left 与 Top
C 、 Height 与 Width 重要对象 属性。

D 、Left 与 Width 9、在VB
中，设置控件的大小可改变( ) A 、 Height 与 Width B 、 Height 与 Top C 、 Left 与 Top D 、 Left 与 Width
(三)算法与问题解决 1、解析法 2
、穷举法
3、递归法
综合分析
1、有 5人，问第 5人年龄，说比前面第 4人小 3岁，问第 4. 3. 2 人， 都说比前面人小 3岁，问第 1人，说他的年龄为 38岁。

问第 5 人的年 龄多大。

用递归法解决此问题的正确步骤是 ( B ) 。

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

选项 ：
A 、 ①定义求阶乘的函数用j c(n)②主程序中用一个循环9次调用j c(n) 函数进行累加
B 、 用一个程序完成：每一项阶乘用一个For/Next 循环完成，整个程序 包括 9 个循环
C 、
D 、 3、 A 、 B 、 C 、
D 、 编
程题
必修 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
End Sub +10! 的值。

能完成此运算，并且比较好的算 用解析法：s=1*2+1*2*3+1*2*3*4+ …+ 1*2*3*4*5*6*7*8*9*10
不必定义函数，只要用一个单重循环就能完成
要求打印 100 至 200 之间所有偶数的平方根( C )
① i = 100 ② Do While i < 200：Print i,Sqr(i)：loop
① i = 100 ② Do While i < 200：Print i,Sqr(i)：i = i + 1：
loop ① For i = 100 to 200 step 2：Print i,Sqr(i) ： Next i ① For i = 100 to 200：Print i,Sqr(i)：Next i 换行
必修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 As Integer
For i = 1 To 6
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 = 10
y = 30
If x < y Then
t = x
x = y
y = t
End If
Label1.Caption = x
Label2.Caption = y
End Sub
必修5_15、完善" 判断" 按钮的click 程序，使当从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 If
End Sub 必修1_16、编写程序，求函数y 的值(当x<=0时,y=3x+1;当x>0时, y=4x+1) 程序：
Private Sub Form Click()
Dim x As Single '
Dim y As Single ' x = Val(InputBox(" If x <=0 Then
y = 3 * x + 1
Else
y = 4 * x + 1
End If Print "y=";y End Sub
必修2_16、编写程序，求y=6x-5的值。

(x 的值在程序中调用InputBox 函数，在
弹出的标准输入对话框中输入 )
程序：
Private Sub Form_Click()
Dim x As Single
Dim y As Single
x = Val(InputBox( “请输入变量 x ”))
y = 6*x - 5
Print “y=”
End Sub
及格” 不及格”
定义 x 为单精度型变量
定义 y 为单精度型变量
请输入变量 x"))
必修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=”;s
End Sub
必修4_16、完善按钮“计算7! ”的Click 事件程序，当单击命令按钮时Text1 显示7! 的值。

Private Sub Command1_Click( )
Dim a As Integer
Dim i As Integer
a = 1
For i = 1 To 7 a = a * i
Next i
Text1.Text = a
End Sub
必修5_16、请将按钮"计算1+2+……+100"的Click事件程序中的"常量"和"变量"换成
正确的常量和变量，当单击命令按钮时Text1 显示1+2+"""+100 的值。

完成所有操作后，诸按“ Ctrl+S ”保存。

Private Sub Command1_Click( )
Dim a As Integer
Dim I As Integer
a = 0
For i = 1 To 100
a = a + i
Next i
Text1.Text = a
必修4_18、编写程序，当在Textl 中输入x 的值后，单击计算按钮，求y = |3x - 5| 的值。

Private Sub Command1_Click( )
Dim x As Single
Dim y As Single
x = Text1.Text
y = Abs(3*x-5)
Text2.Text = y
End Sub
必修5_18、在打开的窗体Forml 中，在窗体中增加一个文本框Text3, 在完整按
钮中的程序，使当单击"计算"按钮时，计算b*b 一4ec的值，并在Text3 中
显示出来。

Private Sub Command1_Click( )
Dim b As Single
Dim c As Single
Dim x As Single
b = Text1.Text
c = Text2.Text
x = b * b - 4 * c
Text3.Text = x
End Sub
必修1_17、编程计算s=1-2+3-4+5- 程序：
+99-100
Private Sub Form Click()
Dim s As Integer ' 定义变量s 为整型变量Dim i As Integer ' 定义循环变量s = 0
For i=1 To 100
if int(i/2) <> i/2 Then s = s + i
Else s = s - i
End Next i Print "s=";s End Sub
必修2_17、编写程序，求1+2+…+n>=500中最小的n 程序：
Private Sub Form_Click( )
Dim s As Integer
Dim n As Integer
s = 0
n = 0
Do
n = n + 1
s = s + n
Loop Until s > 500
Print “n=”;n
End Sub
必修3_17、编程计算s = 1*2+2*3+3*4+……+n*(n+1)的值，其中n =10 Private Sub Form_Click()
Dim s As Single
Dim i As Integer
s = 0
For i = 1 To 10
s = s + i * (i +1);
Next i
Print “s=”;s
End Sub
必修 1_18、编程求:鸡和兔在一个笼里，共有腿 100条，头 40个，问鸡 有几只，兔有几只 ?
程序： Private Sub Form Click() Dim Ji As Integer ' Dim Tu As Integer ' Dim Leg As Integer ' Dim Head As Integer ' For Ji=1 To 50
For Tu=1 To 25 Leg = Ji*2 + Tu*4 ' Head= Ji + Tu '
必修 2_18、编写递归函数求 5! 的值。

Public Function s(n As Integer) As Long If n = 1 Then
s = 1
Else
s=n * s(n-1)
End If
End Function
Private Sub Form_Click()
Print “s(5)= ”;s(5) End Sub
鸡
兔
腿数 头数 计算腿 计算头 If Leg = 100 And Head = 40 Then Print"
鸡二";Ji;" 只","兔=";Tu;"只”
End If
Next Tu
Next Ji
End Sub
必修3_18、编写递归函数求10! 的值。

Public Function s(n As Integer) As Long If n = 1 Then
s = 1
Else
s=n * s(n-1)
End If
End Function
Private Sub Form_Click()
Print “s(10)= ”;s(10)
End Sub。