vb选修模块复习要点.doc

一、for语句
格式：
For   循环变量=初值  To  终值  Step  步长值
语句组（循环体）
Next  循环变量
例如：
For i = 10 To 1 Step -1
Print i
Next i
二、 利用循环实现　累加　累乘　计数　字窜连接功能
1累加器
格式：S=S+i (i为循环变量)
经常用于有规律的加法运算
计算s=1+3+5++7+….+99
S=0
For i=1 to 99 step 2
S=s+i
Next i
计算s=1+3+5++7+….+99
S=0
For i=1 to 50
S=s+2*i-1
Next i
计算s=1+2+3+….100
S=0
For i=1 to 100 step 1
S=S+i
Next i

2记数器．：
格式：s=s+1（数字1） 经常用于统计个数
统计1到1000之间既能被3整除又能被7整除的数的个数
s=0
For i=1 to 1000
If i mod 3=0 and i mod 7=0 then s=s+1
Next i

3、累乘计算
格式：s=s＊I (i为循环变量)
计算t=1*2*3*…*10
s=1
For i=1 to 10
s=s*i
Next I

三、 典型例题
2、100到200之间能被3整除的数的个数是
Dim I As Integer
Dim S As Integer
S = 0
For i = 100 To 200
If I Mod 3 = 0 Then
S=s+1
End If
Next i
Print "100到200之间能被3整除的数的个数是："; S
1、求5*6*…*25的积
Dim I As Integer
Dim S As Double
S = 1
For i = 5 To 25 Step 1
S = S * i
Next I
Print "求5*6*…*25的积："; S

3、计算1到100之间,所有能被3整除数的积
Dim I As Integer
Dim S As Double
S = 1
For i = 3 To 100 Step 3
s=s*i
Next
Print "计算1到100之间,所有能被3整除数的积："; S

4、10到200之间所有的奇数的和是
Dim I As Integer
Dim S As Integer
S = 0
For i = 10 To 200 Step 1
If Int(I / 2) <> I / 2 Then
s=s+i
End If
Next
Print "10到200之间所有的奇数的和是："; S
l 其中int(x)函数的含义：取不大于x的最大整数，
l 例如：int(3.8)=3 int(6.5)=6

5、3到100之间所有能被3整除的数的个数
Dim I As Integer
Dim S As Integer
S = 0
For i = 3 To 100 Step 3
s= s+1
Next
Print "3到100之间(包括3)所有能被3整除的数的个数："; S

6、从1累加到10的值是：
Dim i As Integer
Dim s As Integer
s = 0
For i = 1 To 10
S=s+i
Next i
Print "从1累加到10的值是："; s

7、2到100的所有偶数和是
Dim i As Integer
Dim s As Integer
s = 0
For i = 2 to 100 Step 2
s = s + i
Next i
Print "2到100的所有偶数和是："; s

8、1到100的所有奇数和是
Dim i As Integer
Dim s As Integer
s = 0
For i = 1 To 100 step 2
s = s + i
Next i
Print "1到100的所有奇数和是："; s

l If语句
例：
IF x>=80 then print “优良”

IF x>=y then a=x else a=y
格式一：(简单格式)
if 条件 then 语句

if 条件 then 语句1 else语句2

格式二：(分段书写)
例：IF x>=60 then
print “合格”
Else
print “不合格”
End IF

if 条件 then
语句1
else
语句2
end if

典型例题
第1题:
程序代码:
dim x as integer -----(变量定义)
x=text1 ------------（输入语句）
if x<3 then
text2=8 --------（输出语句）
else
text2=3*x
end if
在窗体"Form1.frm"的"Command1_Click"事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：编程实现求下列分段函数的值。
例：在text1文本框中输入大于0的正整数x，计算当x<3时在text2文本框中输出"8"，否则text2文本框中输出x与3的积。
测试数据
在text1文本框中输入2，text2文本框输出 8；
在text1文本框中输入5，text2文本框输出 15。
在text1文本框中输入6，text2文本框输出 18。

第2题:

