高职招考VB模拟题

1高职招考VB模拟题一、单选题1、下列表述中不能判断x是否为偶数的是()A、x/2=Int(x/2)B、xMod2=0C、Fix(x/2)=x/2D、x\2=02、设窗体上有1个滚动条,要求单击滚动条右端的微调按钮一次,滚动条移动一定的刻度值,决定此刻度的属性是()A、MaxB、MinC、SmallChangeD、LargeChang3、设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是()A、Combo1.RemoveItemCombo1.TextB、Combo1.RemoveItem4C、Combo1.RemoveItemCombo1.ListCountD、Combo1.RemoveItem54、用于获得字符串S从第2个字符开始的3个字符的函数是（）A、Mid$(S,2,3)B、Middle(S,2,3)C、Right$(S,2,3)D、Left$(S,2,3)5、在窗体中添加一个命令按钮，名称为CMD1，然后编写如下程序；PrivateSubCMD1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPrint456EndIfEndSubPrivateSubCMD1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print123EndSub]程序运行后，在命令按钮上单击鼠标右键，则在窗体上显示的内容是（）A、123456B、456C、456123D、1236、要清除图片框中的图片应使用以下哪种方法（）A、Picture1.visible=falseB、Picture1.Cls2C、Picture1.picture=“”D、Picture1.picture=LoadPicture(“”)二、填空题1、语句DIMarr(-3to5,2to6)ASINTEGER定义的数组元素有个。2、若要屏蔽框架上的控件对象，则需要设置属性值为False。3、产生区间[10，99]间随机整数的表达式为。4、在设计菜单时，要在菜单中加入一个菜单分隔项，则菜单分隔项的标题需设置为。5、在VB中，设A=2，B=-4，则表达式A^3\45+BAND“AB”“12”的值是。6、在ＶＢ中，要删除列表框（Ｌist1）中的指定的项目应使用的方法为.三、阅读分析题1、dimx(3,5)fori=1to3forj=1to5x(i,j)=x(i-1,j-1)+i+jnextj,iprintx(3,4)上面程序运行时输出的结果为。2、以下程序段的输出结果为。X=1Y=4Dountily4X=x*4Y=y+1LoopPrintx3、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：privatesubcommand1_click()DimintA(4)AsIntegerDimintB(4)AsIntegerDimiAsIntegerFori=0To2intA(i+1)=i*2+1intB(3-i)=intA(i+1)3NextiPrintintB(i)Endsub程序运行后的结果是。4、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()StaticxAsIntegerFori=1To2y=y+xx=x+2NextPrintx,yEndSub程序运行后，连续三次单击Command1按钮后，窗体上最后一次的结果是5、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimxAsIntegerDoX=x+1s=s+xx=(x+2)*xloopuntilx15print“s=”;s,“x=”;xEndSub程序运行后的结果是。6、在窗体上画一个命令按钮，然后编写如下程序：privatesubcommand1_click()dimiasintegerforI=0.5to8.5step2.5s=s+I*10nextIprints,Iendsub程序运行后，单击命令按钮，在窗体上的的输出结果为。7、以下程序运行后，单击窗体，输出结果是4PrivateSubform_click()DimmAsIntegerDimnAsIntegerm=3:n=5Printm,n,test(m,n)EndSubPrivateFunctiontest(xAsInteger,ByValyAsInteger)x=x+y:y=x-ytest=x*yEndFunction8、在窗体上画一个命令按钮，然后编写如下程序：Privatesubcommand1_click()Dima(1to３,２to4)asintegerForI=1to３Forj=２to4A(I,j)=I*2+j*３NextjNextIPrinta(2,3)+a(3,2)Endsub程序运行后，单击命令按钮，在窗体上的的输出结果是。9、在窗体上画一个命令按钮，然后编写如下程序：privatesubcommand1_click()dimintaasintegerx=1inta=inputbox(请输入a的值：)selectcaseintacase1to4x=x+1case5to10x=x+2case8x=x+3caseelsex=x+4endselectprintx5endsub程序运行后，单击命令按钮，在弹出的对话框中输入８，则窗体上的的输出结果是。四、程序填空题1、下面函数计算两个非负整数m与n的最小公倍数。请在空白处填入适当内容将程序补充完整。PrivateSubcommand1_click()DimmAsIntegerDimnAsIntegerm=Val(InputBox(请输入整数M：,m))n=Val(InputBox(请输入整数N：,n))ForI=2TomIfmModI=0And_______(1)__________Thenk=IEndIf_____(2)___________s=(3)print“最小公倍数为：”,sEndSub2、窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。PrivateSubForm_Load()Fori=1To100IfiMod7=0Then(4)EndIfNextEndSubPrivateSubCommand1_Click()Sum=0Fori=0To(5)Sum=Sum+(6)Next6Text1.Text=SumEndSub4、求所有满足条件的四位数ＡＢＣＤ，它是１１的倍数，且第三位数加上第二位数等于第一位数（即Ａ＝Ｂ＋Ｃ）。Privatesubcommand1_()DimIasintegerDimbasinteger,casintegerForI=(7)A=I\1000B=I\100mod10C=(8)If(9)anda=b+cthenPrintI;EndifNextIEndsub5、打印输出如下数组的前20项,并要求每行输出4个数：1，1，3，7，17，41……privatesubcommand1.click()dima(1to20)aslonga(1)=1a(2)=1forI=(10)to20(11)nextIforI=1to20printa(i);if(12)thenprintendifnextIendsub