大学VB程序设计资料

TEXT5

-：判断题

第1题：在“工程资源管理器”，可以实现多窗体的所有操作。对

第2题：由于Single型变量的取值范围比Long型变量大，所以Single型变量开销内存也比

Long型多。错

第3题：语句ConstA=100是将A声明为一个常量。对

第4题：块If结构中的Endif可以缺省。错

第5题：定义一个过程时，有几个形参，则在调用该过程时就必须提供几个实参。错

第6题：列表框控件Listl的最后一个表项为Listl.List(Listl.ListCount)o错

第7题：移动框架时框架内控件也跟随移动，因此框架内控件的Left和Top属性值也随之

改变错

第8题：通过设置影像框的Picture属性可改变影像框中显示的图片，若要清除图片也是通

过设置Picture属性来实现。对

第9题：在消息框(MsgBox)中，“Prompt"(消息)是必选项，最大长度为64个字符。错

第10题：在程序运行中，目录列表框将以树形展开方式显示某个盘或目录内的各个子目录

名，并用是否为打开的文件夹图标来表示选定的目录。时

—：选择题

第1题：下列选项中，属于VB程序设计的特点是_D。

A、面向过程、事件驱动

B、面向对象、顺序驱动

C、面向过程、顺序驱动

D、面向对象、事件驱动

第2题：在窗体Forml的LOAD事件过程中有语句：Form1.Print"VisualBasic".但运行时

窗体并未显示打印文字，此时需要修改窗体的_C_属性,才能使窗体启动有输出结果。

A、Autosize

B、Enabled

C^Autoredraw

D、Visible

第3题：下面哪一项不可以赋值给数值型变量？C

A、123.4

B、”123.4”

C、1.234F2

D、1.234E2

第4题：下面合法的变量名是一C_o

A、End

B、private

C、ABC_1

D、4A

第5题：由“Fori=lTo9Step-3”决定的循环结构被执行_D一次。

A、4

B、5

C、6

D、0

第6题：文本框控件的Alignment属性决定—C—。

A、是否显示多行文本

B、鼠标移至控件时，所显示的提示

C、显示文本的对•齐方式

D、文本框的显示内容

第7题：将命令按钮Command1设置为窗体的取消按钮，可修改该控件的_D_属性。

A、Enabled

B、Value

C>Default

D、、Cancel

第8题：下列_A是用来画圆、圆弧及椭圆的。

A、Circle方法

B、Pset方法

C^Line方法

D、Point属性

第9题：用户可以通过设置菜单项的一B_属性值为False来使该菜单项不可见。

A、Hide

B、Visible

C^Enabled

D、Checked

第10题：执行语句“Write#l,123;-34.56,“hey”；Date”后，相应文件内被写入_C—。

A、123,-34.56,hey,2001-08-03

B、123”J-34.56",“hey”,”2001・08・03”

C、123,-34.56Jhey”,#2001-08-03#

D、123-34.56hey2001-08-03

三：填空题

第1题：【程序说明】

以下程序执行后将产生一个6X6的转置矩阵，将二维数组中所有行和对应列的元素进行交

换。

PrivateSubForm_Click()

Dima(1To6,1To6)AsInteger

DimiAsInteger,jAsInteger

Form1.Print”原始数据”

Fori=1To6

Forj=1To6

a(i,j)=Int(Rnd*10)

Form1.Printa(i,j);

Nextj

Forml.Print

Nexti

Fori=2To6

Forj=1To-----1------

——2-一.

Nextj

Nexti

Forml.Print”转置后数据”

Fori=1To6Forj=1To6

-——3-——

NextjForml.Print

NextIEndSub

PublicSubSwap(aAsInteger,bAsInteger)

DimtempAsInteger

temp=aa=bb=tempEndSub

参考答案：I参考答案：CallSwap(a(I,j),a(j,I))或.Swapa(Lj),a(j,I)

参考答案：Printa(i,j);

第2题：【程序说明】

本程序利用1个定时器、1个文本框和2个命令按钮制作一个动态表。各控件名称取缺省值,

控件Command1.Command2标题分别为“开始”、“结束”。运行时，单击“开始”按钮后

表开始每分钟计一次时，并在文本框上显示总分钟数；单击“结束”按钮后，计时结束，在

窗体上显示出运行的时间(折算成小时、分钟，不计算秒数)。

Dimxaslong

PrivateSubForm_Load()

Timer1.Interval=60000:Timer1.Enabled=False

EndSub

