vb期末考试选择题附答案

VB中窗体文件的扩展名是__A____。

A、FRM

B、VBW

C、PDM

D、VBP

在窗体上添加"控件"的正确的操作方式是( C )。

A、先单击工具箱中的控件图标，再单击窗体上适当位置

B、先单击工具箱中的控件图标，再双击窗体上适当位置

C、直接双击工具箱中的控件图标，该控件将出现在窗体上

D、直接将工具箱中的控件图标拖动到窗体上适当位置

下列叙述中正确的是（ D ）。

A、窗体和控件都不是VB中的对象

B、只有窗体才是VB中的对象

C、只有控件才是VB中的对象

D、窗体和控件都是VB中的对象

以下叙述中错误的是___B_____。

A、在通用过程中，多个形式参数之间可以用逗号作为分隔符

B、当一行中有多个语句时，可以用逗号作为分隔符

C、在Dim语句中，所定义的多个变量可以用逗号作为分隔符

D、在Print方法中，多个输出项之间可以用逗号作为分隔符

能够用于标识对象名称的属性是( C )。

A、Text

B、Value

C、Caption

D、Name

为了使命令按钮的Picture、DownPicture或DisabledPicture属性生效，必须把它的Style属性设置为( B )。

A、真

B、1

C、0

D、假

以下能够设置控件焦点的方法是( B )。

A、LostFocus

B、SetFocus

C、TabStop

D、GotFocus

若在窗体模块的声明部分声明了如下自定义类型和数组

Private Type rec

Code As Integer

Caption As String

End Type

Dim arr(5) As rec

则下面的输出语句中正确的是_B_____

A、Print arr.Code(2),arr.Caption(2)

B、Print arr(2).Code,arr(2).Caption

C、Print arr.Code,arr.Caption

D、Print Code(2),Caption(2)

在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程：

Private Sub Command1_Click()

Dim b As Integer

b = b + 1

End Sub

运行程序，三次单击命令按钮后，变量b的值是：__C____。

A、0

B、3

C、1

D、2

以下变量名中合法的是___A_____。

A、str_n

B、x2－1

C、print

D、2x

执行下列语句后，显示输入对话框，此时如果单击"确定"按钮，则变量strInput的内容是：

___B___。

strInput=InputBox("请输入字符串","字符串对话框","字符串")

A、空字符串

B、"字符串"

C、"请输入字符串"

D、"字符串对话框"

表达式12 / 2\4的值是( A )。

A、2

B、1

C、4

D、1.5

以下程序的功能是随机产生10个两位的整数：

Option Base 1

Private Sub Command1_Click()

Dim a(10)As Integer

Dim i As Integer

Randomize

For i＝1 To 10

a(i)＝Int(Rnd * 100)＋1

Print a(i)

Next I

End Sub

运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是( D )。

A、a(i)＝Int(Rnd * 100)

B、a(i)＝Int(Rnd * 101)

C、a(i)＝Int(Rnd * 100)＋10

D、a(i)＝Int(Rnd * 90)＋10

设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：

Private Sub Command1_Click()

Dim s As String,ch As String

s=""

For k=1 To Len(Text1)

ch=Mid(Text1,k,1)

s=ch+s

Next k

Text1.Text=s

End Sub

程序执行时，在文本框中输入"Basic"，然后单击命令按钮，则文本框中的内容是（B

A、BASIC

B、Basic

C、cisaB

D、CISAB

现有如下一段程序：

Private Sub Command1_Click()

x＝UCase(InputBox("输入："))

Select Case x

Case "A" To "C"

Print "考核通过！"

Case "D"

Print "考核不通过！"

Case Else

Print "输入数据不合法！"

End Select

End Sub

执行程序，在输入框中输入字母"B"，则以下叙述中正确的是( C )。

A、在窗体上显示"考核不通过！

B、在窗体上显示"输入数据不合法！"

C、在窗体上显示"考核通过！"

D、程序运行错

设a=6，则执行

x=IIF(a>5,-1,0)

后，x的值为___A___。

A、-1

B、0

C、6

D、5

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：

Private Sub Command1_Click()

Counter=0

For i=1 To 4

For j=6 To 1 Step -2

Counter=Counter+1

Next j

Next i

Label1.Caption=Str(Counter)

End Sub

假定有以下程序：

Private Sub Form_Click()

a＝1：b＝a

Do Until a>＝5

x＝a*b

Print b;x

a＝a＋b

b＝b＋a

Loop

End Sub

程序运行后，单击窗体，输出结果是 C 。

A、1 1

2 3

B、1 1

3 8

C、1 1

3 6

D、1 1

2 4

下列程序段的执行结果为__C____。

A = 0:

B = 0

For I = -1 To -2 Step -1

For J = 1 To 2

B = B + 1

Next J

A = A + 1

Next I

Print A; B

A、-2 2

B、 4 2

C、 2 4

D、 2 3

数组Dim arr(-1 to 4,2 to 4,3) 的元素个数是 D 。

A、60

B、36

C、30

D、72

设有如下事件过程：

Private Sub Command1_Click()

Dim a

a＝Array(3， 5， 6， 3， 2， 6， 5， 3， 5， 4， 3， 9， 4， 5， 6， 3， 5) x＝0

