2018可视化程序设计(VB)

可视化程序设计（VB）saveExam329407597297220010a00一、单项选择题(共10题、0/20分)1、下列程序段的执行结果为（）。DimxasintegerIfxThenPrintxElsePrintx+1EndifA、显示出错信息B、0C、1D、-12、下列程序的执行后，X的结果为（）。PrivateSubCommand1_Click()x=0Fori=1to3x=1Forj=1to4x=2Fork=1to5x=x+2NextkNextjNextiPrintxEndSubA、24B、36C、12D、483、已知d=#2015-04-01#表达式year(d)+1的值是（）。A、05B、2016C、02D、出错4、可用于设置系统当前时间的语句是（）。A、DateB、TimerC、Date$D、Time5、程序的运行结果为（）。DimkAsIntegern=5:m=1:k=1Whilek=nm=m*2k=k+1wendPrintmA、32B、1C、5D、406、在使用菜单编辑器设计菜单时，必须输入的项是（）。A、快捷键B、索引C、名称D、标题7、要禁用计时器控件，需要设置为False的属性是（）。A、IntervalB、TimerC、VisibaleD、Enable8、图像框根据加载的图像的大小调整尺寸，需要设置为False的属性是（）。A、AppearanceB、PictureC、StretchD、AutoSize9、以下关于变量作用域的叙述中，正确的是______。A、模块级变量只能用Private关键字声明B、窗体中凡被声明为Private的变量只能在某个指定的过程中使用C、全局变量必须在标准模块中声明D、Static类型变量的作用域是它所在的窗体或模块文件10、控件数组是通过（）来区分控件数组元素的。A、Index属性B、Count属性C、名称D、控件标题二、判断题(共10题、0/10分)1、事件驱动编程机制是VB的特点之一。正确错误2、2xy是合法的变量名。正确错误3、如果返回是字符型，则函数名后有“$”字符。正确错误4、为了指明某个对象的操作，必须在方法或属性前加上对象名，中间用空格隔开。正确错误5、算术运算符的优先级低于字符运算符的优先级。正确错误6、xyz_1是合法的变量名。正确错误7、对象指的是类的实例。正确错误8、字符是构成程序设计语言的最小语法单位。正确错误9、函数Int(-4.2)的值为-5。正确错误10、Shell函数可调用其他任意程序。正确错误三、填空题(共5题、0/10分)1运行语句：t=MsgBox(Hello,64,Come)后，在信息提示框内显示的内容是________Hello__。2、VB中包含________和事件过程两种sub过程。3、设a=10，b=12，则执行x=Iif(b\a*a=10,0,-1)后，x的值为（）4、数学中完数是指这样的整数：该数的各因子之和是它的本身。例如，6的因子是1，2，3，而6=1+2+3，所以6是完数。下列程序是找出2~1000以内的完数，并显示结果，其中，函数isWs（masinteger）asBoolean用来判断参数m是否是完数。FunctionisWs(mAsInteger)AsBooleanDimiAsInteger,sAsIntegerFori=1Tom-1IfThens=s+iEndIfIf(m=s)ThenElseisWs=FalseEndIfNextiEndFunctionPrivateSubCommand1_Click()DimiAsIntegerFori=2To1000IfThenPrinti;NextiEndSub参考答案：mmodi=0isWs=TrueisWs=True5、以下程序段的输出结果是__3__。Num=0Whilenum=2num=num+1WendPrintnum四、程序阅读题(共5题、0/15分)1、程序为：PrivateSubForm_Click()Dimaa=Array(1,2,3,4,5,6,7)ForI=LBound(a)ToUBound(a)a(I)=a(I)*a(I)Printa(I)NextIEndSub程序运行后，单击窗体后，在窗体显示的结果是：参考答案：149162536492、在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程：PrivateSubForm_Load()List1.AddItem“123”List1.AddItem“456”List1.AddItem“369”List1.AddItem“789”Text1.Text=“”EndSubPrivateSubList1_DblClick()a=List1.TextPrinta+Text1.TextEndSub程序运行后，在文本框中输入“248”，然后双击列表框中的“369”，则输出结果（）参考答案：3692483、写出下面程序运行时单击窗体的输出结果。PrivateSubf(a%,b%)a=a+bb=a-bEndSubPrivateSubForm_Click()Dima%,b%a=23b=12Callf(a,b)Printa=&a;,b=&bEndSub参考答案：a=35,b=234、写出下列事件过程的执行结果。PrivateSubCommand1_Click()s3(1)s3(1)EndSubPrivateSubs3(ByValaAsInteger)DimxAsIntegerStaticyAsIntegerx=x+a:y=y+aPrintx=;x,y=;yEndSub5、在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=0Fori=1to3x=1Forj=1to4x=2Fork=1to5x=x+2NextkNextjNextiPrintxEndSub程序运行后，单击命令按钮，输出结果为（12）五、简答题(共5题、0/25分)1、VB有多种类型窗口，若想在设计时看到代码窗口，怎样操作？单击工程资源管理器窗口的“查看代码”按钮。2、简述VB6.0的主要特点。参考答案：（1）面向对象的程序设计（2）具有结构化程序设计语言（3）事件驱动编程机制（4）强大的数据库、多媒体功能（5）完备的联机帮助功能3、将数字串转换成数值用什么函数？判定是否是数字串用哪个函数？取字符串某几个字符使用什么函数？大小写字母转换用什么函数？参考答案：（1）数字串转换成数值用val函数；（2）判定是否是数字串用isnumeric函数。（2）取字符串某几个字符使用mid函数。（3）大小写字母转换用lcase函数\ucase函数。4、哪种数据类型的内存容量较少，且可存300的值？为什么？5、什么是对象？什么是类？什么是事件过程？参考答案：（1）对象是面向对象程序设计的核心，是构成应用程序的基本元素。（2）类是对同种对象的抽象描述，是创建对象的模版。（3）事件过程是对某个对象事件所做的操作。六、程序设计题(共2题、0/20分)1、用随机函数产生100个[0,999]以内的随机整数，输出能够被3整除并且个位不为0的数并且统计满足条件的数的个数。要求每行输出10个数。参考答案：PrivateSubForm_Click()Dima(99)AsInteger,i%,j%,flag%,temp%,k%Fori=0To99Randomize'初始化随机数发生器a(i)=Int((999-0+1)*Rnd+0)'按要求生成随机数放入数组NextiFori=0To99Ifa(i)Mod3=0Anda(i)Mod100Thenj=j+1Printa(i);IfjMod10=0ThenPrintvbCrLfEndIfEndIfNextiPrintvbCrLfPrint满足条件的数的个数为：&jEndSub2、编写一个递归函数将一个正整数n的各位数字从低位到高位分解开，例如123，分解为321，其中n的值在命令按钮单击事件中用InputBox（）函数输入。命令按钮单击事件中：n=inputBox()fx(n)递归函数：fx(m)ifm10thenprintmelseprintdod(m,10)fx(m\10)endif10