PrivateSubCommand1_Click()

Cis

x=0

EndSub

PrivateSubCommand2_Click()

DimhAsInteger,mAsInteger,sAsInteger

Timer1.Enabled=False

h-―----

m=xmod60

Print”运行了“+Str(h)+”小时”+Str(m)+"分”

EndSub

PrivateSubTimerl_Timer()

Text1.text=x

EndSub

参考答案：Timer1.enabled=true参考答案：x\60参考答案：x=x+l

第3题：【程序说明】

程序运行时界面如下图，红桃、梅花、方块、黑桃的图形文件在界面设计时已经在属性窗口

中设置好，而且使用的是Image1控件数组，程序运行时，单击Image1时，Image2显示相

应的图片，同时在Picturel中用蓝色显示哪个图案被选中的文字信息。

PrivateSubImage1_Click(IndexAsInteger)

Picture1.FontSize=20

——2——=vbBlue

Picturel.Cls

Case0

Picturel.Print”红桃被选中”

Case1

Picturel.Print”草花被选中”

Case2

Picture-Print”方片被选中”

Case3

Picturel.Print”黑桃被选中”

EndSelect

EndSub

参考答案：Image2.Picture=Image1(Index).Picture

参考答案：Picture1.ForeColor参考答案：SelectCaseIndex

第4题：【程序说明】程序运行时，通过单击窗体显示“字体”对话框，并对文本框的字

体、字号和字效等进行设置。

PrivateSubForm_Click()

——1——=259

CommonDialog1.Action=——2——

Textl.FontBold=——3—

Textl.Fontltalic=CommonDialog1.Fontltalic

Textl.FontName=CommonDialog1.FontName

Text1.FontSize=CommonDialog1.FontSize

EndSub参考答案：CommonDialog1.Flags参考答案：4参考答案：CommonDialogl.FontBold

四：阅读题

第2题：请写出鼠标点击弹出菜单第三项后窗体上的显示结果。

PrivateSubForm_MouseDown(ButtonAsInteger,_

ShiftAsInteger,XAsSingle,YAsSingle)

IfButton=2ThenPopupMenumnuPopup,10EndSub

,mnuChoiceK2、3顺序为菜单项mnuPopup的F一级子菜单名

PrivateSubmnuChoice1_Click()

Label1.caption="折叠"printLabel1.captionEndSub

PrivateSubmnuChoice2_Click()

Label1.caption="展开"printLabel1.captionEndSub

PrivateSubmnuChoice3_Click()

Label1.caption="退Hl"printLabel1.caption

EndSub

A、折叠B、展开C、退出D、无显示参考答案c

第1题：请写出在文本框中输入“李小丽”并按下回车键后，窗体上显示的结果。

PrivateSubText1_Change()

PrintText1.Text;"welcome!”

EndSub

A、李小丽李welcome!

welcome!李小welcome!

李小丽welcome!

C^丽welcome!D、李小丽welcome!参考答案B、

第3题：写出程序运行时单击窗体后，在图片框上出现的结果。

PrivateSubForm_Load()

Picture1.Width=Picture1.Height

EndSub

PrivateSubForm_Click()

DimiAsSingle,xAsSingle,yAsSingle

Picture1.Scale(-100,100)-(100,-100)

Fori=0To2*3.1415926Step0.0001

x=100*Cos(i)

y=100*Sin(i)

Picture1.Line(0,0)-(x,y),RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))

Nexti

EndSub答案c

ABCD

第4题：写出程序运行时单击窗体后，al.dat文件的结果。

PrivateSubForm_Click()

Dimkasinteger,Iasinteger

Open"al.dat"ForOutputAs#1

Fork=5to1step-1

Fori=1Tok:Print#l,k;:Nexti

Print#1,

Nextk

Close#1

EndSub

A、

11111

2222

333

44

5

B、12345

C、

55555

4444

333

22

1

D、54321参考答案：C

第5题:【程序说明】

写出下列程序运行时，单击窗体，由键盘输入•个整数29后，窗体上的显示结果。

PrivateSubForm_click()

DimideeAsInteger,iAsInteger

DimiDecR(16)AsInteger

DimstrDecRAsString

idee=Val(InputBox("输入数据idec=?"))

i=0

DoWhileidee<>0

iDecR(i)=ideeMod2

idee=idee\2

i=i+1

Loop

strDecR=

i=i-1

DoWhilei>=0

strDecR=strDecR+Trim(Str(iDecR(i)))

i=i-1

Loop

