高中VB必考知识点汇总

算法与程序设计
VB知识点
一、数据类型
Integer 整型
Long 长整型
Single 单精度实型
Double 双精度实型
String 字符型
二、常量与变量
1、常量的定义
Const 常量名 as 类型=表达式
2、变量的定义
Dim 变量名 as 类型
三、运算符
1、算术运算符
+ - * / ^ \ mod
2、字符运算符
& +
3、关系运算符
>, >= , < , <= , <> , =
4、逻辑运算符
And not or
四、函数
1、sin(x)
2、cos(x)
3、fix(x)
4、int(x)
5、sqr(x)
6、abs(x)
五、赋值语句
格式：
变量=表达式
六、输入语句
变量=inputbox(““，““)
七、输出语句
Print 容
八、条件语句
1、If 条件 then 语句
2、If 条件 then 语句1 else 语句2 或者：
1、 If 条件 then 语句
End if
2、 If 条件 then
语句1
Else
语句2
End if
九、循环语句
1、for 循环变量=初值 to 终值
循环体
Next 循环变量
2、do while (until) 条件
循环体
Loop
或者
do
循环体
Loop while (until) 条件
第一课时
一、VB的简单介绍
VB是visual basic 的简称，是一种可视化的程序工具。

VB的界面介绍及相关控件和窗口的介绍：
1、控件工具箱（标签、文本框、按钮控件）
2、设计窗口
3、属性窗口
（强调标签的caption、font属性，文本框的text属性,按钮的caption、font 属性）
4、代码窗口
二、程序的初步尝试编写
1、设计界面
2、进入代码窗口，编写如下程序：
Private Sub Command1_Click()
Dim a,b,c as integer
a=text1.text
b=text2.text
c=a*b
text3.text=c
[或者text3.text=text1.text*text2.text]
End Sub
3、运行程序
单击“运行”——“启动”
4、对程序进行调试，查看运行结果
5、思考：对程序进行修改，将“*”修改为“-”或者“/”后运行程序。

若修改
为“+”呢。

第二课时
一、数据类型
1、integer 整型只能够表示-32768——32767之间的整数。

2、long 长整型只能够表示-2147483648——2147483647之间的整数
3、single 单精度实型可以用来表示小数
4、string 字符型例如：”zhongguo”,”中国”，”123456”
案例1：求1×2×3×……×10的值。

Private Sub Command1_Click()
Dim i As integer
Dim s as integer
s = 0
i = 1
For i = 1 To 10
s = s * i
Next i
Print s
End Sub
案例2：求圆的面积
Private Sub Command2_Click()
Const pi As Single = 3.14
Dim r As Single
Dim s As Single
r = InputBox("r=")
s = pi * r * r
Print "圆的面积s="; s
End Sub
二、运算符
1、算术运算符
^（乘方）、*、/、\(整除)、mod(取余)、+、- 2、关系运算符
>、>=、<、<=、=、<>
3、字符运算符
&、+
4、逻辑运算符
Not 、and、or
案例：若a=5,b=7,c=-2,d=1,求下列式子的结果a+b>c+d and a>=5 or not c>0 or d<0 三、函数
Sqr(x) x的平方根
Abs(x) x的绝对值
Int(x) 不大于x的最大整数
int(-4.5)结果是-5
int(4.5)结果是4
Fix(x) 取整
Fix(4.5) 结果是4
Fix(-4.5) 结果是-4
Cint(x)/clng(x) 四舍五入取整四、表达式
例题：a=1,b=3,c=2,求x1=
a ac
b b
2
4 2-
+
-,x2=
a ac
b b
2
4 2-
-
-的值。

X1=(-b+sqr(b^2-4*a*c))/(2*a)
X2=(-b-sqr(b^2-4*a*c))/(2*a)
Private Sub Command1_Click()
a = 1
b = 3
c = 2
X1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
X2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Print X1
Print X2
End Sub
第三课时程序的顺序结构
一、赋值语句
赋值语句的基本格式：
变量=表达式
这里“=”是赋值符号，它的含义是将表达式的值赋给左边的变量二、输入函数
格式： inputbox（提示信息，标题，默认值，位置）
例如：
Private Sub Command1_Click()
A = InputBox("A=", "输入", 12, 100, 20)
End Sub
三、输出函数
格式： print 输出容
说明：
1、如果输出的容是数、变量、表达式，则输出的是它们的值。

如果是用引号引起来的字符串，则原样输出。

2、输出容可以是一个或多个。

如果是多个，则输出容之间可以用逗号或分号分隔；如果用分号，则后面一个输出紧跟前一个输出；如果是逗号，则按照分区格式输出。

3、如果输出容后面没有符号，则表示下一个PRINT换行输出；如果Print中没有输出容，则表示输出一个空行。

案例1：（书本第38页）
Private Sub Command1_Click()
a = Val(InputBox("a=", "输入"))
b = Val(InputBox("b=", "输入"))
Max = (a + b) / 2 + Abs(a - b) / 2
Print "Max="; Max
End Sub
案例:2：已知长方体的长宽高，求长方体的全面积和体积。

Private Sub Command1_Click()
a = InputBox("a=")
b = InputBox("b=")
c = InputBox("c=")
s = 2 * (a * b + a * c + b * c)
v = a * b * c
Print "全面积S="; s, "体积v="; v
End Sub
第四课时程序的选择结构
一、条件语句的格式
1、If 条件 then 语句
2、If 条件 then 语句1 else 语句2
或者：
1、 If 条件 then
语句
End if
2、 If 条件 then
语句1
Else
语句2
End if
案例1：比较a 和b 的大小，并输出最大的值。

Private Sub Command1_Click()
a=inputbox(“a=”)
b=inputbox(“b=”) if a> b then
print “a=”;a
else
print “b=”;b
end if
End Sub
案例2：某商场为了对苹果进行促销，规定购买2千克以上可以在原价每千克1.5元的基础上打8折。

请设计一个程序计算购买x千克苹果的应付款。

Private Sub Command1_Click()
X=inputbox(“x=”,”请输入苹果的重量”)
If x>2 then
Y=1.5*0.8*x
Else
Y=1.5*x
End if
Print “苹果的应付款为”;y;”元”
End Sub
第五课时程序的循环结构
循环结构的格式
1、for 循环变量=初值 to 终值
循环体
Next 循环变量
2、do while (until) 条件
循环体
Loop
或者
do
循环体
Loop while (until) 条件
案例1：求1+2+3+……+100的值
Private Sub Command1_Click()
Dim I as integer
Dim s as integer
S=0
For i=1 to 100
S=s+i
Next i
Print “s=”;s
End Sub
案例2：已知s=1+2+3+……+n,找出一个最大的整数n,使得s<30000.编写程序解
决这个问题
Private Sub Command1_Click()
n=0
S=0
Do while s<30000
n=n+1
S=s+n
Loop
Print n-1
End Sub
DO循环语句四种形式的比较
案例：判断一个大于2的自然数M是否是素数，如果是素数，则输出“这是一个素数！”，否则输出“这不是一个素数！”
Private Sub Command1_Click()
Dim M as integer, I as integer
M=Inputbox(“输入一个数：”)
I=2
Do until (M mod I=0) or (i=M-1)
I=I+1
Loop
If M mod I=o then
Print M;”不是素数”
Else
Print M;”是素数”
End if
End sub
循环的嵌套Private Sub Command1_Click()
Dim se As String
Print Tab(35); "乘法表"
For I = 1 To 9
For j = 1 To 9
se = I & "×" & j & "=" & I * j
Print Tab((j - 1) * 9); se;
Next j Next I End Sub。