第九套.docx - 冰豆网

资源描述

第九套.docx

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

第九套.docx

第九套

一、判断题　

1：

用Kill语句删除文件，只能删除与指定文件名完全匹配的一个文件。

错

2：

CommonDialog控件就像Timer控件一样，在运行时是看不见的。

对

3：

如果定时器的Interval属性是0，当启动定时器时，程序将进入死循环。

错

4：

要让控件隐藏起来，处于不可见的状态，可修改其enabled属性。

错

5：

ScaleWidth属性和ScaleHeight属性是容器的坐标属性，因此有可能取到负值。

对

6：

要实现同样的循环控制，在DoWhile/Loop和Do/LoopWhile循环结构中给定的循环条件是一样的。

错

7：

若用数组作为过程的参数，则实参和形参结合是按地址传递的，定义过程时，参数前不能使用ByVal。

对

8：

语句A=B的意思是将字符“B”赋值给A，即A的值是字符“B”。

错

9：

Print语句的每个输出项之间可以用逗号或分号分隔，不管用逗号还是分号，其输出效果是一样的。

错

10：

面向对象程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。

对

二、选择题

1：

______方式打开的文件只能读不能写。

A、appendB、randomC、outputD、input

2：

每创建一个主菜单，它的下面最多可以有______级子菜单。

A、1B、3C、5D、6

3：

语句“Circle（1000,1000）,800,,,,2”中最后的2表示的是______。

A、椭圆的纵轴和横轴长度比B、椭圆的横轴和纵轴长度比

C、同心圆的半径比D、圆弧两半径间的夹角

4：

文本框中选定的内容，由下列______属性来反映。

A、SelTextB、SelLengthC、TextD、Caption

5：

设置命令按钮cm1的背景色为红色，可以执行语句______。

A、cm1.BackColor=vbred:

B、cm1.BackColor=vbred:

cm1.style=1

C、cm1.Picture=RGB（255,0,0）

D、cm1.BackColor=RGB（255,0,0）:

cm1.enabled=True

6：

当使用OptionBase0时，Dima（4,3）AsSingle定义的数组有______个数组元素。

A、12B、2C、7D、20

7：

a为一整型变量，初值为0，执行下面的二重循环后，a的值为______。

ForI=1To3

Forj=iTo2*I-1

a=a+2

Nextj

NextI

A、8B、15C、5D、12

8：

关于赋值语句的下列说法正确的是______。

A、被赋值的变量应该写在等号的左边B、被赋值的变量应该写在等号的右边

C、被赋值的变量写在等号两边都可以D、对象的属性都不可以被赋值

9：

设X，Y是数值型变量，如果要将它们以（X,Y）的形式输出到窗体上,如X=2,Y=3,则在窗体上输出（2,3）；那么下列语句正确的是______。

A、Print（X,Y）B、Print"（"&X&","&Y&"）"

C、Print"（X,Y）"D、Print"（&X&,&Y&）"

10：

工程文件的扩展名为______。

A、FRXB、BASC、VBPD、CLS

三、填空题　

第1题：

【程序说明】

以下程序产生n个两位随机整数，将其中个位数等于5的数存入数组B中，并以每行五个的紧凑格式在窗体中用输出，同时输出该数组的个数。

PrivateSubForm_Click（）

Dima（）AsByte,b（）AsByte

DimiAsByte,mAsByte,nAsByte

n=InputBox（"请输入n值：

"）

----1----a（n）,b（n）

Fori=1Ton

a（i）=10+Int（Rnd*90）

Ifa（i）Mod5=0Then

m=m+1

----2----

Printb（m）;

If----3----

EndIf

Nexti

Print"个位数为0的数有";m;"个"

EndSub

1、ReDim

2、b（m）=a（i）

3、mMod5=0或m/5=m\5ThenPrint

第2题：

【程序说明】

本程序通过选项来修饰预览区文字。

单击字体组合框Cboziti可以设置预览区域的标签文字label5的字体；单击字号组合框Cbozihao可以设置预览区域的标签文字的字形；选择删除线复选框可以设置是否加删除线。

PrivateSubCbozihao_Click（）'选择字号

Label5.FontSize=Cbozihao.Text

EndSub

PrivateSubCbozihao_----1----（）'输入选项中没有的字号

IfVal（Cbozihao.Text）>0AndVal（Cbozihao.Text）<72Then

Label5.FontSize=Val（Cbozihao.Text）

