vb程序设计期末复习题及答案

《vb程序设计》期末复习题及答案

一、填空题

1．创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________。

2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__________窗口中，把此文本框的_____________属性设置成空白。

3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___________控件；若允许用户输入文本，则应使用_____________控件。

4．窗体的常用方法有__________、___________、___________和___________。

5．要想在代码中给名为txtshow的文本框赋予文本：GOODWORK，应当编写的语句是____________________________________。

6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。

PrivateSubCmdopen____________

_____________________

EndSub

7．VisualBasic6种类型的表达式是______________、______________、______________、

________________、_________________、____________________。VisualBasic根据表达式的___________来确定表达式的类型。

8．表达式93\7Mod2^2的值是___________。

9．已知a=3，b=4，c=5，表达式a>bandNotc>aOrc>bAndc<a+b的值是_________。表达式c>aAndNotb<c的值是___________。

10．日期表达式#2/24/02#-#2/12/02#的值为___________。

11．数学表达式sin2x+写成等价的VisualBasic表达式为_________________。

12．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为___________________________。

13．事件就是在对象上所发生的事情，VisualBasic中的事件如___________、___________、______________等。一个对象响应的事件可以有_____个，用户不能建立新的事件。事件过程是指_____________________________________________。假设某一事件过程如下：

PrivateSubcmd1_Click()

="VB示例"

EndSub

则响应该过程的对象名是______________，事件名是_____________。

14．对象的方法用于__________________。当方法不需要任何参数并且也没有返回值时，调用对象的方法的格式为________________，例如，对窗体Form1使用Show方法，应写成_________________。

15．PictureBox控件可通过设置其__________属性为True使之可自动调整大小；而Image控件可通过设置其___________属性为True，使其加载的图片能自动调整大小以适应Image。

16．在VisualBasic程序中实现复制文件“c:\”到d:盘根目录下的语句为_______________________________________。

二、单项选择题

1．下列控件中没有Caption属性的是（）

A、标签B、文本框C、框架D、命令按纽

2．除框架外，能对单选按纽分组的控件是（）。

A、窗体B、标签C、图片框D、图像

3．下列符号不能作为VB中变量名的是（）。

A、ABCDEFGB、P00000C、89YWDDFD、xyz

4．下列不属于VisualBasic数据文件的是（）。

A、顺序文件B、随机文件C、二进制文件D、数据库文件

5．若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（）。

A、Text属性值为*B、Caption属性值为*

C、Password属性值为空D、PasswordChar属性值为*

6．表达式2*3^2+2*8/4+3^2的值为（）。

A、64B、31C、49D、42

7．表达式mid("abcdefg",3,2)的值是（）

A、abcB、cdC、bcdD、abcde

8．数学表达式Sin25°写成VB表达式是（）。

A、Sin25B、Sin（25）C、Sin（25°）D、Sin（25*180）

9．Sub过程与Function过程最根本的区别是（）。

A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。

B、Function过程可以有参数，Sub过程不可以。

C、两种过程参数的传递方式不同。

D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。

10．选拔身高T超过米且体重W小于公斤的人，表示该条件的布尔表达式为（）

A、T>=AndW<=B、T<=OrW>=

C、T>AndW<D、T>=OrW<

11.下列对象不能响应Click事件的是（）

A、列表框B、图片框C、窗体D、计时器

12．在VisualBasic中，按文件的访问方式不同，可以将文件分为（）

A、顺序文件、随机文件和二进制文件B、文本文件和数据文件

C、数据文件和可执行文件D、ASCⅡ文件和二进制文件

13．将通用对话框CommonDialog的类型设置成“颜色”对话框，可调用该对话框的（）方法。

A、ShowOpenB、ShowSaveC、ShowColorD、ShowFont

三、指出下列句中的错误，修改或者说明原因。

1．sum和都可以作为VB的变量名。

2．变量名的长度最长可达1024个字符。

3．下列程序运行结果：3，3

OptionExplicit

PrivateSubCommand1_Click()

Dima，bAsInteger

a=

b=

=a

=b

EndSub

4．程序可以改变定长字符串的内容和长度。

5．Variant是一种特殊的数据类型，可以包含任何种类型的数据。

6．下列程序运行结果为True

PrivateSubCommand1_Click()

a=1

b=2

c=3

=c>a+bOrb-1>c-1Andc+a>aXorb<c-2

EndSub

7．#12/31/1999#-#12/20/1999#的运算结果是#12/11/1999#

8．可以在窗体的通用部分声明静态变量。

9．使用声明语句建立一个变量后，VisualBasic会自动对数值类型的变量赋初值0，变长的字符串被初始化为一个零长度的字符串""，定长字符串用空格填充，Variant变量被初始化为Empty，布尔型的变量被初始化为False。

10．事件过程通常由事件驱动执行，而Sub过程通过过程调用执行。

