第十九套.docx

第十九套.docx

《第十九套.docx》由会员分享，可在线阅读，更多相关《第十九套.docx（13页珍藏版）》请在冰豆网上搜索。

第十九套

第十九套

一、判断题　

1：

选中文件列表框File1中某个选项时，File1.FileName属性值为不包含路径的文件名。

对

2：

通用对话框的Filename和FileTitle属性一样，指的都是含路径的文件全名。

错

3：

BorderWidth属性表示指定直线和形状边界线的线条宽度，该属性值不能设置为0。

对

4：

设置框架时，可先在窗体上画好框架，再往框架内添置控件；也可以先设计控件，再建立框架，然后将已有控件粘贴到框架中。

对

5：

在默认情况下，执行语句DimS（50）asInteger，则声明了S数组有50个元素。

错

6：

Sub过程名在过程中必须被赋值。

错

7：

使用OnErrorGoTo语句并编写相应程序，可以捕获程序中的编译错误。

对

8：

表达式Len（x）和len（"x"）返回值必然相等。

错

9：

事件是一种预先定义好的特定动作，只能由用户触发，常用于用户的交互操作。

错

10：

修改控件的Top和Left属性,可改变控件在窗体中位置。

对

二、选择题

1：

如果EOF（）函数的返回值为True，则表明文件的指针指向__________。

B

A、文件开头B、文件结尾

C、文件的第1个记录D、文件的最后一个记录

2：

将CommonDialog通用对话框以“另存为对话框”方式打开，可选______方法。

D

A、ShowOpenB、ShowColorC、ShowFontD、ShowSave

3：

下列______控件可作为容器控件。

A

A、图片框B、影像框C、形状D、直线

4：

在图片框中加一幅图片（从磁盘装入）可用______函数来实现。

A

A、LoadPictureB、LoadC、PictureD、Circle

5：

列表框的selected属性取值是______类型。

A

A、逻辑B、整型C、字符D、单精度

6：

由“Fori=1To9Step-3”决定的循环结构被执行______次。

D

A、4B、5C、6D、0

7：

用下面的语句定义的数组变量，数组元素是______个。

D

DimA（-3to5）AsInteger

A、6B、7C、8D、9

8：

MsgBox函数也叫消息对话框，该函数有若干个参数，那么与消息对话框标题有关的是第______项参数。

C

A、1B、2C、3D、4

9：

InputBox函数用来返回用户输入的值，该值的类型是______。

C

A、整型B、字节型C、字符串型D、逻辑型

10：

在屏幕上显示一个窗体，可用______方法或设Visible属性为______。

D

A、Load、FalseB、Show、FalseC、Hide、TrueD、Show、True

三、填空题　

第1题：

【程序说明】

下列程序用于在一个字符串中查找子串”at”，并用消息框给出查找结果的报告：

没有找到或找到的个数。

PrivateSubForm_click（）

Dimstr1AsString,nAsInteger,sumAsInteger,IAsInteger

str1=InputBox（"请输入一个字符串:

"）

n=----1----

I=1

sum=0

DoWhileI<=n

If----2----="at"Then

sum=sum+1

EndIf

I=I+1

Loop

If----3----Then

MsgBox"没有找到！

"

Else

MsgBox"找到了"&Str（sum）&"个"

EndIf

EndSub

Len（str1）

Mid（str1,i,2）

sum=0

第2题：

【程序说明】

窗体是一个字体设置程序。

单击字体组合框可以设置预览区域的标签文字的字体，单击字形组合框可以设置预览区域的标签文字的字形。

字体组合框名字为Cboziti、字形组合框名字为Cbozixing、复选框名字为check1、标签文字名字为label5。

PrivateSubCboziti_click（）‘字体

----1----

EndSub

PrivateSubCbozixing_Click（）‘字形

Selectcase----2----

Case"常规"

Label5.FontBold=False

Label5.FontItalic=False

case"加粗"

Label5.FontBold=True

Label5.FontItalic=False

‘……省略

Endselect

EndSub

PrivateSubCheck1_Click（）‘下划线

If----3----Then

Label5.FontUnderline=True

Else

Label5.FontUnderline=False

EndIf

EndSub

