VB等级考试复习题.docx

VB等级考试复习题.docx

《VB等级考试复习题.docx》由会员分享，可在线阅读，更多相关《VB等级考试复习题.docx（19页珍藏版）》请在冰豆网上搜索。

VB等级考试复习题

基本概念

1.工程文件的扩展名是VBP，一个工程可以包含多个窗体，最多可以包含255个窗体。

2.窗体文件的扩展名是FRM，一个窗体对应一个窗体文件；窗体的默认名称为Form1，Form2，…，若窗体的Name属性设置为Myfrm，则保存的窗体文件名为Myfrm.frm

3.标准模块文件的扩展名是.bas。

一个VisualBasic应用程序可以含有多个标准模块文件，但是标准模块文件（.bas）不属于任何一个窗体文件。

4.Print方法在窗体上打印数据，Cls方法清除窗体上的显示内容。

End结束程序运行。

5.VB采用事件驱动的方式

6.Enabled设置控件是否可用，是否处于激活状态

7.Visible设置控件是否可见

8.Name属性设置对象的名称，在程序运行时不能改变。

Name属性是所有控件都具有的属性。

9.Caption属性设置对象的标题

10.OptionExplicit表明程序中用到的变量都必须预先声明

11.OptionBase1用来设置数组的下界从1开始，默认是从0开始

12.程序运行时，最先加载的是Load事件，Unload用来从内存中清除窗体。

13.清空文本框采用的方法是：

Text1.Text=“”；若要使文本框不接受键盘输入，但能输出信息，应设置Enabled属性为：

Text1.Enabled=False；若要使文本框能输入或显示多行文本，应设置文本框的Multiline属性为True；若要使文本框的文本不可编辑，应设置Locked属性为True。

14.若要使计时器控件不可用，应设置其Interval属性为0；若要使计时器控件每隔0.5秒触发一次计时器事件，应设置：

Timer1.Interval=500

15.可以作为启动对象的是SubMain过程或任何窗体

16.命令按钮默认的名称为Command1…等，若命令按钮的Name为C1，则其Click事件过程名为C1_Click；

17.对于InputBox函数，其返回值为字符串。

A=InputBox（“第一个”）①

B=InputBox（“第二个”）②

PrintA+B

运行时，第一个数为20，第二个数为50，则输出结果为：

2050

若将①处的代码改为：

A=Val（InputBox（"第一个"）），将②处的代码改为：

B=Val（InputBox（"第二个"）），再次输入相同的数据，则输出结果为：

70。

若添加声明DimAAsInteger,BAsInteger，再次输入相同的数据，则输出结果为：

70。

18.IIf函数的使用：

变量=IIf（条件，True部分，False部分）。

例如：

设a=5，b=3，则X=IIf（a>b,a,b），则X的值为：

5

IIf函数可以转换为If…Then…Else结构：

Ifa>bThenX=aElseX=b

19.对于Select。

。

。

Case语句的使用：

●Case2，5，8正确

●Case“a”，“b”正确

●Case10To20，50To60正确

●Case“a”To“abc”正确

●Case3，5，Is>10正确

●CaseIs<10,Is>20正确，但是CaseIs>10AndIs>20是错误的

20.对于列表框ListBox：

●ListCount：

列表框中的列表项数，ListIndex：

某个列表项的索引，从0开始，ListIndex的取值范围：

0~ListCount-1

●AddItem方法：

添加项目到列表框，RemoveItem每次只删除一个列表项，若要一次清除所有的列表项，应使用Clear方法。

●清空列表框中的所有列表项采用的方法：

List1.Clear

21.循环结构：

【例5-13】打印下面图案的源程序，

【实验4-4】输出九九乘法表（包括下三角）

22.数组：

●默认下标从0开始，所以若有定义dima（5），则数组共有6个元素；若有dimb（2,3），则数组第一个元素为b（0，0），最后一个元素为b（2，3），共有3×４=12个元素。

可以使用OptionBase1语句指定数组下标从1开始。

●引用数组元素，注意下标不能越界。

OptionBase1的作用是指定数组下标从1开始。

●使用数组处理Fibonacci数列。

1，1，2，3，5，8，13，21，34，55，89，…。

●

●【习题六13题】使用数组处理杨辉三角形（P120）。

23.过程：

●编写过程求n！

（习题七编程题第1小题，第4小题），判别n是否为素数（习题七编程题第2小题）

（1）编程打印100~200间的所有素数。

每行输出5个，判断素数用Function过程，是素数返回1，否，返回0。

PrivateSubCommand1_Click（）

k=0

Fori=100To200

f=prime（i）

Iff=1Then

