vb题库 1分析

填空题1.图像框的strtch属性设置为（true）时，图形将适应图像框的大小。

属性设置为（false），图形框将适应图像的大小。

2.文本框的locked属性用来决定文本内容能否被编辑，当其值为（false）时，可以编辑，当其值为（true），不可被编辑。

3.所有控件都具有的共同属性（name）4.一个控件在窗体上的位置由top和（left）属性决定，其大小由width和（height）属性决定。

5.计时器控件的interval属性值是指时间间隔，单位是毫秒，当每隔此时间间隔定时器会触发一次（timer）事件。

注意计时器只有timer事件6.把“visual basic程序设计”添加到列表listbooks的语句为（listbooks.additem ”visual basic 程序设计”）7.函数instr（“VB程序设计教程”，“程序”）的值为（3）8.设置计时器对象触发时间的时间间隔用（interval）属性9.表达式（-3）mod 8的值为（-3) ,3mod (-8)的值为（3）10.表达式93/7 mod 8的值为（5）11.声明定长个数为10个字符变量str的语句（Dim str As String * 10）12.当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择（视图）菜单的“工具箱”选项，使”工具箱’窗口显示13.表示x是5的倍数或是9的倍数的逻辑表达式为（x mod 5 =0 or x mod 9 =0）14.在VB中，1234,1.2346E+5常数分别表示类型(integer),(single)15.把整数1赋给一个逻辑型变量，则逻辑变量的值为（false）16.表达式1 and 0 的值是（false）17.在调试过程中，参数的传递按两种方式，其中（地址）传递方式是默认的。

