VB程序设计复习题答案

VB程序设计复习题

1．Visual Basic是一种___D___的可视化程序设计语言。

A．面向机器 B．面向过程 C．面向问题 D．面向对象

2．Visual Basic主窗口中不包括____B_____。

A．标题栏 B．状态栏 C．工具栏 D．菜单栏

3．程序运行中用鼠标双击当前窗体时，会触发窗体的_____C____ 事件。

A．Load B．Unload C．DblClick D．KeyPress

4．假设窗体上已有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先要执

行的操作是 ____A______。

A．单击窗体上没有控件的地方 B．单击任一个控件

C．双击任一个控件 D．双击窗体上没有控件的地方

5、要设置窗体上各控件的属性，可在 ____C___ 中进行。

A．窗体布局窗口 B．工程资源管理器窗口

C．属性窗口 D．窗体窗口

6．设变量A的值为-2，则___A___函数的执行结果与其他三个不一样。

A．Val("A") B．Int(A) C．Fix(A) D．-Abs(A)

7．要在窗体Forml的标题栏上显示"统计程序"，可用___B___语句。

A．="统计程序" B．n="统计程序"

C. n=统计程序 D．=统计程序

8．函数String(n, "str")的功能是 B 。

A．把数值型数据转换为字符串

B．返回由n个字符组成的字符串

C．从字符串中取出n个字符

D．从字符串中第n个字符的位置开始取子字符串

9、定义变量如下：

Dim MyVar

MyVar =”come see me “

若在立即窗口中显示MyVar的值，下面正确的是（ A ）

A． MyVar B、? MyVar

C． MyVar D、Print MyVar

10．设置复选框或单选按钮标题对齐方式的属性是（ D ）

A．Align B．value C．Sorted D. Alignment

11、滚动条控件的LargeChange属性所设置的是（ A ）

A． 单击滚动条和滚动箭头之间的区域时，滚动条控件value属性值的改变量

B． 滚动条中滚动块的最大移动位置

C． 滚动条中滚动块的最大移动范围

D． 滚动条控件无该属性

12、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改

变的属性是（ D ）

A．Caption B．Name C．Text D．value

13、在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，

然后编写如下程序：

Private Sub Command1_Click( )

a=

b=

C=Lcase(a)

D=Ucase(b)

Print C;D

End Sub

程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是（ A ）

A．abcEFG B．abcefg C．ABCefg D．ABCEFG

14．假定窗体上有一个标签，名为Label1，为了使该标签透明并且没有边框，则正确的

属性设置为（ A ）

A．yle=0 B．yle=1

Style=0 Style=1

C．yle=True D．yle=False

Style=True Style=False

15．当拖动滚动条中的滚动块时，将触发滚动条的事件是（ D ）

A．Move B．Change C．SetFocus D．Scoll

16．比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是（ C ）

A． 两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小

B． 两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，

保证显示图形的所有部分

C． 当图片框（PictureBox）的AutoSize属性为FaLse时，只在装入图元文件（*.wmf）

时，图形才能自动调整大小以适应图片框的尺寸

D． 当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形

的大小，使图形充满图像框

17．当利用Line方法进行绘图时，以下正确的说法是（ B ）

A． 有7种不同的线型，而且不管线宽多少都可以绘制虚线/点划线/点线

B． 使用Line(100,100)-(1000,1200)和Line(100,100)-Step(900,1100)将绘制两条相

同位置的直线

C． 可利用Line方法添加矩形，如Line(300,300)-(2000,2000),BF

D． 可利用Line方法添加矩形，如Line(300,300)-(2300,2300),B+F

18．下面语句中错误的是（ B ）

A． Redim Preserve Matrix(10,Ubound(Matrix,2)+1)

B． Redim Preserve Matrix(Ubound(Matrix,1)+1,10)

C． Redim Preserve DynArray(Ubound(DynArray)+1)

D． Redim DynArray(Ubound(DynArray)+1)

19．可以唯一标识控件数组中的每一个控件的属性是（ C ）

A．Name B．Caption C．Index D．Enabled

20、下面（ D ）不是VB的文件类控件

A．DriveListBox控件 B．DirListBox控件

C．FileListBox控件 D、MsgBox

