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

判断题：（共20题每题2分）1、事件过程是由用户或系统事件触发的,因此在程序中不能调用事件过程。参考答案：错误2、某数组申明为字符型数组，它们的初始值为False。参考答案：错误3、标签控件是专门用来显示信息的，因此不能响应鼠标的单击事件。参考答案：错误4、窗体的Move措施不光能够移动窗体，并且能够变化窗体的大小，同时也会变化窗体的有关属性。参考答案：错误

5、窗体的Enabeled属性为False时，窗体上的按钮、文本框等控件就不会对用户的操作作出反应。参考答案：正确6、使用Dim语句申明了一个变量以后，还能够使用Redim语句把此变量重新申明为其他的类型。参考答案：正确7、一个使用Static语句申明的过程级静态变量，能在该过程的数次调用之间保持它的值，并且其他的过程也能够使用这个变量的值。参考答案：错误8、同一个过程中不能申明同名的变量；在过程中不能申明与同一模块的模块级变量同名的静态过程级变量。参考答案：正确9、一个变量在刚被申明尚未被赋值之间没有值。参考答案：错误10、能够申明过程级自定义数据类型。参考答案：正确11、因为应用程序级和模块级范围不一样，因此能够在同一个窗体模块中申明同名的应用程序级变量和模块级变量。参考答案：正确12、If与Endif必须成正确使用，有一个if就有一个Endif与之对应。参考答案：正确13、在For循环的循环语句块中，能够使用Next核心字提前结束循环。参考答案：正确14、申明一个过程时有几个形参，则在调用该过程时就必须提供几个实参。参考答案：错误15、因为Function过程有返回值，因此只能用在体现式中，不能使用Call语句调用。参考答案：正确16、文本框只能显示单行文本，要显示多行文本应当使用列表框控件。参考答案：错误17、标签控件所显示的文本只能在设计时设置，在运行时不能变化。参考答案：错误18、当定期器控件的Interval属性值为0时，会连续不停的发送Timer事件。参考答案：错误19、滚动条控件也可作为用户输入数据的一个方式。参考答案：正确20、当定期器控件的Interval属性值设置为0时，会连续不停地激发Timer事件。参考答案：错误单项选择题：（共30道试题，每题1分）1、要在窗体的标题内显示“myfrm”,使用的语句是（

）

A．Form1.Print"myfrm"

B．Form.Print"myfrm"

C．Form.caption="myfrm"

D．Form1.caption="myfrm"

参考答案：D2、无论何种控件，共同具备的属性是（

）

A．Text

B．Name

C．Caption

D．ForeColor

参考答案：B3、按照变量的作用域可将变量划分为（

）

A．公有、私有、系统

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

C．动态、常数、静态

D．Public、Private、Protected

参考答案：B4、确定一个控件在窗体上位置的属性是（

）

A．Width或Height

B．Width和Height

C．Top或Left

D．Top和Left

参考答案：D5、下列有关变量的说法不正确的是（

）。

A．局部变量是指那些在过程中用Dim语句或Static语句申明的变量

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

C．静态局部变量是在过程中用Static语句申明的

D．局部变量在申明它的过程执行完成后就被释放了

参考答案：D6、要绘制多个形状的图形，需要设置Shape控件的（

）属性

A．Borderstyle

B．Shape

C．FillStyle

D．Style

参考答案：B7、当Winsock控件处在关闭状态时，其State属性的值是（

）

A．0

B．1

C．2

D．6

参考答案：A8、目录列表框的Path属性的作用是（

）

A．显示目前驱动器或指定驱动器上的途径

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

C．显示根目录下的文献名

D．只显示目前途径下的文献

参考答案：A9、下列数据对象模型中采取OLEDB访问数据库的是（

）。

A．DAC

B．ADO

C．RDC

D．RDC和ADO

参考答案：B10、使用ADO数据模型时，使Recordset和Connection对象建立连接的属性是（）。

A．CommandType

B．ActiveConnection

C．Open

D．Execute

参考答案：B11、对于窗体，保存文献时后缀名为（）

A．.frm

B．.fm

C．.fmr

D．.frmm

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

）

A．VisualBasic是一个可视化编程工具

B．VisualBasic是面对对象的编程语言

C．VisualBasic是结构化程序设计语言

D．VisualBasic采取事件驱动编程机制

参考答案：C

13、相对于老式编程语言，VisualBasic最突出的特点是（）

A．可视化编程工具

B．面对对象的程序设计

C．结构化程序设计

D．事件驱动编程机制

参考答案：B14、对于窗体，下面（）属性在程序运行时其属性设置起作用

A．MaxButton

B．BorderStyle