PrintstrDecR

EndSub

A、11011B、10111C、10101D、11101参考答案D、

第6题：【程序说明】

写出卜列程序运行时，窗体上显示的内容。

PrivateSubForm_Click()

Constn=6

Dimxx(n)AsInteger

Form1.Cis

Fori=1Ton

xx(i)=i*i

Nexti

Callfchange(xx(),n)

Fori=1Ton

Form1.Printxx(i);

Nexti

EndSub

Subfchange(a()AsInteger,m%)

Fori=1Tom/2

t=a(i)

a(i)=a(m-i+1)

a(m-i+1)=t

Nexti

EndSub参考答案：A

A、362516941B、149162536C、654321D、123456

五：设计题

第1题：编程，求方程x2+y2=1000的所有整数解。

参考答案：

PrivateSubCommandl_Click()

Dimxasinteger,yasinteger

Forx=-34To34

Fory=-34To34

IfxA2+yA2=1000Then

Printx,y

EndIf

Nexty,x

EndSub

第2题：编写程序设计一个字幕推出程序。程序界面如下图所示，标签的字号在定时器的控

制下，每个时间间隔放大2磅并且保持标签在窗体中水平居中，当标签的字号超过72时，

定时器停止响应Timer事件。字号放大的速度山水平滚动条控制。

参考答案：

PrivateSubForm_Load()

Label1.Left=Width/2-Label1.Width/2

Label1.AutoSize=True

HScrolll.Min=1:HScrolll.Max=1000

HScroll1.SmallChange=10:HScroll1.LargeChange=100

HScroll1.Value=500:Timer1.Interval=500

EndSub

PrivateSubHScroll1_Change()

Timer1.Interval=HScroll1.Value

EndSub

PrivateSubHScrolll_Scroll()

CallHScrolll_Change

EndSub

PrivateSubTimerl_Timer()

Label1.FontSize=Label1.FontSize+2

Label1.Left=Width/2-Label1.Width/2

IfLabel1.FontSize>=72ThenTimer1.Enabled=False

EndSub

第3题：程序运行忖在文本框中输入一段英文文字，单击命令按钮后将它们保存至文件

E:\yw.txt文件中，单击窗体后，显示输入对话框，在该对话框中输入任意一个字符，并在

E:\yw.txt中查找，如果找到a,则提示a是文件中第儿个字符，否则提示a在文件中不存在。

参考答案：

PrivateSubForm_Click()DimaAsString,bAsString,cAsStringDimnAsIntegera=

InputBox("请输入一个字符")Open"e:\yw.txt"ForInputAs#1DoWhileNotEOF(1)Line

Input#1,bc=c+bLoopn=InStr(c,a)Ifn<>0ThenMsgBoxa&"是文件中第"&n&"个字

符"ElseMsgBoxa&"在文件中不存在"EndIfClose#1EndSubPrivateSub

CommandI_Click()Open"e:\yw.txt"ForOutputAs#1Print#1,Text1.TextClose#1EndSub

TEXT6

判断题

第1题：在打开某窗体时，初始化窗体中的各控件，应选用Load事件。V

第2题：不能使用VisualBasic的关键字作为变量名。对

第3题：表达式5>4>3的计算结果是True。X

第4题：若用数组作为过程的参数，则实参和形参结合是按地址传递的，定义过程时，参数

前不能使用ByVai。J

第5题：If语句中的条件表达式只能使用关系表达式或逻辑表达式。对

第6题：执行滚动条控件的Change事件不是在拖动滚动条滑块的过程中，而是在拖动过程

停止时。V

第7题：将组合框的Style属性设置为0时，组合框称为“下拉式组合框”，其选项可以从下

拉列表框的列表项中选择，也可以由用户输入。V

第8题：将图片框的Align属性设置值为2,表示图片框在窗体中居中显示。X

第9题：用户要想在程序运行时改变目录列表框的显示内容，可以通过代码来设置List属

性的值。V

第10题：如果创建的菜单的标题是一个减号则该菜单显示为一个分隔线，此菜单项

也可以识别单击事件。X

二、选择题

第1题：一个对象可以执行的动作和可被对象识别的动作分别称为_B-。

A、事件、方法

B、方法、事件

C、属性、方法

D、过程、事件

第2题：以下选项中不属于事件的是—A—。

A、EnableB、LoadC、keypressD、click

第3题：把一个数字字符串转换成相应的数值的函数是_A—。

A、VaiB>singleC>ascD>spc