程序代码：
dim a as integer
dim b as integer
a=text1
b=text2
if 24^2+a^2=b^2 then
text3=="成立"
else
text3="重试"
end if
在窗体"Form1.frm"的"Command1_Click"事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能： 求35以内与24匹配的勾股数。
例：在Text1输入小于35的正整数a、Text2输入小于35的正整数b，判断242+a2=b2。并在Text3文本框中显示判断结果，即有等式成立则在Text3文本框中输出"成立"，否则输出"重试"。
测试数据
在text1文本框中输入7，在text2文本框中输入25，text3文本框输出 "成立"；
在text1文本框中输入10，在text2文本框中输入26，text3文本框输出 "成立"；
在text1文本框中输入18，在text2文本框中输入30，text3文本框输出 "成立"；
在text1文本框中输入5，在text2文本框中输入25，text3文本框输出 "重试"。

第3题：
程序代码：
dim a as integer
dim b as integer
a=text1
b=text2
if a^2-4*a*7=0 then
text3==-b/(2*a)
else
text3="无"
end if

l 其中，一元二次方程根为：
x1=-b+sqr(b^2-4*a*c)/(2*a)
x2=-b-sqr(b^2-4*a*c)/(2*a)
在窗体"Form1.frm"的"Command1_Click"事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能： 判断一元二次方程ax2+bx+7=0有无相等实根。若有相等实根,则输出此实根,否则输出"无"。
例：在Text1输入整数a、Text2输入整数b，如果b2-4ac=0,则在Text3文本框中输出实根，否则在Text3文本框中输出"无"。
测试数据
在Text1文本框中输入7，在Text2文本框中输入14，Text3文本框输出"－1"；
在Text1文本框中输入6，在Text2文本框中输入5，Text3文本框输出"无"；
在Text1文本框中输入17，在Text2文本框中输入16，Text3文本框输出"无"；

第4题：
程序代码：
dim a as integer
dim b as integer
a=text1
b=text2
if a+b>23 and a+23>b and b+23>a then
text3=="是"
else
text3="否"
end if
在窗体"Form1.frm"的"Command1_Click"事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能： 已知三角形一条边边长为23，输入另外两条边的边长a、b，判断a、b和23能否构成一个三角形。
例：在Text1输入a、Text2输入b，如果a+b>23 、a+23>b 、b+23>a ，则在Text3文本框中输出"是"，否则在Text3文本框中输出"否"。
测试数据
在Text1文本框中输入33，在Text2文本框中输入25，Text3文本框输出"是"；
在Text1文本框中输入33，在Text2文本框中输入5，Text3文本框输出"否"；
在Text1文本框中输入17，在Text2文本框中输入16，Text3文本框输出"是"；

第5题:
程序代码：
dim a as integer
a=text1
if a mod 7=0 then
text2=="能"
else
text2="不能"
end if
在窗体"Form1.frm"的"Command1_Click"事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能： 从text1文本框中输入一个数，判断能否被7整除，并在text2文本框中输出结果"能"或"不能"。
测试数据
在text1文本框中输入14，在text2文本框中输出：能；
在text1文本框中输入8，在text2文本框中输出：不能；
在text1文本框中输入28，在text2文本框中输出：能；
第6题:请输入一个整数, 判断该数是正数还是负数
程序代码:
dim a as integer
a=text1
if a>0 then
text2=="正数"
else
if a<0 then text2="负数"
end if

第8题:
请输入2个数,求两个数中较大的数
程序代码:
dim a as integer
dim b as integer
a=text1
b=text2
if a>b then
text3=a
else
text3= b
end if

第7题:请输入一个数, 求该数的绝对值
程序代码:
dim a as integer
a=text1
if a>0 then
text2=a
else
text2= -a
end if

l 选择题知识点

