可视化程序设计2

试卷编号课程名称8-1全套试题2闭卷考试，考试时间120分钟一、选择题（40分，每题2分）(1)在设计阶段，当双击窗体上的某个控件时，所打开的窗口是A)工程资源管理器窗口B)工具箱窗口C)代码窗口D)属性窗口(2)以下叙述中正确的是A)窗体的Name属性指定窗体的名称，用来标识一个窗体B)窗体的Name属性的值是显示在窗体标题栏中的文本C)可以在运行期间改变对象的Name属性的值D)对象的Name属性值可以为空(3)以下不能在“工程资源管理器”窗口中列出的文件类型是A).basB).resC).frmD).ocx(4)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Move500，500EndSub程序运行后，单击命令按钮，执行的操作为A)命令按钮移动到距窗体左边界、上边界各500的位置B)窗体移动到距屏幕左边界、上边界各500的位置C)命令按钮向左、上方向各移动500D)窗体向左、上方向各移动500(5)在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：PrivateSubCommand1_Click()a=Text1.Text+Text2.TextPrintaEndSubPrivateSubFormm_Load()Text1Text=Text2Text=Endsub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为。A)444B)321123C)123321D)132231(6)假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为。试卷编号课程名称8-2A)Label1.BackStyle=0Label1.Borderstyle=0B)Label1.BackStyle=1Label1.Borderstyle=1C)Label1.BackStyle=TrueLabel1.BorderStyle=TrueD)Label1.BackStyle=FalseLabel1.Borderstyle=False(7)设有如下变量声明DimTestDateAsDate为变量TestDate正确赋值的表达方式是A)TextDate=#1/1/2002#B)TestDate=#“1/1/2002”#C)TextDate=date(“1/1/2002”)D)TestDate=Format(“m/d/yy”,“1/1/2002”)(8)设有如下声明：DimXAsInteger如果Sgn(X)的值为-1，则X的值是A)整数B)大于0的整数C)等于0的整数D)小于0的数(9)在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：PrivateSubCommand1_Click()StaticXAsIntegerStaticYAsIntegerClsY=1Y=Y+5X=5+XPrintX,YEndSub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为A)1516B)156C)1515D)56(10)设a=3,b=5，则以下表达式值为真的是A)a=bAndb10B)(ab)Or(b0)C)(a0)Eqv(b0)D)(-3+5a)And(b0)(11)设有语句x=InputBox(“输入数值”，“0”，“示例”)程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是A)变量X的值是数值10B)在InputBox对话框标题栏中显示的是“示例”C)0是默认值D)变量X的值是字符串“10”(12)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerForI=0To50试卷编号课程名称8-3i=i+3n=n+1Ifi10ThenxitforNextText1.Text=Str(n)EndSub程序运行后，单击命令按钮，在文本框中显示的值是A)2B)3C)4D)5(13)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimi,jAsIntegerFori=1To3Forj=2To4array1(i,j)=i+jNextjNextIText1.Text=array1(2,3)+array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是A)12B)13C)14D)15(14)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5y=7z=0Text1.text=“”CallP1(x,y,z)Text1.Text=Str(x)EndSubSubP1(ByValaAsInteger,ByValbAsInteger,cAsInteger)c=a+bEndSub程序运行后，如果单击命令按钮，则在文本框中显示的内容是A)0B)12C)Str(z)D)没有显示(15)以下叙述中错误的是A)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B)Sub过程中不能嵌套定义Sub过程C)Sub过程中可以嵌套调用Sub过程D)事件过程可以像通用过程一样由用户定义过程名(16)以下叙述中正确的是试卷编号课程名称8-4A)一个记录中所包含的各个元素的数据类型必须相同B)随机文件中每个记录的长度是固定的C)Open命令的作用是打开一个已经存在的文件D)使用Input#语句可以从随机文件中读取数据(17)目录列表框的Path属性的作用是A)显示当前驱动器或指定驱动器上的目录结构B)显示当前驱动器或指定驱动器上的某目录下的文件名C)显示根目录下的文件名D)显示该路径下的文件(18)关于子窗体说法正确的是A)MDI子窗体与普通窗体没有区别B)MDI子窗体与普通窗体不同，其活动区域为MDI窗体工作区，而普通窗体则没有此限制C)MDI窗体菜单和子窗体可以同时显示出来D)当子窗体激活时仅仅显示子窗体菜单(19)关于数据控件的描述中不正确的是A)数据控件通过RecordSource属性获得数据库信息B)数据控件通过RecordType属性设置记录集类型C)数据控件通过Exclusive属性为True实现对数据库的共享访问D)数据控件通过readonly属性决定是否按只读方式打开数据库(20)关于数据控件的常用方法说法正确的A)Refresh方法用于从数据库中读取数据更新界面B)Refresh方法用于将界面中的数据更新到数据库C)UpdateControl方法用于从数据库中读取数据更新界面D)UpdateControl方法用于将界面中的数据更新到数据库二、填空题（30分，每空2分）(1)结构化程序设计中把程序的结果规定为___【1】___、___【2】____、_【3】__三种基本结构。(2)VisualBasic应用程序中标准模块文件的扩展名是【4】。(3)窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：FunctionM(xAsInteger,yAsInteger)AsIntegerM=IIf(xy,x,y)EndFunctionPrivateSubcommand1_Click()DimaAsInteger,bAsIntegera=100b=200PrintM(a,b)EndSub程序运行后，单击命令按钮，输出结果为【5】。(4)以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在【6】和【7】处填入适当的内容，将程序补充完整。试卷编号课程名称8-5PrivateSubForm_Click()DimxAsSingle,amaxAsSingle,aminAsSinglex=InputBox(“Enterascore”)amax=xamin=xDoWhile【6】IfxamaxThenAmax=xEndIfIf【7】ThenAmin=xEndIfx=InputBox(“Enterascore”)LoopPrint”Max=”;amax,”Min=”;aminEndSub(5)执行下面的程序段后，变量Ｓ的值为【8】。S=5Fori=2.6To4.9Step0.6S=S+1Nexti(6)计时器控件能有规律的以一定时间间隔触发【9】事件，并执行该事件过程中的程序代码。(7)以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被５整除的数并求出它们的和。请填空PrivateSubCommand1_Click()Fori=1To20x=Int(【10】*200+100)If【11】=0ThenPrintxS=S+【12】EndifNextiPrintSum=;SEndSub(8)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()n=5f=1s=0Fori=1Tonf=f【13】s=s+fNextPrintsEndSub试卷编号课程名称8-6该事件过程的功能是计算n!13!1!211s的值。请填空。(9)以下程序的功能是：把当前目录下的顺序文件smtextl.txt的内容读入内存，并在文本框Textl中显示出来。请填空。PrivateSubCommand1_Click()DiminDataAsStringText1.Text=Open.\text1.txt【14】As#1DoWhile【15】Input#1,inDataText1.Text=Text1.Text&inDataLoopClose#1三、编程（30分，每题10分）1、编程实现，将两个变量的值进行交换，例如a=5,b=4运行程序后a=4,b=5。2、编制判断是否同时被17与37整除的Function过程。在列表框中输出100~1000之间所有能同时被17与37整除的数。3、将磁盘的上的两个文本文件a.txt和b.txt的内容合并到文件c.txt中。答案：一、选择题1.C2.A3.D4.B5.C6.A7.A8.D9.B10.B11.D12.C13.A14.B15.C16.B17.A18.B19.C20.C二、填空题1.顺序2.选择3.循环4..BAS5.2006.x=07.xamin或x=aminx或amin=x8.99.timer10.Rnd或Rnd(n)11.Xmod512.x13.*(1/i)14.ForInput15.NotEOF(1)三、编程题1、Subswap()DimcAsInteger,aAsInteger,bAsInteger试卷编号课程名称8-7a=inputbox(“Enteranintegera”)b=inputbox(“Enteranintegerb”)printa,bc=aa=bb=cprinta,b2、PublicFunctionisNum(ByValnAsInteger)IfnMod17=0AndnMod37=0ThenisNum=TrueElseisNum=FalseEndIfEndFunctionSubsum()DimiAsIntegerDimsumAsIntegersum=0Fori=100To1000IfisNum(i)ThenListbox1.addItemiEndIfNextiPrintsumEndSub3、Subsum()Openc:\a.txtForInputAs#1Openc: