大学vb考试题库

Dim c As Integer

a = 2 * a b = b + 2 c = a + b End Sub

Sub s2(a As Integer, ByVal b As Integer) Dim c As Integer a = 2 * a b = b + 2 c = a + b End Sub

Private Sub Command1_Click() x = 4：y = ：4 z = 6 Call s1(x, y) Print x + y + z Call s2(x, y) Print x + y + z End Sub

A、24 28 B、20 28 C、20 18 D、20 20 124、以下关于过程及过程参数的描述中，错误的是(C)。

A、过程的参数可以是控件名称 B、 窗体可以作为过程的参数 C、只有函数过程能够将过程中处理的信息传回到调用的程序中 D、用数组作为过程的参数时，使用的是“传地址”方式 125、以下属于Visual Basic合法的数组元素是（C） A、x8 B、x［8］ C、s(0) D、v[8] 126、下列叙述中正确的是(C)。

A、在窗体的Form_Load事件过程中定义的变量是全局变量 B、局部变量的作用域可以超出所定义的过程

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

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

127、假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i = 1 To Len(S) s1 = UCase(Mid(S, i, 1)) + s1 Next i Fun = s1 End Function 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim str1 As String, str2 As String str1 = InputBox(\请输入一个字符串\ str2 = Fun(str1) Print str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，单击\确定\按钮后程序在窗体上输出结果（D）。

A、abcdefg B、gfedcba C、GFEDCBA D、ABCDEFG

128、若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便的调用Sort子过程，应该将该过程放在(B)。

A、窗体模块 B、标准模块 C、类模块 D、工程 129、下面子过程语句说明合法的是（D）

A、Sub f1（ByVal n() As Integer） B、Function f1（f1 As Integer） As Integer C、Sub f1（n() As Integer）As Integer D、Function f1（ByVal n As Integer）As Integer

130、在过程定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用(D)关键字在过程中定义局部变量。

A、Dim B、Private C、Public D、Static

131、在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件

9

数组元素的参数是(D)。

A、Tag B、Index C、ListIndex D、Name

132、假如列表框（List1）有四个数据项，那么把数据项“China”添加到列表框的最后，应使用(D)语句。

A、List1.AddItem 3, \ B、List1.AddItem \C、List1.AddItem \ D、List1.AddItem \

133、如果列表框（List1）中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex语句的结果是(D)。

A、移去第一项 B、移去最后一项 C、移去最后加入列表的一项 D、以上都不对 134、以下叙述中错误的是(C)。

A、在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)

B、在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)

C、KeyPress事件中不能识别键盘上某个键的按下与释放 D、KeyPress事件中可以识别键盘上某个键的按下与释放

135、设组合框Combo1中有3个项目，则以下能删除最后一项的语句是(B)。 A、Combo1.RemoveItem Text B、Combo1.RemoveItem 2

C、Combo1.RemoveItem 3 D、Combo1.RemoveItem Combo1.Listcount 136、下列控件中，没有Caption属性的是(B)。 A、框架 B、列表框 C、复选框 D、单选按钮

137、引用列表框（List1）最后一个数据项应使用的表达式是（C） A、List1.List(List1.ListCount) B、List1.List(ListCount) C、List1.List(List1.ListCount-1) D、List1.List(ListCount-1) 138、窗体的MouseDown事件过程Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)有4个参数，关于这些参数，正确的描述是(A)。 A、通过Button参数判定当前按下的是哪一个鼠标键 B、Shift参数只能用来确定是否按下Shift键

C、Shift参数只能用来确定是否按下Alt和Ctrl键 D、参数x,y用来设置鼠标当前位置的坐标 139、复选框的Value属性为1时，表示(B)。

A、复选框未被选中 B、复选框被选中 C、复选框内有灰色的勾 D、复选框操作有错误。 140、引用列表框的最后一项应使用(A)。

A、List1.List(List1.ListCount-1) B、List1.List(List1.ListCount) C、List1.List(ListCount) D、List1.List(ListCount-1)

141、设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是(D)。

A、List1.List B、List1.ListIndex C、List1.Index D、List1.Text 142、表示滚动条控件取值范围最大值的属性是(A)。 A、Max B、LargeChange C、Value D、Max-Min

143、为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是(D)。

A、Value B、Default C、Cancel D、Enabled

