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

1职高二年级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+1LoopWhileinLoopWhileinPrintxPrintxC、N=5:x=1:i=1D、N=5:x=1:i=1DoDox=x*Ix=x*ii=i+1i=i+1LoopWhilei=nLoopWhileinPrintxPrintx12、下列程序段执行结果为（）X=5Y=-6IfNotx0Thenx=y-3Elsey=x+3Printx-y;y-xA、-33B、5-9C、3-3D、-6513、以下数组定义语句中，错误的是（）2A、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=101、有如下事件过程：PrivateSubForm_Click()DimxAsIntegerX=1N=0DoWhilex28X=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)0Then3Forj=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()(1)Cls(2)DimiAsInteger(3)DimsAsSingle(4)I=0(5)S=1(6)Do(7)I=i+2(8)S=s+i(9)Loops3000(10)Print“从1到：”;I;“的和是”；sEndSub错误一：错误二：五、程序填空3*5=151、输出1000之内的所有素数，每10个一行，程序中有三个空，补充完整。PrivateSubForm1_Click()Dima%(1To1000)Dimi%,j%,n%Fori=1To1000A(i)=iNextiFori=2To1000Forj=To1000Ifa(i)=0ThenIfa(j)Moda(i)=0Thena(j)=0NextjNextiFori=2To1000Ifa(i)0ThenN=n+1Printa(i);Ifnmod10=0ThenEndifNextiEndSub