C．Name

D．Left

参考答案：D15、要使Print措施在Form_load事件中起作用，要对窗体的（）属性进行设置。

A．BackColor

B．ForeColor

C．AutoRedraw

D．Caption

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

A．BackColor

B．BorderStyle

C．ForeColor

D．BackStyle

参考答案：D17、若要使命令按钮不可操作，要对（）属性设置。

A．Enabled

B．Visible

C．BackColor

D．Caption

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

）属性。

A．Enabled

B．Visible

C．BackColor

D．Caption

参考答案：D19、无论何对象，都具备（）属性。

A．Text

B．Name

C．ForeColor

D．Caption

参考答案：B20、要使某控件在运行时不可显示，应对（）属性进行设置。

A．Enabled

B．Visible

C．BackColor

D．Caption

参考答案：B21、要使窗体在运行时没有最大化按钮，只要对（）属性设置即可。

A．MaxButton

B．BorderStyle

C．Width

D．MinButton

参考答案：A22、当运行程序时，系统自动执行开启窗体的（）事件过程。

A．Load

B．Click

C．UnLoad

D．MinButton

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

A．Top

B．Left

C．Width

D．Right

参考答案：B24、函数Int(Rnd*100)是在（）范围内的整数。

A．(0,10)

B．(1,100)

C．0和(0,100)

D．(1,99)

参考答案：C25、假如X是一个正实数，对X的第3位小数四舍五入的体现式是（）。

A．0.01*Int(X+0.005)

B．0.01*Int(100*(X+0.005))

C．0.01*Int(100*(X+0.05))

D．0.01*Int(X+0.05)

参考答案：B26、已知变量A、B、C中C最小，则判断A、B、C可否组成三角形的逻辑体现式为（）。

A．A>=BAndB>=CAndC>0

B．A+C>BAndB+C>AAndC>0

C．(A+B>COrA-B<=C)AndC>0

D．A+B>CAndA-B>CAndC>0

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

A．Imp

B．Mod

C．Not

D．Like

参考答案：B28、如下不是VB变量名命名规则的是：（

）

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

B．

变量名不包括小数点

C．组成变量名的字符数不得超出255个字符

D．变量名在同一范围内必须是唯一的

参考答案：A29、公用变量申明的语句是（

）。

A．StaticCountAsBoolean

B．DimCountAsInteger

C．PublicCountAsString*6

D．

OptionExplicit

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

）

A．Text1.Text="你好！"

B．Text1.Text="你好！":Text1.BackColor=Red

C．Text1.Text="你好！";Text1.BackColor=Red

D．OptionExplicit

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

）

PrivateSubForm_Click()

DimcAsInteger,jAsInteger,kAsInteger

k=0

c=1

Forj=1To6

Ifj>4Then

c=c+5

ExitFor

Else

k=k+1

EndIf

Nextj

Printc,k

EndSub

A．4,4

B．6,6

C．4，6

D．6，4

参考答案：D2、阅读程序，程序运行时在文本框Text1中显示值为（

）PrivateSubCommand1_Click()

DimsAsDouble

DimiAsInteger

s=5

i=1

DoWhilei<9

i=i+2

s=s+i

Loop

Text1.Text=s

EndSub

A．26

B．27

C．28

D．29

参考答案：D3、阅读程序，写出程序运行时单击窗体后，窗体Form1上的成果为（

）

PrivateSubForm_Click()

DimA(1To4)AsString

DimcAsInteger

DimjAsInteger

A(1)="2"

A(2)="4"

A(3)="6"

A(3)="8"

c=1

Forj=1To4

c=c+Val(A(j))

Nextj

Printc

EndSub

A．16

B．15

C．18

D．20

参考答案：B4、阅读程序，写出程序运行时，单击Command1后，文本框Text1、Text2和Text3的输出成果为（

）

PrivateSubCommand1_Click()

DimnAsInteger,yAsInteger,xAsInteger

a=1

DoWhilea<20

n=n+1

b=a+b

a=a*(a+1)

Loop

Text1.Text=n

Text2.Text=a

Text3.Text=b

EndSub

A．3，42，9

B．3，40，10

C．4，42，9

D．3，42，8

参考答案：A5、阅读程序，写出程序运行时，单击Command1后，文本框Text1、Text2的输出成果为（

）

PrivateSubCommand1_Click()

DimA(1To5)AsInteger

DimxAsInteger

Fori=1To5

A(i)=i

Nexti

i=1

DoWhilex<3

A(i)=A(i)*x

x=x+2

i=i+1

Loop

Text1.Text=A(1)

Text2.Text=A(2)

EndSub

A．0，4

B．4，10

C．4，0