144、假如列表框（List1）有四个数据项，那么把数据项“China”添加到列表框的最后，应使用语句(D)。

A、List1.AddItem 3, \ B、List1.AddItem \

10

C、List1.AddItem \ D、List1.AddItem \145、复选框的Value属性为2时，表示(C)。

A、复选框未被选中 B、复选框被选中 C、复选框内有灰色的勾 D、复选框操作有错误。 146、为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是(A)。

A、Value B、Default C、Cancel D、Caption 147、下面说法不正确的是（D）? A、层菜单不允许设置快捷键

B、使菜单项中的文字具有下画线，可在标题文字前加&符号

C、一菜单项名为MenuTerm，则语句MenuTerm.Enable = Flase 将使该菜单项失效 D、希望在菜单中显示\符号，则在标题栏中输入\符号 148、以下叙述中错误的是(C)。

A、在程序运行时，通用对话框控件是不可见的

B、在同一个程序中，用不同的方法(如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用

C、调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件 D、调用通用对话框控件的ShowColor方法，可以打开颜色对话框 149、菜单编辑器中，输入哪一个选项（A）会在菜单栏上显示文本 A、标题 B、名称 C、索引 D、访问键 150、菜单控件只有一个事件（B）

A、MouseUp B、Click C、DBClick D、KeyPress

151、在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是(A)。 A、“text (.txt)|(*.txt)” B、“文本文件( .txt) | (.txt)” C、“text(.txt)||(*.txt)” D、“text(.txt)(*.txt)” 152、下面哪个属性可以控制菜单项可见或不可见（C）

A、Hide B、Checked C、Visible D、Enabled 153、下面说法不正确的是（D） A、层菜单不允许设置快捷键

B、使菜单项中的文字具有下画线，可在标题文字前加&符号。

C、一菜单项名为MenuTerm，则语句MenuTerm.Enabled = Flase 将使该菜单项失效。 D、希望在菜单中显示“&”符号，则在标题栏中输入“&”符号。 154、下面哪个属性可以控制菜单项可见或不可见（C）? A、Hide B、Checked C、Visible D、Enabled

155、改变驱动器列表框的Drive属性将激活（A）事件。 A、Change B、Scroll C、KeyDown D、KeyUp 156、在窗体上建立通用对话框需要添加的控件是（C）

A、Data控件 B、Form控件 C、CommonDialog控件 D、VBComboBox控件 157、下面几个关键字均表示文件的打开方式，只能进行读不能写的是（A）。 A、Input B、Output C、Random D、Append

158、为建一个随机文件，其中每一条记录由多个不同数据类型的数据项组成，应使用（A）。 A、记录类型 B、数组 C、字符串类型 D、变体类型 159、下列说法错误的是（B）。

A、当用Write # 语句写顺序文件时，文件必须以Output或Append方式打开 B、用Open语句打开一个文件时，对同一个文件可以用几个不同的文件号打开 C、用Output和Append方式打开文件时，不用将文件关闭，就能重新打开文件

D、用Append方式打开文件时，进行写操作，写入文件的数据附加到原来文件的后面

11

160、执行语句Open \后，对文件\中的数据能够进行的操作是(C)。 A、只能写不能读 B、只能读不能写

C、即可以读，也可以写 D、不能读，也不能写

1，下面程序对已知数组a，删除数组中数组元素中某个元素 Private Sub Command1_Click() Dim a(), key%, i%, j%

a = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4)

key = Val(InputBox(\输入要删除的值\For i = 0 To UBound(a) If key = a(i) Then

For j = i + 1 To UBound(a) a(j - 1) = a(j) Next j

ReDim Preserve a(UBound(a) - 1) MsgBox (\删除完成\ Exit Sub End If Next i

MsgBox (\找不到要删除的元素\End Sub

2，下列程序表示将输入的一个数插入到按递减的有序数列中，插入后使该序列仍有序 Private Sub Form_Click() Dim a, i%, n%, m%

a = Array(19, 17, 15, 13, 11, 9, 7, 5, 3, 1) n = UBound(a)

ReDim Preserve a(n + 1)

m = Val(InputBox(\输入欲插入的数\For i = UBound(a) - 1 To 0 Step -1 If m >= a(i) Then a(i + 1) = a(i)

If i = 0 Then a(i) = m Else

a(i + 1) = m Exit For End If

12