11．将焦点主动设置到指定的控件或窗体上应采用SetFocus方法。

12．当图像控件（Image）的Stretch属性为True时，Image控件能自动调整自己的尺寸与显示的图片匹配。

四、读程序题，写出程序运行结果。

1．PrivateSubForm_Click()

ForI=1To9

Forj=1To30-3*I

Print"";

Nextj

Fork=1ToI

Printk;

Nextk

Fork=I-1To1Step-1

Printk;

Nextk

Print

NextI

EndSub

2．

OptionExplicit

PrivateSubCommand1_Click()

StaticSAsInteger

DimiAsInteger

S=1

Fori=1To5

S=S*i

Nexti

PrintS

EndSub

3．

ForX=5To1Step-1

ForY=1To6-X

PrintTab(Y+5);"*";

NextY

Print

NextX

4．

PrivateSubForm_Activate()

Print"aa"&"bb",-5*6,Not2<=3

Print"aa"&"bb";-5*6;Not2<=3

Print

Print"30+60",

Print30+60

？

"30+60";30+60

EndSub

5．

X=1

DoWhileX<=10

IfXMod7=0Then

Y=X+6

Else

Z=X

EndIf

X=X+2

Loop

PrintX,Y,Z

五、编程题

1．设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给出提示信息，否则计算三科平均成绩。单击退出按钮则退出。

2．设计程序。要求：从文本框Text1中接收输入的数据，当单击确定按钮（command1）时，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。

3．设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时，标签（Label1）中的文字（欢迎您！）的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结束，则退出。

4．任意输入3个数，求大小排第二的那个数，写出程序代码。

《VB》期末复习参考答案

一、填空题

1．创建应用程序界面设置属性编写代码

2．属性、text

3．LabelTextBox

4．Load方法Show方法Hide方法Unload方法

5．="GOODWORK"

6．Click()、

7．算术表达式字符串表达式关系表达式布尔表达式日期表达式对象表达式运算符

8．1

9．TrueFalse

10．12

11．Sin(x)^2+Sqr(x^2-y^2)/(2*x)

12．DimA(1To5，-2To6)AsString

13．单击双击装载多响应某个事件后所执行的程序代码cmd1Click

14．完成某种特定的功能对象名.方法名

15．AutoSizeStretch

16．FileCopy"c:\"，"d:\"

二、单项选择题

1．B2．C3．C4．D5．D6．B7．B

8．D9．D10．C11．D12．A13．C

三、指出下列句中的错误，修改或者说明原因。

1．不正确。变量名中不能包括小数点。

2．变量名的长度最长可达255个字符。

3．，4

因为a不是整型变量。

4．不正确。程序不可以改变字符的长度，这是VB规定。

5．不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是VB规定。

6．False。逻辑表达式计算结果。

7．不正确。两个日期型数据相减，其结果是一个数值型数据。

8．不正确。静态变量为局部变量，只能在过程中声明。

9．正确。

10．正确。

11．正确。

12．不正确。该属性设为Ture时，Image控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应控件的尺寸。

四、读程序题，写出程序运行结果。

1．程序运行后，单击窗体，输出结果为：

1

121

12321

1234321

123454321

12345654321

1234567654321

123456787654321

12345678987654321

2．程序运行后，单击按钮Command1，输出结果为：120。

3.

*

**

***

****

*****

4.

aabb-30False

aabb-30False

30+6090

30+6090

5.

11139

五、编程题

1．

PrivateSubCommand1_Click()

=""

=""

=""

=""

EndSub

PrivateSubCommand2_Click()

a=Trim

b=Trim

c=Trim

Ifa=""Orb=""Orc=""Then

MsgBox"成绩填写不完全！",vbCritical

Else

=(Val(a)+Val(b)+Val(c))/3

EndIf

EndSub

PrivateSubCommand3_Click()

UnloadMe

EndSub

2．

PrivateSubCommand1_Click()

x=Val

IfxMod3=2AndxMod5=3AndxMod7=4Then

Printx

Else

=0

=Len

EndIf

EndSub

3．

PrivateSubCheck1_Click()

If=1Then

？

Else

？

EndIf

EndSub

PrivateSubCheck2_Click()

If=1Then

？

Else

？

EndIf

EndSub

PrivateSubCommand1_Click()

UnloadMe

EndSub

4．

a=Val(InputBox("输入第一个数："))

b=Val(InputBox("输入第二个数："))

c=Val(InputBox("输入第三个数："))

Ifa<bThent=a:a=b:b=t

Ifa<cThent=a:a=c:c=t

Ifb<cThent=b:b=c:c=t

MsgBox("求大小排第二的数是："&b)？

VB期末考试试题A卷一、填空题1、VB程序设计的主要特点是（1）和（2）。2、在VB中，最主要的两种对象是（3）和（4）。

3、工程是构成应用程序文件的（5）。4、方法是VB提供的一种（6），用来完成一定的操作。5、浮点类型数据包括单精度型和___（7）__数据。6、事件是窗体或控件对象识别的___（8）____。7、可用窗体的___（9）_方法在窗体中显示文字。8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。12、设x＝，语句PrintFormat(x,“”)的输出结果是（15）。13、在VB中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。14、设置窗体的（19）属性，可在窗体上显示图片。15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。二、选择题1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。A、GotFocusB、LoadC、ClickD、KeyDown2、滚动条控件(如图所示)的Max属性所设置的是（2）。A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL语句Select*Formstudent中的*表示（3）。A、所有记录B、所有字段C、所有表D、都不对4、以下选项中，不属于标签的属性是（4）。A、EnabledB、CaptionC、DefaultD、Font5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5）。A、CaptionB、NameC、TextD、Label6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是（6）。A、CaptionB、NameC、TextD、Value7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的（7）。A、在标题项中输入&，然后打勾B、在索引项中打勾C、在有效项中打勾D、在复选项中打勾8、当执行以下过程时，在窗体上将显示（8）。PrivateSubCommand1_Click()Print"VB";Print"Hello!";Print"VB"EndSubA、VBHello!VBB、VBHello!VBC、VBD、VBHello!VBHello!VB9、语句Print"Theansweris:";20/4-2的结果为（9）。A、Theansweris20/4-2B、Theansweris3C、Theansweris"20/4-2"D、非法语句10、下列哪个控件是容器控件（10）。A、ImageB、PictureC、ComboBoxD、FileListBox11、若要将窗体从内存中卸载出去，其实现的方法是（11）。12、以下选项中，不是VisualBasic控件的是（12）。A.窗体B.定时器C.单选框D.命令按钮13、双击窗体中的对象后，VisualBasic将显示的窗口是（13）。A.代码窗口B．工具箱C．项目（工程）窗口D．属性窗口14、可决定窗体的左上角是否有控制菜单的属性是（14）。15、设有如下语句：Strl＝InputBox（"输人"，""，"练习"）从键盘上输人字符“示例”后，Strl的值是（15）。A．“输入”B．“”C．“练习”D．“示例”16、窗体Form1的Name属性是Frm1,它的单击事件过程名是（16）。

??A.Form1_ClickC.Frm1_ClickD.Me_Click

17、窗体的hide属性的含义是（17）。