1、Label5.FontName=Cboziti.Text或Cboziti.Text=Label5.FontName

2、Cbozixing.text

3、Check1.Value=1

第3题：

【程序说明】

程序运行时如下图，红桃、梅花、方块、黑桃的图形文件在界面设计时已经在属性窗口中设置好，而且使用的是Image1控件数组，程序运行时，单击Image1时，Image2中显示相应的图片，同时在Picture1中显示哪个图案被选中的文字信息。

PrivateSubImage1_Click（IndexAsInteger）

Image2.Picture=----1----

Picture1.FontSize=20

Picture1.ForeColor=vbBlue

Picture1.Cls

SelectCase----2----

Case0

Picture1.Print"红桃被选中"

Case1

Picture1.Print"草花被选中"

Case2

Picture1.Print"方片被选中"

----3----

Picture1.Print"黑桃被选中"

EndSelect

EndSub

1、Image1（Index）.Picture

2、Index

3、Case3或Caseelse

第4题：

【程序说明】在当前窗体中，绘制一个圆心在窗体中心，半径为1000的实心圆，要求实心圆的填充色从“颜色”对话框中选取。

PrivateSubForm_Click（）

Dimrassingle,xassingle,yassingle

R=1000

X=form1.scalewidth/2

Y=----1----

Form1.fillstyle=0

CommonDialog1.----2----

Form1.fillcolor=----3----

Circle（x,y）,r

EndSub

1、form1.scaleheight/2

2、ShowColor

3、CommonDialog1.Color

四、阅读题

第1题：

列表框list1中已经有8行人名字，张红李晨马辉李东生陈芳刘琴郝量

黄立本，写出运行时在text1中输入“李东”后单击命令按钮command1，text2上的显示结果。

B

PrivateSubCommand1_Click（）

Dimkasinteger,nasinteger,fasBoolean

F=false

N=len（text1.text）

K=0

Whilek＜list1.listcountandnotf

Iftext1=left（list1.list（k）,n）then

Text2=list1.list（k）

F=true

Endif

K=k+1

Wend

Ifnotfthentext2.text=”查无此人”

EndSub

A、查无此人

B、李东生

C、李东

D、以上答案都不对

第2题：

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

D

'm1、2、3顺序为3个子菜单名

Privatesuba（nasinteger）

DimIasinteger,sasinteger

S=1

Fori=nto1step-1

S=i*i

Prints;

Nexti

Endsub

PrivateSubm1_Click（）

A1

EndSub

PrivateSubm2_Click（）

A2

EndSub

PrivateSubm3_Click（）

A3

EndSub

A、1B、4C、14D、41

第3题：

程序运行后，单击水平滚动条右侧的滚动箭头3次，再单击水平滚动条左侧的滚动箭头3次，图片框P1所显示的图形。

C

PrivateSubForm_Load（）

P1.Height=P1.Width

P1.Scale（0,0）-（400,400）

HScroll1.Min=50:

HScroll1.Max=200

HScroll1.Value=50

HScroll1.SmallChange=50

EndSub

PrivateSubHScroll1_Change（）

P1.Line（0,HScroll1.Value）-（HScroll1.Value,HScroll1.Value+200）,255,B

EndSub

A、

B、

C、

D、

第4题：

写出程序运行时在文本框中输入6并单击窗体后，a1.dat文件的结果。

C

PrivateSubForm_Click（）

DimkAsInteger,iAsInteger

k=Text1.Text

Do

k=k+1

Fori=2ToSqr（k）

IfkModi=0ThenExitFor

Nexti

Ifi>Sqr（k）ThenExitDo

Loop

Open"a1.txt"ForOutputAs#1

Print#1,k

Close#1

EndSub

A、5B、6C、7D、8

第5题：

【程序说明】

写出下列程序运行时，单击窗体后，输入m值为12，n值为99后，窗体上显示的结果。

D

PrivateSubForm_Click（）

DimmAsInteger,nAsInteger,rAsInteger

m=InputBox（"请输入M的值：

"）

n=InputBox（"请输入N的值：

"）

r=mModn

DoUntilr=0

m=n:

n=r:

r=mModn

Loop

Printn

EndSub

A、0B、12C、9D、3

第6题：

【程序说明】

