VisualBasic期末考试试卷例卷a

第1页共3页杭州电子科技大学学生考试卷（）卷说明：⑴考生应将试题答案填写在答卷上，否则作无效处理；考试时间为120分钟。试题一、判断题（每小题2分，共20分）(1)虽然一个对象能够识别多个事件，但是我们只能对其中一个事件进行编程。(2)语句“Shape1.FillStyle=vbSolid”和“Shape1.FillStyle=0”作用相同。(3)在Open语句中用Append方式所打开的文件若不存在，则创建该文件。(4)Variant是一种特殊的数据类型，Variant类型变量可以存储除了定长字符串数据及自定义类型外的所有系统定义类型的数据。Variant类型变量还可具有Empty、Error和Null等特殊值。(5)语句“FontName=宋体”与“Form1.FontName=宋体”的作用完全相同，无一例外。(6)框架控件和形状控件都不能响应用户的鼠标的单击事件。(7)在窗体或模块文件中声明为Public的过程，只能被本窗体或模块中的过程所调用。(8)如果一个菜单项的Visible属性为False，则它的子菜单也不会显示。(9)列表框控件，只能设置为单选。(10)在一个窗体的代码中不能使用Unload语句来卸载本窗体，即一个窗体只能由其它窗体卸载。试题二、单选题（每小题2分，共20分）(1)编制一个对Single类型一维数组排序的Sub过程，该过程只能被本模块中其他过程所调用，其首句为。A、Subf(a()AsSingle,nAsInteger)B、PublicSubf(a(n)AsSingle)C、PrivateSubf(a()AsSingle,nAsInteger)D、StaticSubf(a()AsSingle,nAsInteger)(2)将文本框控件的_______属性设置为False，可正常显示文本但不可编辑。A、LockedB、EnabledC、MultiLineD、Visible(3)下面是日期型常量。A、12/19/99B、12/19/99C、#12/19/99#D、{12/19/99}(4)下面对象在运行时一定不可见。A、LineB、TimerC、TextD、Option(5)VB算术运算符乘或除、整除、求余的优先级，从高到低依次为。A、乘或除、求余、整除B、乘或除、整除、求余C、整除、求余、乘或除D、整除、乘或除、求余(6)由“Fori=1To9Step-3”决定的循环结构被执行次。A、4B、5C、6D、0(7)返回图片框控件P1坐标（a,b）处颜色值的表达式为______。A、P1.SetColor(a,b)B、P1.GetColor(a,b)C、P1.Pset(a,b)D、P1.Point(a,b)(8)通用对话框可以通过对____________属性的设定来过滤文件类型。A、ActionB、FilterIndexC、FontD、Filter(9)判断整型变量m能否被n整除的VB表达式为。A、nModm=0B、m/n*n=mC、mModn=0D、m\n*n=m(10)对象不具有Caption属性。A、LabelB、OptionC、FrameD、Text试题三、程序填空题（每空2分，共20分）说明：阅读下列程序说明和相应程序，将正确答案填写到答卷纸的相应题号空白处。程序1、【程序说明】单击窗体后输出6～100之间所有整数的质数因子。【程序】PrivateSubpp((1)kAsInteger)DimiAsIntegeri=2Whilek1If(2)=0ThenPrinti;(3)Elsei=i+1EndIfWendPrintEndSub考试课程VisualBasic程序设计考试日期2010年月日成绩课程号教师号任课教师姓名考生姓名学号（8位）年级专业座位号第2页共3页PrivateSubForm_Click()Fori=6To100(4)NextiEndSub程序2、【程序说明】单击窗体后，用输入对话框输入x、n，按下式计算结果。要求：将计算结果以标签控件显示。【程序】PrivateSubForm_Click()DimxAsSingle,nAsInteger,iAsInteger,tAsSingles=0x=Val(InputBox(x=))n=Val(InputBox(n=))_______________(5)_______________Fori=____________(6)______________t=t*x/is=s+tNexti______________(7)__________________EndSub程序3、【程序说明】窗体上已建立命令按钮Command1和文本框Text1，Text1中输入字符个数不得超过100个。开始运行时，按“开始”命令按钮后，将文本框中的字符按其ASCII码值由小到大顺序从左到右重新排列，并在窗体上输出重新排列后的字符串。【程序】PrivateSubCommand1_Click()DimnAsByte,iAsByte,jAsByte,pAsByteDimstr1AsString,tAsStringstr1=Text1.Textn=Len(str1)ReDima(n)AsString*1Fori=1Ton(8)NextiFori=1Ton-1p=iForj=i+1Ton(9)NextjIfpiThen(10)NextiFori=1TonPrinta(i);NextiEndSub试题四、程序阅读题（每小题5分，共20分）说明：阅读下列程序，将运行时的输出结果写在答卷纸的相应题号下。程序1、运行时，单击窗体后依次输入10、37、50、55、56、64、20、28、19、-19、0，写出运行结果。PrivateSubForm_Click()DimyAsIntegerDoy=Val(InputBox(y=))If(yMod10)+Int(y/10)=10ThenPrintyLoopUntily=0EndSub程序2、请写出单击窗体后，窗体上的显示结果。DimiAsInteger,nAsIntegerPrivateSubForm_Click()DimiAsInteger第3页共3页Fori=1To4s=sum(i):Prints=;sNextiEndSubPrivateFunctionsum(nAsInteger)StaticjAsIntegerj=j+n+1:n=j+1:sum=jEndFunction程序3、写出程序运行时，在组合框Combo1中输入“123”（不包括“”）并按下回车键后，列表框List1中的所有列表项。PrivateSubForm_Load()DimiAsByte,cAsStringc=abcdeabcdeabcdeabcdeFori=0To5IfiMod2=0ThenCombo1.AddItemMid(c,2*i+1,2)ElseCombo1.AddItemMid(c,3*i+1,3)EndIfNextiCombo1.List(0)=Right(c,2):Combo1.List(6)=Left(c,3)EndSubPrivateSubCombo1_KeyPress(KeyAsciiAsInteger)DimiAsIntegerIfKeyAscii=13ThenCombo1.List(Combo1.ListCount)=Combo1.TextList1.ClearFori=0ToCombo1.ListCount-1IfLen(Trim(Combo1.List(i)))3ThenList1.AddItemCombo1.List(i)EndIfNextiEndIFEndSub程序4、请写出单击窗体后，输入3，窗体上的显示结果。PrivateSubForm_Click()DimmAsIntegerDimiAsInteger,jAsIntegerm=Val(InputBox(m=))Fori=1TomPrintSpace(m-i);Forj=1To2*i-1PrintTrim(Str(i));NextjPrintNextiFori=m-1To1Step-1PrintSpace(m-i);Forj=1To2*i-1PrintTrim(Str(j));NextjPrintNextiEndSub试题五、程序设计题（每小题10分，共20分）1.编制通用函数过程f，计算Byte类型一维数组所有元素的最小公倍数(Long类型)。要求写出主调用和被调用两部分代码，主调用代码写在窗体单击事件中。数组定义要求为动态数组（数组个数从键盘输入），数组值由随机函数自动生成[1，10]之间的Byte类型的随机数，结果输出要求在主调程序中完成。输出效果如图所示。2.文本文件e:\aaa.txt中存放了若干行字符，编制相应事件过程：在加载窗体（Form_Load）时读入文件中各行字符并顺序在列表框控件List1的列表部分显示，在运行时单击窗体（Form_Click)后自动将列表框中各行字符个数不超过10个的项目存储到文本文件e:\bbb.txt。