k=k+1

IfkMod5=0ThenPrintiElsePrinti;

EndIf

Nexti

EndSub

PrivateFunctionprime（n）

prime=1

Fori=2Ton-1

IfnModi=0Thenprime=0:

ExitFor

Nexti

EndFunction

（2）编写Function过程计算n！

。

PrivateFunctionfact（n）

fact=1

Fori=1Ton

fact=fact*i

Nexti

EndFunction

利用求n！

的过程计算下面的和：

计算

PrivateSubCommand1_Click（）

s=0：

t=0

Fori=1To19Step3

t=t+fact（i）

s=s+1/t

Nexti

Print"s=";s

EndSub

●简单的递归过程：

（1）利用递归求累加，连乘（如n！

），

PrivateFunctionfact（n）

Ifn=1Then

fact=1

Else

fact=n*fact（n-1）

EndIf

EndFunction

（2）求Fibonacci数列【实验书笔试模拟试题1程序填空第2小题】。

24.文件：

●顺序文件的打开、读写、关闭。

LOF函数返回被打开文件的大小。

EOF函数判断被打开文件是否到了文件末尾。

●文件控件（驱动器列表框、目录列表框、文件列表框）的同步操作。

常用算法

1.累加连乘：

（1）1+2+3+…+n，其中n用InputBox函数输入。

【实验4-1】，以及引申：

1*2*3*…*n（即n！

），1+22+32+…+n2，

，

（2）【实验书笔试模拟试题2程序阅读第1题】

（3）【例5-8】计算自然对数e的近似值，

（4）计算分数序列

前20项之和。

【实验书笔试模拟试题5程序填空第一题】

（5）【例5-3】1！

+2！

+3！

+…+n！

，以及2！

+4！

+6！

+8！

，或3！

+5！

+7！

+9！

2.求最大值和最小值：

产生一定范围的随机数，存入数组，找出其最大值及其所在的位置、最小值及其所在的位置

OptionBase1

PrivateSubCommand1_Click（）

Dima（10）AsInteger

FontSize=18

Fori=1To10

a（i）=Int（Rnd*100+1）

Printa（i）;

Nexti

Print

Max=a

（1）:

Min=a

（1）

Fori=2ToUBound（a）

IfMax

Max=a（i）

Max_i=i

EndIf

IfMin>a（i）Then

Min=a（i）

Min_j=i

EndIf

Nexti

Print"最大值为：

";Max;"第"&Max_i&"个数"

Print"最小值为：

";Min;"第"&Min_j&"个数"

EndSub

3.闰年的算法：

【例4-6】P66

x=Val（InputBox（"输入年份"））

IfxMod4=0AndxMod100<>0OrxMod400=0Then

Printx&"是闰年"

EndIf

4.最大公约数和最小公倍数（P89）【例5-18】

5.判别n是否素数的两种方法：

●法一：

n=Val（InputBox（""））

Fori=2Ton-1

IfnModi=0ThenExitFor

Nexti

Ifi>n-1ThenPrint"Yes"

●法二：

n=Val（InputBox（""））

flag=True

Fori=2Ton-1

IfnModi=0Then

flag=False

ExitFor

EndIf

Nexti

Ifflag=TrueThenPrint"Yes"

6.对存放在数组中的数据进行排序：

（比较交换法【例6-9】、选择法【例6-10】、冒泡法【例6-11】）、【实验书：

笔试模拟试题2：

程序填空题第2题】、【实验书：

笔试模拟试题4：

程序填空题第3题】、【实验书：

笔试模拟试题6：

程序填空题第2题】、

●利用Rnd函数产生随机数：

产生的X范围在1~100（含1和100），X=Int（Rnd*100+1）。

一般地，若要产生区间【a，b】（含a和b）的方法是：

Int（Rnd*（b-a+1）+a）

●产生一批随机数存入数组，并在列表框显示

●对数组进行排序，排序结果在列表框显示【实验书笔试模拟试题2程序填空第2题】

●将排序结果存入文件

7.查找（顺序、折半）【例6-13】【例6-14】

8.矩阵转置【习题五编程题第5小题】、对称矩阵【实验书笔试模拟试题2程序填空第4题】

9.进制转换（十进制二进制）【实验书笔试模拟试题4程序填空第2题】【习题六编程题第10小题】

PrivateSubCommand1_Click（）

n=Val（Text1.Text）

s=""

DoWhilen<>0

s=（nMod2）&s

n=n\2

Loop

Text2.Text=s

EndSub

一些练习题

第一章VB概述练习题

1.以下叙述中错误的是_________。

（A）一个工程可以包括多种类型的文件

