2023年电大VB程序设计形成性考核答案

判断题：（共20题每题2分)1、事件过程是由用户或系统事件触发的,所以在程序中不能调用事件过程。参考答案:错误2、某数组声明为字符型数组，它们的初始值为Ｆaｌse。参考答案:错误3、标签控件是专门用来显示信息的,所以不能响应鼠标的单击事件。参考答案：错误4、窗体的Ｍｏve方法不光可以移动窗体,并且可以改变窗体的大小，同时也会改变窗体的有关属性。参考答案：错误

5、窗体的Enａｂｅled属性为Falsｅ时，窗体上的按钮、文本框等控件就不会对用户的操作作出反映。参考答案：对的6、使用Dｉm语句声明了一个变量以后,还可以使用Ｒeｄim语句把此变量重新声明为其他的类型。参考答案：对的7、一个使用Static语句声明的过程级静态变量，能在该过程的多次调用之间保持它的值，并且其他的过程也可以使用这个变量的值。参考答案:错误8、同一个过程中不能声明同名的变量;在过程中不能声明与同一模块的模块级变量同名的静态过程级变量。参考答案：对的9、一个变量在刚被声明尚未被赋值之间没有值。参考答案:错误１0、可以声明过程级自定义数据类型。参考答案：对的11、由于应用程序级和模块级范围不同，所以可以在同一个窗体模块中声明同名的应用程序级变量和模块级变量。参考答案：对的１2、If与Endif必须成对的使用,有一个ｉｆ就有一个Enｄif与之相应。参考答案：对的13、在Ｆｏｒ循环的循环语句块中,可以使用Nexｔ关键字提前结束循环。参考答案:对的1４、声明一个过程时有几个形参,则在调用该过程时就必须提供几个实参。参考答案：错误15、由于Ｆunｃｔioｎ过程有返回值，所以只能用在表达式中，不能使用Call语句调用。参考答案:对的1６、文本框只能显示单行文本,要显示多行文本应当使用列表框控件。参考答案：错误17、标签控件所显示的文本只能在设计时设立，在运营时不能改变。参考答案:错误18、当定期器控件的Ｉnterｖａｌ属性值为0时,会连续不断的发送Timｅr事件。参考答案：错误1９、滚动条控件也可作为用户输入数据的一种方式。参考答案：对的２0、当定期器控件的Ｉｎterｖal属性值设立为0时，会连续不断地激发Tiｍer事件。参考答案:错误单选题:（共30道试题,每题1分)1、要在窗体的标题内显示“myfｒm”,使用的语句是（

)ﻫ

A．Ｆｏrm１.Pｒint"mｙfrm"

Ｂ．Fｏｒm．Pｒｉnt"ｍyｆrｍ"

C．Form．caｐtion＝"myfrm"

D．Form１．caｐtioｎ=＂mｙfrm"

参考答案:D2、无论何种控件，共同具有的属性是(

)

A．Text

B．Naｍｅ

C.Captioｎ

Ｄ.ＦoreColｏr

参考答案:Ｂ3、按照变量的作用域可将变量划分为（

）

ﻫ

Ａ.公有、私有、系统

B．全局变量、模块级变量、过程级变量

C．动态、常数、静态

D．Publiｃ、Privatｅ、Prｏｔecｔｅd

参考答案:B4、拟定一个控件在窗体上位置的属性是(

）ﻫ

A.Ｗidth或Ｈeigｈｔ

Ｂ.Ｗidth和Heiｇhｔ

C．Ｔop或Leｆt

Ｄ.Top和Left

参考答案：D5、下列关于变量的说法不对的的是（

)。ﻫ

A．局部变量是指那些在过程中用Ｄｉm语句或Statiｃ语句声明的变量

B．局部变量的作用域仅限于声明它的过程

C.静态局部变量是在过程中用Ｓtatic语句声明的

Ｄ.局部变量在声明它的过程执行完毕后就被释放了

参考答案：Ｄ6、要绘制多种形状的图形,需要设立Sｈape控件的（

）属性ﻫ

A.Bｏｒdersｔylｅ

B.Shaｐe

C．FillStylｅ

D．Stylｅ

参考答案：Ｂ７、当Winsoｃk控件处在关闭状态时，其Sｔａtｅ属性的值是(

)ﻫ

A．0

B.1

C.２

D.6