第4题：下列说法不正确的是—B—。

A、变量名长度不能超过255个字符B、变量名可以包含小数点

C、变量名不能使用关键字D、变量名的第一-个字符必须是字母

5窗体通用部分的语句“OptionBase1”，决定本窗体中数组下标界_B—

A下界必须为1B缺省的下界为C下界必须为0D缺省的下界为0

第6题：下列_B—属性用来表示标签或窗体的标题。

A、TextB、CaptionC、LeftD、name

第7题：将焦点主动设置到指定的控件或窗体上，应采用_B_方法。

AB、SetFocusCD

第8题：描述以(1000,1000)为圆心、以400为半径画1/4圆弧的语句，以下正确的是_C—。

A.Circle(l000,1000),400,0,3.1415926/2

B.Circled000,1000),,400,0,3.1415926/2

C.Circle(l000,1000),400,,0,3,1415926/2

D.Circle(l000,1000),400,0,90

第9题：通用对话框可以通过对一D―属性的设定来过滤文件类型。

AActionBFilterindexCFontD、Filter

第10题：执行语句Input#1ks,a,dl后，再执行语句Printk;s;a;dl(k、s>a>dl分别是整型、

Single、字符串、Date类型,文件中相应字符为“234,-34.56,“hello”,#2001■型-03#”),输出

结果为_B_

A、234,-34.56,hello,2001-08-03

B、234-34.56hello2001-08-03

C、234,-34.56,"hello",#2001-08-03#

D、234-34.56hello#2001-08-03#

三：填空题

第1题：【程序说明】

以下程序执行后将输出100到200之间所有的素数，并统计素数的个数

PrivateSubForm_Click()

Dimi%,j%,k%,t%'t为统计素数的个数

DimbAsBoolean

Fori=100To200

b=True

j=Int(Sqr(i))

DoWhilek<=jAndb

IfiModk=OThen

——2——

EndIf

——3——

Loop

ifb=truethen

t=t+1

Form1.Printi

EndIf

Nexti

Print"t=H;t

EndSub

参考答案：2参考答案：b=False参考答案：k=k+1

第2题：【程序说明】

下列程序运行时，单击Command1(0)后，清空组合框原有内容，从外部文件中读入的数据

显示在组合框中，如图所示。单击Command1(1)后，将组合框中的各表项输出到外部文件;

单击Commandl⑵后，将组合框中文本框部分的文本添加作为组合框的表项：单击

Command1⑶后，将组合框中选中的表项删除。

PrivateSubCommandl_Click(IndexAsInteger)

SelectCaseIndex

Case0

OpenHd:\aaa.txt"ForInputAs#1

DoWhileNotEOF(l)

LineInput#1,a$

Combo1.Additema$

Loop

Close#1

Case1

Open"d:\aaa.txt"ForOutputAs#1

For1%=0To——2——

Print#1,Combo1.List(I%)

Next1%

Close#1

Case2添加

Combo1.AdditemCombo1.Text

Case3删除

EndSelect

EndSub

参考答案：Combo1.Clear参考答案：Combo1.ListCount-1

参考答案：Combo1.RemoveitemCombo1.Listindex

第3题：【程序说明】

程序运行后，鼠标多次在图片框内拖动后，绘制出多个绿色边框矩形，填充样式在“实心”、

“透明”间交替变换。

PrivateSubPicture1_MouseDown(ButtonAsInteger,_

ShiftAsInteger,XAsSingle,YAsSingle)

xO=X:yO=Y

EndSub

PrivateSubPicturel_MouseUp(ButtonAsInteger,ShiftAsInteger,__

XAsSingle,YAsSingle)

If——2——Then

Picturel.FillStyle=0

Else

Picturel.FillStyle=1

EndIf

——3——EndSub

参考答案：DimxOAsSingle,yOAsSingle或DimxO!,yO!

参考答案：Picturel.FillStyleo0或Picturel.FillStyle=l

参考答案：Picture1.Line(xO,yO)-(X,Y),RGB(0,255,0),B

第4题：【程序说明】设计一个简单的图片浏览程序。单击窗体后，显示“打开文件”对

话框，选中一个图片文件后，将其显示在图片框中。要求“打开文件”对话框只能显示bmp

文件或gif文件。

PrivateSubForm_Click()

CommonDialog1.DialogTitle="打开图片文件”

CommonDialogl.InitDir="c:\Picture”

--1--="bmp文件l*.bmplgif文件l*.gif”・

Picture1.Picture=LoadPicture(--3--)