21、关于Open语句不正确的叙述是（ D ）

（A）Open语句可以打开顺序文件 （B）Open语句可以打开随机文件

（C）Open语句可以打开二进制文件 （D）Open语句可以打开一个窗体

22、下列语句所声明的数组的元素个数为（ A ）

Dim Ary(3 To 6,-2 To 2)

（A）20 （B）16 （C）24 （D）25

23、下面对控件数组叙述正确的是（ A ）

（A）在窗体上添加第二个相同类型的控件时，VB不会提示创建一个控件数组

（B）控件数组使用Index属性来标识控件元素，其范围必须从0开始

（C）控件数组使用的资源比用几个单独同类型的控件占用的资源要多

（D）如果有一个命令按钮数组，各个按钮都有自己的Click事件过程

24、在框架Frame1和图片框Piture1中各有一组复选框CheckBox，其作用是（ D ）

（A）两组复选框中只有一个能被选中

（B）因有两组复选框，无一可被选中

（C）两组复选框中各有一个能被选中

（D）两组复选框中各有多个被选中

25、要从Next循环中中退出循环，使用的语句是 (B)

（A）Exit Do （B）Exit For （C）Continue （D）Stop

二、多项选择题

1、要清除文本框Textl中的内容，使其内容为空字符串，可以采用（ AC） 。

A．=Space(0) B．=0 C．=""

D．=Space(1) E．Cls

2、下列关于Name属性的论述中，正确的是（ ABC ） 。

A．所有窗体和控件都有Name属性，其值不能为空

B．对象的Name属性指定对象的名称，用来标识一个对象

C．Name属性值必须以字母(或汉字)开头

D．标签的Name属性值是显示在标签标题(Caption)中的文本

E．Name属性值可以在属性窗口中修改，也可以通过代码来修改

3、下列关于Name属性的论述中，正确的是（ ABC ） 。

A．所有窗体和控件都有Name属性，其值不能为空

B．对象的Name属性指定对象的名称，用来标识一个对象

C．Name属性值必须以字母(或汉字)开头

D．标签的Name属性值是显示在标签标题(Caption)中的文本

E．Name属性值可以在属性窗口中修改，也可以通过代码来修改

4、若要清除图片框Picture1中已经载入的图片内容，可以使用的语句有（ BCD ）

A．

B．e=LoadPicture("")

C．e=LoadPicture()

D．e=Nothing

E．

5、执行程序时，自动发生的窗体事件是（ ACD ）

A．Load B．Click C．Activate

D．Initialize E．LostFocus

三、判断题

1.要在窗体上添加控件，从工具箱中将控件拖到窗体上即可。 F

2.可以把属性看作是一个对象的性质。 T

x与Label有许多共同的特点，它们都能显示和输入文字。 F

4.所有对象的属性都可以在属性窗口中设定。 F

5.标签没有change事件和setFocus方法。 T

6.方法与e=True是等效的。 T

函数建立的信息框既能显示信息又能输入用户的信息。 F

„Loop Until语句实现循环时，不管条件真假，首先无条件地执行一次循环。 T

9.函数Str(23)与Str(-23)的值的长度相同。 T

10.变量名的第一个字符必须是字母。 F

11. 用Cls方法能清除窗体或图片框中用Print方法打印的文本或用Circle或Line方法绘制

的图形。T

12.窗体的标题栏显示内容由窗体对象的Name属性决定。F

13.在运行期间用鼠标单击单选按钮时，按钮的Value属性变为“真”值。T

14.由于定时器控件在运行时是不可见的，因此定时器没有事件触发过程。F

四、填空题（每空2分，共10分）

1、INT(45.02)= ＿＿45＿＿＿。

2、将窗体级变量MyText声明为字符串变量的语句是＿dim mytext as string＿＿＿＿。

3、常用的循环结构有：当型循环和＿＿直到型循环＿＿＿＿。

4、VB的表达式主要有：算术运算表达式、字符串表达市、关系表达式、＿逻辑表达式＿

和对象属性表达式。

5、在图片控件 Picturebox 的属性中，可以决定控件是否自动改变大小的属性是Autosize

