一个VB应用程序至少应该包含几个vbp文件()

将通用对话框Commondialog1的类型设置为"字体"对话框，可调用对话框的( )方法

A.ShowOpen

B.ShowSave

C.ShowColor

D.ShowFont

Line(100，100)-(400，400)将在窗体中的( )画一条直线

A.(200，200)到(400，400)

B.(100，100)到(300，300)

C.(100，100)到(500，500)

D.(100，100)到(400，400)

通过设置Shape控件的( )属性来确定是何种封闭图形

A.Shape

B.Borderstyle

C.FillStyle

D.Style

若要再窗体代码编辑器的"通用声明"部分定义窗体模块级Sub过程，则正确的语句是( )

A.PublicSub

B.PublicFunction

C.PrivateSub

D.PrivateFunction

设置标签对象的边框类型的属性是( )

A.Drawstyle

B.Borderstyle

C.DrawWidth

D.ScaleMode

把字符串函数：string(3,"abc")的结果为( )

A.aaa

B.bbb

C.ccc

D.abc

要退出Do…Loop循环，可使用的语句是( )

A.Exit

B.ExitFor

C.Do

D.ExitDo

按照变量的作用域可将变量划分为( )

A.公有、私有、系统

B.全局变量、窗体/模块级变量、局部变量

C.动态、常数、静态

D.Public、Private、Protected

下面程序的输出结果为( )

PrivateSubCommand1_Click()

Dima%(1To5),b%(2To10),i%,t1#,t2#

Fori=1To5

a(i)=i

Nexti

t1=tim(a())

Print"t1=";t1

EndSub

Functiontim(a()AsInteger)

Dimt#,i%

t=1

Fori=LBound( )ToUBound( )

t=t*a(i)

Nexti

tim=t

EndFunction

A.t1=10

B.t1=12

C.t1=120

D.120

以下程序：

PublicSubSwap1(ByValxAsInteger,ByValyAsInteger)

DimtAsInteger

t=x:x=y:y=t

EndSub

PublicSubSwap2(xAsInteger,yAsInteger)

DimtAsInteger

t=x:x=y:y=t

EndSub

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger

a=10:b=20

Swap1a,b

Print"A1=";a,"B1=";b

a=10:b=20

Swap2a,b

Print"A2=";a,"B2=";b

EndSub

当单击命令按钮后，窗体上输出的结果是( )

A.A1=20B1=10A2=10B2=20

B.A1=10B1=20A2=20B2=10

C.A1=10B1=20A2=10B2=10

D.A1=20B1=20A2=20B2=10