EndSub

参考答案:CommonDialog1.Filter

参考答案：CommonDialog1.ShowOpen或CommonDialog!,Action=l

参考答案：CommonDialogl.FileName

4.、阅读题

第1题：请描述出点击checkl一次、check2两次、Option1(2)两次后，文本框textl

中文字“杭州

”的显示格式。复选框和单选框初始状态都为未选中。

PrivateSubCheckl_Click()

IfCheckl.Value=1Then

Textl.ForeColor=vbRed

Else

Textl.ForeColor=vbBlack

EndIf

EndSub

PrivateSubCheck2_Click()

IfCheck2.Value=1Then

Textl.FontBold=True

Else

Textl.FontBold=False

EndIf

EndSub

PrivateSubOptionl_Click(IndexAsInteger)

SelectCaseIndex

Case0

Text1.Alignment=0

Case1

Text1.Alignment=1

Case2

Text1.Alignment=2

EndSelect

EndSub参考答案：D

A、杭州为红色加粗的字，位于文本框中间

B、杭州为黑色加粗的字，位于文本框左侧

C、杭州为黑色不加粗的字，位于文本框中间

D、杭州为红色不加粗的字，位于文本框中间

已知窗体某主菜单上有三个子菜单项，当鼠标点击菜单第二项后请写出程序运行后的结

果。

•ml.2、3顺序为3个子菜单名

Privatesubform_load()

M1.enabled=false

M2.enabled=true

M3.enabled=false

Endsub

PrivateSubml_Click()

M1.enabled=true

M2.enabled=false

M3.enabled=false

EndSub

PrivateSubm2_Click()

M1.enabled=false

M2.enabled=false

M3.enabled=true

EndSub

PrivateSubm3_Click()

M1.enabled=false

M2.enabled=false

M3.enabled=false

EndSub参考答案：A

A、程序运行后使得第1、2菜单项不可响应，第3个菜单项可响应。

B、程序运行后使得第1、3菜单项不可响应，第2个菜单项可响应。

C、程序运行后使得第2、3菜单项不可响应，第1个菜单项可响应。

D、程序运行后使得第1、2、3菜单项都不可响应。

第3题：写出程序运行时单击窗体后，在窗体上出现的结果。

PrivateSubForm_Click()

DimiAsInteger,xAsSingle,yAsSingle

Form1.Scale(-300,-200)-(300,200)

Fori=1To100

x=300*Rnd

IfRnd<0.5Thenx=-x

y=200*Rnd

IfRnd<0.5Theny=-y

Line(0,0)-(x,y),RGB(Int(Rnd*256),Inl(Rnd*256),Int(Rnd*256))

NextiEndsub参考答案：B

AB、C

第4题：写出点击2次窗体后，文件al.txt中的内容。

Dimkasinteger

Privatesubform_load()

K=5

Endsub

PrivateSubform_click()

DimjAsInteger

k=k+1

Opennal.txtnForAppendAs#1

Forj=1Tok:Print#1J;:Nextj

Print#1,

Close#1

EndSub

123456B、67

1234567C、76

D、1234567

123456参考答案：A

第5题：【程序说明】

写出下列程序运行时，单击窗体一次输入10、37、50、55、64、20、28、19、-19、0后,

窗体上显示的内容。

PrivateSubForm_Click()

DimyAsInteger

Do

y=InputBox(My=H)

If(yMod10)+Int(y/10)=10ThenPrinty

LoopUntily=0

EndSub参考答案：D

A、375564281919B、105020C、1050200D、3755642819

第6题：【程序说明】

写出下列程序运行时，单击命令按钮后，窗体上的显示结果。

PrivateSubCmdok_Click()

DimxAsInteger,yAsInteger

x=12:y=32

CallProc(x,y)

Printx;y

EndSub

PublicSubProc(nAsInteger,ByVaimAsInteger)

n=nMod10

m=mMod10EndSub

A.232B、123C、22D、1232参考答案：A

第1题：编程，将一个三位整数倒序输出.

PrivateSubCommand1_Click()

Dimxasinteger,bwasinteger,swasinteger,gwasinteger

x=Text1.Text

bw=x\100

sw=x\10Mod10

gw=xMod10

x=gw*100+sw*10+bw

Printx

EndSub

第2题：编程，当程序启动后用绿色文字显示“绿灯”2秒钟，接着黄色文字显示“黄灯”3秒

钟，然后用红色文字显示“红灯”2秒钟。然后，再重新开始下•轮“绿灯”、“黄灯“、”红灯”

