Visual Basic循环结构程序选择题

VB循环结构设计１．执行下面的程序段后，x的值为（Ａ）x=5ForI=lTo20Step2x=x+I＼5NextIA．21 B．22 C．23 D．２4２．假定有以下循环结构：Dountil条件循环体Loop则下列说法正确的是（Ａ）A-1D．不论“条件”是否为“真”，至少要执行一次循环体３．下面程序在调试时出现了死循环PrivateSubCommand1_Click()n=InputBox(“请输入一个整数”)DoIfnMod2=0Thenn=n+1Elsen=n+2ElseIfLoopUntiln=1000EndSub下面关于死循环的叙述中正确的是(D)只有输入的n是偶数时才会出现死循环，否则不会只有输入的n是奇数时才会出现死循环，否则不会只有输入的n1000D)输入任何整数都会出现死循环４．下列循环控制结构出现错误的是（Ｂ）Ａ．ＦｏｒＩ=１Ｔｏ１００Ｓ＝ｓ＋ＩＩｆｓ＞１００ＴｈｅｎＥｘｉｔＮｅｘｔＩＢ．ＷｈｉｌｅＩ＜１００ｓ＝ｓ＋Ｉ：Ｉ＝Ｉ＋１Ｉｆｓ＞１００ＴｈｅｎＥｘｉｔＷｈｉｌｅＷｅｎｄＣ．ＤｏＳ=ｓ＋Ｉ：Ｉ＝Ｉ+１Ｉｆｓ＞１００ＴｈｅｎＥｘｉｔＤｏＬｏｏｐＷｈｉｌｅＩ＜１００Ｄ.ＤｏＷｈｉｌｅＩ＜１００Ｓ=ｓ＋Ｉ：Ｉ＝Ｉ+１Ｉｆｓ＞１００ＴｈｅｎＥｘｉｔＤｏＬｏｏｐ以下循环语句中在任何情况下都至少执行一次循环体的A)DoWhile条件> B)While条件>循环体 循环体Loop WendC)Do D)DoUntil循环体 循环体LoopUntil条> Loop当循环为计算1+3+5+„„+99的值，某人编程如下k=1s=0Whilek<=99k=k+2 : WendPrints在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是(D)A)While„Wend循环语句错误，应改为Fork=1To99„Nextk循环条件错误，应改为Whliek<99循环前的赋值语句k=1k=0循环中两条赋值语句的顺序错误，应改为s=s+k:k=k+2５．下列语句错误的是（Ｂ）Ａ．ＥｘｉｔＦｏｒＢ．ＥｘｉｔＷｈｉｌｅＣ．ＥｘｉｔＤｏＤ.ＥｘｉｔＳｕｂ６．设ａ＝４，ｂ＝５，下列循环中，循环体没有执行循环结构的是（Ｂ）Ａ．Ｆｏｒｉ＝ａＴｏＰｒｉｎｔ＂＊＂ＮｅｘｔｉｂＢ．Ｗｈｉｌｅａ＜ｂＰｒｉｎｔ＂＊＂ＷｅｎｄＣ．ＤｏＤ．ＤｏＵｎｔｉｌａ＞ｂＰｒｉｎｔ＂＊＂Ｐｒｉｎｔ＂＊＂ＬｏｏｐＷｈｉｌｅａ＞ｂＬｏｏｐ７．有如下事件过程（）ＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ＿Ｃｌｉｃｋ（）ｂ＝１０ＤｏＵｎｔｉｌｂ＝－１ａ＝ＩｎｐｕｔＢｏｘ（＂输入ａ的值＂）ａ＝Ｖａｌ（ａ）ｂ＝ＩｎｐｕｔＢｏｘ（＂输入ｂ的值＂）ｂ＝Ｖａｌ（ｂ）ａ＝ａ＊ｂＬｏｏｐＰｒｉｎｔａＥｎｄＳｕｂ程序运行后，依次输入数值输出结果是Ａ.６０００ Ｂ.-６０００ Ｃ.２００ Ｄ.-１０８．下列关于循环控制结构的使用说明，正确的是（Ｂ）Ａ．Ｆｏｒ．ＮｅｘｔＢ．任何一种循环都必须有起始语句和终端语句Ｃ．不能用Ｗｈｉｌｅ．Ｗｅｎｄ语句设计出确定循环次数的循环Ｄ．循环体没有执行完毕，不能在中途结束循环９．程序执行时，单击窗体输出结果是（Ｂ）ＰｒｉｖａｔｅＳｕｂ ＤｉｍｘＡｓＩｎｔｅｇｅｒｘ＝５ＤｏＰｒｉｎｔｘ＝ｘ－１ＬｏｏｐＷｈｉｌｅＮｏｔＥｎｄＳｕｂＡ．５ Ｂ．５４３２１０Ｃ．出现语法错误的信息 Ｄ．陷入死循１０．程序执行时，单单击窗体输出结果是（Ｂ）ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｃｌｉｃｋ（）ＤｉｍＩＡｓＩｎｔｅｇｅｒｎ＝８Ｗｈｉｌｅｎ＞５ｎ＝ｎ－１Ｐｒｉｎｔｎ；ＷｅｎｄＥｎｄＳｕｂＡ.８７６ Ｂ.７６５ Ｃ.７６５４ １１．执行下列程序段后，输出的结果是（）Ｆｏｒｋ１＝０Ｔｏ４ｙ＝２０Ｆｏｒｋ２＝０Ｔｏ３ｙ＝１０Ｆｏｒｋ３＝０Ｔｏ３ｙ＝ｙ＋１０Ｎｅｘｔｋ３Ｎｅｘｔｋ２Ｎｅｘｔｋ１ＰｒｉｎｔＡ.９０ Ｂ.６０ Ｃ.４０ １２．以下循环体执行的次数是（Ｃ）ｉ＝０：ｊ＝１ＷｈｉｌｅＰｒｉｎｔｉｉ＝ｉ＋２：ｊ＝ｊ－１ＷｅｎｄＡ.３次 Ｂ.２次 Ｃ.１次 Ｄ．０１３．下述程序的功能是（Ｃ）ｘ＝＂（ａ＋Ｂ）＊Ａ－（ａ＊ｂ＋Ｃ）＂ｎ＝Ｌｅｎ（ｘ）ｍ＝０Ｆｏｒｋ＝１Ｔｏｎｐ＄＝Ｍｉｄ（ｘ，ｋ，１）Ｉｆｐ＄＂（＂Ｔｈｅｎｍ＝ｍ－１ＥｌｓｅＩｆｐ＄＂（＂ ｍ＝ｍ＋１ＥｎｄＩｆＩｆｍ＞０ＴｈｅｎＰｒｉｎｔ＂：－ｐ＂ＥｎｄＩｆＮｅｘｔｋＰｒｉｎｔＡ．统计输入的字符串中括号的总数Ｂ．统计输入的字符串中匹配的括号的对数Ｄ．删除字符串的括号１４．ＶｉｓｕａｌＢａｓｉｃ的过程有三种，它们是（Ｂ）Ａ．事件过程、子过程和函数过程 Ｂ．子过程、函数过程和属性过Ｃ．事件过程、函数过程和属性过程 Ｄ、子过程、通用过程和函数过１５．使用过程编写程序是为了（Ａ）Ａ．使程序模块化 Ｂ．使程序易于阅读Ｃ．提高程序运行速度 Ｄ．便于系统的编１６．关于文件过程与通用过程的说明，正确的是（Ｄ）Ａ．文件过程和通用过程都必须是能够被对象所识别的Ｂ．文件过程和通用过程都是系统预先设计好的Ｃ．文件过程和通用过程都能够用鼠标触发１７．Ｓｕｂ过程的定义中（Ｃ）Ａ．一定要有虚参 Ｂ．一定指明是公有的还是静态的Ｃ．一定要有过程的名称 Ｄ．一定要指明其类型存储方式。若使用Ｓｔａｔｉｃ关键字，则（Ｃ）Ａ．每次调用此过程，该过程的局部变量都会被重新初始化Ｂ．在本过程中使用到的，在其他过程中定义的变量也为ＳｔａｔｉｃＤ．定义了该过程中定义的局部变量为“自动”变量１９．下面关于退出Ｓｕｂ和Ｆｕｎｃｔｉｏｎ过程中，说法正确的是（Ｃ）Ａ．过程的最后一条语句是ＥｎｄＳｕｂ（或ＥｎｄＦｕｎｔｉｏｎ定要执行到ＥｎｄＳｕｂ（或ＥｎｄＦｕｎｔｉｏｎ）才会结束过程的执行Ｅｘｉｔ或Ｅｎｄ果有则只能有一条Ｅｘｉｔ或Ｅｎｄ过程的执行，也可以通过ＥｎｄＳｕｂ（或ＥｎｄＦｕｎｔｉｏｎ）结束过程的执行Ｄ．可以用ｇｏｔｏ语句来退出Ｓｕｂ过程２０．下列关于函数的说法正确的是（Ｄ）ＡｓＳｕｂ样，都是无类型过程Ｃ．函数名在过程中只能被赋值一次Ｄ．函数过程是通过函数名带回函数值的２１．下列过程语句中，一定按传值方式进行数据传递的语句是Ａ．ＳｕｂＰｒｏ２（ａＡｓＩｎｔｅｇｅｒ）Ｂ．ＳｕｂＰｒｏ２（ＢｙＲｅｆａＡｓＩｎｔｅｇｅｒ）Ｃ．ＳｕｂＰｒｏ２（ＢｙＶａｌａＡｓＩｎｔｅｇｅｒ）Ｄ．ＳｕｂＰｒｏ２（ａｒｒ（）２２．下列定义的函数过程正确的是（Ｃ）Ａ．ＰｒｉｖａｔｅＳｕｂＦｕｎｃｔｉｏｎＦ１（ｘ，ｙ）ＤｉｍｚＡｓＳｉｎｇｌｅｚ＝ｘ＋ｙＥｎｄＦｕｎｃｔｉｏｎＥｎｄＳｕｂＢ．ＰｒｉｖａｔｅＦｕｎｃｔｉｏｎＦ１（ｘ，ｙ）ＡｓＤｉｍｘＡｓＳｉｎｇｌｅ，ｙＡｓＳｉｎｇｌｅＡｓＡｓＦ１＝ｘ＋ｙＥｎｄＦｏｕｎｃｔｉｏｎＤ．ＦｕｎｃｔｉｏｎＦ１（ｘｙ）ＡｓＤｉｍｚ（ＡｓＳｉｎｇｌｅ）ｚ＝ｘ＋ｙＥｎｄＦｏｕｎｃｔｉｏｎ２３．在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是（Ａ）PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<65OrKeyAscii>90ThenMsgBox"请输入大写字母"KeyAscii=0EndIfEndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode<65OrKeyCode>90ThenMsgBox"请输入大写字母"KeyCode=0EndIfEndPrivateSubText1_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)IfAsc(Text1.Text)<65OrAsc(Text1.Text)>90ThenMsgBox"请输入大写字母"EndIfEndSubPrivateSubText1_Change()IfAsc(Text1.Text)>64AndAsc(Text1.Text)<91ThenMsgBox"请输入大写字母"EndIfEndSub２４．要使列表框中的列表项显示成复选框形式，则应将其Style属性设置为（Ｂ）A)0B)1C)TrueD)False２４．要使列表框中的列表项显示成复选框形式，则应将其Style属性设置为（Ｂ）A)0B)1C)TrueD)False２５．设组合框Comb01中有3个项目，则以下能删除最后一项的语句是（Ｂ）２５．设组合框Comb01中有3个项目，则以下能删除最后一项的语句是（Ｂ）A．Combo1．RemoveItemTextB．Combo1．Removeltem2CComboRemoveItem3 DComboRemoveltemComboListcount２６．在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为（Ａ）Fori=0ToList1.ListCount-1„„NextFori=0ToList1.Count-1„„NextFori=1ToList.ListCount„„NextFori=1ToList1.Count„„Next２７.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：PrivateSubCommand1_Click()n=Val(Text1.Text)Ifn＼2=n/2Thenf=f1(n)Elsef=f2(n)EndIfPrintf;nEndSubPublicFunctionf1(ByRefx)x=x*xf1=x+xEndFunctionPublicFunctionf2(ByValx=x*xf2=x+x+xEndFunction程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的A.7236 B.10836C.726 Ｄ.1086２８.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()c=1234c1=Trim(Str(C))Fori=1To4PrintNextEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在下划线处应填入的内容为(Ｂ)Right(c1,i)Left(c1,i)Mid(c1,i,1)Mid(c1,i,i)２９.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=2TonForj=2ToSqr(i)IfiModj=0ThenExitNextjIfj>Sqr(i)ThenPrintNextiEndSub该事件过程的功能是(Ｃ)A.输出n以内的奇数输出n以内的偶数输出n以内的素数输出nj３０.以下描述中正确的是(Ｂ)标准模块中的任何过程都可以在整个工程范围内被调用在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程C)如果工程中包含SubMain如果工程中不包含SubMain３１.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：PrivateFunctionf(mAsInteger)IfmMod2=0Thenf=mElsef=1EndEndFunctionPrivateSubCommand1_Click()DimiAsIntegers=0Fori=1Tos=s+f(i)NextPrintsEndSub程序运行后，单击命令按钮，在窗体上显示的是(Ｃ)A.11 B.10 C.9 D.8３２.在窗体上画一个名称为Text1的文本框和一个名称为Command1后编写如下事件过程：PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimiAsInteger,jAsFori=1To3Forj=2To4array1(i,j)=i+jNextjNextiText1.Text=array1(2,3)+array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是A.15 B.14 C.13 D.12３３.对窗体编写如下事件过程：PrivateSubForm_MouseDown(ButtonAsInteger，ShiftAsInteger,XAsSingle，YAsSingle)IfButton=2ThenPrint“AAAAA”EndIfEndSubPrivateSubForm_MouseUp(ButtonAsAsXAsSingle，YAsSingle)Print“BBBBB”EndSubA.AAAAAB.BBBBBC.AAAAAD.BBBBBBBBBBAAAAA３４.以下说法错误的是(Ａ)A.函数过程没有返回值B.子过程没有返回值C.函数过程可以带参数D.子过程可以带参数３５.在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+1Ifi>10ThenExitForNextText1．Text=Str(n)EndSub程序运行后，单击命令按钮，在文本框中显示的值是(Ｂ)A.2 B.3 C.4 D.5３６.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()s=1Dos=(s+1)*(s+2)Number=Number+1LoopUntils>=30PrintNumber,sEndSub程序运行后，输出的结果是(Ｂ)A.23 B.256 C.512 D.1020３７.在窗体上画一个名称为Drive1Dir1A.Drive1_Change B.Drive1_ClickC.Dir1_Click D.Dir1_Change３８.窗体上有1个名称为List的列表框，其中已经输入了若干个项目（如图所示2Text1、Text2,1个名称为Command1PrivateSubCommand1_Click()DimstrAsString,sAsString,kAsIntegers=Text1Str=””Fork=List1.ListCount-1to0IfInStr(List.List(k),s)>0thenstr=str&List.List(k)&””EndIfNextkIfstr=””ThenText2=”ElseText2=strEndIfEndSub程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是(C)A.京 B.北京南京C.南京 D.没有匹配的项目４０．列表框中列表框的数目可以通过以下（Ｂ）的属性的值获Ａ.ＣｏｕｎｔＢ．ＤｅｆｏｕｌｔＣ．Ｃａｎｃｅｌ ４１．要清楚列表框中所有的列表项目时，应使用（Ｂ）方法Ａ.ＲｅｍｏｖｅＢ．ＣｌｅａｒＣ.ＲｅｍｏｖｅＩｔｅｍＤ．Ｍｏｖｅ４３．设置复选框或单选按钮标题对齐方式的属性是(D)A.Align B.Style C.Sorted D.Alignment“hello”添加到列表框的最后，可使用（）请语句。List1.AddItem“hello”,List1.ListCount-1List1.AddItem“hello”,List1.ListCountList1.AddItem“hello”,List1.ListIndexList1.AddItem“hello”下列（）程序段能删除列表框List1中的所有项。PrivateSubCommand3_Click() SubCommand3_Click(ForI=0ToList1.ListCount-1 ForI=0ToList1.ListCount-1List1.RemoveItem1 List1.RemoveItem0NextI NextIEndSub EndSubC．PrivateSubCommand3_Click() SubCommand3_Click(ForI=0ToList1.ListCount ForI=0ToList1.ListCountList1.RemoveItem1 List1.RemoveItemNextI NextIEndSub EndSub要将一个组合框设置为简单组合SimpleComb则应将其Style属性设置A ）A．0