《可视化程序设计.pdf》由会员分享，可在线阅读，更多相关《可视化程序设计.pdf（5页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、-全套试题全套试题 1 1闭卷考试，考试时间 120 分钟一、选择题40 分，每题 2 分1假设一个 Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是A只保存窗体模块文件B分别保存窗体模块、标准模块和工程文件C只保存窗体模块和标准模块文件。D只保存工程文件。2) 以下不属于 Visual Basic 系统的文件类型是A) .frmB) .batC) .vbgD) .vbp3为了去除窗体上的一个控件，以下正确的操作是：A选择单击要去除的控件，然后按Del 键B按回车键C按 esc 键D选择单击要去除的控件，然后按回车键4以下表达中错误的选项
2、是A) 双击鼠标可以触发 DblCLick 事件B) 窗体或控件的事件的名称可以由编程人员确定C) 移动鼠标时，会触发 MouseMove 事件D) 控件的名称可以由编程人员设定5以下表达正确的选项是AVB 程序中 dCount 和 DCOUNT 是两个不同的变量BVB 的语句以换行符回车作为完毕符，一行可以有多个语句，用冒号:分割DVB 源程序中的一行可以超过255 个字符，并且没有长度限制A3.14159B)0.314159E+1C)3.14159#D)3.14159!7设 a=10, b=5, c=1,执行语句 Print abc 后，窗体上显示的是A) TrueB)FalseC) 1D
3、) 出错信息8语句 Print 5/4*65 Mod 2的输出结果是A) 0B)1C) 2D) 39) 如果要改变窗体的标题，则需要设置的属性是A) CaptionB) NameC) BackColorD) BorderStyle10) 设组合框 Combol 中有 3 个工程，则以下能删除最后一项的语句是ItemTe*tItem2Item3I11如果要在菜单中添加一个分隔线，则应将其Caption 属性设置为A) =B) *C) &D) -12在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程:.z.-PrivateSubCommand1_ Click()Dim a As
4、Integer, s AsIntegera=8s=1Dos=s+aa=a-1Loop While a =0Print s; aEnd Sub程序运行后，单击命令按，则窗体上显示的内容是A) 79B) 340C) 97D) 死循环13以下关于函数过程的表达中，正确的选项是：A如果不指明函数过程参数的类型，则该参数没有数据类型B函数过程的返回值可以有多个C当数组作为函数过程的参数时，既能以传值方式传递，也能以传引用方式传递D函数过程形参的类型与函数返回值的类型没有关系14假设有过程Public Sub Test(ByVal A As Integer, ByVal B As Integer)C%=A
5、+BEnd Sub 则不正确的调用为ACall Test(2, 3)BC% = Test(2, 3)CTest 2, 3DCall Test(2,2+3)15)以下关于 keyPress 事件过程中参数 KeyAscii 的表达中正确的选项是AKeyAscii 参数是所按键的 ASCII 码BKeyAscii 参数的数据类型为字符串CKeyAscii 参数可以省略DKeyAscii 参数是所按键上标注的字符16)如果一个工程含有多个窗体及标准模块，则以下表达中错误的选项是A任何时刻最多只有一个窗体是活动窗体B不能把标准模块设置为启动模块C用 hide 方法只是隐藏一个窗体，不能内存中去除该窗体
6、D如果工程中含有 sub main 过程，则程序一定首先执行该过程。17)目录列表框的 path 属性的作用是A显示当前驱动器或指定驱动器上的*个目录下的文件名B显示当前驱动器或指定驱动器上的目录构造C显示根目录下的文件名D) 显示指定路径下的文件18下面不能正确按顺序访问模式翻开的语句是Aopen for append as #1 为顺序访问模式Bopen for random as #1 len=128C执行 open for input as #1D) open for output as #119下面关于 DAO 数据组件说明正取的是.z.-A通过 database 属性更改数据库后，
7、数据组件会自动更新数据B无论在单用户和多用户环境下，简单的调用recordcount 属性都能获得准确的记录总数C当记录指针到达最后一条记录之后，EOF 值为 trueD) 当记录集为空时，BOF 为 FALSE20关于记录操作的说明错误的A在通过 Addnew 增加记录后，需要调用Update 方法更新数据库B在通过 Delete 删除记录后，需要调用Update 方法更新数据库C在通过 Delete 删除记录后，需要调用movelast 或 movene*t 方法D)在通过 Edit 编辑记录后，需要调用Update 方法更新数据库二、填空题30 分，每空 2 分1构造化程序设计中把程序的
8、结果规定为_【1】_、_【2】_、_【3】_三种根本构造。2Visual Basic 应用程序中标准模块文件的扩展名是【4】 。3) 设有如下程序段：a$=BeijingShanghaib$=Mid(a$,InStr(a$,g)+1)执行上面的程序段后，变量b$的值为【5】 。4为了使标签能自动调整大小以显示全部文本内容，应把标签的【6】属性设置为 True。5VB 中可以构成循环的语句包括【7】 、 【8】 、 【9】cos2(ab)5对应的 Visual Basic 表达式是【10】。6与数学表达式3x7) 将 C 盘根目录下的图形文件moon.jpg 装入图片框 Picture1 的语句
9、是【11】 。8 为了使计时器控件 Timer1 每隔 0.5 秒触发一次 Timer 事件， 应将 Timer1 控件的 【12】 属性设置为 【13】 。9设有以下函数过程Function Fun(m as integer) as integerDim k as integer ,sum as integerSum=0For k=m to 1 step 2Sum=sum +kNe*t kFun=sumEnd function假设在程序中用语句 s=fun(10)调用次函数，则 s 的值为【14】10名称为 Form1 的窗体上画一个文本框，其名称为 Te*t1,在属性窗口中把该文本的 Mu
10、ltiline 属性设置为true，然后编写如下的事件过程。Private sub form_click()Open d:testsmte*t1.t*t fot input as #1Do while not _【15】_Line input #1,aspect$Whole$=whole$+aspect$+chr$(13)+chr$(10)LoopTe*t1.te*t=whole$Close #1三、编程30 分，每题 10 分1、编程实现，将两个变量的值进展交换，例如a=5,b=4 运行程序后 a=4,b=5。2、编写实现，计算 1-100 之间所有能被 3 整除的数得和。.z.-3、设计一
11、个 form 名称为 form1，添加翻开文件按钮 cmdOpen,， 保存文件按钮为 cmdSave，文本框为 t*tSource。通过点击翻开文件按钮调用通用对话框commonDialog1 选择一文本扩展名 dat，将内容显示到 t*tSource 中，然后通过点击保存文件按钮将此文本框的内容保存到c:test.t*t中。要求使用 open 命令翻开文件，在 form1_load 中初始化 cmdOpen 和 cmdSave 的标题属性。答案：一、选择题二、填空题1.顺序2.选择3.循环4.BAS5.Shanghai6.AutoSize7.while wend8.for ne*t9. d
12、owhile10.cos(a+b)*cos(a+b)/(3*)+511picture1.picture=loadpicture(c:moog.jpg)12. interval13.50014. 3015.EOF(1)三、编程题1、Sub swap()Dim c As Integer, a As Integer, b As Integera=inputbo*(Enter an integer a)b=inputbo*(Enter an integerb)print a,bc = aa = bb = cprint a,b2、Sub sum()Dim i As IntegerDim sum As I
13、ntegersum = 0For i = 1 To 100IfIMod 3 = 0 Thensum = sum + iEnd IfNe*t iPrint sumEnd Sub3、Private Sub cmdOpen_Click()t*tEdit.Te*t = CommonDialog1.Filter=All file|*.*|(*.Doc)|*.Doc|(*.T*t)|*.T*tCommonDialog1.FilterInde*=2CommonDialog1.DialogTitle=VBTestCommonDialog1.Action=1Open c:test.dat For Input As #1Do While Not EOF(1)Line Input #1, InputData.z.-t*tTest.Te*t = t*tTest.Te*t + InputData + vbCrLfLoopClose #1End SubPrivate Sub cmdSave_Click()Open c:test.t*t For Output As #1Close #1End SubPrivate Sub Form_Load()cmdOpen.Caption = 翻开文件cmdSave.Caption = 保存文件End Sub.z.