可视化程序设计1

试卷编号课程名称7-1全套试题1闭卷考试，考试时间120分钟一、选择题（40分，每题2分）1）假如一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是A）只保存窗体模块文件B）分别保存窗体模块、标准模块和工程文件C）只保存窗体模块和标准模块文件。D）只保存工程文件。2)以下不属于VisualBasic系统的文件类型是A).frmB).batC).vbgD).vbp3）为了清除窗体上的一个控件，下列正确的操作是：A）选择（单击）要清除的控件，然后按Del键B）按回车键C）按esc键D）选择（单击）要清除的控件，然后按回车键4）以下叙述中错误的是A)双击鼠标可以触发DblCLick事件B)窗体或控件的事件的名称可以由编程人员确定C)移动鼠标时，会触发MouseMove事件D)控件的名称可以由编程人员设定5）以下叙述正确的是A）VB程序中dCount和DCOUNT是两个不同的变量B）VB的语句以换行符（回车）作为结束符，一行可以有多个语句，用冒号“:”分割C）在VB6.0中源程序中不再保留行号D）VB源程序中的一行可以超过255个字符，并且没有长度限制6）正确表达双精度浮点数(Double)3.14159的表达式为A）3.14159B)0.314159E+1C)3.14159#D)3.14159!7）设a=10,b=5,c=1,执行语句Printabc后，窗体上显示的是A)TrueB)FalseC)1D)出错信息8）语句Print5/4*6\5Mod2的输出结果是A)0B)1C)2D)39)如果要改变窗体的标题，则需要设置的属性是A)CaptionB)NameC)BackColorD)BorderStyle试卷编号课程名称7-210)设组合框Combol中有3个项目，则以下能删除最后一项的语句是A)Combol.RemoveItemTextB)Combol.RemoveItem2C)Combol.RemoveItem3D)Combol.RemoveItemCombol.Listcount11）如果要在菜单中添加一个分隔线，则应将其Caption属性设置为A)=B)*C)&D)-12）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:PrivateSubCommand1_Click()DimaAsInteger,sAsIntegera=8s=1Dos=s+aa=a-1LoopWhilea=0Prints;aEndSub程序运行后，单击命令按，则窗体上显示的内容是A)79B)340C)97D)死循环13）以下关于函数过程的叙述中，正确的是：A）如果不指明函数过程参数的类型，则该参数没有数据类型B）函数过程的返回值可以有多个C）当数组作为函数过程的参数时，既能以传值方式传递，也能以传引用方式传递D）函数过程形参的类型与函数返回值的类型没有关系14）假设有过程PublicSubTest(ByValAAsInteger,ByValBAsInteger)C%=A+BEndSub则不正确的调用为A）CallTest(2,3)B）C%=Test(2,3)C）Test2,3D）CallTest(2,2+3)15)以下关于keyPress事件过程中参数KeyAscii的叙述中正确的是A）KeyAscii参数是所按键的ASCII码B）KeyAscii参数的数据类型为字符串C）KeyAscii参数可以省略D）KeyAscii参数是所按键上标注的字符16)如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是试卷编号课程名称7-3A）任何时刻最多只有一个窗体是活动窗体B）不能把标准模块设置为启动模块C）用hide方法只是隐藏一个窗体，不能内存中清除该窗体D）如果工程中含有submain过程，则程序一定首先执行该过程。17)目录列表框的path属性的作用是A）显示当前驱动器或指定驱动器上的某个目录下的文件名B）显示当前驱动器或指定驱动器上的目录结构C）显示根目录下的文件名D)显示指定路径下的文件18）下面不能正确按顺序访问模式打开”C:\A.txt”的语句是A）open”C:\A.txt”forappendas#1为顺序访问模式B）open”C:\A.txt”forrandomas#1len=128C）执行open”C:\A.txt”forinputas#1D)open”C:\A.txt”foroutputas#119）下面关于DAO数据组件说明正取的是A）通过database属性更改数据库后，数据组件会自动更新数据B）无论在单用户和多用户环境下，简单的调用recordcount属性都能获得准确的记录总数C）当记录指针到达最后一条记录之后，EOF值为trueD)当记录集为空时，BOF为FALSE20）关于记录操作的说明错误的A）在通过Addnew增加记录后，需要调用Update方法更新数据库B）在通过Delete删除记录后，需要调用Update方法更新数据库C）在通过Delete删除记录后，需要调用movelast或movenext方法D)在通过Edit编辑记录后，需要调用Update方法更新数据库二、填空题（30分，每空2分）1）结构化程序设计中把程序的结果规定为___【1】___、___【2】____、_【3】__三种基本结构。2）VisualBasic应用程序中标准模块文件的扩展名是【4】。3)设有如下程序段：a$=BeijingShanghaib$=Mid(a$,InStr(a$,g)+1)执行上面的程序段后，变量b$的值为【5】。4）为了使标签能自动调整大小以显示全部文本内容，应把标签的【6】属性设置为True。5）VB中可以构成循环的语句包括【7】、【8】、【9】6）与数学表达式53)(cos2xba对应的VisualBasic表达式是【10】。7)将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【11】。8）为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【12】属性设置为【13】。9）设有以下函数过程试卷编号课程名称7-4FunctionFun(masinteger)asintegerDimkasinteger,sumasintegerSum=0Fork=mto1step–2Sum=sum+kNextkFun=sumEndfunction若在程序中用语句s=fun(10)调用次函数，则s的值为【14】10）名称为Form1的窗体上画一个文本框，其名称为Text1,在属性窗口中把该文本的Multiline属性设置为true，然后编写如下的事件过程。Privatesubform_click()Open“d:\test\smtext1.txt”fotinputas#1Dowhilenot__【15】___Lineinput#1,aspect$Whole$=whole$+aspect$+chr$(13)+chr$(10)LoopText1.text=whole$Close#1三、编程（30分，每题10分）1、编程实现，将两个变量的值进行交换，例如a=5,b=4运行程序后a=4,b=5。2、编写实现，计算1-100之间所有能被3整除的数得和。3、设计一个form名称为form1，添加“打开文件”按钮cmdOpen,，“保存文件”按钮为cmdSave，文本框为txtSource。通过点击“打开文件”按钮调用通用对话框commonDialog1选择一文本（扩展名dat）”c:\test.dat”，将内容显示到txtSource中，然后通过点击“保存文件”按钮将此文本框的内容保存到“c:\test.txt”中。要求使用open命令打开文件，在form1_load中初始化cmdOpen和cmdSave的标题属性。答案：一、选择题1.B2.B3.A4.B5.B6.C7.B8.B9.A10.B11.D12.C13.D14.B15.A16.D17.B18.B19.C20.B二、填空题1.顺序2.选择3.循环4..BAS5.Shanghai6.AutoSize7.whilewend8.fornext9.dowhile10.cos(a+b)*cos(a+b)/(3*x)+511picture1.picture=loadpicture(c:\moog.jpg)12.interval13.50014.3015.EOF(1)三、编程题1、Subswap()试卷编号课程名称7-5DimcAsInteger,aAsInteger,bAsIntegera=inputbox(“Enteranintegera”)b=inputbox(“Enteranintegerb”)printa,bc=aa=bb=cprinta,b2、Subsum()DimiAsIntegerDimsumAsIntegersum=0Fori=1To100IfIMod3=0Thensum=sum+iEndIfNextiPrintsumEndSub3、PrivateSubcmdOpen_Click()txtEdit.Text=CommonDialog1.Filter=Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.TxtCommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=VBTestCommonDialog1.Action=1CommonDialog1.ShowOpenc:\test.datForInputAs#1DoWhileNotEOF(1)LineInput#1,InputDatatxtTest.Text=txtTest.Text+InputData+vbCrLfLoopClose#1EndSubPrivateSubcmdSave_Click()Openc:\test.txtForOutputAs#1Print#1,txtEdit.TextClose#1EndSubPrivateSubForm_Load()试卷编号课程名称7-6cmdOpen.Caption=打开文件cmdSave.Caption=保存文件EndSub试卷编号课程名称7-7