未知题型 Yourcompany，A.DatumCorporation，&8
单项选择题 以下语句a=27b=65print a;b的输出结果是( )。(其中的△表示空格，CT表示回车和换行)
单项选择题 下面程序：FunctionF(aAsInteger)b=0Staticcb=b+1c=c+1F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=2ForI=1To3PrintF( )NextIEndSub运行上面的程序，单击命令按钮，输出结果为( )
单项选择题 在VisualBasic应用程序中( )
单项选择题 inputBox函数返回值的类型为( )
单项选择题 不属于程序设计的三大基本结构的是( )
单项选择题 语句S1、S2和S3按照下面的属性执行：先执行语句S1，再执行语句S2，最后执行语句S3，则这样的执行顺序属于编程中的( )
单项选择题 VB提供控件的窗口是( )
单项选择题 以下关于菜单编辑器中"索引"项的叙述中，错误的是( )
单项选择题 下列控件中可设置滚动条是( )
单项选择题 VB提供的单选按钮(OptionButton)可具有的功能是( )
单项选择题 一个工程中包含两个名称分别为Form1、Form2的窗体。假定在Form1和Form2中分别建立了自定义过程，其定义格式为：Form1中定义的过程：PrivateSubFun1()……EndSubForm2中定义的过程：PrivateSubFun2()……EndSub若要在窗体Form2调用Form1中建立的自定义过程Fun1，则调用格式正确的是( )
单项选择题 在VB的基本数据类型中，通用类型(Variant)可以表示任何类型的变量，则以下变量赋值中正确的是( )
单项选择题 编写程序：OptionBase1Dimmark()AsIntegerPrivateSubCommand1_Click()Dimn,sumAsIntegerDimaveAsSinglen=Val(InputBox("输入学生的个数"))ReDimmark(n)AsIntegersum=0ForI=1Tonmark(I)=10*Isum=sum+mark(I)NextIave=sum/nPrintsum;"和";aveEndSub单击命令按钮后输入4，则输出的结果为( )
单项选择题 在窗体中建立名称为command1的控件数组(index值分别为0，1，2和3)，单击它时发生如下事件：PrivateSubCommand1_Click(IndexAsInteger)Picture1.ClsSelectCaseIndexCase0Picture1.Print"画直线"Picture1.Line(2,2)-(7,7)Case1Picture1.Print"画矩形"Picture1.Line(2,2)-(7,7),,BFCase2Picture1.Print"画圆"Picture1.Circle(4.5, 4.5),3.5,,,,1.4CaseElseEndEndSelectEndSub当选择index=2的按钮时，在图片框picture1中显示( )A."画直线"文字和一条直线B."画矩形"文字和一个矩形C."画圆"文字和一个椭圆D.程序运行结束
单项选择题 在窗体中先建立一个名称为label1的控件数组(它的index属性为0)，当执行以下程序段：PrivateSubForm_Load()DimmtopAsInteger,mleftAsInteger,iAsInteger,jAsIntegermtop=0Fori=1To8mleft=50Forj=1To8k=(i-1)*8+jLoadLabel1(k)Label1(k).BackColor=IIf((i+j)Mod2=0,QBColor(0),QBColor(15))Label1(k).Visible=TrueLabel1(k).Top=mtopLabel1(k).Left=mleftmleft=mleft+Label1(0).WidthNextjmtop=mtop+Label1(0).HeightNextiEndSub执行后的效果是( )A.在窗体中显示16行的黑、白颜色相间的棋盘B.在窗体中显示8行10列的黑色棋盘C.在窗体中显示8行8列的黑、白颜色相间的棋盘D.以上说法都不正确
单项选择题 下面程序的输出结果为( )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程序设计教程"