（B）VisualBasic应用程序既能以编译方式执行，也能以解释方式执行

（C）程序运行后，在内存中只能驻留一个窗体（错误：

内存中可以驻留多个窗体，当前窗体只能有一个。

）

（D）对于事件驱动型应用程序，每次运行时的执行顺序可以不一样

2.VisualBasic的窗体设计器主要是用来（建立用户界面）

3.VisualBasic是一种结构化高级程序设计语言，它采用的是（事件）驱动方式。

4.VisualBasic程序设计语言属于（面向对象的语言）。

5.假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。

为了保存该应用程序，以下正确的操作是。

（分别保存窗体模块、标准模块和工程文件）。

原因：

一个工程中可包含多个文件，当打开一个工程文件时会自动加载工程内所有文件。

对程序保存需分别保存工程文件及窗体文件。

参考答案为B。

第二章VB基础练习题

1.可以正确定义2个整形变量和1个字符串变量的语句的是：

Dimx%,yASInteger,zASString

2.设有如下语句：

Dima,bAsInteger则：

●a被定义为Integer类型变量（错误）

●b被定义为Integer类型变量（正确）

3.执行以下程序后输出的是（FG）。

PrivateSubCommand1_Click（）

Ch$=”AABCDEFGH”

PrintMid（Right（ch$,6）,Len（left（ch$,4））,2）

EndSub

4.设a=4,b=3,c=2,d=l，表达式a>b+1Orc

5.表达式3^2*2+3MOD10\4的值是（19）

6.以下能从字符串”VisualBasic”中直接取出子字符串”Basi”的函数是（Mid）。

7.变量名k_name（合法）、kame（不合法）、name（不合法）、k-name（不合法）

8．设s$=“BeijingChina”，则语句Mid（Text1.Text,8）的执行结果是（China）。

9.设a$="VisualBasic"，则语句PrintString（3,a$）在窗体上显示的内容是（VVV）。

10.执行语句s=Len（Mid（"VisualBasic",1,6））后，s的值是（6）。

11.设a$=“abcdef”，则语句Right（Trim（Text1.Text）,3）的执行结果是（def）。

12.设a=2，b=3，c=4，表达式Nota<=cOr4*a=b^2Andb<>a+c的值是（False）。

13.执行以下程序段后，变量c$的值为（QuickBASICProgramming）。

a$="VisualBasicProgramming"

b$="Quick"

c$=b$&UCase（Mid$（a$,7,6））&Right$（a$,12）

14．描述“X是小于100的非负整数”的VisualBasic表达式是x%<100ANDx%>=0

15．a$=LCase（"Hello"），a$的值是（hello），b$=UCase（"Hello"），b$的值是（HELLO）。

16.代数式|y|+e-3xln3x的VisualBasic表达式为（abs（y）+exp（-3*x）*log（3*x））。

17.改正表达式

（1）ts+cos（300）ts+cos（30*3.141593/180）

（2）（x+y）^（25÷s）（x+y）^（25/s）

（3）[（X1+X2）*（X1-3）-6]*7（（X1+X2）*（X1-3）-6）*7

（4）（X÷-2）+sin（1.2+π）（X/（-2））+sin（1.2+3.141593）

18、数学公式转化为VB表达式

（1）sin（a）[cos（b）+1.5]sin（a）*（cos（b）+1.5）

（2）（X1+4）5（e2-a）（X1+4）^5*（exp

（2）-a）

（3）36[（X1+π）（X1÷3.3）-B]36*（（X1+3.141593）*（X1/3.3）-B）

（4）X-2+5.8sin（3.5π）X^2+5.8*sin（3.5*3.141593）

第三章顺序结构练习题

1.设在名称为Myform的窗体上只有1个名称为C1的命令按钮,则命令按钮的Click事件过程名是（C1_Click）

2.在VisualBasic工程中，可以作为启动对象的程序是（SubMain过程或任何窗体）

3.新建一个工程将其窗体的Name属性设置为Myfrm，则默认的窗体文件名为（Myfrm.frm）。

4.将窗体的（Enabled）属性设置为False后，运行时窗体上的按钮、文本框就不会对用户的操作做出响应。

5.一个窗体对应一个窗体文件，窗体文件的扩展名为.frm，VB中的一个工程可以包括多个窗体，最多可以包含255个窗体文件。

6.当运行程序时，系统自动执行启动窗体的某个事件过程。

这个事件过程是（Load）。

7.无论何控件，都具有一个共同属性。

这个属性是（Name）。

8.Print方法可以在（窗体和图片框）对象上输出数据。

9.能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是：

Form1.Caption="VisualBasic窗体"