的显示。直到双击窗体停止变化。

参考答案：

DimkAsInteger

PrivateSubForm_Load()

Label1.Caplion="绿灯”

EndSub

PrivateSubTimerl_Timer()

k=k+1

SelectCasek

Case1To2

Label1.Caplion="绿灯”

Label1.ForeColor=vbGreen

Case3To5

Label1.Caption="黄灯”

Label1.ForeColor=vbYellow

Case6To7

Labell.Caption二“红灯”

Label1.ForeColor=vbRed

Ifk=7Thenk=0

EndSelect

第3题：编程实现两个文本文件的合并，要求用驱动器、目录、文件列表框选择文件I,

单击按钮1后，调用通用对话框选择文件2；单击按钮2后，比较文件1和文件2的内容是

否相同，如果不相同则用消息框提示“两个文件不一样”，相同则提示“两个文件一样”。

参考答案：

DimfnAsString

PrivateSubCommand1_Click()

CommonDialogl.Filter=,'(*.txt)l*.txtn

CommonDialogl.ShowOpen

EndSub

PrivateSubCommand2_Click()

DimsiAsString,s2asstring,flagasBoolean

OpenfnForinputAs#1

OpenCommonDialog1.FileNameForInputAs#2

Flag=true

DoWhileNotEOF(l)

LineInput#1,si

Ifnoteof(2)thenlineinput#2,s2elseflag=false:exitdo

Ifslos2thenflag=false:exitdo

Loop

Ifnoteof(2)orflag=falsethen

Msgbox"两个文件不一样”

Else

Msgbox”两个文件一样”

Endif

Close

EndSub

PrivateSubDirl_Change()

Filel.Path=Dir1.Path

EndSub

PrivateSubDrivel_Change()

Dir1.Path=Drive1.Drive

EndSub

PrivateSubFilel_Click()

IfRight(Filel.Path,1)=H\nThen

fn=File1.Path+File1.FileName

Else

fn=Filei.Path+"\"+File1.FileName

EndIf

EndSub

PrivateSubForm_Load()

File!.Pattern="*.txtu

EndSub

TEXT7

第1题：决定对象是否可见的属性是Show属性，决定对象可用性的属性是Load属性。X

第2题：表达式5>4>3的计算结果是True。X

第3题：Dim关键字可用来声明过程级变量，但不能用来声明模块级变量。X

第4题：在SelectCase情况语句中，各个分支（即Case表达式）的先后顺序无关。X

第5题：Sub过程名在过程中必须被赋值。X

6、Picture对象的AutoSize属性值为True时，表示该对象不管原来图片的大小，,律都自

动调整为控件的大小尺寸，以便能完整地显示该图片。X

7：设置窗体的FiUcolor属性使窗体的填充色为红色后，形状控件的填充色也是红色。X

8、当使用Circle方法画圆后，当前坐标在原点（0,0）。X

9、菜单编辑器中的快捷键是指无须打开菜单就可以直接由键盘输入选择菜单项的键。对

10、若要新建•个磁盘上的顺序文件，可用OUTPUT、APPEND方式打开文件。对

1、以下选项中不属于事件的是_A_。

A、Enable

B^Load

C>KeyPress

D、Click

2、要声明两个整型变量A和B,下面写法不正确的是_D_。

A、DimA%,B%

B、DimA%:DimB%

C^DimAAsInteger:DimB%

D、DimA%,DimB%

3变量的类型可以用类型声明符隐式声明，下列_A_符号是用来声明单精度浮点型的。

A、!

B、%

C、#

D、$

4、下列程序段中，错误的是_C_。A、

A.Dima(10)asinteger

fori=Ito10:a(i)=inputbox(u,,):nexti

B.n=10

Rediina(n)asinteger

fori=lton:a(i)=inputbox(<0,):nextI

CRedima(n)asinteger

n=10

fori=lton:a(i)=inputbox(44,,):nexti

D、constn=10

dima(n)asinteger

fori=lton:a(i)=inputbox(<<n):nexti

5、如果在程序中要将a定义为静态变量，且为整型数，则应使用的语句是_B_。

A、RedimaAsInteger

B、StaticaAsInteger

C^PublicaAsInteger

D^DimaAsInteger

6、设计动画时通常用定时器控件_A—属性来控制动画速度。

A、Interval

B、Timer

C、Move

D、Enabled

7、下列_C_属性用来表示各对象(控件)的位置。

A、Text

