VisualBasic测验试题一

1、共有四套测验试题，请任选一套完成，其余自己练习。2008级河海大学函授本科Visual Basic测验试题一 一、填空题（35分）1、在VB中，最主要的两种对象是_和_ 。2、对象的属性、方法使用有所不同，form1.cls是_的使用。3、启动应用程序时，装载和显示窗体，触发_和_事件。4、将一条语句分成多行显示用_分隔；将多条语句写在一行，语句间用_分隔。5、声明变量为模块级，则应在模块的声明段中用_或_来定义。写出前者的作用范围_、 写出后者的作用范围_。6、语句DIM TEMP AS Object的作用_。Variant类型可以包含empty、 null、error, empty指_、

2、null指_、error指_。7、在代码模块中加入Option Explict的目的是_。8、select case index 加入一条语句，使得index不为1，2时， case 1:form1.caption=1 aption为other，则该语句应为case 2:form1.caption=2 _ end select9、i=1: do while i),strtemp结果为_ ，strtemp=format(3.145.2,00000.00),strtemp结果为_ 。 12、circle方法中，起始角为-90度（-/2），终止角为-60度（-/3），画出该图形大致形状： 13、在类

3、模块中，属性表示_ ，方法表示_ 。 14、添加对象属性时，有两个过程可以给属性赋值，分别为_ ，_ 。 二、 改错题：(修改现有语句，题中参数省略)（10） 1、 sub form1_click( 具体参数) private a as integer a=23：=command2 command1.enable=false end sub 2、 sub form1_click(具体参数) static index index=index+1 select index case 1:form1.caption=1 case 2,3:form1.caption=2或3

4、case other:index=0 end case 三、 执行题：（写出执行结果）（20） 1、 sub form1_click() dim I,msgm,nl,rep nl=chr(13)&chr(10) for I=rep=5 to 1 step -1 for I=asc(A) to asc(z) msg=msg&chr(i) next I mag=mag&nl next rep magbox mag end sub 2、 sub form1_click() const max=5 dim exchange,I,msg,nl,temp dim a(max) nl=chr(13)&chr

5、(10) a(1)=杭州 a(2)=西安 a(3)=南京 a(4)=苏州 a(5)=济南 exchange=true do while exchange=false for I=2 to max if a(I-1)a(i) then exchange=true temp=a(I)：a(i)=a(I-1)：a(I-1)=temp end if next I msgbox msg end sub 四、 问答题（20） 1、 写出利用滚动条改变窗体底色的例子的程序设计思路。（同时写出需设置的滚动条属 性及各个用到的事件和各个事件的功能） 滚动条1-红；2-绿；3-兰 4、详细写出设计仅包含data控

6、件，dbgrid控件，数据绑定控件及查找按钮的应用程序时需设置的具体属性和实现查找功能的命令语句（要求能实现添加、删除功能）。 2008级河海大学函授本科Visual Basic测验试题三 一、 填空：（50） 1、vb采用解释执行，其编译后生成伪代码而非本机代码，本机代码是vb5.0的最大的一项改进，试问本机代码究竟有何优点_ 。 2、在应用程序内部，对象的名称有什么作用_ ，对象的caption有什么作用_ 。 3、语句：=主菜单，正确否_ ;语句组form1.caption=aa,form1.cls正确否_ 。 4、在vb中用户自定义类型必须由特定命令创建，且必须置于

7、模块的声明部分，请定义一学生类型student，内含姓名name（8个字符长度），年龄age（整型） _ _ age as integer _ 5、redim perserve kk(ubound(kk)+1) ubound()引用上界，其中preserve命令的作用_ 。 6、在visual basic中的子过程或函数内部，如何用代码实现直接返回（即退出）_ 、_ 。 7、生成消息框的命令_ ，生成输入框的命令_ 。 8、利用对象的属性setfocus可获得焦点，对于一个对象,只有其visible属性和_ 属性为true，才能接受焦点。 9、通用对话框（commondialog）属activ

8、ex控件，它可以显示多个标准对话框，包括打开/另存为、字体、打印等对话框，若要显示所有文件，则应设置其属性filter=_ ，若要使它显示为打印对话框，则应使用什么方法_ 。 10、现在要检测用户按键情况，填空： private sub form1_mousemove(button as integer,shift as integer,x as single,y as single) if button and 1 then print 您按下了_ 键 if button =3 then print 您按下了_ 键 end sub 11、使用 _方法可在图片框中进行文本的输出，用_ 方法可画

