Line(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

以下程序段：

Functionjishu1(x!,eps#)AsDouble

Dimn%,s#,t#

n=1:s=0:t=1

DoWhile(Abs(t)>=eps)

s=s+t

t=t*x/n

n=n+1

Loop

jishu1=s

EndFunction

Subjishu2(s#,x!,eps#)

Dimn%,t#

n=1:s=0:t=1

DoWhile(Abs(t)>=eps)

s=s+t

t=t*x/n

n=n+1

Loop

EndSub

PrivateSubCommand1_Click()

Dimf1#,f2#

f1=jishu1(2#, 0.000001)

Calljishu2(f2,2#,0.000001)

Print"f1=";f1,"f2=";f2

EndSub

对程序说法正确的是( )

A.计算jishu1是调用子过程，而计算jishu2是调用函数

B.当程序运行单击命令按钮后，窗体中显示的f1和f2的结果不相同

C.当程序运行单击命令按钮后，窗体中显示的f1和f2的结果相同

D.以上说法都不正确

以下MyReplace函数的功能是将一个字符串(保存在变量S中)中的子字符串(保存在变量

OldS中)用新的字符串(保存在变量NewS中)代替，编写以下程序：

PublicFunctionMyReplace(s$,OldS$,NewS$)AsString

Dimc%,lenOldS%

lenOldS=Len(OldS)

c=InStr(s,OldS)

DoWhilec>0

s=Left(s,c-1)+NewS+Mid(s,c+lenOldS)

c=InStr(s,olds)

Loop

MyReplace=s

EndFunction

PrivateSubCommand1_Click()

dimold,newasstring

old=inputbox("请输入要替换的字符")

new=inputbox("请输入替换后新的字符")

PrintMyReplace("VisualBasic程序设计教程5.0版",old,new)

EndSub

当程序运行单击命令按钮后先后分别输入" 5.0"和" 6.0"，程序的运行结果为( )

A."VisualBasic程序设计教程5.0版"

B."VisualBasic程序设计教程6.0版"

C."VisualBasic程序设计教程6版"

D."VisualBasic程序设计教程"