1．结构化程序的三种基本结构的是: 顺序结构、选择结构（分支结构）、循环结构
2．算法的叙述：
[A] 算法是解决问题的有序步骤
[B] 描述算法的方法主要有自然语言描述、流程图法、伪代码
[C] 算法具有输入、输出、确定性、可行性、有限性等基本特征
例题:
1．为解决一个问题而采取的方法和有限步骤称为【 C 】。
[A] 程序 [B] 程序设计 [C] 算法 [D] 解题
2．下列属于结构化程序的三种基本结构的是【 A 】 。
[A] 顺序结构、循环结构、选择结构 [B] 输入结构、输出结构、模块化结构
[C] 网状结构、层次结构、关系结构 [D] 工程文件、窗体文件、可执行文件
3．下列关于算法的叙述不正确的是【 A 】。
[A] 解决一个问题的算法只有一种 [B] 算法是解决问题的有序步骤
[C] 算法具有输入、输出、确定性、可行性、有限性等基本特征
[D] 描述算法的方法主要有自然语言描述、框图法、伪代码
4．下列关于程序与软件的叙述中不正确的是【B】
[A] 程序是指用于实现一定计算任务的一组计算机指令和有关数据
[B] 程序就是软件
[C] 程序、数据与相关文档资料构成软件
[D] 软件一般都需要不断完善或升级
5、下列计算机程序设计语言中都属于高级语言一组的是 B
A.汇编语言、C B.Pascal、C
C.机器语言、Pascal D.汇编语言、Visual Basic
6 算法的三种基本控制结构是顺序结构、循环结构和 D
A.模块结构 B.情况结构 C.流程结构 D.分支结构
7 计算机程序设计语言可分为三大类：机器语言、汇编语言和【 A 】。
[A] 高级语言 [B] 翻译语言 [C] 自然语言 [D] 通用语言

一、数据类型概述
1、整数型 ：整数型是指不带小数点和指数符号的数。
按表示范围整数型分为：整型、长整型
（1）整型（Integer）： 取值范围：-32768 ~ +32767
例如：15，-345，654都是整数型, 而45678则会发生溢出错误。
（2）长整型（Long）：取值范围：-2147483648 ~ [phone]
例如：123456，45678&都是长整数型。
2、实数型（浮点数或实型数）：实数型数据是指带有小数部分的数。
注意：数12和数12.0对计算机来说是不同的，前者是整数，后者是实数
（1）单精度数(Single，类型符) ：
在计算机程序里面不能有上标下标的写法，所以乘幂采用的是一种称为科学计数法的表达方法，这里用E或者e表示10的次方(E/e大小写都可以)
比如：1.401298E-45表示1.401298的10的负45次方
（2） 双精度数（Double,类型符）
比如17.88D5，表示它是一个双精度数，表示17.88乘以10的5次方
这里用D来表示10的次方
3、 日期型（Date）
用#括起来放置日期和时间，允许用各种表示日期和时间的格式。
日期可以用“/”、“，”、“-”分隔开，可以是年、月、日，也可以是月、日、年的顺序。时间必须用“：”分隔，顺序是：时、分、秒。
例：
#09/10/2000# 或 #2000-09-12#
#08:30:00 AM#
五、 逻辑型（Boolean）
逻辑型数据只有两个可能的值： True（真） False（假）
例如： 5>3 值为 ture 5<3 值为 false
六、字符串( String)
字符串是一个字符序列，必须用双引号括起来
例如：”正确” “ture”

例题：
第1题: 算法的三种基本控制结构是顺序结构、分支结构和 B
A.流程结构 B.循环结构 C.模块结构 D.情况结构
第2题: 用流程图描述算法中，图形符号表示的功能是 B
A.开始/结束 B.条件判断 C.处理 D.输入/输出
第3题:在VB语言中，下列逻辑表达式的值为"假"的是 A
A.5 > 3 and 6 > 9 B.5 > 3 or 6 > 9
C.#1/11/2009# < #11/15/2009# D.#1/11/2009# > #11/15/2008#

l 变量名及变量定义
1、 变量名：字母开头，后面跟上字母、数字、下划线、其它符号，VB中的保留字如IF 、DIM、-、=等到不能用。
例如：
正确的变量名 ：a b ab123 ab_123
错误的变量名： 23a integer(vb的保留字，表示整型数) a-b a=b
2、 变量定义:　　DIM 变量名 AS 数据类型
例如： dim a as integer (定义变量a为整型数)