Else

Label5.FontSize=9

EndIf

EndSub

PrivateSubCboziti_click（）’字体

----2----

EndSub

PrivateSubCheck1_Click（）‘复选框删除线

If----3----Then

Label5.FontStrikethru=True

Else

Label5.FontStrikethru=False

EndIf

EndSub

1、Change

2、Label5.FontName=Cboziti.Text

3、Check1.Value=1或1=Check1.Value

第3题：

【程序说明】

程序运行时界面如下图，点击“颜色选择”按钮，弹出颜色对话框将选中的颜色显示在控件Pic2中，单击“线形选择”下的单选按钮可选择粗、细两种线形，在控件Pic2中拖动鼠标，以选择好的颜色和线形，以及鼠标按下点和弹起点的坐标为矩形对角顶点画矩形。

Dimx1AsSingle,y1AsSingle

DimhColorAsLong

PrivateSubCommand1_Click（）

CommonDialog1.ShowColor

----1----

Pic2.BackColor=hColor

EndSub

PrivateSubForm_Load（）

Option1

（1）.Value=True

EndSub

PrivateSubOption1_Click（IndexAsInteger）

----2----

Case0

Pic1.DrawWidth=5

Case1

Pic1.DrawWidth=1

EndSelect

EndSub

PrivateSubPic1_Mousedown（ButtonAsInteger,ShiftAsInteger,_

XAsSingle,YAsSingle）

x1=X:

y1=Y

EndSub

PrivateSubPic1_Mouseup（ButtonAsInteger,ShiftAsInteger,_

XAsSingle,YAsSingle）

----3----

EndSub

1、hColor=CommonDialog1.Color

2、SelectCaseIndex

3、Pic1.Line（x1,y1）-（X,Y）,hColor,B

第4题：

【程序说明】打开文本文件e:

\data1.txt，从中找出所有的数字字符；并将这些数字写入文件e:

\data2.txt中。

PrivateSubCommand1_Click（）

DimcAsstring

Open“e:

\data1.txt”forinputas#1

-----1-----

DowhilenotEof

（1）

LineInput#1,c

Fori=1tolen（c）

Ifmid（c,I,1）>=48andmid（c,I,i）<=57then-----2-----

Nexti

loop

Close#1

-----3-----

EndSub

1、Open“e:

\data2.txt”foroutputas#2

2、print#2,mid（c,I,1）或write#2,mid（c,I,1）

3、close#2

　四、阅读题

第1题：

若列表框控件List1的Sorted属性为True，写出下列程序运行时单击Command1后列表框中的显示结果。

Dimx（6）AsInteger

PrivateSubCommand1_Click（）

List1.Clear

Fori%=2To5

x（i%）=（x（i%-1）+x（i%）+x（i%+1））/3

Nexti%

Fori%=2To5

List1.AddItemx（i%）

Nexti%

EndSub

PrivateSubForm_Load（）

Fori%=1To6

x（i%）=10-i%

Nexti%

EndSub

D、

C、

B、

A、

第2题：

单击窗体后，显示“打开文件”对话框，选中一个文件后，请写出2个标签上的内容。

PrivateSubForm_Click（）

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

CommonDialog1.InitDir=”c:

\Picture”

CommonDialog1.Filter=“*.*”

CommonDialog1.showopen

Label1.caption=commondialog1.filetitle

Label2.caption=commondialog1.filename

EndSub

A、标签1上的内容为所选择文件的文件名（不包含路径）,标签2上的内容为所选择文件的文件名（包含路径）

B、标签1上的内容为所选择文件的文件名（包含路径）,标签2上的内容为所选择文件的文件名（不包含路径）

C、标签1上的内容为所选择文件的文件名（不包含路径）,标签2上的内容为所选择文件的文件名（不包含路径）

D、标签1上的内容为所选择文件的文件名（包含路径）,标签2上的内容为所选择文件的文件名（包含路径）

第3题：

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

PrivateSubForm_Click（）

DimiAsInteger,xAsSingle,yAsSingle

DimaAsSingle,bAsSingle

Form1.Scale（-300,-200）-（300,200）

Fori=1To50

Randomize

a=300*Rnd:

IfRnd<0.5Thena=-a

b=200*Rnd:

IfRnd<0.5Thenb=-b

x=300*Rnd:

IfRnd<0.5Thenx=-x

y=200*Rnd:

IfRnd<0.5Theny=-y

