高中VB必考知识点汇总.docx
《高中VB必考知识点汇总.docx》由会员分享，可在线阅读，更多相关《高中VB必考知识点汇总.docx（14页珍藏版）》请在冰豆网上搜索。
高中VB必考知识点汇总
算法与程序设计
VB知识点
一、数据类型
Integer整型
Long长整型
Single单精度实型
Double双精度实型
String字符型
二、常量与变量
1、常量的定义
Const常量名as类型=表达式
2、变量的定义
Dim变量名as类型
三、运算符
1、算术运算符
+-*/^\mod
2、字符运算符
&+
3、关系运算符
>,>=,<,<=,<>,=
4、逻辑运算符
Andnotor
四、函数
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语句1else语句2
或者：
1、If条件then
语句
Endif
2、If条件then
语句1
Else
语句2
Endif
九、循环语句
1、for循环变量=初值to终值
循环体
Next循环变量
2、dowhile（until）条件
循环体
Loop
或者
do
循环体
Loopwhile（until）条件
第一课时
一、VB的简单介绍
VB是visualbasic的简称，是一种可视化的程序工具。
VB的界面介绍及相关控件和窗口的介绍：
1、控件工具箱（标签、文本框、按钮控件）
2、设计窗口
3、属性窗口
（强调标签的caption、font属性，文本框的text属性,按钮的caption、font属性）
4、代码窗口
二、程序的初步尝试编写
1、设计界面
2、进入代码窗口，编写如下程序：
PrivateSubCommand1_Click（）
Dima,b,casinteger
a=text1.text
b=text2.text
c=a*b
text3.text=c
[或者text3.text=text1.text*text2.text]
EndSub
3、运行程序
单击“运行”——“启动”
4、对程序进行调试，查看运行结果
5、思考：
对程序进行修改，将“*”修改为“-”或者“/”后运行程序。
若修改为“+”呢。
第二课时
一、数据类型
1、integer整型只能够表示-32768——32767之间的整数。
2、long长整型只能够表示-2147483648——2147483647之间的整数
3、single单精度实型可以用来表示小数
4、string字符型例如：
”zhongguo”,”中国”，”123456”
案例1：
求1×2×3×……×10的值。
PrivateSubCommand1_Click（）
DimiAsinteger
Dimsasinteger
s=0
i=1
Fori=1To10
s=s*i
Nexti
Prints
EndSub
案例2：
求圆的面积
PrivateSubCommand2_Click（）
ConstpiAsSingle=3.14
DimrAsSingle
DimsAsSingle
r=InputBox（"r="）
s=pi*r*r
Print"圆的面积s=";s
EndSub
二、运算符
1、算术运算符
^（乘方）、*、/、\（整除）、mod（取余）、+、-
2、关系运算符
>、>=、<、<=、=、<>
3、字符运算符
&、+
4、逻辑运算符
Not、and、or
案例：
若a=5,b=7,c=-2,d=1,求下列式子的结果
a+b>c+danda>=5ornotc>0ord<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=
x2=
的值。
X1=（-b+sqr（b^2-4*a*c））/（2*a）
X2=（-b-sqr（b^2-4*a*c））/（2*a）
PrivateSubCommand1_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）
PrintX1
PrintX2
EndSub
第三课时程序的顺序结构
一、赋值语句
赋值语句的基本格式：
变量=表达式
这里“=”是赋值符号，它的含义是将表达式的值赋给左边的变量
二、输入函数
格式：
inputbox（提示信息，标题，默认值，位置）
例如：
PrivateSubCommand1_Click（）
A=InputBox（"A=","输入",12,100,20）
EndSub
三、输出函数
格式：
print输出内容
说明：
1、如果输出的内容是数、变量、表达式，则输出的是它们的值。
如果是用引号引起来的字符串，则原样输出。
2、输出内容可以是一个或多个。
如果是多个，则输出内容之间可以用逗号或分号分隔；如果用分号，则后面一个输出紧跟前一个输出；如果是逗号，则按照分区格式输出。
3、如果输出内容后面没有符号，则表示下一个PRINT换行输出；如果Print中没有输出内容，则表示输出一个空行。
案例1：
（书本第38页）
PrivateSubCommand1_Click（）
a=Val（InputBox（"a=","输入"））
b=Val（InputBox（"b=","输入"））
Max=（a+b）/2+Abs（a-b）/2
Print"Max=";Max
EndSub
案例:
2：
已知长方体的长宽高，求长方体的全面积和体积。
PrivateSubCommand1_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
EndSub
第四课时程序的选择结构
一、条件语句的格式
1、If条件then语句
2、If条件then语句1else语句2
或者：
1、If条件then
语句
Endif
2、If条件then
语句1
Else
语句2
Endif
案例1：
比较a和b的大小，并输出最大的值。
PrivateSubCommand1_Click（）
a=inputbox（“a=”）
b=inputbox（“b=”）
ifa>bthen
print“a=”;a
else
print“b=”;b
endif
EndSub
案例2：
某商场为了对苹果进行促销，规定购买2千克以上可以在原价每千克1.5元的基础上打8折。
请设计一个程序计算购买x千克苹果的应付款。
PrivateSubCommand1_Click（）
X=inputbox（“x=”,”请输入苹果的重量”）
Ifx>2then
Y=1.5*0.8*x
Else
Y=1.5*x
Endif
Print“苹果的应付款为”;y;”元”
EndSub
第五课时程序的循环结构
循环结构的格式
1、for循环变量=初值to终值
循环体
Next循环变量
2、dowhile（until）条件
循环体
Loop
或者
do
循环体
Loopwhile（until）条件
案例1：
求1+2+3+……+100的值
PrivateSubCommand1_Click（）
DimIasinteger
Dimsasinteger
S=0
Fori=1to100
S=s+i
Nexti
Print“s=”;s
EndSub
案例2：
已知s=1+2+3+……+n,找出一个最大的整数n,使得s<30000.编写程序解决这个问题
PrivateSubCommand1_Click（）
n=0
S=0
Dowhiles<30000
n=n+1
S=s+n
Loop
Printn-1
EndSub
DO循环语句四种形式的比较
条件判断放在循环语句的开头部分
条件判断放在循环语句的结尾部分
所列条件满足时
执行循环
所列条件满足时
退出循环
所列条件满足时
执行循环
所列条件满足时
退出循环
Dowhile条件
循环体
Loop
Dountil条件
循环体
Loop
Do
循环体
Loopwhile条件
Do
循环体
Loopuntil条件
案例：
判断一个大于2的自然数M是否是素数，如果是素数，则输出“这是一个素数！
”，否则输出“这不是一个素数！
”
PrivateSubCommand1_Click（）
DimMasinteger,Iasinteger
M=Inputbox（“输入一个数：
”）
I=2
Dountil（MmodI=0）or（i=M-1）
I=I+1
Loop
IfMmodI=othen
PrintM;”不是素数”
Else
PrintM;”是素数”
Endif
Endsub
循环的嵌套
PrivateSubCommand1_Click（）
DimseAsString
PrintTab（35）;"乘法表"
ForI=1To9
Forj=1To9
se=I&"×"&j&"="&I*j
PrintTab（（j-1）*9）;se;
Nextj
NextI
EndSub
升级会员 