Caption

C、Left

D^Name

8、语句“Circle(10(X)[000),800,,-3.1415926/3,-3.1415926/2”绘制的是D_。

A、弧

B、椭圆

C、同心圆

D、扇形

9、输入对话框(InputBox)的返回值的类型是_A_。

A、字符串

B、浮点数

C、整数

D、长整数

10、_B_可以改变目录列表框的Path属性

A、单击某表项

B、双击某表项

C、右击某表项

D、单击某表项再按回车键

三：填空题

第1题：【程序说明】

下列程序的功能是找出被5、7除，余数为1的最小5个正整数。

PrivateSubForm_Click()

DimNcount%,n%

Ncount=——1——

n=1

Do

n=n+1

If——2——Then

Printn

Ncount=Ncount+1

EndIf

LoopUntil——3——

EndSub

参考答案：o参考答案：nMod5=1AndnMod7=1参考答案：Ncount=5

第2题：【程序说明】

本程序是•个比赛评分程序。在窗体上.有textl(0)〜textl(6)文本框数组，显示最后得

分的text2文本框和“计算得分”command1命令按钮。运行时在文本框数组中输入7个分

数，单击“计算得分”命令按钮，则最后得分显示在text2文本框中(去掉一个最高分和一

个最低分后的平均分)

PrivateSubCommandI_Click()

DimkAsInteger

DimsumAsSingle,maxAsSingle,minAsSingle

sum=Text1(0):max=Text1(0):--1--

For——2——step1

Ifmax<Textl(k)Then

max=Textl(k)

EndIf

Ifmin>Textl(k)Then

min=Textl(k)

EndIf

sum=sum+Textl(k)

Nextk

Text2.Text=(——3——)/5

EndSub

参考答案：min=Text1(0)参考答案：k=1To6

参考答案：sum-min-max或sum-max-min

第3题：【程序说明】

窗体上有两个图片框控件Picture1和Picture2,两个命令按钮command](标题为“加载”)

和command2(标题为“复制”)，程序运行时，“复制”按钮不可用，图片框控件Picture2

和Picturel大小相同，单击“加载”按钮，清除Picture2中的图片,打开通用对话框,选择

一个图形文件，在图片框控件Picturel中显示，同时“复制”按钮可用，“加载”按钮不可

用;单击“复制”按钮，将Picturel的图片复制到Picture2中,同时“加载”按钮可用，“复

制”按钮不可用。PrivateSubForm_Load()

Picture2.Width=Picture1.Width

Command2.Enabled=False

EndSub

PrivateSubcommand1_Click()

CommonDialog1.ShowOpen

Picturel.Picture=——3——

Command2.Enabled=True

Command1.Enabled=False

EndSub

PrivateSubcommand2_Click()

Picture2.Picture=Picture1.Picture

Command1.Enabled=True

Command?.Enabled=False

EndSub

参考答案：Picture2.Height=Picturel.Height

参考答案：Picture2.Picture=LoadPicture('H,)

参考答案：LoadPicture(CommonDialogl.FileName)

第4题：【程序说明】文本文件“C:\mydoc\zg.txt”包括工资、职务情况，每条记录由工号、

工资、职称组成，现对文件内容进行修改，即对不同职称的职工增加工资，规定高级职称的

增加15%,中级职称的增加10%,初级的增加5%,其他人员不加工资。

PirvateSubcmdModif_Click()

DimnumAsInteger,gzAsSingle,zcAsString'定义工号、工资、职称的变量名和类型

Open"C:\mydoc\zg.txt”ForInputAs#1

Open"C:\mydoc\lszg.txt"ForOutputAs#2

DoWhileNotEOF(1)

SelectCasezc

Case“高级”

gz=gz*1.15

Case“中级”

gz=gz*l.l

Case“初级”

gz=gz*1.05

EndSelect

Write#2,num,gz,zc

Loop

Close#1,#2

Open"C:\mydoc\lszg.txt”——2——As#1

Open"C:\mydoc\zg.txfYoroutputAs#2

DoWhileNotEOF(1)

Input#1,num,gz,zc

__3__

Loop

Close#1,#2

EndSub

参考答案:Input#1,num,gz,zc参考答案:ForInput

参考答案：Write#2,num,gz,zc

第1题：运行时，在文本框控件Txtl中输入“MYS”(无弓|号)后，顺序写出列表框

控件Listl中

的表项。PrivateSubForm_Load()

Listl.Clear:TXTl.Text=,1M

EndSub

PrivateSubTxtl_Change()

s=TXTI.Text+s

Ifs<>H"ThenListl.Additems

EndSub

A、MYS

B、

M

MY

MYSC、SD、以上答案都不对参考答案：B

第2题：已知窗体某主菜单上有2个子菜单项，程序运行后，请写出当鼠标第一次点击

菜单第二项后

结果。ml(0)、ml(l)顺序为2个子菜单名

Privatesubform_load()

Ml(O).checked=False

m1(1).Checked=False

Endsub

PrivateSubml_Click(Indexasinteger)

SelectcaseIndex

Case0

M1(index).checked=notml(index).checked

Label1.fontbold=ml(index).checked

Case1

M1(index).checked=notml(index).checked

Label1.fontitalic=ml(index).checked

Endselect

EndSub参考答案：B

A、将标签的文字设为粗体。B、将标签的文字设为斜体。C、将标签的文字设为粗斜体。

D、将标签的文字设为标准字体。

第3题

第4题：写出程序运行时单击窗体后，在窗体匕H现的结果。

PrivateSubForm_Click()

DimiAsInteger,xAsSingle,yAsSingle

Form1.Scale(-300,-200)-(300,200)

Fori=1To100

x=300*Rnd

IfRnd<0.5Thenx=-x

y=200*Rnd

IfRnd<0.5Theny=-y

Line(0,0)-(x,y),RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256)),BF