10.语句a=InputBox（"Today","Tomorrow","Yesterday",,,"Daybeforeyesterday",5）将显示一个对话框，在对话框的输入区中显示的信息是（Yesterday）。

11.设窗体上有一个文本框，名称为text1，程序运行后，要求该文本框不能接受键盘输入，但能输出信息，则设置正确的是：

text1.Enabled=False

12.在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则设置语句是：

Timer1.Interval=500

13.将文本框的（Multiline）属性设置为True时，文本框可以输入或显示多行文本，且会在输入的内容超出文本框的宽度时自动换行。

14.在窗体上画一个文本框，其名称为Text1。

为了在程序运行后Text1中的文本不可编辑，应当使用的语句是：

Text1.Locked=True或Text1.Enabled=False

15．编写程序，在文本框中输入英文字符，单击“大写”按钮把英文字符转换为大写，单击“小写”按钮把英文字符转换为小写。

PrivateSubCommand1_Click（）

Text1.Text=UCase$（Text1.Text）

EndSub

PrivateSubCommand2_Click（）

Text1.Text=LCase$（Text1.Text）

EndSub

第四章、第五章（要考）的goto、on…goto不要求

第六章数组练习题（自定义数据类型不要求）

1.九九乘法表

OptionBase1

Dima（9,9）AsInteger

PrivateSubForm_Click（）

FontSize=10

Print

PrintTab（26）;"乘法九九表"

Fori=1To9

Forj=1To9

a（i,j）=i*j

PrintTab（6*j）;a（i,j）;"";

Nextj

Print

Nexti

思考：

如何打印下三角形状的九九乘法表？

5.矩阵转置：

OptionBase1

Dima（3,3）AsInteger,b（3,3）AsInteger

PrivateSubForm_Click（）

FontSize=15

Print"矩阵a为：

"

Fori=1To3

Forj=1To3

a（i,j）=Int（Rnd*9+1）

PrintTab（6*j）;a（i,j）;

Nextj

Nexti

Print

Print"矩阵b为：

"

Fori=1To3

Forj=1To3

b（i,j）=a（j,i）

PrintTab（6*j）;b（i,j）;

Nextj

Nexti

EndSub

9.打印杨辉三角形

Dima（）AsInteger

PrivateSubForm_Click（）

n=Val（InputBox（"输入n值:

"））

ReDima（n,n）AsInteger

FontSize=10:

FontBold=True

Fori=1Ton

a（i,1）=1

a（i,i）=1

Nexti

Fori=2Ton

Forj=2Toi

a（i,j）=a（i-1,j-1）+a（i-1,j）

Nextj

Nexti

Print"输出杨辉三角形：

"

Fori=1Ton

Forj=1Toi

Printa（i,j）;

Nextj

Print

Nexti

EndSub

第七章过程（注意：

机电专业不要求）

第八章文件练习题

1、根据数据的存取方式和结构，文件可以分为（顺序文件和随机文件）。

2、能判断是否到达文件尾的函数是（EOF）。

3、能对顺序文件进行输出操作的语句是（write和print）。

4、目录列表框的Path属性的作用是（返回或设置当前的工作目录）。

5、文件号最大可取的值为（511）。

6、PRINT#1,STR1$中的PRINT是（文件的写语句）。

7、要在一个顺序文件的末尾增加数据，则该文件的打开方式应为（append）。

8、在VisualBasic中，用来返回用Open语句打开的文件的大小的函数是（LOF）。

9、文件操作的一般步骤是打开（或建立）文件、进行读写操作和（关闭）。

10、如果要在文件列表框中只显示后缀为rar和zip的压缩文件，则应该将文件列表框的某属性设置为"*.rar;*.zip"，这个属性是（pattern）。

11、在窗体上建立一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：

PrivateSubForm_Click（）

Open"d:

\test\smtext1.txt"ForInputAs#1

DoWhileNot①

LineInput#1,aspect$

whole$=whole$+aspect$+Chr$（13）+Chr$（10）

Loop

Text1.Text=whole$

Close#1

Open"d:

\test\dmtext2.txt"ForOutputAs#1

Print#1,②

Close#1

EndSub

上述程序的功能是：

把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt，请填空。

①：

EOF

（1）②：

Text1.Text或Text1或whole或whole$

12、以下代码建立文件名为“c:

\stud1.txt”的顺序文件，内容来自文本框，每按一次回车键写入一条记录，然后清除文本框的内容，直到文本框内输入“END”字符串。

（①：

UCase（Text1.Text）=”END”②：

Print#1,Text1.Text）

PrivateSubForm_Load（）

Open〝c:

stud1.tx