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

把字符串函数：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程序设计教程"

以下是求三角形面积的程序：

PublicFunctionarea(x!,y!,z!)AsSingle

Dimc!

If(x+y>zAndx+z>yAndy+z>x) And (Abs(x-y))Then

c=1/2*(x+y+z)

area=Sqr(c*(c-x)*(c-y)*(c-z))

Else

MsgBox"你输入的三角形三边不符和三角形组成的条件，请重新输入三边"

EndIf

EndFunction

PrivateSubForm_Click()

Dima!,b!,c!

a=InputBox("输入a"):b=InputBox("输入b"):c=InputBox("输入c")

s1=area(a,b,c)

Print"三角形的面积=";s1

EndSub

以下说法正确的是( )

A.当程序运行时单击窗体后分别输入3，4和5，显示对话框"你输入的三角形三边不符和三角形

组成的条件，请重新输入三边"

B.当程序运行时单击窗体后分别输入3，4和5，输出显示三角形的面积=6

C.当程序运行时单击窗体后分别输入3，4和5，输出显示三角形的面积=6.5

D.以上说法都不正确

对以下此段程序说法正确的是( )

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

DimLenstraAsInteger,jAsInteger

DimStraAsString,SAsString*1

S=Chr(KeyAscii)

SelectCaseS

Case"0"To"9",",",".","-"

CaseElse

KeyAscii=0

EndSelect

EndSub

A.S取得的是输入的KeyAscii值

B.若在文本框中输入除了数字0～9，,逗号，负号，小数点之外的其他字符，则能够继续输入

C.若在文本框中输入数字0～9，,逗号，负号，小数点为有效数字串，可以继续输入

D.当KeyAscii=0时可以继续输入

如下程序：

Dima()AsString

PrivateSubCommand1_Click()

DimtempAsString

DimiAsInteger

temp=Replace(Text1,",,",",")

a=Split(temp,",")

Fori=0ToUBound( )

Printa(i);

Nexti

EndSub程序运行后，在text1中输入字符串"23,,45,6"，则单击command1按钮后，显示的结果

为( )

A.23，，45，6

B.23456

C.23，45，6

D.23，，45，6