18.可以同时删除字符串前导和尾部空白的函数是（trim）19.VB注释语句中采用（‘）字符开头，续行符采用（_），若上一行写多句语句，则各语句间用（:）字符分开20.已知a=3.5,b=5.0,c=2.5,d=true,则表达式：a>=0 and a+c>b+3 or not d 的值是（false）21.如果：i=11:j=3:i=int(-8.6)+i\j+13\3 mod 5,则i的值是（-2）22.如果在模块声明段中有option base 1语句，则在该模块中使用dim a(3 to 5,6)声明数组有（18）个元素23.在通用部分添加option basic 0的语句，在定义十个元素的整型静态数组a时可以定义为（dim a(9) as integer）24.循环语句for k=1 to 10 step -1控制的循环次数为（0）25.在一条dim语句中可以声明多个变量，如dim strvar,invar,sngvar as integer,则str int sng 的数据类型分别是variant variant 和（integer）26.按照数据文件的储存方法不同，文件可以分为三种不同的类型，顺序文件，（随机文件），和二进制文件27.把整型数1赋给一个逻辑变量，则逻辑变量为（true）28.VB语言编写的应用程序有（解释）和（编译）两种执行方式29.定义过程中要设置可选参数使用的命令是（option1）30.设置控件背景颜色的属性名称（backcolor）前景颜色的属性属性名称（fonecolor）31.文本框中所显示的内容是它的（text）属性的值32.欲使自己设计vb程序运行过程中不终止本程序的运行，同时又可调用系统中已有的应用程序C:\windows\calc.exe,可在代码窗口必要的地方添加语句（shell(“c:\windows\calc.exe”)）33.设置计时器控件只能触发(timer)事件34.表达式（-3）and 8的值是（true）35.将焦点定位于命令按钮command1之上的语句（command1.setfocus）36.可以通过（文件）菜单的（退出）命令退出VB37.滚动条控件有水平滚动条和（垂直）滚动条38.Len（“实践应用能力”）的值是(6)39.声明单精度常量g（重力加速度）代表9.8可写成（const g=9.8）40.在VB的程序设计中，可以建立（下拉式）菜单和（弹出式）菜单41.声明单精度常量P1代表3.14159的语句（const p1=3.14159）42.Option basic 0 模块使用的dim a (6, 3 to 5)(21)个元素43.,设x 为一个两位数,将x 个位数和十位数交换后所得两位数VB 的表达式是((x mod 10) * 10 + int(x/10)).选择1.将command dialog1通用对话框以打开对话框打开，可选以下（d）方法A showfont b showsave c showcolor d showopen2.与传统的程序设计语言相比VB最突出的特点是（b）A 程序调试技术 b 事件驱动编制程序机制 c 程序开发环境d 结构化程序设计3.下面（c）对象在运行时一定不可见A option b text c timer d line4.字体对话框是调用（a）方法来实现的A showfont b showclose c showcolor d showopen5.以下叙述错误的是（d）A 窗体文件包含窗体及其控件的属性B .bas为扩展名的文件是标准模块文件C 一个工程可以有多个标准文件D 在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件6.clear 方法适用于（a,b），cls 适用于（d,f）A 组合框b列表框c 复选框 d 窗体f 图片框7.为了使列表框中的项目按字母顺序排列，应设置（a）属性A sorted b list c text d style8.在VB应用程序中，以下叙述正确的描述（a）A 过程的定义不可以嵌套，但过程的调用能嵌套B 过程的定义可以嵌套，但过程的调用不能嵌套C 过程的定义和过程均不可以嵌套D 过程的定义和过程均可嵌套9.可以唯一识别控件数组的每一个控件属性的是（d）A caption b name c enabled d index10.下面（c）控件不具有caption属性A 单选钮 b 标签框c文本框 d 命令按钮11.下列叙述正确的是（d）A 对象的属性只能在属性窗口设置B 对象是既包括数据又包括对象数据进行操作的方法的物理实体C 实践过程都要由用户点击对象来触发D 不同的对象能识别不同的事件12.设a=”visual basic”,下面b=”basic”的语句是（d）A b=left(a,8,5) b=left(a,8,12) c=right(a,5,5) d=mid(a,8,5)13.下列对象中没有焦点属性的是（b）A 命令按钮控件b 窗体控件 c 单选框控件 d 文本框控件14.当一个工程有多个窗体时，其中的启动窗体是（C）A 启动VB时创建的窗体B 第一个添加的窗体C 在“工程属性”对话框中指定的窗体D 最后一个添加的窗体15.如果要使一个窗体从屏幕上和内存中完全消失，所要用的语句（c）A hide b show c unload d load16.以下不能作为VB中的变量名(d)A abx45 b p1234 c xy d 89ta17.假定有一个菜单项，名为menuitem,为了在运行时使该菜单失效（变灰），应使用的语句（a）A menuitem.enabled=false b menuitem.enabled=trueCmenuitem.visible=false d menuitem.visible=true18.下列数据类型中，占有内存最大的是（c）A byte b boolean c single d integer19.在窗体上画一个名称为command的命令按钮，然后编写程序Private sub command-click()Static x as integerClsY=y+2X=x+2Print x,yEnd sub程序运行后，连续单击四次command1后，窗体上显示（a）A 8 2 b 2 2 c 8 8 d 2 820.以下关于过程及过程参数的描述中，错误的是（C）A 过程的参数可以使控件的名称B 窗体可以作为过程的参数C 按传值方式传递参数，有可能会改变实际参数的值D 用数组作为过程的参数时，使用的是传地址方式21.定义过程中，要设置可选参数使用的命令的是（c）A variant b paramarray c option1 d array22.单击滚动条两端的任一滚动箭头，将触发该滚动条的（c）事件A dragover b keydown c change d scroll23.下列有关控件数组和一般控件的区别的叙述，最合理的是（d）A控件数组的建立通过dim语句声明，而一般控件不必声明B控件数组的index为0，而一般控件的index 为空C 控件数组的index为1，而一般控件的index 为0D控件数组一定由多个同类型的控件构成，一般控件只有一个控件24.inputbox函数的返回值的类型为（B）A日期型 B 字符串型 C 逻辑型D数值判断1.VB中，若同一个工程有许多窗体，可以指定任一窗体为起始窗体（Y）2.清除list1列表框的内容的语句为list1.cls (N)3.在多文档应用中，每次只能有一个活动的子窗体可以进行编辑（Y）4.在框架控件中的几个单选按钮，只能有一个单选按钮的value属性为true(N)5.在VB的工具栏中包括了所有的VB控件，我们不能再加载其他的控件（N）6.控件是对象，而窗体不是对象，他只是控件对象的窗体（N）7.For next 语句中初值必须大于终值（N）8.对象的可见性用enabled属性设置可用性用visible属性设置（N)9.在命令按钮中click事件过程中,exit和end等效（N）10.只要用拖拽的方法，将工具箱中所需的控件拖到窗体上即可（N）11.工具箱提供了VB所需的所有控件（N）12.一个目标程序所需的所有文件的集合成为工程（Y）13.单击并拖拽工具箱中所需的控件到窗体上添加完成控件任务（N）14.Image控件不能作为容器使用（Y）15.Msgbox()函数建立的消息框能显示信息也能输入用户信息（N）16.timer是时钟控件的唯一事件（Y）17.当计时器控件的interval属性值设置为0时，会连续不断地激发timer事件（N）18.当do while loop 或do until loop语句中while或until后的表达式的值为true或非0时，循环继续（N）19.滚动条控件不能作为不可作为用户输入数据的方法（Y）20.事件过程由某个用户事件或系统事件触发后执行，不能被其他过程调用（N）21.移动框架内的控件时框架内的控件也跟随移动，所以框架内的各个控件的left和top属性值也将分别随之改变（N）22.某一过程的静态变量在过程结束后，静态变量及其值可以在其他过程中使用（N）23.VB中规定窗体的的文件扩展名为vbp(N )24.计时器控件的interval属性的单位是毫秒，如将此值设置为10，则每隔0.01秒产生一次timer事件（Y）25.“”是一个字符串，’’“不是字符串（N）26.菜单每一项菜单控件，可以通过点击菜单项或通过光标选择并按回车，以触发click（Y）27.如果在调用过程中使用地址传递参数，则在被调用的过程中不可以改变参数的（N）27.在vb6.0中如果要增加工具箱的控件，应执行“文件”菜单中的命令（N）28.在框架控件上放置的控件可以放置到框架控件的外面（N）29.在vb中可以将在picture控件中绘制的图形以文件的形式保存在磁盘上（Y）程序填空题目：本程序功能为，单击窗体，Form1的输出结果为A1=10 B1=20A2=20 B2=10请在【】处填入正确的内容****************SPACE**********************Public Sub Swap1 ( byval x As Integer , ByVal y As Integer) Dim t As Integert = xx = yy = tEnd SubPublic Sub Swap2(x As Integer , y As Integer)Dim t As Integert = xx = yy = tEnd SubPrivate Sub Form_Click()Dim a As Integer , b As Integera = 10b = 20************SPACE**************Swap1 a , bForm1.Print “A1=” ; a, “B1=”; ba = 10b = 20************SPACE*************Swap2a, bForm1.Print “A2=”; a, “B2=”; bEnd Sub题目：据统计，手印全长与人体身高存在一定的比例关系：身高(厘米)=手印全长*9.75，编写通过人手印长计算身高的函数？Private Function length(flong As Single)*************SPACE***************length = flong * 9.75End FunctionPrivate Sub Form_Click()Dim le As Singlele = Val (InputBox（”请输入人手印全长”）)*******************SPACE**************h = length(le)Print “此人的手印全长是：” & le & “厘米” & “可能得身高是：” & h &”厘米”End Sub从键盘输入学生分数，统计同学总人数和各分数段人数，即优秀（90—100）、良好（80—89）、中等（70—79）、及格（60—69）、不及格（60以下）的人数Private Sub Form_Click()Dim score%,n1%,n2%,n3%,n4%,n5%msg=”请输入分数（-1结束）”msgtitle=”输入数据”score = Val（InputBox(msg,msgtitle)）**************SPACE**********While score>=0 and score<=100total = total +1**************SPACE*************Select Case scoreCase Is >= 90n1=n1+1Case Is>=80n2=n2+1Case Is>=70n3=n3+1Case Is>=60n4=n4+1Case Elsen5=n5+1*************SPACE*************End selectScore = Val(InputBox(msg,msgtitle))WendPrint n1,n2,n3,n4,n5,totalEnd SubOption Explicit题目：写出程序运行后，单击窗体，Form1上显示的内容Sum函数的功能为求阶乘和isum=1isum=3isum=6isum=10isum=15请在【？】处填入正确的内容Private Sub Form_Click()Dim I As Integer, isum As Integer**************SPACE*************For I =1 To 5Isum = sum(I)**************SPACE***************Form1.Print “isum=”&isumNext IEnd SubPrivate Function sum (n As Integer)Static j As Integer*****************SPACE***************J=j + nsum = jEnd Function程序改错题目：程序功能为打印下列图形：***************Option ExplicitPrivate Sub Form_Click()ClsDim i As IntegerDim j As Integer***************FOUND*************For I =1 To 7(5)***************FOUND*************For j=1 To 5(i)Print “*”;***************FOUND**************Loop(next(j))PrintNext iEnd Sub题目：以下程序功能是输入三个数，由大到小排序。