07-08VB期末试卷

VB程序设计试题（第1页共12页）浙江理工大学科技与艺术学院2007—2008学年第二学期《VB程序设计》期末试卷问卷（A）卷班级__________姓名__________学号__________[注意]试题一、二、三、四回答在答题卡上，试题五回答在答题卷上。一、判断题（判断下列各题是否正确，正确的选“A”，错误的选“B”。每小题1分，共10分。）(1)VisualBasic是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言。(2)函数MsgBox的前三个参数，分别为图标样式、按钮样式以及默认按钮。(3)For/Next循环正常(未执行ExitFor)结束后，循环控制变量的当前值等于终值。(4)子程序过程Swap的调用有“CallSwapX,Y”和“Swap(X,Y)”两种方式。(5)标签控件和文本框控件一样能在运行时显示文本和输入文本。(6)滚动条的LargeChange属性值一定比SmallChange属性值大。(7)用Cls方法能清除窗体或图片框中用Circle方法画的圆，但不能清除其中用形状控件Shape创建的圆。(8)在框架中添加的控件，其Top和Left属性值是相对框架而言的，与窗体无关。(9)CommonDialog1.Action=1或CommonDialog1.ShowOpen均表示在运行时显示“打开”对话框。(10)在VB系统中，颜色用长整型数表示，例如RGB(255,0,0)=255。二、单选题（在每小题的四个备选答案中选出一个正确答案，并将正确答案的序号填入“___(题号)___”处。每小题2分，共20分。）(11)在设计模式双击窗体中的对象后，VisualBasic将显示的窗口是___(11)___。[A]属性窗口[B]代码窗口[C]工具箱[D]项目（工程）窗口(12)语句PrintNot1012And55+2的输出结果为___(12)___。[A]7[B]False[C]True[D]12(13)VB算术运算符加或减、求余、乘或除、整除的优先级，从高到低依次为___(13)___。[A]加或减、乘或除、求余、整除[B]乘或除、整除、求余、加或减[C]整除、求余、乘或除加或减、[D]整除、乘或除、加或减、求余(14)有关循环结构Do/LoopUntil和DoUntil/Loop的差别，下列叙述中，正确的是___(14)___。班级：学号：姓名：装订线VB程序设计试题（第2页共12页）[A]后者至少做一次循环，而前者可能一次也不做。[B]不管条件如何，前者总是要比后者多做一次循环。[C]两者的差别在第一次循环做什么，以后就完全相同了。[D]当Until后的条件为False时，两者效果相同。(15)在默认的情况下，由Dimabc(3,2To4)AsString*2语句定义的数组占用___(15)___字节的内存空间。[A]24[B]9[C]18[D]48(16)用SelectCaseX选择-5=X=5，在下列各个Case描述中，正确的是___(16)___。[A]CaseIs-5To5[B]Case-5To5[C]CaseIs=-5AndIs=5[D]CaseIs-5=X=5(17)设计动画时通常用定时器控件___(17)___属性来控制动画速度。[A]Interval[B]Timer[C]Move[D]Enabled(18)以下描述的控件及对应的属性___(18)___可根据图片的大小调整控件的大小。[A]图片框的AutoSize属性为True和影像框的Stretch属性为True[B]图片框的AutoSize属性为False和影像框的Stretch属性为True[C]图片框的AutoSize属性为True和影像框的Stretch属性为False[D]图片框的AutoSize属性为False和影像框的Stretch属性为False(19)在下拉菜单中添加分隔条，应当设置___(19)___。[A]菜单标题为”-”[B]菜单名称为”-”[C]菜单标题为”Separator”[D]菜单名称为”Separator”(20)可以用来获取已打开文件长度的函数是(20)。[A]Len[B]LOF[C]EOF[D]FileLen三、程序填空选择题（在每小题的四个备选答案中选出一个正确答案，并将正确答案的序号填入“___(题号)___”处。每填空2分，共20分。）[注意]下列3个程序段中有10处填空（21-30），请选择合适的答案将程序补充完整。1.当单击窗体时，生成10个范围在[-100，100]的随机整数，并将它们从小到大排序，在窗体上显示排序前和排序后的结果。PrivateSubForm_Click()DimA(10)AsIntegerDimIAsByte,JAsByte,PAsByte,TAsIntegerPrint生成的随机数如下：RandomizeForI=1To10A(I)=___(21)___PrintA(I);NextIForI=1To9P=IForJ=I+1To10___(22)___VB程序设计试题（第3页共12页）NextJ___(23)___NextIPrint:Print排序后如下：ForI=1To10PrintA(I);NextIEndSub(21)[A]Int(Rnd*200)-100[B]Int(Rnd*101)-100[C]Int(Rnd*201)-100[D]Int(Rnd*100)-200(22)[A]IfA(J)A(P)ThenP=J[B]IfA(I)A(P)ThenP=I[C]IfA(J)A(P)ThenP=J[D]IfA(I)A(J)ThenI=J(23)[A]T=A(P):A(I)=A(P):A(I)=T[B]T=A(I):A(I)=A(J):A(J)=T[C]T=A(I):A(I)=A(P):A(P)=T[D]T=A(J):A(J)=A(P):A(P)=T2.单击窗体时，用于输入一个字符串，程序在该字符串中查找red，并用输出对话框给出找到的个数或没有找到的查找结果。OptionExplicitPrivateSubForm_Click()DimStr1AsString,LengthAsInteger,SumAsInteger,IAsIntegerStr1=InputBox(请输入一个字符串)Length=___(24)___I=1Sum=0DoWhile___(25)___If___(26)___=redThenSum=Sum+1EndIfI=I+1LoopIf___(27)___ThenMsgBox找到了&Str(Sum)&个ElseMsgBox没有找到！EndIfEndSub(24)[A]Length(Str1)[B]Len(Str1)[C]Trim(Str1)[D]Val(Str1)(25)[A]ISum[B]I=Sum[C]I=Length-2[D]ILength-2(26)[A]Mid(Str1,I,3)[B]Left(Str1,I)[C]Right(Str1,I)[D]Instr(Str1,3)班级：学号：姓名：装订线VB程序设计试题（第4页共12页）(27)[A]Sum=Length[B]Mid(Str1,I,3)[C]Sum0[D]Sum=03.单击窗体，求出3~100之间的所有素数（质数）并统计个数；同时将这些素数从小到大依次写入顺序文件e:\sushu.txt，同时素数的个数显示在窗体上。PrivateSubForm_Click()DimcountAsInteger,flagAsBooleanDimt1AsInteger,t2AsInteger___(28)___count=0Fort1=3To100flag=TrueFort2=2ToInt(Sqr(t1))If___(29)___Thenflag=FalseNextt2___(30)___count=count+1Write#1,t1EndIfNextt1PrintcountClose#1EndSub(28)[A]Opene:\sushu.txtForInputAs#1[B]Opene:\sushu.txtForRandomAs#1[C]Opene:\sushu.txt[D]Opene:\sushu.txtForOutputAs#1(29)[A]t1Modt20[B]t1Modt2=1[C]t1Modt2=0[D]t1Modt21(30)[A]IfflagThen[B]Ifflag=falseThen[C]IfNotflagThen[D]Ift2=Int(Sqr(t1))Then四、程序阅读选择题（在每小题的四个备选答案中选出一个正确答案。每小题2分，共20分。）1.阅读以下程序，在相应的选项中选择正确的答案来回答问题(31)、(32)和(33)。设Text1.Text为“abcdef”，运行时连续单击3次控件Hscroll1右侧箭头后，列表框控件中的第1项为(31)、第2项为(32)、第3项为(33)。PrivateSubForm_Load()HScroll1.SmallChange=2HScroll1.Max=5VB程序设计试题（第5页共12页）HScroll1.Min=1HScroll1.Value=2List1.ClearEndSubPrivateSubHscroll1_Change()List1.AddItemLeft(Text1.text,Hscroll1.Value),0EndSub(31)[A]abcdef[B]abcde[C]abcd[D]ab(32)[A]a[B]abcde[C]abc[D]abcd(33)[A]ab[B]abcd[C]abc[D]无第3项2.阅读以下程序，在相应的选项中选择正确的答案来回答问题(34)、(35)和(36)。PrivateSubPicture1_Click()DimIAsBytePicture1.Height=Picture1.WidthPicture1.Scale(-1,1)-(1,-1)Picture1.Circle(0,0),1,0,-0.5,2EndSub(34)单击图片框，其中显示图形是___(34)___。[A][B][C][D](35)若将上述过程中最后两句改为Picture1.Scale(1,0)-(0,1)Picture1.Circle(0,0),1单击图片框，其中显示图形是___(35)___。[A][B][C][D](36)若将上述过程中最后两句改为Picture1.Scale(-5,5)-(5,-5)Picture1.Line(-3,-2)-(3,2),,BF单击图片框，其中显示图形是___(36)___。[A][B][C][D]班级：学号：姓名：装订线VB程序设计试题（第6页共12页）3.阅读以下程序，在相应的选项中选择正确的答案来回答问题(37)、(38)、(39)和(40)。PrivateSubForm_Click()DimiAsIntegerFori=1To3S=sum(i)PrintS=;SNexti'---②---EndSubFunctionsum(ByValnAsInteger)'---③---StaticjAsIntegern=n+1j=j+nsum=jEndFunction(37)单击窗体后，程序2运行结果为____(37)____。[A]S=2S=3S=4[B]S=2S=5S=9[C]S=2S=4[D]S=2S=6(38)如果②处有Printi语句，那么这里输出的i值将是____(38)____。[A]3[B]4[C]5[D]0(39)将语句③更改为Functionsum(nAsInteger)，单击窗体后，程序2运行结果为____(39)____。[A]S=2S=6[B]S=2S=4[C]S=2S=5S=9[D]S=2S=3S=4(40)将语句③更改为Functionsum(nAsInteger)，如果②处有Printi