编程.docx
《编程.docx》由会员分享，可在线阅读，更多相关《编程.docx（21页珍藏版）》请在冰点文库上搜索。
编程
编程
第一部分：
基础知识
1.什么是算法？
对解决问题过程的精确描述就是算法（注：
不一定是计算机语言描述）
2.什么是程序设计?
将解决问题的方法和步骤，编写成计算机可以执行的程序，这一过程就是程序设计
（即算法的计算机化）
3.什么是程序?
程序，即让计算机完成任务的一系列指令。
4.程序设计的分类?
机器语言、汇编语言、高级语言
5.常见的高级语言?
BASIC、C、C++、C#、Java、PASCAL
6.常用的流程图符号?
7.VB的特点：
面向对象、事件驱动、可视化的高级语言
8.VB的基本概念：
对象:
窗体和控件的统称如：
Form、Label、TextBox等
属性:
对象所具有的性质如：
Label1.CaptionText1.text格式：
对象名.属性名
事件:
对象被动执行的操作如：
Command1_Click（）Form_Load（）格式:
对象名_事件名（）
方法:
对象被动执行的操作如：
Form1.Cls格式：
对象名.方法名
9.常见控件
（1）窗体属性：
Name（名称，缺省为Form1）、Caption（标题）
事件：
加载事件Form_Load（）、单击事件Form_Click（）
（2）标签属性：
Name（名称，缺省为Label1）、Caption（标题）
事件：
单击事件Label1_Click（）
（3）按钮属性：
Name（名称，缺省为Command1）、Caption（标题）
事件：
单击事件Command1_Click（）
（4）文本框属性：
Name（名称，缺省为Text1）、Text（文本框的内容）
事件：
单击事件Text1_Change（）
10.Vb程序设计的步骤:
v分析需求和设计算法
v设计用户界面，为对象设置属性
v编写程序代码
v调试、运行程序
v保存工程
11.基本数据类型
整型
Integer
长整型
Long
单精度实数
Single
双精度实数
Double
字符串型
String
逻辑类型
Boolean
12.什么是常量、变量？
其值可以改变的空间称为变量
其值不可改变的空间称为常量
13.常见运算符：
v算术运算+（加法）-（减法）*（乘法）/（除法）\（整除）Mod（求余）^（幂方）
v连接运算&（先转换为字符型，再作连接运算）
v关系运算><=>=<=<>
v逻辑运算Not（逻辑非）And（逻辑与）Or（逻辑或）
v赋值运算=（a=bb的值赋给a）
14.内部函数
Val（x）将字符串转换为相应的数值
Abs（x）返回x的绝对值
Sqr（x）返回x的算术平方根
Int（x）返回不大于x的最大整数
15.Print方法
Print“x”打印字符x，并换行
Print“x”;打印字符x，不换行
Print“x=“;1+3打印x=4,换行
Print换行
PrintTab
（2）;光标放在第2列，不换行
16.注释
使用Rem或者‘
第二部分：
程序结构和典型程序
1.顺序结构（略）
2.分支结构
注意：
当语句块只有一句时，可以把它写在then后面，并省略EndIf，如以下等价：
Ifa>0then
a=1
EndIf
和
Ifa>0thena=1
3.循环结构
典型程序（界面设计略）
v输入一公元年号，判断是否为闰年
v求解Ax2+Bx+C=0（假设A<>0B<>0）
v输入3个数，输出最小的数
v利用循环实现累加求解：
s=1+3+5…+99
v利用循环实现累乘求解：
10！
v输入一个数，判断是否为质数
v打印n层直角三角形
v打印n层等腰三角形
一、单择题
1、在VB程序设计语言中，_____语句的功能是使系统产生的随机数种子真正随机化。
A：
RndB：
CircleC：
RandomizeD：
Dim
注释：
CRnd产生随机数的函数，其实产生之前要用Randomize产生随机数种子
2、下列程序运行后，变量x=______。
PrivateSubForm_click（）
Dimi,n,xAsInteger
n=5
x=1
Fori=1Ton
x=x*i
Nexti
EndSub
A：
5B：
15C：
24D：
120
注释：
D从上向下一句句运行实际计算5的阶乘
3、下列程序运行后，变量k=______。
DimkAsInteger
PrivateSubCommand1_Click（）
k=0
Fori=7To100Step7
K=k*i
Nexti
EndSub
A：
0B：
7C：
14D：
15
注释：
A累乘，但初值为0
4、在VB中，改变控件的位置，___的值在改变。
A：
Height与WidthB：
Height与LeftC：
Left与TopD：
Top与Width
注释：
CHeight与Width代表高度和宽度
5、在VB中__选项不是一个对象的属性。
A：
名字B：
大小C：
打印D：
颜色
注释：
C打印是方法
6、在VB中，建立一个文本编辑区域，可采用下列中的___。
A：
命令按钮B：
标签控件C：
文本框控件D：
定时器控件
注释：
C
7、在VB应用程序中，修改控制代码，使Command1按钮显示"Yes"，正确的设置是___。
A：
Command1.Text="Yes"B：
Command1.Caption="Yes"
C：
Command1.Name=YesD：
Command1.Caption=Yes
注释：
B
8、在VB中，s="ABCDEFGHIJK"，函数mid（s,3,4）的值是__。
A：
cdB：
cC：
CDEFD：
d
注释：
C取s中从第3个开始的连续4个字符
9、在VB中，用鼠标单击命令按钮时，将执行以下__事件的代码。
A：
KeydownB：
KeypressC：
ClickD：
Dblclick
注释：
CD是双击
10、在VB中，执行DimAAsSingle:
DimXAsString语句后，下述正确的是___。
A：
A和X都是数值型变量B：
A和X都是字符串型变量
C：
A是单精度型变量，X是字符串型变量D：
A是字符串变量，X是单精度型变量
注释：
C
11、在VB应用程序中，要隐藏窗体Form1,调用格式为___。
A：
Form1.ShowB：
Form1.HideC：
Hide.Form1D：
Show.Form
注释：
B
12、在VB中，判断变量X为偶数可以表示为___。
A：
INT（X/2）=X/2B：
INT（SQR（X/2））=X/2C：
ABS（X/2）=INT（X/2）D：
SQR（X/2）=X/2
注释：
A还可以是XMod2=0、X\2=X/2
13、在VB中，唯一能区别一个控件的属性是___。
A：
CaptionB：
ColorC：
NameD：
Index
注释：
C
14、在VB程序中，如果对象的名称为objname，而且对象有一个属性p，那么在代码中正确的引用该属性的格式是___。
A：
objname.pB：
p.objnameC：
objname（p）D：
objname*p
注释：
A
15、一元二次方程有两个根，在VB中，其中一个根的表达式写法为___。
A：
-B+SQR（B*B-4*A*C）/2*AB：
-B+SQR（B*B-4*A*C）/2/A
C：
（-B+SQR（B*B-4*A*C））/2*AD：
（-B+SQR（B*B-4*A*C））/2/A
注释：
D注意优先级
16、在VB中，如果要改变窗体的标题，需要设置窗体对象的___属性。
A：
NameB：
BackColorC：
CaptionD：
BorderStyle
注释：
C
17、在VB中，算法的三种基本结构是__。
A：
顺序结构、分支结构、循环结构B：
顺序结构、流程结构、循环结构
C：
顺序结构、分支结构、流程结构D：
流程结构、分支结构、循环结构
注释：
A
18、在VB中，流程图的判断框有1个入口___个出口。
A：
1B：
2C：
3D：
4
注释：
B
19、以下变量名中，___是不符合VisualBasic的命名规范的。
A：
Abc901B：
_mnu_Open_234C：
a_1D：
k
注释：
B由字母、数字和下划线组成，且第一个为字母
20、在VB中，下面流程图为输入A，B后，输出较大者，菱形中应填入___关系式。
A：
A>BB：
A<=BC：
A>=BD：
B=A
注释：
B注意FT标志
21、在VB中，下面关于算法的错误说法是___B。
A：
算法必须有输出B：
算法必须在计算机上用某种语言实现
C：
算法不一定有从键盘输入D：
算法必须在有限步执行后能结束
注释：
B看算法概念
22、在VB中，判断变量k大于或等于60并且小于70的条件表达式是___。
A：
k>=60和k<70B：
60<=k<70C：
k>=60ORk<70D：
k>=60ANDk<70
注释：
D要用逻辑运算符And并且
23、算法是解决问题的______。
A：
程序代码B：
方法与步骤C：
计算公式D：
最终结果
注释：
B看算法概念
24、VisualBasic中以单引号开头一行文字称为注释，它对程序的运行_______。
A：
起一定作用B：
有时候起作用
C：
不起任何作用，但是必须的D：
不起任何作用，但能增加程序的可阅读性
注释：
D注释作用
25、若要在一行书写多条语句，则各语句间的分隔符采用______。
A：
;B：
:
C：
+D：
|
注释：
B可看10题
26、要使用户单击窗体Form1时，Form1的颜色才变为绿色,代码窗口中应有如______的事件过程。
A：
PrivateSubForm1_Click（）
Form1.ForeColor="绿色"
EndSub
B：
PrivateSubForm_Click（）
Form1.BackColor=vbGreen
EndSub
C：
PrivateSubcommand1_Click（）
Form1.forecolor=vbGreen
EndSub
D：
PrivateSubForm_Load（）
Form1.BackColor="绿色"
EndSub
注释：
B
27、表达式3X-5（2COSX+Y）^2写成VisualBasic表达式正确的是_____。
A：
3*X-5（2*COS（X）+Y）^2B：
3X-5*（2*COS（X）+Y）^2
C：
3*X-5*（2COSX+Y）^2D：
3*X-5*（2*COS（X）+Y）^2
注释：
D
28、下面程序的执行后，A和B分别是______。
PrivateSubForm_click（）
DimA,B,MAsInteger
A=1:
B=15
FORM=1TO10
A=A+1:
B=0
NEXTM
PRINTA;B
EndSub
A：
1,0B：
11,0C：
10,0D：
11,15
注释：
B
29、下面程序的执行后，输出结果是_______。
PrivateSubForm_click（）
DimE,F,GAsInteger
E=3:
F=4:
G=5
E=F:
F=G:
G=E
PRINTE;F;G
Endsub
A：
345B：
453C：
454D：
455
注释：
C注意E的变化
30、在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程:
PrivateSubCommand1_Click（）
s=0
Fori=1To15
x=2*i-1
IfxMod3=0Thens=s+1
Nexti
Label1.Caption=s
EndSub
程序运行后，单击命令按钮，则标签中显示的内容是_________
A：
1B：
5C：
27D：
45
注释：
B循环几次找出规律
二、操作题
1、打开考生文件夹下的工程文件ex1.vbp，单击Command1按钮,修改其中的程序，使其能输出如下图形。
操作完后以原文件名保存在考生文件夹下。
（注明：
运行时，把红色下划线删除）
PrivateSubCommand1_Click（）
DimI,jAsInteger
ForI=1To__6____
Forj=1To__I____
Print____j；__
Nextj
Print
NextI
EndSub
2、打开考生文件夹中的工程文件ex12.vbp，完善程序。
某航空公司客户行李管理规定:
客户行李20千克及其以下,运费0.5元/千克；20千克以上,不足50千克的运费0.8元/千克；50千克及其以上运费为1元/千克，利用文本框Text1输入行李重量,单击"计算"按钮时，将计算出的客户应付金额结果在文本框text2内显示出来。
最后按原文件名保存在考生文件下。
（注明：
运行时，把红色下划线删除）
PrivateSubcommand1_Click（）
X=Val（Text1.Text）
If___x<=20_then__'第一空
Y=X*0.5
Else
__if_x<50_then__'第二空
Y=X*0.8
Else
Y=X*1
EndIf
EndIf
___PrintY___'第三空
EndSub
3、打开考生文件夹中的工程文件ex2.vbp，完善程序。
在VB提供的窗体Form1中，有两个文本框Text1、Text2，单击窗口时，将这两个文本框的值进行交换，并将结果打印在此窗体上。
操作完后以原文件名保存在考生文件夹下。
（注明：
运行时，把红色下划线删除）
PrivateSubForm_Click（）
DimA,B,CAsInteger
A=Val（Text1.Text）
B=Val（Text2.Text）
___C=A___
A=B
___B=C___
PrintA,B
Text1.Text=A
Text2.Text=B
EndSub
4、打开考生目录下的工程文件vb20.vbp，单击Command1按钮,修改其中的程序，使其能输出如下图形。
*
**
***
****
*****
******
操作完后以原文件名保存在考生文件夹下。
（注明：
运行时，把红色下划线删除）
PrivateSubCommand1_Click（）
Fori=1to_____6____
ForJ=1to______i___
Print___”*”_；___
NextJ
Print
Nexti
EndSub
5、打开考生文件夹中的工程文件ex6.vbp，完善程序。
随机产生10个大于等于0且小于100的整数，统计其中有多少个大于等于60的数,并打印在窗体上。
操作完后以原文件名保存在考生文件夹下。
（注明：
运行时，把红色下划线删除）
PrivateSubForm_Click（）
n=0
RandomizeTimer
Fori=1To10
x=___Int（Rnd*100）__
Ifx>=60Then___n=n+1__
Nexti
Print___n__
EndSub
6、打开考生文件夹下的工程文件ex7.vbp，完善程序。
在文本框text1中输入n的值，单击Command1按钮，求1*2*3*...*n的值，并在窗体上打印出来。
操作完后以原文件名保存在考生文件夹下。
（注明：
运行时，把红色下划线删除）
PrivateSubCommand1_Click（）
Dimn,kAsSingle
n=Val（Text1.Text）
k=___1__
Fori=1To___n__
k=___k*i__
Nexti
Printn;"!
=";k
EndSub
7、打开考生文件夹中的工程文件ex8.vbp，完善程序。
编一段程序，由TEXT1输入X的值，求
┎1X>0
Y=│0X=0
┖-1X<0
操作完后以原文件名保存在考生文件夹下。
（注明：
运行时，把红色下划线删除）
PrivateSubForm_Click（）
Dimx,yAsInteger
x=Val（Text1.Text）
Ifx=0Then
___y=0___
Else
Ifx<0Then
__y=-1____
Else
___y=1___
EndIf
EndIf
Print___y___
EndSub
8、打开考生文件夹中的工程文件ex11.vbp，程序中有三处错误，调试更正。
程序是求100以内偶数和S的值（s=2+4+6…+100）。
操作完后以原文件名保存在考生文件夹下。
PrivateSubForm_Click（）
DimSAsInteger
DimIAsInteger
ForI=1To100Step1
S=S*I
NextI
PrintS
EndSub
9、打开考生文件夹下的工程文件ex13.vbp，完善程序。
目前世界人口为60亿，如果以每年1.4%的速度增长，多少年后世界人口达到或超过70亿。
操作完后以原文件名保存在考生文件夹下。
（注明：
运行时，把红色下划线删除）
PrivateSubForm_Click（）
DimpAsDouble
DimrAsSingle
DimnAsInteger
p=6000000000
r=0.014
n=0
DoWhile___p<7000000000__
p=___p*1.014___
n=__n+1____
Loop
Printn;"年后";"世界人口达";p
EndSub
10、打开考生文件夹中的工程文件ex14.vbp，完善程序。
利用文本框Text1、Text2、Text3分别输入三个数，再单击Command1时，求出最小值并将结果打印在窗体上。
操作完后以原文件名保存在考生文件夹下。
（注明：
运行时，把红色下划线删除）
PrivateSubCommand1_Click（）
DimaAsDouble
DimbAsDouble
DimcAsDouble
DimminAsDouble
a=Val（Text1.Text）
b=Val（Text2.Text）
c=Val（Text3.Text）
If___amin=a
Else
min=b
EndIf
Ifcmin=___c___
EndIf
Print_min___
EndSub
11、打开考生文件夹中的工程文件ex.vbp，完善程序。
求10以内奇数积S的值（s=1*3*5…*9）。
操作完后以原文件名保存在考生文件夹下。
（注明：
运行时，把红色下划线删除）
PrivateSubForm_Click（）
DimSAsInteger
DimIAsInteger
__s=1____
fori=__1_to__9__step__2_
S=S*I
NextI
PrintS
EndSub
升级会员 