高职单招计算机VB部分测试

第1页共3页高职第三次测试座号：__________姓名：__________成绩：__________一、阅读分析题(阅读分析下面VB程序，将正确的运行结果填入指定的下划线上。每题6分，共72分)1、窗体上有一个名为Command1的命令按钮，并有下面的程序：PrivateSubCommand1_Click()a=24:b=32a=a+bb=a-ba=a-bPrinta,bEndSub程序运行时，单击命令按钮后，则显示的结果是：2、窗体上有一个名为Command1的命令按钮，并有下面的程序：PrivateSubCommand1_Click()a=123:b=456c=Val(a)+Val(b)Printc\100EndSub程序运行时，单击命令按钮后，则显示的结果是：3、窗体上有一个名为Command1的命令按钮，并有下面的程序：PrivateSubCommand1_Click()Dima,bAsIntegera=13b=6PrintAbs(a\b-a)EndSub程序运行时，单击命令按钮后，则显示的结果是：。4．有如下程序：PrivateSubForm_Click()A=24b=328selectcaseb\10case0c=a*10+bcase1to9c=a*100+bcase10to99c=a*1000+bendselectEndSub程序运行后，单击窗体，输出结果为_______。5．在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=5y=-20IfNotx0Thenx=y-3Elsey=x+3Printx-y;y-xEndIfEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容_______。6．在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()b=1Dowhile(b40)b=b*(b+1)LoopPrintbEndSub运行程序后，直接按回车键，屏幕显示的结果是：____________7．在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=0Fori=1to5Forj=ito5x=x+1第2页共3页NextjNextiPrintxEndSub以上程序的输出结果__________8．执行以下程序段PrivateSubCommand1_Click()DimsAslong,xAsIntegers=0:x=1DoWhile(x10)s=s+xx=x+2LoopPrintsEndSub程序运行后，s的值为_______。9．窗体上有一个名为Command1的命令按钮，并有下面的程序：PrivateSubCommand1_Click()X=3y=6DoWhiley=6x=x*yy=y+1LoopPrintx,yEndSub程序运行时，单击命令按钮后显示的结果是：_________。10、窗体上有一个名为Command1的命令按钮，并有下面的程序：PrivateSubCommand1_Click()b=10DoUntilb=-1a=InputBox(请输入a的值：)a=Val(a)b=InputBox(请输入b的值：)b=Val(b)a=a*bLoopPrintaEndSub程序运行后，依次输入数值30，20，10，-1，输出的结果是：。11．在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：SubS(xAsSingle,yAsSingle)t=xx=t*yy=t/yEndSubPrivateSubCommandl_Click()DimaAsSingleDimbAsSinglea=5：b=4Sa,bPrinta;bEndSub程序运行后，单击命令按钮，其输出结果为_______。12、窗体上有一个名为Command1的命令按钮，并有下面的程序：PrivateFunctiona(nAsInteger)AsLongDimtAsLongDimiAsIntegert=1Fori=1Tont=t*iNextia=tEndFunctionPrivateSubCommand1_Click()DimsAsLongDimtAsIntegers=0第3页共3页t=1s=a(5)PrintsEndSub程序运行时，单击命令按钮后，则显示的结果是：。二、程序填空题（请正确填充下面的VB程序，使其完成所需要的功能。每空3分，共27分）1、编写一个程序段，定义一个包含20个元素整数数组，为每个数组元素输入一个整数值，计算所有奇数和与偶数和，输出奇数和与偶数和的差。PrivateSubCommand1_Click()DimiAsIntegerDima(1To20),m,nAsIntegerm=0:n=0'm是奇数，n是偶数Fori=1To20a(i)=Val(InputBox(输入一个整数))Ifa(i)Mod2=1ThenElseEndIfNextiPrintEndSub3、下列程序的功能是：打印出100~999的“水仙花”数，所谓水仙花数是指：abc=a^3+b^3+c^3,如153=1^3+5^3+3^3PrivateSubCommand1_Click()DimiAsIntegerFori=100to999k=ic=k_______10‘取三位数的个位k=k\10b=k________10a=k\10IfThenPrinti,EndifNextiEndsub3、下列程序的功能是：找出1-1000中所有的素数，按从大到小顺序每行输出10个素数。FunctionFun(ByvalxAsInteger)AsBooleanDimiAsIntegerk=0Fori=2ToInt(Sqr(x))If(xmodi=0)Thenk=1EndifNextiIf(k)ThenFun=FalseElseFun=TrueEndifEndFunctionPrivateSubCommand1_Click()Dimi,jasIntegerj=0Fori=1000to2step________Iffun(i)then________Printi,EndifIfjmod10=0then________EndifNextiEndsub