6、设在窗体上有一个标签Label1和一个文本框数组Text1，数组Text1有10个文本框，索

引号0～9，其中存放的都是数字数据。现由用户单击选定任一文本框，然后计算从第一个

文本框开始，到该文本框为止的多个文本框中的数值总和，把计算结果显示在标签中，请完

善下列事件过程。

Private Sub Text1_Click(Index As Integer)

Dim s As Single

s = 0

For k = 0 To Index

s = s + val(text1(k).text)

Next

n = s

End Sub

7、运行时，单击窗体，输出如图所示结果。

Private Sub Form_Click()

Cls

For ＿I=1 to9＿＿

Print Tab(15 - i);

Print String(2 * i - 1, (48+I ) )

Next i

End Sub

五、读程序

1、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序；

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single,

Y As Single)

If Button = 2 Then

Print "12345"

End If

End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single,

Y As Single)

Print "67890"

End Sub

程序运行后，在命令按钮上单击鼠标右键，则在窗体上显示的内容是

（

12345

67890 ）

2、在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，

编写命令按钮Command1的Click事件代码：

Private Function fun(x As Long) As Boolean

If x Mod 2 <> 0 Then

fun = True

Else

fun = False

End If

End Function

Private Sub Command1_Click()

Dim n As Long

n = Val()

p = IIf(fun(n), "奇数", "偶数")

n = n & "是一个" & p

End Sub

程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为（ 20是一个偶数）

3、下面程序的运行时，单击命令按钮后，显示结果是（ 5 ）

Private Sub Command1_Click()

a = Array(33, 76, 89, 21, 10, 44, 57, 69, 28, 71)

b = Array(25, 45, 89, 90, 16, 27, 83, 62, 83, 75)

For i = UBound(a) To LBound(a) Step -1

If a(i) < b(i) Then c = c + 1

Next i

Print c

End Sub

4、在窗体中添加一个命令按钮（Name属性为Command1），然后编写如下代码：

Private Sub Command1_Click()

Dim arr1(10) As Integer, arr2(10) As Integer

n = 3

For i = 1 To 5

arr1(i) = i

arr2(n) = 2 * n + i

Next i

Print arr2(n); arr1(n)

End Sub

程序运行后，单击按钮，输出结果为（11 3 ）

5、程序运行时，单击窗体后，键盘输入763458，则标签Label1中的结果是（

Private Sub form_Click()

Dim x As Long

Dim s As Integer, k As Integer, m As Integer

x = Val(InputBox("请输入一个整数："))

Do

）

33

m = x Mod 10

s = s + m

x = x 10

Loop While x <> 0

n = s

End Sub

六、程序设计题

1、 随机产生49个2位的正整数，然后在指定位置插入一个数（插入的数n和位置p

均从键盘输入），最后将这50个数按每行5个数的格式在窗体上输出。

Dim a(49) As Integer

Private Sub Command1_Click()

Dim n As Integer, p As Integer, i As Integer

n = Val(InputBox("please input a number:"))

p = Val(InputBox("please input the place:"))

For i = 48 To p Step -1

a(i + 1) = a(i)

Next i

a(p) = n

Print "after insert"

For i = 0 To 49

Print a(i);

If (i + 1) Mod 5 = 0 Then

Print

End If

Next i

End Sub

Private Sub Form_Activate()

Dim i As Integer

For i = 0 To 48

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

Next i

Print "before insert"

For i = 0 To 48

Print a(i);

If (i + 1) Mod 5 = 0 Then

Print

End If

Next i

Print

End Sub

2、 编写命令按钮Command1的Click事件过程，找出100-1000范围内所有能同时被3

和7整除的自然数。要求在列表框List1中输出满足条件的自然数。

Private Sub Command1_Click()

Dim i As Integer

For i = 100 To 1000

If i Mod 3 = 0 And i Mod 7 = 0 Then

m i

End If

Next i

End Sub

3、 编写命令按钮Command1的Click事件过程，随机产生10个两位数，求出其平均值

显示在文本框Text1中。

Private Sub Command1_Click()

Dim i As Integer, x As Integer, s As Long

s = 0

For i = 1 To 10

x = Int(Rnd * 90 + 10)

s = s + x

Next i

= s / 10

End Sub