VB练习1讲解

1.下面数组声明语句中，数组包含元素个数为 ________。

Dim a(-3 to 2,5）

A.120

B.30

C.60

D.36

2.有如下程序代码，输出结果是________。

Dim a()

a=Array(1,2,3,4,5)

for i=Lbound(a）to Ubound(a)

print a(i);

next i

A.1 2 3 4 5

B.0 1 2 3 4

C.5 4 3 2 1

D.4 3 2 1 0

3.假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是________。

A.数组中每个命令按钮的名称(名称属性)均为Command1

B.数组中每个命令按钮的标题(Caption属性)都一样

C.数组中所有命令按钮可以使用同一个事件过程

D.用名称Command1(下标)可以访问数组中的每个命令按钮

4.在设定Option Base 1后，经Dim arr(3,4）As Integer 定义的数组arr含有的元素个数为________。

A.12

B.20

C.19

D.9

5.有如下程序代码，输出结果是________。

Dim a(-3 to 6,5)

n=Lbound(a,2)

print n

A.-3

B.0

C.6

D.5

6.有如下程序代码，输出结果是________。

Dim a(-3 to 6,5)

n=Ubound(a,1)

print n

A.-3

B.0

C.6

D.5

7.要获知当前列表项的数目，可通过________属性实现。

A.List

B.ListCount

C.ListIndex

D.Text

8.根据需要用________可以重新确定动态数组的大小。

A.ReDim

B.Dim

C.Static

D.Public

9.用ReDim不可以改变动态数组的________。

A.大小

B.类型

C.维数

D.下标值

10.可以通过修改控件数组中的控件的________属性值改变其在数组中的顺序。

A.Font

B.Caption

C.Index

https://www.360docs.net/doc/4710045677.html,

11.用来设置斜体字的属性是 ________。

A.FontBold

B.FontItalic

C.FontName

D.FontSize

12.复选框的Value 属性为 2时，表示 ________。

A.复选框未被选中

B.复选框被选中

C.复选框呈灰色不可用

D.复选框操作有误

13.下列控件中没有Caption属性的是 ________。

A.框架

B.列表框

C.复选框

D.单选按钮

14.滚动条产生Change事件是因为 ________值改变了。

A.SmallChange

B.Value

C.Max

https://www.360docs.net/doc/4710045677.html,rgeChange

15.如果要每隔15s产生一个Timer事件，则Interval属性应设置为________。

A.15

B.900

C.150

D.15000

16.列表框的 ________属性是数组。

A.List 和 ListIndex

B.List 和 ListCount

C.List 和 Selected

D.List 和 Sorted

17.下列________不属于组合框的风格。

A.下拉式组合框

B.简单组合框

C.下拉式列表框

D.简单列表框

18.以下不允许用户在程序运行时输入文字的控件是________。

A.文本框

B.下拉式组合框

C.简单组合框

D.下拉式列表框

19.窗体能响应的事件是________。

A.ActiveForm

B.Load

C.Drive

D.Change

20.________不是VB控件。

A.窗体

B.定时器

C.单选框

D.复选框

21.要将窗体从内存中卸载出去，其实现的方法是________。

A.Show

B.Hide

C.Load

D.UnLoad

22.要使按钮上能放置图片需要修改按钮的________属性。

A.MaskColor

B.BackColor

C.Visible

D.Style

23.滚动条控件取值范围最大值的属性是________。

A.MaxChange

https://www.360docs.net/doc/4710045677.html,rgeChange

C.Value

D.Max-Min

24.能清除文本框Text1中内容的语句是________。

A.Text=""

B.Text1.Text=""

C.Text1.Clear

D.Text1.Cls

25.设置标签Label1不可见的语句是________。

https://www.360docs.net/doc/4710045677.html,bel1.Visible==0

https://www.360docs.net/doc/4710045677.html,bel1.Visible==1

https://www.360docs.net/doc/4710045677.html,bel1.Visible=True

https://www.360docs.net/doc/4710045677.html,bel1.Visible=False

26.设置Line控件的________属性可使其呈现不同线型。

A.BorderStyle

B.Style

C.FillStyle

D.Shape

27.要使文本框的滚动条ScrollBars属性有效，首先要将________属性设置为True.

A.MultiLine

B.Visible

C.Text

D.MaxLength

28.设置标签的（）属性，可改变其文字对齐方式。

A.Justify

B. Font

C.Alignment

D.以上都不是

29.设置Image控件的（）可使框内的图片按图像框大小自动调整。

A.AutoSize属性为True

B.AutoSize属性为False

C.Stretch属性为True

D.Stretch属性为False

30.命令按钮、单选按钮、复选框上都有Picture属性，可以在控件上显示图片，但需要通过________来控制。

A.Appearance属性

B.Style属性

C.DisablePicture属性

D.DownPicture属性

31.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（）。

A.属性、事件、方法

B.控件、属性、事件

C.窗体、控件、过程

D.窗体、控件、模块

32.Visual Basic主要用于（）。

A.图像处理

B.文字处理

C.制作视频文件

D.开发应用程序

33.相对于传统编程语言，Visual Basic最突出的特点是（）。

A.可视化编程

B.面向对象的程序设计

C.结构化程序设计

D.事件驱动编程机制

34.对象属性设置可在（）中进行。

A.工具箱

B.属性窗口

C.工程资源管理器窗口

D.窗体设计窗口

35.将窗体文件移出工程后，该文件（）。

A.还存在于硬盘中

B.已从硬盘上删除

C.A和B都有可能

D.A和B都不可能

36.窗体和控件的描述及其属性的设置保存在（）文件中。

A.工程

B.窗体

C.窗体二进制数据

D.标准模块

37.不论什么对象，都具有（）属性。

A.Text

B.Forecolor

https://www.360docs.net/doc/4710045677.html,

D.Caption

38.为保存一个VB应用程序，下列正确的是（）。

A.只保存窗体文件frm

B.只保存工程文件vbp

C.分别保存窗体文件和工程文件

D.分别保存窗体文件和标准模块文件bas

39.下面（）是合法的变量名。

A. X_yx

B.123abc

C. integer

D. X-Y

40.为问题设计一个解决方案及具体解决步骤，属于（）过程。

A.问题分析

B.算法设计

C.问题实现

D.归纳分析

41.以下关于MsgBox的叙述中，错误的是（）。

A.MsgBox函数返回一个整数

B.通过MsgBox函数可以设置信息框中图标和按钮的类型

C.MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量

D.MsgBox语句没有返回值

42.Inputbox()函数的返回值类型是（）。

A.数值型

B.字符型

C.逻辑值

D.变体型

43.下面的运算符中，优先级最高的是（）。

A.Not

B.And

C.Or

D.Lisk

44.以下（）是算术运算符。

A.Imp

B.Mod

C.Not

D.Like

45.函数Int(Rnd*100)是在（）范围内的整数？

A.[0,100]

B.(1,100)

C.[0,99]

D.(1,99)

46.表达式Len("你好ABC52")的值是（）。

A.9

B.8

C.7

D.6

47.表达式5 mod 3+3\5*2的值是（）。

A.0

B.6

C.4

D.2

48.表达式Int(-17.4)+sgn(17.4)的值是（）。

A.-18

B.-17

C.-16

D.0

49.设x=4,y=8,z=7,表达式“xz)or z

A.-1

B.1

C.FALSE

D.TRUE

50.以下关系表达中，其值为False的是（）。

A."The"<>"they"

B."ABC"<"AbC"

C."VISUAL"=Ucase("Visual")

D."Integer"="Int"

51.当x=0时，函数iif(x>0,1,iif(x<0,-1,0))的返回值是（）。

A.0

B.1

C.-1

D.出错

52.符号％是声明（）类型变量的类型定义符。

A.Single

B.String

C.Integer

D.Variant

53.在一行内写多条语句时，每个语句之间用（）来分隔。

A.，

B.；

C.：

D.、

54.Print方法分区输出时，用（）分隔多个表达式。

A.空格

B.逗号

C.冒号

D.分号

55.下列叙述错误的是（）。

A.不允许使用行号与标号

B.单条语句可分行书写

C.同一行上可以书写多条语句

D.VB代码不区分字母的大小写

56.由“For i=1 To 16 Step 3”决定的循环结构被执行（）次。

A.4

B.5

C.6

D.7

57.下面程序段运行后，显示的结果是（）。

Dim x as integer

if x then print x else print x+1

A.1

B.0

C.-1

D.显示出错信息

58.下面程序段求两个数中的大数，（）不正确。

A.Max=iif(x>y,x,y)

B.if x>y then max=x else max=y

C.max=x

if y>=x then max=y

D.if y>=x then max=y

max=x

59.设有以下循环结构

A.若“条件”是一个为0的常数，则一次也不执行循环体

B.“条件”可以是关系表达式、逻辑表达式或常数

C.循环体中可以使用Exit Do语句

D.如果“条件”总是为True，则不停地执行循环体

Do

循环体

Loop While<条件>

则以上叙述中错误的是（）。

60.在过程定义中用（）表示形参的按值传递。

A.Var

B. ByRef

C. ByValue

D. ByVal

判断

1.文本框和标签控件有许多共同特点，它们都能显示和输入文本。（）

2.对象的Caption属性就是指对象的名称。（）

3.将组合框的Style属性设置为0时，组合框称为“下拉式组合框”，其选项可以从下拉列表框列表项中选择，也可以由用户输入。（）

4.列表框和文本框一样都具有Text属性。（）

5. 拖动滚动条滑块的过程中，没有执行滚动条控件的Change事件，但在拖动过程停止时，执行了滚动条控件的Change事件。（）

6.菜单编辑器中的快捷键是指无须打开菜单就可以直接由键盘输入选择菜单项的键。（）

7.PictureBox控件不是“容器”控件。（）

8.菜单一旦建成后，所有的菜单项均可识别Click事件。（）

9.由Array函数建立的数组必须是Variant类型。（）

10.在同一过程中声明数组时，数组名可以与变量名相同。（）

11.在Visual Basic设计界面中,工程窗口是不能隐藏的窗口。（）

12.面向对象程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。（）

13.方法是预先定义好的、能够被对象识别的动作。（）

14.工程资源管理器管理文件主要有6类，即窗体文件（.frm）、标准模块文件（.bas）、类模块文件（.cls）、工程文件（.vbp）、工程组文件（vbg）和资源文件（.res）。（）

15.窗体模块和标准模块都是只由代码组成。（）

16.程序运行前必须先保存。（）

17.所有属性都可以在属性窗口设置（）

18.用户定义类型中的元素可以是任何数据类型，如变长字符串型，整型等。（）

19.赋值语句的功能是计算表达式值并转换为相同类型数据后为变量或控件属性赋值。（）

20.VB中的变量必须先声明才可使用。（）

21.VB在书写程序的时候可以使用续行符，它是由空格和下划线组成的。（）

22.在VB中，变量的名称区分大小写，即认为NR与nr是不同的两个变量。（）

23.程序代码的基本结构有三种，分别是顺序结构、选择结构、循环结构。（）

24.在语句中If x=1 Then y=1中，x=1为关系表达式，y=1为赋值语句。（）

25.Do While……Loop循环至少执行一次，Do ……Loop Until循环可能不执行。（）

26.若要退出for循环，可使用Exit语句。（）

27.在For……Next循环中，其中step步长可以是正数、负数或者零。（）

28.if 6>5 then x=5 endif是一条合法语句。（）

29.在循环体内，循环变量的值不能被改变。（）

30.通用过程中使用Static关键字定义的过程级变量都是静态变量。（）

1 阅读下列程序段：

m=0

for i=1 to 3

for j=1 to i

m=m+j

next j

next i

执行以上的循环后，i和m的值分别为：_______________________

2 窗体上有一个命令按钮Command1，编写如下事件过程：

Private Sub Command1_Click()

x = InputBox("x=")

y = InputBox("y=")

Print x + y

End Sub

运行后，单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是___________________________________

3 n=5:x=1:i=1

Do

x=x*i

i=i+1

Loop While i

执行以上程序段后，x的值是________________________________

4 Dim m%,n%

For m=1 to 3

For n=1 to 6 step 2

n=n+1

print n

next n

next m

运行以上程序段，其中“n=n+1”语句被执行的次数是____________

5 x = 3 : y = 5 : z = 9

x = x + y

y = x - y

If x - y > z - x Then z = x + y

If x + y > z - y Then x = z + y

Print x, y, z

以上程序段的执行结果是___________________________________

6 Private Sub Command1_Click()

Dim a, b

a = 10

b = 20

Call mult((a), b)

Print a, b

End Sub

Sub mult(ByRef x As Variant, y As Variant)

x = x * 2

y = y * 3

End Sub

以上程序的执行结果是___________________________________

7 Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 6

b = 7

Call say(a, b)

Print a, b

End Sub

Sub say(x As Integer, ByVal y As Integer)

Dim a As Integer

a = 2 * x + y

x = a + 1

y = x + 10

End Sub

以上程序的执行结果是___________________________________

8 Dim x As Single, y As Single

Private Sub Command1_Click()

x = x + 1

Call test2

End Sub

Private Sub test2()

Dim x As Single

x = x + 20

Print x

End Sub

以上程序的执行结果是___________________________________

9.有如下程序代码

Dim a() as string

a=split("武#夷#学#院","#")

print a(2)

以上程序的执行结果是___________________________________

10.有如下程序代码

Private Sub Command1_Click()

Dim A(2 To 7) As Integer

Dim i As Integer

For i = 2 To 7

A(i) = i

Next i

print A(i - 2)

End Sub

以上程序的执行结果是_________________________