写出下列程序运行时，单击命令按钮，文本框中输出的内容。

A

PublicFunctionFun（xStrAsString）AsString

DimtStrAsString,strLAsInteger

tStr=""

strL=Len（xStr）

i=1

DoWhilei<=strL/2

tStr=tStr&Mid（xStr,i,1）&Mid（xStr,strL-i+1,1）

i=i+1

Loop

Fun=tStr

EndFunction

PrivateSubCommand1_Click（）

DimS1AsString

S1="abcdef"

Text1.Text=UCase（Fun（S1））

EndSub

A、AFBECDB、ABCDEFC、ADBECFD、FEDCA

五、设计题

第1题：

编写一个函数，功能为计算single类型一维数组所有元素的平均值。

PrivateFunctionave（a（）AsSingle,nAsInteger）AsSingle

DimmAsInteger

m=n

ave=0

Whilen>1

ave=ave+a（n）

n=n-1

Wend

ave=ave/m

EndFunction

第2题：

编程，模拟显示红绿灯提示。

程序启动后用绿色文字显示“绿灯行”3秒钟，接着黄色文字显示“注意”2秒钟，然后用红色文字显示“红灯停”3秒钟，最后用黄色文字显示“注意”2秒钟。

然后再重新开始下一轮“绿灯行”、“注意”、“红灯停”、“注意”的显示，如此反复循环。

DimkAsInteger

PrivateSubForm_Load（）

Label1.ForeColor=vbGreen

Label1.Caption="绿灯行"

EndSub

PrivateSubTimer1_Timer（）

k=k+1

SelectCasek

Case1To3

Label1.Caption="绿灯行"

Label1.ForeColor=vbGreen

Case4To5

Label1.Caption="注意"

Label1.ForeColor=vbYellow

Case6To8

Label1.Caption="红灯停"

Label1.ForeColor=vbRed

CaseElse

Label1.Caption="注意"

Label1.ForeColor=vbYellow

Ifk=10Thenk=0

EndSelect

EndSub

第3题：

编制适当的事件过程，完成下列操作：

程序一运行就将图片框控件（名称属性为Picture1）高度设置为与宽度相同（正方形），并且将图片框坐标系的原点设置到图片框的中心位置；单击窗体，在图片框中以2个象素点的宽度绘制10个随机颜色的同心圆，相邻两个圆半径间距相等，最大的圆是图片框的内接圆。

PrivateSubForm_Load（）

Picture1.Height=Picture1.Width‘属性设置正确得1分

Picture1.Scale（-100,100）-（100,-100）‘Scale方法正确得1分

EndSub

PrivateSubForm_Click（）

DimrAsSingle,iAsSingle

Randomize

r=Abs（Picture1.ScaleHeight/20）

Picture1.DrawWidth=2‘属性设置正确得1分

Fori=rTo10*rStepr‘循环结构正确得1分

Picture1.Circle（0,0）,i,RGB（Int（Rnd*256）,Int（Rnd*256）,Int（Rnd*256））

Nexti

EndSub

第4题：

设计一程序，程序运行界面如图所示。

程序运行时，命令按钮Command1的Caption属性为“开始”，单击Command1后，Caption属性变为“结束”，同时计时器开始工作，并在标签上显示计时时间；再一次单击Command1后，Caption属性又变为“开始”，计时器停止工作，将本次计时时间s1添加到列表框，并与上次计时时间s2进行比较，如果s1小于s2，则弹出消息框提示“有进步！

”，否则提示“加油哦！

”。

参考答案：

DimnAsInteger

PrivateSubCommand1_Click（）

IfCommand1.Caption="开始"Then

n=0

Timer1.Enabled=True

Command1.Caption="结束"

Else

Timer1.Enabled=False

Command1.Caption="开始"

Label1.Caption=""

List1.AddItemn

IfList1.ListCount>1Then

IfList1.List（List1.ListCount-2）>nThen

MsgBox"有进步！

"

Else

MsgBox"加油哦！

"

EndIf

EndIf

EndIf

EndSub

PrivateSubForm_Load（）

Timer1.Enabled=False

Timer1.Interval=1000

EndSub

PrivateSubTimer1_Timer（）

n=n+1

Label1.Caption=n

EndSub