Nexti

EndSub参考答案：D

ABCD

阅读下列程序，如果文件ddd.Txt已存在并已有数据1、4,则程序运行时单击命令按钮

Command1后，写出文件中全部数据。

PrivateSubCommand1_Click()

DimIAsInteger,fnAsByte

fn=FreeFile

Open"ddd.Txt"ForOutputAs#fn

ForI=1To20

IfSqr(I)=Int(Sqr(I))ThenPrint#fn,I

NextI

Close#fn

EndSub

A>1414916B>14916C、1491614

D>16941参考答案：B

第五题【程序说明】

写出下列程序运行时，单击命令按钮后，窗体上的显示结果。

PrivateSubCmdOk_Click()

DimIAsInteger,jAsInteger

ForI=2To10

Forj=2tosqr(i)

IfImodj=0thenexitfor

Nextj

Ifj>sqr(i)thenprinti;

NextI

EndSub

A>1579B.468C>3579D、2357参考答案：D

【程序说明】

写出下列程序运行时，单击命令按钮后，窗体上的显示结果。

PrivateSubCommand1_Click()

DimiAsInteger,kAsInteger

k=2

Fori=1To3

PrintH(k);

Nexti

EndSub

FunctionH(jAsInteger)

a=0

Staticb

a=a+1

b=b+1

H=a*b+j

EndFunction

A、345B、333C、3611D、344参考答案：A

五：设计题

第1题：编程，从键盘输入一个字符串，将该字符串中的各个字符按照ASCII码从小到大

排序后组成新的字符串，再从窗体输出。例如：输入字符串为“A4ngz9"，输出字符串为

“49AZgn”。

参考答案：

PrivateSubForm_Click()

Dima()AsString

Dimxasstring,iasinteger,nasinteger,pasinteger

x=InputBox("输入一个字符串")n=Len(x)

ReDima(n)

Fori=1Tona(i)=Mid(x,i,1)Nexti

Fori=1Tonp=i

Forj=i+1Ton

Ifa(j)<a(p)Thenp=jNextj

temp=a(p):a(p)=a(i):a(i)=tempPrinta(i);

NextIEndSub

第2题：本程序实现设置闹钟并提醒。程序启动后上方的标签动态显示系统时间。单击设置

闹钟按钮后文本框可用，同时按钮变成“确定“按钮，在文本框中按“hh:mm:ss”的格式输

入设定的时间，并按确定按钮，程序会在时间到达后用消息框提醒“设置的时间到了！（提

示：使用两个定时器）

参考答案：

DimxAsDate

PrivateSubForm_Load()

Label1.Caption=TimeEndSub

PrivateSubCommand1_Click()

OnErrorGoToerr

IfCommand1.Caption="设置闹钟”Then

Text1.Visible=TrueTextl.SetFocus

Command1.Caption="确定"Else

x=Cdate(Text1.Text)Text1.Locked=TrueTimer2.Enabled=True

Command1.Enabled=FalseEndIfExitSuberr:

MsgBox”设置的时间格式不正确，请重新设置。”

Textl.Text=UMEndSub

Pr