Line（a,b）-（x,y）,RGB（Int（Rnd*256）,Int（Rnd*256）,Int（Rnd*256））,B

Nexti

EndSub

A、

B、

C、

D、

第4题：

写出程序运行后a1.txt文件的结果。

PrivateSubform_load（）

Timer1.Enabled=True

Timer1.Interval=100

EndSub

PrivateSubTimer1_Timer（）

StatickAsInteger

Open"a1.txt"ForAppendAs#1

k=k+1

Fori=1Tok

Print#1,k;

Nexti

Print#1,

Close#1

Ifk>3ThenTimer1.Enabled=False

EndSub

A、1234

B、12

D、

333

4444

C、

第5题：

【程序说明】

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

PrivateSubCommand1_Click（）

DimAry（1To4）AsInteger

DimIAsInteger

DimSumAsInteger

ForI=1To4

Ary（I）=I

Sum=Sum+Ary（I）

PrintAry（I）;

NextI

Print"Sum=";Sum

EndSub

B、13610sum=10

D、1234sum=10

C、1234

sum=10

A、13610

sum=10

第6题：

【程序说明】

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

PrivateFunctionff（aAsInteger）AsInteger

StaticcAsInteger

DimbAsInteger

b=b+1

c=c+1

ff=a+b+c

EndFunction

PrivateSubForm_Click（）

DimaAsInteger,IAsInteger

a=2

ForI=1To3

Printff（a）;

NextI

EndSub

A、456B、468C、579D、444

五、设计题

第1题：

编一程序，单击“生成”命令按钮时，随机产生10个两位整数，将它们升序显示在列表框中，单击“保存”命令按钮时，将列表框中的数据保存到e:

\d1.txt文件中。

运行前先在属性窗口中将list1的sorted属性设置为True.

PrivateSubCommand1_Click（）

Fori=1To10

k=Int（Rnd*90+10）

List1.AddItemk

Nexti

EndSub

PrivateSubCommand2_Click（）

Open"e:

\d1.txt"ForAppendAs#1

Fori=0ToList1.ListCount-1

Print#1,List1.List（i）

Nexti

Close#1

EndSub

第2题：

本程序要求用一个文本框数组和定时器编写模拟体育彩票程序：

控件数组用来显示7个【0，9】之间的随机整数。

运行时单击“产生随机数字”按钮，定时器开始工作，所有文本框中的数字不断滚动变化；单击停止时所有文本框停止变化，如图所示；单击“清空”按钮时，所有文本框无内容。

PrivateSubCommand1_Click（）

Timer1.Enabled=True

Timer1.Interval=50

Command4.Enabled=True

EndSub

PrivateSubCommand2_Click（）

Fori=0To6

Text1（i）.Text=""

Nexti

Command2.Enabled=False：

Command4.Enabled=False

EndSub

PrivateSubCommand3_Click（）

End

EndSub

PrivateSubCommand4_Click（）

Timer1.Enabled=False:

Command2.Enabled=True

EndSub

PrivateSubForm_Load（）

Command2.Enabled=False：

Command4.Enabled=False

EndSub

PrivateSubTimer1_Timer（）

DimiAsInteger

Randomize

Fori=0To6

Text1（i）.Text=Fix（Rnd*10）

Nexti

EndSub

第3题：

编程，计算多项式Sn=a+aa+aaa+aaaa+…+aa…a（n个a），其中a是一个随机产生的1～9之间的整数；n是一个5～10之间的整数可从输入对话框中输入。

PrivateSubForm_Click（）

DimI%,a#,n%,b#,s#

Randomize

a=Int（Rnd*9）+1

n=InputBox（"输入一个n值：

"）

LoopWhilen<4Orn>10

s=0

ForI=1Ton

b=b*10+a

s=s+b

NextI

Print"s=a+aa+aaa+……+";s

EndSub

第4题：

程序设计界面如图所示，要求：

单击“复制”菜单后，将文本框1的内容复制到剪贴板中，单击“粘贴”菜单后，将剪贴板中的内容粘贴到文本框2中，单击“清除”菜单后，两个文本框中的内容都清除掉。

参考答案：

PrivateSubclear_Click（）

Text1.Text=""

Text2.Text=""

EndSub

PrivateSubcopy_Click（）

Clipboard.clear

Clipboard.SetTextText1.Text

EndSub

PrivateSubpaste_Click（）

Text2.Text=Clipboard.GetText

EndSub

展开阅读全文