2018可视化程序设计(VB).docx

《2018可视化程序设计(VB).docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、可视化程序设计（VB）窗体顶端一、单项选择题(共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的值是（）。·

2、A、05·B、2016·C、02·D、出错4、可用于设置系统当前时间的语句是（）。·A、Date ·B、Timer·C、Date$ ·D、Time  5、程序的运行结果为（）。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、Enab

3、le8、图像框根据加载的图像的大小调整尺寸，需要设置为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/

4、10分)1、事件驱动编程机制是VB的特点之一。·正确·错误2、2xy是合法的变量名。·正确·错误3、如果返回是字符型，则函数名后有“$”字符。·正确·错误4、为了指明某个对象的操作，必须在方法或属性前加上对象名，中间用空格隔开。·正确·错误5、算术运算符的优先级低于字符运算符的优先级。·正确·错误6、xyz_1是合法的变量名。·正确错误7、对象指的是类的实例。·正确·错误8、字符是构成程序设计语言的最小语法单位。·正确·错误9、函数Int(-4.2)的值为-5。·正确·错误10、Shell函数可调用其他任意程序。·正确错误三、填空题(共5题、0/10分)1运行语句：

5、t=MsgBox("Hello",64,"Come")后，在信息提示框内显示的内容是________Hello__。2、VB中包含________和事件过程两种sub过程。3、设a=10，b=12，则执行　　x=Iif(ba*a=10,0,-1)　后，x的值为（）4、数学中完数是指这样的整数：该数的各因子之和是它的本身。例如，6的因子是1，2，3，而6=1+2+3，所以6是完数。下列程序是找出2~1000以内的完数，并显示结果，其中，函数isWs（masinteger）asBoolean用来判断参数m是否是完数。FunctionisWs(mAsInteger)As

6、Boolean DimiAsInteger,sAsInteger Fori=1Tom-1   If Then     s=s+i   EndIf   If(m=s)Then    Else     isWs=False   EndIf NextiEndFunctionPrivateSubCommand1_Click() DimiAsInteger Fori=2To1000    IfThenPrinti; NextiEndSub参考答案：mmodi=0 isWs=True isWs=True5、以下程序段的输出结果是__3__。Num=0Whilenum<=2num

7、=num+1WendPrintnum四、程序阅读题(共5题、0/15分)1、程序为： PrivateSubForm_Click()  Dima a=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“4