参考答案:A８、目录列表框的Path属性的作用是(

）

Ａ．显示当前驱动器或指定驱动器上的途径

B.显示当前驱动器或指定驱动器上的某目录下的文献名

Ｃ.显示根目录下的文献名

D.只显示当前程径下的文献

参考答案：A9、下列数据对象模型中采用OＬEＤＢ访问数据库的是（

)。

Ａ．ＤAC

B．ADＯ

C．RDC

Ｄ．RDC和ＡＤＯ

参考答案:Ｂ10、使用AＤO数据模型时，使Recorｄsｅt和Conneｃtｉon对象建立连接的属性是()。

Ａ.CommandＴype

B．ＡctiveCｏnnｅctioｎ

C．Open

D．Ｅxecutｅ

参考答案:B1１、对于窗体，保存文献时后缀名为()ﻫ

A..ｆrｍ

B．．fｍ

Ｃ.．fmr

D..fｒmm

参考答案：A12、以下说法错误的是（

）

A．VisuａlBaｓic是一种可视化编程工具

B.ViｓualBaｓic是面向对象的编程语言

C．ViｓualBasic是结构化程序设计语言

D．ＶisualBaｓic采用事件驱动编程机制

参考答案:Ｃ

1３、相对于传统编程语言,ＶisｕaｌBasic最突出的特点是(）

A．可视化编程工具

B．面向对象的程序设计

C．结构化程序设计

D.事件驱动编程机制

参考答案：Ｂ14、对于窗体,下面（）属性在程序运营时其属性设立起作用

A.MaｘButｔon

B．ＢorｄｅrStylｅ

C．Nａｍe

Ｄ．Lefｔ

参考答案:D15、要使Prinｔ方法在Form_load事件中起作用，要对窗体的（）属性进行设立。ﻫ

A.BackColor

Ｂ．ForｅCｏlor

C．AutoReｄraｗ

D.Captioｎ

参考答案:C16、若要使标签控件显示时不覆盖其背景内容，要对(）属性设立。

Ａ.BaｃkCｏlor

B．BordｅｒStylｅ

C．ＦoｒeＣolｏr

D．BackStyle

参考答案:Ｄ１7、若要使命令按钮不可操作，要对(）属性设立。ﻫ

Ａ．Ｅnaｂlｅd

B.Visiblｅ

C．BaｃkColor

D．Caption

参考答案:A18、文本框没有（

)属性。

A.Enabled

Ｂ.Ｖｉsiｂle

C．BackColoｒ

Ｄ.Ｃaption

参考答案:D1９、不管何对象，都具有()属性。

A.Tｅxt

B.Name

C．ForeColoｒ

D．Capｔion

参考答案:Ｂ２0、要使某控件在运营时不可显示，应对（）属性进行设立。ﻫ

Ａ．Ｅｎableｄ

B．Ｖｉsible

C.ＢａckColor

D．Ｃapｔion

参考答案:Ｂ21、要使窗体在运营时没有最大化按钮，只要对(）属性设立即可。ﻫ

Ａ．MaxButtoｎ

Ｂ．BordｅrＳtyle

Ｃ．Width

D．MinＢuttｏn

参考答案:Ａ２2、当运营程序时,系统自动执行启动窗体的（)事件过程。ﻫ

A.Load

B．Ｃlick

C．ＵnLoad

D．MｉnBuｔｔon

参考答案：A23、改变控件在窗体中的左右位置应修改该控件的（）属性。

A．Top

B．Left

Ｃ．Ｗidｔh

D.Rｉghｔ

参考答案:B２4、函数Inｔ(Rnd*１０0)是在()范围内的整数。ﻫ

A.(0,10)

Ｂ.(1,100)

Ｃ．0和(0,1０0）

D．(１,99)

参考答案：C２5、假如Ｘ是一个正实数，对X的第３位小数四舍五入的表达式是（）。

Ａ．０．01*Inｔ(X＋0.005)

B.0．01*Iｎt(１0０*(Ｘ+0.005)）

C.0．01＊Int(100*(X+0.０5))

D．0.0１＊Int(X＋0．05)

参考答案：B26、已知变量A、B、C中C最小,则判断Ａ、B、C可否构成三角形的逻辑表达式为()。

A．A>=BＡndB>＝CAｎｄC>0

B.A+C>BAndB+C＞AAndC>0

C.(A＋B＞ＣOrA－B<=C)AndC＞0

D.Ａ+B>CAnｄＡ-B>CＡndC>０

参考答案：B27、下面(）是算术运算符。ﻫ

A．Imp

B.Mｏd

Ｃ.Nｏt

Ｄ．Like

参考答案：Ｂ２8、以下不是ＶB变量名命名规则的是:(

)ﻫ

A．变量名的第一个字符必须是字母、汉字、下划线和数字

Ｂ.

变量名不包含小数点

C.组成变量名的字符数不得超过255个字符

Ｄ.变量名在同一范围内必须是唯一的

参考答案:Ａ２9、公用变量声明的语句是(

)。ﻫ

A.ＳtaticCouｎtＡｓＢｏｏlｅaｎ

Ｂ.ＤimCｏｕntＡｓIntegｅｒ

C.PuｂliｃCouｎｔAｓString*6

D．

ＯｐｔｉonＥｘplicｉｔ

参考答案:C30、下列哪个语句是错误的VB语句(

）ﻫ

A.Ｔｅｘt1.Ｔext=＂你好！"

B.Text1.Tｅｘt="你好！":Text1.BacｋCｏｌor=Ｒed

C.Text１.Teｘt="你好!＂;Ｔeｘt1.BaｃkCoｌoｒ＝Red

D．OｐtionExpｌicit

参考答案：C单选题：（共６道试题,每题5分）1、阅读程序，程序运营时单击窗体后，在窗体中显示c，k的值分别为(

）ﻫPrivateSubFｏrm＿Click()

DｉmcAsInｔｅgｅr，jＡｓIntｅｇer,kAsInteger

k=０

c=1ﻫFｏrj＝1To６

Iｆｊ>４Tｈenﻫ

ｃ=c+5

ExitForﻫ

Eｌse

k＝k＋1

EndIfﻫNextｊ

Pｒiｎｔc，k

EｎdSuｂ

A．４,4

B.６，6

Ｃ．4，6

D．６,4

参考答案：D２、阅读程序，程序运营时在文本框Text1中显示值为(

）ＰrｉvatｅSubCommand1_Ｃlicｋ()

ＤimsAsDoubleﻫＤｉmiAsＩntｅｇer

s=５

i＝1ﻫ

DoWhilei<9

i=i＋2

s=s+ｉ

Loop

Teｘt１.Tｅｘt=s

EｎdSub

Ａ.２6

Ｂ.27

C.28

D.２9

参考答案：Ｄ３、阅读程序,写出程序运营时单击窗体后，窗体Foｒm1上的结果为（

)

PｒiｖａｔeSubForm_Clｉck()

DimＡ(1To４)AｓＳtrｉngﻫ

DiｍcAsＩｎｔｅgｅｒ

DimjAsInｔeｇeｒ

Ａ(１)="２"

A(2）＝"４"ﻫ

A(3)=＂６"ﻫ

A(3）=＂8"ﻫ

c＝1

Fｏｒj=１To4ﻫ

c=c+Val(A（j)）ﻫ

Nexｔj

Priｎtc

EｎdＳubﻫ

Ａ．1６

Ｂ.15

C.18

D.2０

参考答案：B4、阅读程序,写出程序运营时，单击Ｃommａnd１后，文本框Ｔeｘt1、Text2和Text3的输出结果为（

）ﻫPｒivateSｕbCommand１＿Cliｃk()

DｉmｎAｓＩntｅｇer,ｙAsInteｇer，xAｓIｎtｅgeｒﻫ

a=1ﻫDoＷｈiｌea<20

n＝n+1

b＝a＋bﻫ

a=ａ*(a+1）

Loop

Text1.Ｔｅxt=n

Tｅｘｔ２.Teｘt=aﻫ

Tｅxt３．Teｘt=bﻫＥndＳuｂ

A．3，４2,9

B．3,40，10

C.4，4２,９

D．３，42,8

参考答案：Ａ5、阅读程序，写出程序运营时,单击Commaｎd1后，文本框Tｅxt１、Ｔｅxt2的输出结果为(

）

PrｉｖateSubCommａnd1_Cｌiｃk()

DimA(1To５)ＡsＩntegerﻫ

DimxＡsInteｇerﻫ

Ｆｏｒi＝1Tｏ５

A(i）=ｉﻫ

Nextiﻫ

i=1ﻫ

DoＷhiｌex<3

A(i)＝A（i)*ｘ

x=x+2ﻫ

i=ｉ+1ﻫ

Loopﻫ

Texｔ１.Text=A(1)ﻫ

Text2.Tｅxt=A(2)ﻫＥnｄSｕb

A．0,４

B.4,１０

C．4,０