n＝UBound(a)

For i＝0 To n

m＝0

For j＝0 To n

If a(i)＝a(j)Then

m＝m＋1

End If

Next j

If m>x Then x＝m： b＝a(i)

Next i

Print b

End Sub

运行程序，输出是( C )。

A、5

B、2

C、3

D、9

下列程序：

Private Sub Command1_Click()

Dim arr() As Integer

Dim i As Integer

ReDim arr(1 To 5)

For i = 1 To 5

arr(i) = i

Next

ReDim Preserve arr(1 To 6)

Print arr(1); arr(6)

End Sub

运行程序，输出的结果是（ B ）。

A、0 0

B、 1 0

C、0 6

D、1 6

有以下通用过程：

Function fun(N As Integer)

s＝0

For k＝1 To N

s＝s＋k *(k＋1)

Next k

fun＝s

End Function

该过程的功能是(A )。

A、计算1×2＋2×3＋3×4＋...＋N×(N＋1)

B、计算N！

C、计算1＋2＋3＋...＋N

D、计算1×2×2×3×3×... ×N×N Private Sub Form_Click()

Test 2

End Sub

Private Sub Test(x As Integer)

x = x * 2 + 1

If x < 6 Then

Call Test(x)

End If

x = x * 2 + 1

Print x;

End Sub A

A、 23 47

B、 5 11

C、 23 23

D、 10 22

下列叙述中正确的是__C____。

A、在窗体的Form_Load事件过程中定义的变量是全局变量

B、局部变量的作用域可以超出所定义的过程

C、在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程

D、在调用过程中，所有局部变量被系统初始化为0或空字符串

设置复选框中或单选按钮的标题对齐方式的属性是__A____。

A、Alignment

B、Align

C、Sorted

D、Style

下面哪个属性肯定不是框架控件的属性___D_____。

A、Caption

B、Left

C、Enabled

D、Text

设窗体上有一个名为List1的列表框，并编写下面的事件过程：

Private Sub List1_Click()

Dim ch As String

ch=List1.List(List1.ListIndex)

List1.RemoveItem List1.ListIndex

List1.AddItem ch

End Sub

程序运行时，单击一个列表项，则产生的结果是__C______。

A、该列表项被删除后又在原位置插入

B、该列表项被删除

C、该列表项被移到列表的最后面

D、该列表项被移到列表的最前面

能够将组合框Combo1中最后一个数据项删除的语句为(D )。

A、Combo1.RemoveItem Combo1.ListCount

B、Combo1.RemoveItem Combo1.ListIndex

C、Combo1.RemoveItem Combo1.ListIndex－1

D、Combo1.RemoveItem Combo1.ListCount－1

窗体上有一个名称为VScroll1的垂直滚动条，要求程序运行时，滚动块的初始位置在最下端，应该使VScroll1.Value的值等于( A)。

A、VScroll1.Max

B、https://www.360docs.net/doc/dc5352188.html,rgeChange

C、VScroll1.SmallChange

D、VScroll1.Min

窗体上有1个名称为Text1的文本框，1个名称为Timer1的计时器，且已在属性窗口将Timer1的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是，单击窗体，则每隔2秒钟在Text1中显示一次当前时间。

Private Sub Form_Click()

Timer1.

End Sub

Private Sub Timer1_Timer()

Text1.Text＝Time()

End Sub

为了实现上述功能，应该在横线处填入的内容为( B )。

A、Visible＝False

B、Enabled＝True

C、Visible＝True

D、Enabled＝False

图像框有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是__A____。

A、Stretch

B、AutoRedraw

C、Appearance

D、AutoSize

下列关于控件数组的说法中,正确的是 C .

A、同一控件数组中的每个元素的每个元素的所有属性值都是一样的

B、控件数组的定义与普通数组的定义是一样的

C、同一控件数组必须由同类型的控件组成

D、同一控件数组中的元素可以是不同类型的控件

将CommonDialog通用对话框以"打开文件对话框"方式打开，可选 B 方法。

A、ShowFont

B、ShowOpen

C、ShowSave

D、ShowColor

如果一个直线控件在窗体上呈现为一条垂直线,则可以确定的是___A_____。

A、它的X1、X2属性的值相等

B、它的X1、X2属性的值分别与Y1、Y2属性的值相等

C、它的X1、Y1属性的值分别与X2、Y2属性的值相等

D、它的Y1、Y2属性的值相等

当用户（D ）时，会引发焦点所在的控件的KeyPress事件。

A、释放键盘上的一个ASCII键

B、单击鼠标左键

C、单击鼠标右键

D、按下键盘上的一个ASCII键

在标签的MouseDown、MouseUp和Click事件中，分别写入代码：

Print "aaa"、 Print "bbb"、 Print "ccc"，程序运行后，单击标签，窗体上将显示（ D ）。

A、ccc

aaa

bbb

B、ccc

bbb

aaa

C、aaa

bbb

ccc

D、aaa

ccc

bbb

用Write和Print语句向文件中写入多个数据的差别在于___B___。

A、Write语句不会自动在数据项之间插入逗号

B、Write语句写入时，在数据项之间加逗号，并且给字符串加上双引号

C、Print语句自动在数据项之间插入逗号

D、Print语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格