单项选择题 不属于程序设计的三大基本结构的是( )

单项选择题 语句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程序设计教程"

单项选择题 以下是求三角形面积的程序：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