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.可以通过（文件）菜单的（退出）命令退出VB

37.滚动条控件有水平滚动条和（垂直）滚动条

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 showopen

2.与传统的程序设计语言相比VB最突出的特点是（b）

A 程序调试技术 b 事件驱动编制程序机制 c 程序开发环境d 结构化程序设计

3.下面（c）对象在运行时一定不可见

A option b text c timer d line

4.字体对话框是调用（a）方法来实现的

A showfont b showclose c showcolor d showopen

5.以下叙述错误的是（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 style

8.在VB应用程序中，以下叙述正确的描述（a）

A 过程的定义不可以嵌套，但过程的调用能嵌套

B 过程的定义可以嵌套，但过程的调用不能嵌套

C 过程的定义和过程均不可以嵌套

D 过程的定义和过程均可嵌套

9.可以唯一识别控件数组的每一个控件属性的是（d）

A caption b name c enabled d index

10.下面（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 load

16.以下不能作为VB中的变量名(d)

A abx45 b p1234 c xy d 89ta

17.假定有一个菜单项，名为menuitem,为了在运行时使该菜单失效（变灰），应使用的语句（a）

A menuitem.enabled=false b menuitem.enabled=true

Cmenuitem.visible=false d menuitem.visible=true

18.下列数据类型中，占有内存最大的是（c）

A byte b boolean c single d integer

19.在窗体上画一个名称为command的命令按钮，然后编写程序

Private sub command-click()

Static x as integer

Cls

Y=y+2

X=x+2

Print x,y

End sub

程序运行后，连续单击四次command1后，窗体上显示（a）

A 8 2 b 2 2 c 8 8 d 2 8

20.以下关于过程及过程参数的描述中，错误的是（C）

A 过程的参数可以使控件的名称

B 窗体可以作为过程的参数

C 按传值方式传递参数，有可能会改变实际参数的值

D 用数组作为过程的参数时，使用的是传地址方式

21.定义过程中，要设置可选参数使用的命令的是（c）

A variant b paramarray c option1 d array

22.单击滚动条两端的任一滚动箭头，将触发该滚动条的（c）事件

A dragover b keydown c change d scroll

23.下列有关控件数组和一般控件的区别的叙述，最合理的是（d）

A控件数组的建立通过dim语句声明，而一般控件不必声明

B控件数组的index为0，而一般控件的index 为空

C 控件数组的index为1，而一般控件的index 为0

D控件数组一定由多个同类型的控件构成，一般控件只有一个控件

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=20

A2=20 B2=10

请在【】处填入正确的内容

****************SPACE**********************

Public Sub Swap1 ( byval x As Integer , ByVal y As Integer) Dim t As Integer

t = x

x = y

y = t

End Sub

Public Sub Swap2(x As Integer , y As Integer)

Dim t As Integer

t = x

x = y

y = t

End Sub

Private Sub Form_Click()

Dim a As Integer , b As Integer

a = 10

b = 20

************SPACE**************

Swap1 a , b

Form1.Print “A1=” ; a, “B1=”; b

a = 10

b = 20

************SPACE*************

Swap2a, b

Form1.Print “A2=”; a, “B2=”; b

End Sub

题目：据统计，手印全长与人体身高存在一定的比例关系：

身高(厘米)=手印全长*9.75，编写通过人手印长计算身高的函数？

Private Function length(flong As Single)

*************SPACE***************

length = flong * 9.75

End Function

Private Sub Form_Click()

Dim le As Single

le = 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<=100

total = total +1

**************SPACE*************

Select Case score

Case Is >= 90

n1=n1+1

Case Is>=80

n2=n2+1

Case Is>=70

n3=n3+1

Case Is>=60

n4=n4+1

Case Else

n5=n5+1

*************SPACE*************

End select

Score = Val(InputBox(msg,msgtitle))

Wend

Print n1,n2,n3,n4,n5,total

End Sub

Option Explicit

题目：写出程序运行后，单击窗体，Form1上显示的内容

Sum函数的功能为求阶乘和

isum=1

isum=3

isum=6

isum=10

isum=15

请在【？】处填入正确的内容

Private Sub Form_Click()

Dim I As Integer, isum As Integer

**************SPACE*************

For I =1 To 5

Isum = sum(I)

**************SPACE***************

Form1.Print “isum=”&isum

Next I

End Sub

Private Function sum (n As Integer)

Static j As Integer

*****************SPACE***************

J=j + n

sum = j

End Function

程序改错

题目：程序功能为打印下列图形：

*

**

***

****

*****

Option Explicit

Private Sub Form_Click()

Cls

Dim i As Integer

Dim j As Integer

***************FOUND*************

For I =1 To 7(5)

***************FOUND*************

For j=1 To 5(i)

Print “*”;

***************FOUND**************

Loop(next(j))

Print

Next i

End Sub

题目：以下程序功能是输入三个数，由大到小排序。Option Explicit

Dim A As Integer

Dim B As Integer

Dim C As Integer

Private Sub Form1_Click()

Dim nTemp As Integer

A=Val(InputBox(“Please input first integer”,”输入正整数”))

B=Val(InputBox(“Please input second integer”,”输入正整数”)) C=Val(InputBox(“Please input third Integer”,”输入正整数“)) ******************FOUND***************

If A <= C (B) Then

nTemp = A

A=B

B=nTemp

End If

*******************FOUND************

If (A)B<= C Then

nTemp = A

A=C

C=nTemp

End If

*******************FOUND***************

If A<= B （B<=C）Then

nTemp = B

B=C

C=nTemp

End If

Print “The integers in order is “; A;B;C

End Sub

题目：以下程序段用于打印如图1的九九乘法表：

Option Explicit

Private Sub Form_Click()

Dim i As Integer , j As Integer , k As Integer

Print Tab(30) ; “9*9 table”

Print :Print

Ptint “*”(;)

For i =1 To 9

*******************FOUND***************

Print Tab(i*6); i(;)

Next i

Print

For j =1 To 9

Print j ; “”;

************FOUND**************

For k = 1 To 9

**************FOUND************

Print Tab(j(K)*6); j * k;”“;

Next k

Print

Next j

End Sub

题目：已知自然对数的底数e的级数表示如下：

e=1+1/1！+1/2!+1/3!+…………..+1/n!+……………..

本程序利用函数过程fact（）求e，其中绝对值小于

1E-8的项忽略。

Option Explicit

Private Function fact (m As Integer) As Single

Dim x As Single , i As Integer

X = 1

For i =1 To m

******************FOUND****************

x = i(x=x*i)

Next i

fact = x

End Function

Private Sub Form_Click()

Dim e As Single ,item As Single

Dim n As Integer

e = 1

*********************FOUND**************

n = -1(n=0)

Do

n = n + 1

item =1/fact(n)

e = e +item

********************FOUND***************

Loop While item >=0.01

Form1.Print “e=” ; e

End Sub

题目：下面的程序段用于删除数组中指定位置的数字，

如果位置错误给出提示，否则分别显示删除前后的数组元素

Option Explicit

Private Sub Form_Click()

Dim a(10) As Integer, x Integer ,i As Integer , k As Integer

For i = 1 To 10

a(i) = Int (Rnd*90)+10

Print a (i);

Next i

Print

x = InputBox (“请输入要删除第几位数字”)

If x >0 And x <= 10 Then

*********************FOUND**************

For k = x To 10(9)

********************FOUND**************

a(k)=a(k-1)(a(k-1)=a(k))

Next k

Print”删除后的数组：”

For i =1 To 9

Print a(i)

Next i

Else

Print “删除位置错误”

******************FOUND*********************

End

End Sub