??A.隐藏B.展现C.装入D.卸载18、若要设置定时器控件的定时时间，需设置的属性是（18）。A．EnabledB．ValueC．IntervalD．Text19、能够改变复选框中背景颜色的属性是（19）。A．ValueB．FontColorC．BackColorD．Font20、窗体能响应的事件是（20）。A．ActiveFormB．LoadC．DriveD．Change三、判断题(判断下列正确与否，正确的打√，错误的打ⅹ。)1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。2、图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图象控件。3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。4、通过改变属性窗口中的Name属性，来改变窗体的标题。5、创建VB应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3)编写代码。6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。7、已知P＝MsgBox(“Howareyou"，VbYesNo+VbQuestion，“Hello!”)，变量P是Integer数据类型。8、工程文件的扩展名是.vbg。9、VB允许设计和使用用户自己设计的控件。10、OptionButton控件没有DblCliek事件。11、同一条记录中的各数据具有相同的类型。12、使用Data控件可以直接显示数据库中的数据。13、ImageList是一个图像容器控件，可用作工具栏的图像库。14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。15、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除（真正删除）。16、如果列表框的ListConut的属性为10，则列表框最后一项的ListIndex值为10。17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。18、使用数组定义语句：DimD$（10），则数组D中各元素的值为空。19、如果在一行中输入多条语句，各语句之间用使用；分隔。20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。四、读程序题，写出程序运行结果1、PrivateSubForm_Click()StaticSUMAsIntegerI=1DoWhileI<=10SUM=SUM+II=I+1LoopPrintSUMEndSub运行程序，第一次单击窗体：第二次单击窗体：2、PrivateSubForm_Click()Print"*";Tab(6);2,Tab(15);5PrintForI=15To16PrintI;Forj=2To6Step3PrintTab(3*j);j*I;NextjPrintNextIEndSub程序运行结果：五、编程题（一）窗体中有图片框(Picture1)和计时器(Timer1)两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip（20分之一像素）。请填空：PrivateSubForm_load()（1）=loadPicture(“c:\pic\”)（2）.Interval=200EndSubPrivateSubTimer1_Timer()Staticx,yAsIntegerx=x+100y=y+100（3）EndSub（二）有一个单击按钮过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。请填空：PrivateSubCommand1_Click()DimxAsInteger,N%DimCounterAsInteger(1)TimerForN=1To50X=Rnd()*(2)If(3)=2ThenPrintxCounter=(4)(5)NextNPrintCounterEndSub《VB程序设计与应用》参考答案一、填空题12345答案可视化设计事件驱动编程窗体（form）控件集合题号678910答案特殊子程序双精度动作Print选中题号1112131415答案高度（Height）宽度(Width)中央工程1题号1617181920答案0空FalsePictureCls二、选择题12345答案CABCA题号678910答案DDABB题号1112131415答案DAAAD题号1617181920答案CACCB三、判断题12345678910答案ХХХ√Х√√√√Х11121314151617181920答案√Х√√ХХ√ХХ√四、程序阅读题：（一）（10分）1、552、110（二）、（10分）*25153075163280五、编程题（20分）（一）1、2、Timer13、x,y(二)1、Randomize2、Rnd()*41+603、xMod64、Counter＋15EndIf一、单项选择题（共10分）1．在代码中引用一个控件时，应使用控件的（B）属性。A．CaptionB．NameC．TextD．Index2．设变量x=4，y=-1，a=7，b=-8,下面表达式（A）的值为“假”。A．x+a<=b-yB．x>0ANDy<0C．a=bORx>yD．x+y>a+bANDNOT(y<b)3．表达式Int(Rnd*71)+10产生的随机整数范围是（C）。A．（10，80）B．（10，81）C．[10，80]D．[10，81]4．函数Sgn的返回值是（C）。A．-1B．0C．1D．以上都不对5．67890属于（D）类型数据。A．整型B．单精度浮点数C．货币型D．长整型6．下列变量名中正确的是（D）。A．3SB．PrintC．SelectMyNameD．Select_17．下列赋值语句（A）是有效的。A．sum=sum-sumB．x+2=x+2C．x+y=sumD．last=y/08．以下的控件或方法具有输入和输出双重功能的为（B）。A．PrintB．TextboxC．OptionbuttonD．Checkbox9．若要获得列表框中被选中的列表项的内容，可以通过访问（D）属性来实现。A．NameB．ListIndexC．ListCountD．Text10．下列代码的运行结果为（B）。PrivateSubcommand1_click()Dimm(10)Fork=1To10m(k)=11-kNextkx=5Printm(2+m(x))EndSubA．2B．3C．4D．5二、填空题（10分）1．写出整数n能同时被13和17整除的Basic表达nMod13=0AndnMod17=0式。2．代码窗口中有两个下拉列表框：左侧是(对象)列表框，右侧是过程列表框。3．写出在字符串”VisualBasic”中截取”Visual”的Basic表达式LEFT(“VisualBasic”,6)。4．函数Len(“abcdef”)的返回值是(6)。5．设a=2，b=5，c=-2，d=100，则a>b>=cANDa<b>=d的值为False。三、将下列数学表达式转换为VB表达式。（6分）1．a2+2ab+b2：a^2+2*a*b+b^22．8exln10：8*exp(x)*log(10)3．2sin(450)cos(450)：2*sin4)*cos4)6．在VB中，用户定义常量使用Const语句，声明变量使用Dim语句。1．在VB中，扩展名为.vbp的文件称为A。A)工程文件B)窗体文件C)类模块文件D)标准模块文件2．在VB集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是A。A)代码窗口B)窗体设计窗口C)属性窗口D)工程资源管理器窗口3．设有变量定义语句Dima%，则变量a的数据类型是A。A)整型B)单精度类型C)双精度类型D)字符串类型4．下列表达式中，值为False的是D。A)"AB"<"abc"B)"ABC"=UCase("abc")C)"ABCD"<"abc"D)Mid("ABCD",3,1)=Left("ABCD",3)5．函数InStr("ABCDEF","CD")的值是B。A)2B)3C)TrueD)CDEF6．下列程序运行后，单击窗体，输出结果是C。PrivateSubForm_Click()DimaAsInteger,bAsIntegera=3b=5Printa+b;a&bEndSubA)88B)3535C)835D)3587．下列程序运行后，单击窗体，输出结果是B。PrivateSubForm_Click()a=3:b=7a=a+b:b=a–b:a=a-bPrinta;bEndSubA)43B)73C)37D)1078．下面程序段所表示的数学关系式是C。 If(a<b)Then Ifd=cThenx=1Else x=2EndIfA)B)C)D)9．下列程序运行后，单击窗体，输出结果是C。PrivateSubForm_Click()s=0:k=1Dos=s+k:k=k+1LoopUntilk<=5PrintsEndSubA)15B)10C)1D)010．下列程序段的输出结果是B。Fork=4To2Step-2m=kNextkPrintm;k;A)22B)20C)21D)0011．用下面的语句定义数组，则数组中的元素个数是D个。OptionBase1DimA(-1To2，5)AsInteger A)5B)10C)15D)2012．下面程序段的输出结果是C。Dima(4)AsInteger,sAsIntegerFork=1To4a(k)=2*kNextkFork=1To4Step2s=s+a(k)Prints;NextkA)8B)20C)28D)26122013．设有如下的用户自定义类型PrivateTypeStunameAsString*10ageAsIntegerEndType则以下正确引用该类型成员的代码是B。A)="zhang"B)DimsAsStu="zhang"C)DimsAsTypeStu="zhang"D)DimsAsType="zhang"14．用“B”关键字声明的变量称为全局变量。A)PrivateB)PublicC)DimD)Static15．在窗体上放置一个文本框，程序运行后，在文本框中输入abc，但显示的却是***，可能的原因是该文本框的D属性值已经被设置为"*"。A)FontB)TextC)NameD)PasswordChar16．在VB中，Print是对象的B。A)属性B)方法C)事件D)名称17．在VB中，要判断复选框是否为选中状态，使用的属性是D。A)CaptionB)CheckedC)SelectedD)Value18．设列表框List1中共有3个列表项，如右图所示。则下列语句中，能够删除最后一个列表项的是A。A)2B)"项目C"C)List1.ListcountD)List1.ListIndex19．组合框分为下拉式组合框、简单组合框和下拉式列表框，在“属性”窗口中这三种类型是由A属性设置的。A)StyleB)FillStyleC)BackStyleD)BorderStyle20．用户单击滚动条的空白处（滑块与两端滚动箭头之间的区域）时，Value属性所增加或减少的值，是由D属性决定的。A)MinB)MaxC)SmallChangeD)LargeChange21．将图片文件“”作为背景图片，装入当前窗体，正确的语句是D。A)=B)=LoadPictureC)=""D)=LoadPicture("")22．要将两个单选按钮放置在同一个框架内，使它们成为一组，正确的操作是A。A)先放置一个框架，然后在框架中放置两个单选按钮B)先放置两个单选按钮，再放置一个框架，放置框架时覆盖在单选按钮上C)先放置两个单选按钮，再放置一个框架，然后将两个单选按钮拖动到框架内D)以上三种方法都正确23．计时器控件能够响应的事件是D。A)LoadB)ClickC)ChangeD)Timer24．要使命令按钮处于无效状态，可以设置按钮的B属性值为False。A)CaptionB)EnabledC)StyleD)Visible25．如果在一个工程中有多个窗体和模块，则VB默认的启动对象是C。A)第一个标准模块B)最后一个被添加的窗体C)设计时的第一个窗体D)最后一个被添加的标准模块26．在窗体上放置一个图像框，名称为Image1。程序运行时，要保持图像框大小不变，使框中的图片能够自动适应图像框的大小，可以执行语句B。A)=TrueB)=TrueC)=FalseD)=False27．使用“菜单编辑器”建立菜单项之间的分隔线时，在菜单项的“标题”中输入的符号是A。A)减号-B)下划线_C)&D)#28．要将窗体Form1从内存中卸载，正确的语句是D。A)B)LoadForm1C)D)UnLoadForm129．在窗体上单击时，会触发鼠标事件MouseDown，其事件过程的一般格式如下：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) ……EndSub 此时，如果单击的是鼠标右键，则Button参数的值是B。A)1B)2C)3D)430．获取文件的长度（字节数），可以使用的函数是B。A)LEN()B)LOF()C)EOF()D)LOG()1．数学表达式改写为VB表达式，形式是【1】。答案sqr(3*y)/(x+y)2．在VB中，InputBox函数返回值的数据类型是【2】。答案：字符串类型或String3．语句PrintTab(5);"ABC"的功能是【3】。 答案：从第5列开始输出字符串“ABC”4．下面程序段的功能是：在文本框Text1中输入一个数值x，如果满足5<x<10，那么输出“Yes”，否则输出“No”。请填空。x=Val 答案5<xAndx<10 If【4】ThenPrint"Yes"ElsePrint"No"5．设a=1,b=2,c=3，语句Printa<bOrb<cAndc<a的输出结果是【5】。答案：True6．在窗体上放置一个标签，名称为Label1，使用语句【6】可以把标签的前景色设置为蓝色。=vbBlue或RGB(0,0,255)或QBColor(9)7．在窗体上放置一个图像框，名称为Image1，要使该图像框向下移动10个默认单位（twip），正确的语句是=【7】答案：+108．使用“菜单编辑器”建立了一个主菜单，名称为menu1。要把它作为窗体Form1的快捷菜单（也称为弹出式菜单）弹出，使用的语句是：答案：PopupmenuForm1.【8】menu19．在窗体上放置一个通用对话框控件，名称为CommonDialog1。使用该控件建立“打开”文件对话框时，要求只能显示文本文件(即扩展名为“.txt”的文件)，则正确的设置语句是CommonDialog1.【9】="文本文件(*.txt)|*.txt"。 答案：Filter10．设磁盘上已存在顺序文件“”，为了从文件中顺序读取数据而打开该文件，正确的语句是Open""For【10】As#1。答案：Input1．下列面程序运行后，单击窗体，输出结果是【1】。答案：139PrivateSubForm_Click()s=0Forn=1To3p=1Fork=1Tonp=p*kNextks=s+p Prints;NextnEndSub2．下列程序运行后，单击窗体，输出结果是【2】。答案：7PrivateSubForm_Click()m=0Fork=1To4 SelectCasekCase1,2m=m+1CaseIs>3m=m+2Case1To4m=m+3EndSelectNextkPrintmEndSub3．?在窗体上放置一个文本框，名称为Text1。下列程序运行后，单击窗体，Text1中显示的内容是【3】。答案：adePrivateSubForm_Click()=""s="aBd12Re"Fork=1ToLen(s)ch=Mid(s,k,1)Ifch>="a"Andch<="z"Then=+chEndIfNextkEndSub4．?下列程序运行后，单击窗体，输出结果是【4】。答案：1124OptionBase1PrivateSubForm_Click()x=Array(3,5,4,8,2,6,11,9,7,4)p=x(1):s=0Fork=2ToUBound(x)Ifx(k)>pThenp=x(k)s=s+pEndIfNextkPrintp;sEndSub5．?下列程序运行后，单击窗体，输出结果是【5】。答案：151PrivateSubForm_Click()Dima(1To3,1To3)Fori=1To3Fork=1To3Ifk=1Ori=kThena(i,k)=1Elsea(i,k)=i+kEndIfNextkNextiPrinta(1,1);a(2,3);a(3,3)EndSub6．在窗体上放置一个命令按钮，名称为Command2，并编写如下代码。PrivateSubCommand2_Click()DimmAsInteger,nAsInteger,gAsIntegerm=18:n=12:g=0Callsub1(m,n,g)Printm;n;gEndSubPublicSubsub1(ByValaAsInteger,ByValbAsInteger,cAsInteger)Ifa<bThent=a:a=b:b=tDoWhileb<>0r=aModba=bb=rLoopc=aEndSub程序运行后，单击命令按钮，则输出结果是【6】。答案：181267．在窗体上放置一个命令按钮，名称为Command3，并编写如下代码。PrivateSubCommand3_Click()DimkAsIntegerk=1Printfun1(k);Printfun1(k);Printfun1(k);EndSubFunctionfun1(aAsInteger)AsIntegerStaticcAsIntegerDimbAsIntegera=a+2:b=b+2:c=c+2fun1=a+b+cEndFunction程序运行后，单击命令按钮，则输出结果是【7】。答案：711158．在窗体上放置一个文本框，其名称为Text1，并编写如下代码。DimsAsStringPrivateSubText1_KeyPress(KeyAsciiAsInteger)s=s+Chr(KeyAscii)Prints;EndSub程序运行后，在文本框中输入abc，则窗体上输出的内容是【8】。答案：aababc1．在窗体上放置一个计时器和一个标签，计时器名称为Timer1，标签名称为Label1。下列程序的功能是：（1）在窗体加载事件中设置计时器每秒钟能够触发5次Timer事件；（2）每触发一次Timer事件能够将标签上的字号加大2，当字号超过当前窗体的宽度时，将字号恢复为8。程序中有一处错误，请更正。说明错误时可以使用每条语句前的编号。(1)PrivateSubForm_Load()(2)=5答案：200(3)=True(4)EndSub(5)PrivateSubTimer1_Timer()(6)=+2(7)If>Then(8)=8(9)EndIf(10)EndSub2．下列程序的功能是计算1+3+5+…+99的和s。程序中有一处错误。请更正。说明错误时可以使用每条语句前的编号。(1)s=0(2)k=1(3)DoWhilek<=99(4)k=k+2答案：将（4）、（5）调换顺序(5)s=s+k(6)Loop(7)Prints1．在窗体上放置一个列表框，名称为List1；放置一个文本框，名称为Text1；放置一个命令按钮，名称为Command1，Caption属性值为“统计3的倍数”。如右图所示。下列程序的功能是：在窗体的Load事件中，产生10个20~30（含20和30）之间的随机整数，并作为列表项逐个添加到列表框List1中。单击命令按钮Command1时，能够统计列表框中是3的倍数的列表项的个数，并将统计结果显示在文本框Text1中。请填空完善程序。PrivateSubForm_Load() DimxAsIntegere RandomizeFork=1To10 答案：Int(Rnd*11+20)或Rnd*10+20x=【1】 '产生一个[20,30]之间的随机整数【2】 '将x作为列表项添加到List1中Nextk 答案：x或str(x)EndSubPrivateSubCommand1_Click() DimnAsInteger'n:存放是3的倍数的列表项的个数Fork=【3】答案：0To–1或0To9IfVal(k))【4】=0Then 答案：Mod3n=n+1EndIfNextk=nEndSub2．下列程序的功能是用近似公式求自然对数的底e的值，直到最后一项小于10-4时停止计算。请填空完善程序。PrivateSubForm_Click() DimeAsSingle,nAsInteger,pAsSingle 'e:累加和p:参加求和的当前项e=1:n=1:p=1DoWhile【5】答案：p>=1e-4e=e+pn=n+1p=【6】答案：p/nLoopPrint"e的近似值=";eEndSub3．在下图所示的窗体上放置的主要控件及其主要的属性设置如下：控件类型控件名称属性属性值标签Label1Caption示例文字命令按钮Command1Caption设置单选按钮Option1Caption宋体Option2Caption隶书 下列程序的功能是单击命令按钮后，根据单选按钮的选中状态，将标签中的“示例文字”设置为相应的字体。请填空完善程序。PrivateSubCommand1_Click()DimfnAsString 'fn:存放选中的字体If【7】Then 答案：=Truefn="宋体"Elsefn="隶书"EndIf【8】=fn 答案：EndSub4．下列程序中用户自定义函数ave的功能是求一维数组中所有元素的平均值，并返回。单击窗体时，能够输入数组a的10个元素，并调用函数ave，求数组a中所有元素的平均值，并显示输出。请填空完善程序。OptionBase1PrivateSubForm_Click()Dima(10)AsSingleFori=1To10a(i)=Val(InputBox("输入一个数值"))NextiPrint"平均值=";【9】'调用函数ave答案：ave(a)EndSubPublicFunctionave(b()AsSingle)AsSingleDimsAsSingleDimnAsIntegern=UBound(b)Fork=1Tons=s+b(k)Nextk【10】答案：ave=s/nEndFunction《VB期末范围题总汇》

1．求随机10个整数的最大值、最小值、平均值以及和；

Dima(1To10)

PrivateSubCommand1_Click()

Randomize

"产生的随机数为："

Fori=1To10

a(i)=Int(Rnd*99+1)

a(i);

Nexti

EndSub

PrivateSubCommand2_Click()

Dimmax,min,ave

max=a(1)

min=a(1)

ave=*a(1)

Fori=2To10

Ifa(i)>maxThenmax=a(i)

Ifa(i)<minThenmin=a(i)

ave=ave+*a(i)

Nexti

"最大数为：";max

"最小数为：";min

"平均数为：";ave

EndSub

2.求水仙花数

PrivateSubForm_Click()

Dima,b,cAsInteger'a(个)b(十)c(百)

Fora=0To9

Forb=0To9

Forc=1To9

Ifa^3+b^3+c^3=a+10*b+100*cThen

MsgBox100*c+10*b+a

EndIf

Nextc

Nextb

Nexta

EndSub

3.百元买百鸡问题；

OptionExplicit

Consta=5,b=3,c=1

PrivateSubForm_Activate()

DimiAsInteger,jAsInteger,kAsInteger,nAsInteger

Fori=1To100

Forj=1To100

Fork=1To100

Ifi*a+j*b+k*c=100Then

n=n+1

"公鸡："&i&"母鸡："&j&"小鸡："&k

EndIf

Next:Next:Next

MsgBox"共有组合："&n

EndSub

求1000以内的所有完数

一个按钮里调用的过程

PrivateSubCommand1_Click()

OutputWanNumber1000

EndSub

4.'求完数的过程

PrivateSubForm_Click()

Dimi,jAsInteger

Fori=4To100

temp=1

Forj=2Toi/2

IfiModj=0Then

temp=temp+j

EndIf

Nextj

Iftemp=iThen

Printi

EndIf

Nexti

EndSub

5.求各位数字之和

inputa:'输入任意数

do

b=amod10:'取a的末位数

sum=sum+b:'求和

a=a\10:'去掉末位数

loopuntila=0

print"sum=";sum:'输出

end

（dimnasstring

inputn

fori=1tolen(n)

sum=sum+val(mid(n,i,1))

nexti

printsum）

6.求最小公倍数

PrivateSubForm_Load()

=True

Dimn1%,m1%,m%,n%,r%

n1=InputBox("输入n1")

m1=InputBox("输入m1")

Ifm1>n1Then'为了求最小公倍数，增加m,n变量

m=m1:n=n1

Else

m=n1:n=m1

EndIf

Do

r=mModn

Ifr=0ThenExitDo

m=n

n=r

Loop

Printn1;",";m1;"的最大公约数为";n

Print"最小公倍数=",m1*n1/n

EndSub

7.求逆序数（感觉题目类型太多）

8.级数有限项求和问题（题目类型太多）

9.求质因子问题

PrivateSubCommand1_Click()

DimNAsInteger,IAsInteger

N=Val(InputBox("请输入2的整数:"))

I=2

Do

IfNModI=0Then

PrintI;

N=N\I

Else

I=I1

EndIf

LoopWhileN1

EndSub

10.字符统计

OptionBase1

OptionExplicit

PrivateSubCommand1_Click()

Dimiasinteger，A(26)asinteger，nasinteger

DimSasstring*1,Strlasstring

Strl=Text1

n=Len(Strl)

Fori=1Ton

S=Mid(Strl,i,1)

IfUCase(S)>=”A”AndUCase(S)<=”Z”Then

A(Asc(UCase(S))-64)+1

EndIf

Nexti

Fori=1To26

Chr(64+i)&“:”&A(i)

Netxi

EndSub

PrivateSubCommand_Click()

End

EndSub

第二大题

1.判定素数过程

Functionisprime(NumAsLong)AsBoolean

IfNum<2Thenisprime=False:ExitFunction

DimiAsLong

Fori=2ToSqr(Num)

If(NumModi)=0Then

isprime=False

ExitFunction

EndIf

Nexti

isprime=True

EndFunction

PrivateSubCommand1_Click()

DimiAsLong

Fori=1To1000

Ifisprime(i)Then

Printi

EndIf

Nexti

EndSub

2.求最大公约数过程；

FunctionMax公约数(AAsLong,BAsLong)'求出两个数的最大公约数

DimXAsLong,YAsLong,KAsLong

X=IIf(A>=B,A,B)'x存入最大值

Y=IIf(A<=B,A,B)'y存入最小值

Do'辗转相除法

K=XModY:IfK=0ThenExitDo

X=Y:Y=K

Loop

Max公约数=Y

EndFunction

3.冒泡排序过程

PrivateSubCommand1_Click()

Dima(9)AsInteger

DimiAsInteger

Fori=0To9

a(i)=InputBox("输入整数")

Next

Sorta

Fori=0To9

Printa(i)

Next

EndSub

PrivateSubSort(ByRefa()AsInteger)

DimiAsInteger

DimjAsInteger

DimtAsInteger

Fori=LBound(a)+1ToUBound(a)

Forj=UBound(a)ToiStep-1

Ifa(j-1)>a(j)Then

t=a(j-1)

a(j-1)=a(j)

a(j)=t

EndIf

Next

Next

EndSub

4顺序查找过程

PrivateSubCommand1_Click()Dimi,j,t,a(1To10)RandomizePrint"原数组:"Fori=1To10a(i)=Int(Rnd*10)Print"a("&i&")="&a(i)&Space(2),IfiMod2=0ThenPrintEndIfNextiPrintFori=1To9Forj=i+1To10Ifa(j)<a(i)Thent=a(i)EndIfNextjNextiEndSub《VB期末范围题总汇》

1．求随机10个整数的最大值、最小值、平均值以及和；

Dima(1To10)

PrivateSubCommand1_Click()

Randomize

"产生的随机数为："

Fori=1To10

a(i)=Int(Rnd*99+1)

a(i);

Nexti

EndSub

PrivateSubCommand2_Click()

Dimmax,min,ave

max=a(1)

min=a(1)

ave=*a(1)

Fori=2To10

Ifa(i)>maxThenmax=a(i)

Ifa(i)<minThenmin=a(i)

ave=ave+*a(i)

Nexti

"最大数为：";max

"最小数为：";min

"平均数为：";ave

EndSub

2.求水仙花数

PrivateSubForm_Click()

Dima,b,cAsInteger'a(个)b(十)c(百)

Fora=0To9

Forb=0To9

Forc=1To9

Ifa^3+b^3+c^3=a+10*b+100*cThen

MsgBox100*c+10*b+a

EndIf

Nextc

Nextb

Nexta

EndSub

3.百元买百鸡问题；

OptionExplicit

Consta=5,b=3,c=1

PrivateSubForm_Activate()

DimiAsInteger,jAsInteger,kAsInteger,nAsInteger

Fori=1To100

Forj=1To100

Fork=1To100

Ifi*a+j*b+k*c=100Then

n=n+1

"公鸡："&i&"母鸡："&j&"小鸡："&k

EndIf

Next:Next:Next

MsgBox"共有组合："&n

EndSub

求1000以内的所有完数

一个按钮里调用的过程

PrivateSubCommand1_Click()

OutputWanNumber1000

EndSub

4.'求完数的过程

PrivateSubForm_Click()

Dimi,jAsInteger

Fori=4To100

temp=1

Forj=2Toi/2

IfiModj=0Then

temp=temp+j

EndIf

Nextj

Iftemp=iThen

Printi

EndIf

Nexti

EndSub

5.求各位数字之和

inputa:'输入任意数

do

b=amod10:'取a的