例题：
1．下列属于合法的变量名的是。 D
[A] 22ast [B] single [C] a - 1 [D] first_name
2．下列各组声明中用于正确定义变量的是。 A
[A] Dim year As Integer [B] Const year As Integer=2008
[C] Dim a As Single=3.14159 [D] Const Pi As Single=3.14159
3、在VB语言中，下列数据中合法的字符型常量是 C
A.09b B.'b09' C."09b" D.'09b'
4、在VB语言中可以作为变量名的是 A
A.a1b2c3 B.dim C.1a2b3c D.ab*cd
l 运算符：
1、 算术运算符：+ - * / \ MOD ^
2、 关系运算符：> < >= <= <>
3、 逻辑运算符：not and or
l 表达式：
用运算符将常量、变量、函数等连接起来的式子
例如：a+b 2*a-8

例题 ：
5．下列运算结果中，值最大的是。 D
[A] 5 \ 4 [B] 4 / 3 [C] 6 mod 5 [D] 5 mod 6
6．下列能正确表示“x,y,z全是偶数”的逻辑表达式是 C
[A]（x+y+z）mod 2=0 [B] x mod 2=0 or y mod 2=0 or z mod 2=0
[C] x mod 2=0 and y mod 2=0 and z mod 2=0 [D]（x+y+z）mod 2=1
7．下列运算符中优先级最低的是B
[A] + [B] Not [C] mod [D] /
8．下列能表示10<x<15 的表达式是 B
[A] 10<x<15 [B] 10<x and x<15 [C] 10<x and x>15 [D]10<x or x<15
9．数学表达式 在VB中正确的表示方法是　C
[A] a+b/2a [B] (a+b)/2*a [C] (a+b)/(2*a) [D] a+b/(2*a)
10 在VB语言中，下列表达式中合法的表达式是 A
A. B. C. D.
11 在VB语言中，下列表达式中合法的表达式是 C
A. B. C. D.

l 赋值语句：变量名=表达式，
作用：将右边的表达式的值赋值给左边的变量，=左边只能是变量名，

例题：
1．在VB语言中，下列正确的赋值语句是 C
A. 5 * J = K * 6 B. 5J= K * 6
C. J= K * 6 － 6 D. J + 6=K * 6
2．下列赋值语句中，不正确的是【24】。 A
【24】[A] x+y=5 [B] inumber = 15 [C] Label1.Caption=time [D] sLength=x+y

1、设置Label的背景颜色时，应改变Label的 C
A.Font属性 B.Name属性 C.BackColor属性 D.ForeColor属性
2、设置TextBox的内容时，应改变TextBox的 D
A.ForeColor属性 B.Font属性 C.Name属性 D.Text属性
3 设置TextBox的字体颜色时，应改变TextBox的 B
A.Text属性 B.ForeColor属性 C.Font属性 D.Name属性
4．下列 A 属性是每个控件都有的。
[A] 名称 [B] Caption [C] Font [D] Interval
5．下列控件中可用于接受用户输入文本，又可用于显示文本的是【 B 】。
【8】[A] Label [B] TextBox [C] Timer [D] CommandButton
6．下列关于For…Next语句的说法正确的是【 A 】。
[A] 循环变量、初值、终值和步长都必须为数值型 [B] Step 后的步长只能为正数
[C] 初值必须小于终值 [D] 初值必须大于终值
7．改变Label中显示的文本内容，要设置的属性是【 C 】。
【14】[A] Text [B] BackColor [C] Caption [D]NAME (名称)
8．Visual Basic规定窗体文件的扩展名是【 C 】。
【17】[A] .css [B] .vbp [C] .frm [D] .bas
9．Visual Basic规定工程文件的扩展名是【 B 】。
【18】[A] .css [B] .vbp [C] .frm [D] .bas
10．在图1 中，这3个控件名称依次是【 A 】。
【21】[A] Label、TextBox、CommandButton [B] TextBox、Label、CommandButton
[C] CommandButton、Label、TextBox [D] CommandButton、TextBox、Label
① ② ③ ④ 图2
11．在图2 中，要调试运行程序可以点击图中常用工具栏的【 C 】。
【22】[A] ① [B] ② [C] ③ [D] ④
12．在图2 中，要终止调试运行程序可以点击图中常用工具栏的【 D 】。
【23】[A] ① [B] ② [C] ③ [D] ④
13．双击窗体中的对象后，VB将显示的窗口是【 C 】。
【25】[A] 项目（工程）窗口 [B] 工具箱 [C] 代码窗口 [D] 属性窗口