9、点，用_ 方法可画直线。 12、用_ 函数可加载图形，picture控件的属性autosize和image控件的stretch属性的作用都是 。 13、属性过程property get 的作用_ 。 14、为了创建_ 属性，只需在类模块省略属性赋值过程（即仅定义property get过程。） 二、 改错题：（10）(修改现有语句，并说明错误原因) （题中参数省略) 1、 sub form1_click(具体参数) dim temp as object temp=form1 end sub 2、 将动态数组声明为含9*3的二维数组，并进行部分赋值。 Dim str( ，) as string

10、Redim str(9，3) For I=1 to 9 Str(I，1)=I Next 三、 执行题：（写出执行结果）（20） 1、sub test (byval I as integer) 写出窗体单击后打印出的内容（注意格式） I=I+1 Print I End sub Sub form1_click() Dim I I=12 Print I Test I Print I End sub 2、scale (-5,5)-(5,-5) line(-4,3.5)-(4,-3.5) line(-4,0)-(4,0) line(0,-3.5)-(0,3.5) 要求：在下图画出执行结果，并注明-5，5

11、，-4，4，3.5，-3.5,0 四、 问答题（30） 1、 在windows的应用程序中，工具栏使用非常普遍，请详细写出创建工具栏的步骤。2、写出可实现数据定位的各种方法，并写出具体命令。 3、 根据自己的上机实践，谈谈vb较之c语言有何优点（结合vb的特点）2008级河海大学函授本科Visual Basic测验试题四 一、 填空：（50） 1、要强制显式声明变量，采用何语句_ 。 2、vb是一种基于事件驱动的程序设计，通常情况下，我们使用对象预定义的事件集，例：sub form1_keypress( ),该事件在什么情况下被触发_ 。 3、现有一软件，包括窗口login,frmmain,现

12、用变量k1,k2保存login 窗口的用户名及口令，frmmain中需根据用户名分配权限，同时在login的多个事件中用到k2,frmmain中不允许调用k2,应分别如何定义变量k1_,k2_ 。 4、如下定义一含10个元素的一维数组kk,并且对每一元素赋初值为I，请填空： _ dim I as integer for I=0 to 9 _ _ 5、现有自定义函数beeps,写出调用该函数的两种方法（参数为5）_ 、_ 。 6、vb使用工程来管理应用程序的所有不同文件（.vbp）在一应用程序可有_ 个工程文件，模块用来存储vb代码，包括窗体代码、标准模块、类模块，其中_ 存放与特定窗体/控件无

13、关的代码。 7、form1.show vbmodal,vbmodal的作用_ 。form1上存在command1,有程序 sub form_load() command1.caption=hello end sub 该程序执行后将提示错误，写出错误原因：_ ，如何解决_ 。 8、控件的tabindex属性决定它在tab键顺序中的位置，若想实现按tab键时，跳过某一控件，则需设_ 属性为0，设某一按钮为默认命令按钮，可设default属性为true,则按_ 键也可选中该按钮。 9、弹出式菜单的设计方法同一般菜单，显示时使用 _方法。 10、mousedown事件中 shift参数用来检测shif

14、t,ctrl,alt按键情况，若shift=4，则按键情况为 _，若shift=6则_ 。 11、line(500,500)-step(50,50), ,BF画出什么图形？_ ，circle(2400,1000),80, , , ,1/3画出什么图形？_ 。 12、播放无声动画用_ 控件，有声动画用_ 控件。（animation/multimedia） 13 、向类中添加事件时用_ 关键字来声明，用_ 来引发该事件。 14、写出面向对象系统的特点：_ 、_ 、继承性、多态性。 二、 改错题：(修改现有语句，并写出错误原因)（10） (题中参数省略) 1、 常量/变量定义： const r1=3

15、.：const a=#3/22/93# static aa as integer sub form1_click(具体参数) aa=aa+1 end sub 2、 private sub cmdplay_click(具体参数 ) dlgopen.filter=avi文件(*.avi)|*.avi dlgopen.showopen mand=open anmavi.play anmavi.close end sub 三、 执行题：（写出执行结果）（20） 1、 sub form1_load() form1.keypreview=true end sub sub form1_k

16、eydown(keycode as integer,.) if keycode =vbkeyA then command1.setfocus if keycode=vbcodeP then command2.setfocus end sub a、写出该段程序的结果及设置keypreview属性的作用。 b、写出当keypreview=false 时程序的执行结果。 2、 sub form1_click () dim char ,filename,textdata filename=inputbox(输入文件名：) if len(filename) then open filename for input as #1 do while not eof(1) char =input(1,#1) if charchr(10) then textdata=textdata&char else msgbox textdata t