职高二年级vb期末考试试题

职高二年级vb期末考试试题选择题15*3=451、VisualBasic中窗体文件扩展名是（）A、.VBWB、.FRMC、.VBPD、.PDM2、在设计应用程序时，经过（）能够调整窗体出现在屏幕位置。A、属性窗口B、代码窗口C、窗体设计窗口D、窗体布局窗口3、求Len（“123程序设计ABC”）值是（）A、10B、14C、20D、174、表示式16/4-2^5*8/4mod5\2值为（）A、14B、4C、20D、25、不能作为容器使用对象是（）A、窗体B、框架C、图片框D、图像框6、在窗体上画一个名称为Timer1计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确属性设置语句是（）A、Timer1.Interval=0.5B、Timer1.Interval=5C、Timer1.Interval=50D、Timer1.Interval=5007、当一个工程个复选框被选中时，它Value属性值是（）A、0B、1C、TrueD、False8、语句：if表示式Then….中表示式不能够是（）表示式。A、算数B、逻辑C、关系D、字符9、关于Do…Loop循环结构执行循环体次数描述正确是（）A、DoWhile…Loop循环和Do…LoopUntil循环最少都执行一次。B、DoWhile…Loop循环可能不执行，Do…LoopUntil循环最少执行一次。C、DoWhile…Loop循环和Do…LoopUntil循环都不执行一次。D、DoWhile…Loop循环最少执行一次，Do…LoopUntil循环可能不执行。10、下面程序段，显示结果是（）。x=Int(Rnd）+5SelectCasexCase5Print“优异”Case4Print“良好”Case3Print“及格”CaseElsePrint“不及格”EndSelectA、不及格B、良好C、及格D、优异11、以下能够正确计算n!程序是（）。A、N=5:X=1B、N=5:x=1:i=1DoDox=x*Ix=x*ii=i+1i=i+1LoopWhilei<nLoopWhilei<nPrintxPrintxC、N=5:x=1:i=1D、N=5:x=1:i=1DoDox=x*Ix=x*ii=i+1i=i+1LoopWhilei<=nLoopWhilei>nPrintxPrintx12、以下程序段执行结果为（）X=5Y=-6IfNotx>0Thenx=y-3Elsey=x+3Printx-y;y-xA、-33B、5-9C、3-3D、-6513、以下数组定义语句中，错误是（）A、Dimc(3,1To4)B、Dimb(0To5,1To3)AsintegerC、Dimd(-10)D、Statica(10)AsInteger14、下面程序输出结果是（）DimaA=array(1,2,3,4,5,6,7)Fori=Lbound(a)ToUbound(a)A(i)=a(i)*a(i)NextiPrinta(6)A、36B、程序犯错C、49D、不确定15、在设定OptionBase0后，经Dimarr（3,4）AsInteger定义数组arr含有元素个数为（）A、12B、20C、16D、9填空题10*2=201、VisualBasic应用程序通常由3类模块组成，即、和。2、在申明过程、变量和常数名字时，不能超出个字符。3、当对象得到焦点时，会触发事件。4、要使文本框能够输入多行文本，需要设置属性为True。5、列表框中第一个列表项索引编号为。6、用Redim语句重新定义动态数组时，不去除数组原有内容，应加参数为。7、和变量一样，数组在定义后，数组中个元素都将被赋一个初值。数值型数组中各元素初值为。8、若有语句A=Array（1,2,3,4,5,6），则A（5）值是。程序分析2*5=10有以下事件过程：PrivateSubForm_Click()DimxAsIntegerX=1N=0DoWhilex<28X=x*3N=n+1LoopPrintx,nEndSub程序运行后，单击窗体，输出结果是2、分析下面VisualBasic程序段如图所表示，图中有两个列表框，左边是List1，右边是List2，一个命令按钮Command1，窗体载入事件和命令按钮单击事件中都有代码，程序段以下：PrivateSubCommand1_Click()DimnAsInteger,IAsInterger,jAsIntegerList2.ClearN=InputBox(“n=”)ReDimA(2Ton)AsIntegerFori=2tonA(i)=iNextiFori=2ToSqr(n)IfA(i)<>0ThenForj=2*ITonStepiA(j)=0NextjEndIfNextiFori=2TonIfA(i)<>0ThenList2.AddItemList1.List(i)NextiEndSubPrivateSubForm_Load()List1.AddItem“ItemA”List1.AddItem“ItemB”List1.AddItem“ItemC”List1.AddItem“ItemD”List1.AddItem“ItemE”EndSub窗体开启后，单击命令按钮，输入4，右边列表框中显示内容是。程序改错2*5=101、程序功效：求1+2+3+。。。。。，直到其和超出3000为止，并输出结果。程序中有两行有错误，找出并改过。OptionExplicitPrivateSubForm_Click()ClsDimiAsIntegerDimsAsSingleI=0S=1DoI=i+2S=s+iLoops>3000Print“从1到：”;I;“和是”；sEndSub错误一：错误二：程序填空3*5=15输出1000之内全部素数，每10个一行，程序中有三个空，补充完整。PrivateSubForm1_Click()Dima%(1To1000)Dimi%,j%,n%Fori=1To1000A(i)=iNextiFori=2To1000Forj=To1000Ifa(i)=0ThenIfa(j)Moda(i)=0Thena(j