单项选择题 下面程序的输出结果为( )PrivateSubCommand1_Click()Dima%(1To5),b%(2To10),i%,t1#,t2#Fori=1To5a(i)=iNextit1=tim(a())Print"t1=";t1EndSubFunctiontim(a()AsInteger)Dimt#,i%t=1Fori=LBound( )ToUBound( )t=t*a(i)Nextitim=tEndFunction

单项选择题 以下程序：PublicSubSwap1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=x:x=y:y=tEndSubPublicSubSwap2(xAsInteger,yAsInteger)DimtAsIntegert=x:x=y:y=tEndSubPrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=10:b=20Swap1a,bPrint"A1=";a,"B1=";ba=10:b=20Swap2a,bPrint"A2=";a,"B2=";bEndSub当单击命令按钮后，窗体上输出的结果是( )

单项选择题 以下程序段：Functionjishu1(x!,eps#)AsDoubleDimn%,s#,t#n=1:s=0:t=1DoWhile(Abs(t)>=e

单项选择题 以下MyReplace函数的功能是将一个字符串(保存在变量S中)中的子字符串(保存在变量OldS中)用新的字符串(保存在变量NewS中)代替，编写以下程序：PublicFunctionMyReplace(s$,OldS$,NewS$)AsStringDimc%,lenOldS%lenOldS=Len(OldS)c=InStr(s,OldS)DoWhilec>0s=Left(s,c-1)+NewS+Mid(s,c+lenOldS)c=InStr(s,olds)LoopMyReplace=sEndFunctionPrivateSubCommand1_Click()dimold,newasstringold=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!)AsSingleDimc!If(x＋y>zAndx＋z&

单项选择题 对以下此段程序说法正确的是( )PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimLenstraAsInteger,jAsIntegerDimStraAsString,SAsString*1S=Chr(KeyAscii)SelectCaseSCase"0"To"9",",",".","-"CaseElseKeyAscii=0EndSelectEndSubA.S取得的是输入的KeyAscii值B.若在文本框中输入除了数字0～9，,逗号，负号，小数点之外的其他字符，则能够继续输入C.若在文本框中输入数字0～9，,逗号，负号，小数点为有效数字串，可以继续输入D.当KeyAscii=0时可以继续输入

单项选择题 如下程序：Dima()AsStringPrivateSubCommand1_Click()DimtempAsStringDimiAsIntegertemp=Replace(Text1,",,",",")a=Split(temp,",")Fori=0ToUBound( )Printa(i);NextiEndSub程序运行后，在text1中输入字符串"23,,45,6"，则单击command1按钮后，显示的结果为( )

单项选择题 在窗体中添加一个命令按钮Command1，并有以下程序：Functionretnum()nl=Chr(13)+Chr(10)msg$="1.运行VB应用程序"+nl+"2.计算器"msg$=msg$+nl+"请输入数字选择"retnum=InputBox(msg$,Title,Default)EndFunctionPrivateSubCommand1_Click()r=retnumIfr=1Thenx=Shell("c:/vbp/vbexam.exe",1)ElseIfr=2Thenz=Shell("calc.exe",1)ElseMsgBox"请输入1-2的数"EndIfEndSub程序运行后，单击命令按钮，在输入对话框内输入2，窗体将显示( )A.请输入1-2的数B.Windows的计算器C.调用C:/vbp/vbexam.exe程序并运行D.出错

单项选择题 如果在立即窗口中执行以下操作：a=8b=9printa>b则输出结果是( )A.－1B.0C.FalseD.True

单项选择题 阅读程序:FunctionF(aAsInteger)AsIntegerb=0Staticcb=b+1c=c+1F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=2ForI=1To3PrintF( )NextIEndSub运行结果为( )

单项选择题 假定有如下的Sub过程：SubS(ByValxAsInteger,ByValyAsInteger)t=xx=t/yy=tModyEndSubPrivateSubCommand1_Click()Dima,bAsIntegera=5b=4CallS(a,b)Printa,bEndSub程序运行后，单击命令按钮，输出结果为( )

单项选择题 阅读下面的程序段：ForI=1To3Forj=1ToIFork=jTo2a=a+3NextkNextjNextI执行上面的三重循环后，a的值为( )

单项选择题 文本框所不能响应的事件有( )

单项选择题 执行下面的程序段后，x的值为( )x=5Forc=1To5Step2x=x+c/5NextcPrintx

单项选择题 设a=3，则执行x=Iif(a>5,－1,0)后，x的值为( )A.5B.6C.0D.－－1

单项选择题 以下语句：PrintFormat$( 32548.5,"000,000.00")输出结果是( )A. 32548.5B.32, 548.5C.032, 548.50D.32,548.50

未知题型 如果准备按字节读取一个文件的内容，应当使用FileInputStream流还是FileReader流？

单项选择题 表达式4+6*7/8Mod3的值是( )

单项选择题 下列对菜单编辑器的操作不正确的是( )

未知题型 在人类历史中，哪些信息工具发明对人类文明具有革命性影响？（ ）