考后答案网 www.khdaw.com 23、VB支持自定义数据类型，在某程序中我们定义了如下类型：

Student

As string As String As Integer Type

针对上述定义，如下几项用法正确的是（ ）

A．Student.name=\张三\ B．Dim s As Student

s.name＝\张红\

C．Dim s As Type Student D．Dim s As Type s.name=\张三\ s.name=\张三\

24、一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：

Form1中定义的过程： Private Sub frmfunction1() End Sub

Form2中定义的过程： Public Sub frmfunction2() End Sub

mdlFunc中定义的过程： Public Sub mdlFunction() End Sub

在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是（ ） A．上述三个过程都可以在工程中的任何窗体或模块中直接被调用 B．只有mdlFunction过程能够被工程中各个窗体或模块直接被调用

C．frmfunction1只能在form1中调用，而frmfunction2 则可以在所有模块或窗体中被直接

第 11 页 共 32 页

考后答案网 www.khdaw.com 调用

D．上述三个过程都只能在各自被定义的模块中直接调用

25、VB中Do……Loop结构既可以构成当型循环，也可以构成直到型循环，根据下面的代码：

Dim i,n as Integer n = 20 i = 1 Do Print i; i = i + 2 Loop Until i >20

判断循环结构的类型和循环体的执行次数，正确的选项是（ ） A．当型循环，20次 C．当型循环，10次

B．直到型循环，10次 D．直到型循环，20次

26、在程序中，使用InputBox函数可以接受用户的输入，如果要把它的返回值转换为数值型的数据，应该使用的函数是（ ）

A．Val

B．Len

C．Str D．Log

27、动态数组因为在程序运行前无法确定数组的大小，所以经常根据程序的运行情况，对数组进行重新定义，以下关于VB中动态数组的叙述中不正确的是（ ）

A．可以用ReDim语句重新定义动态数组，并且可以进行多次重定义 B．首次用Dim进行动态数组声明的时候，必须指明它的类型和上下界 C．Preserve为ReDim语句的可选参数，用于保留动态数组原来的内容 D．当对动态数组使用Erase语句进行释放操作时，将释放其内存

28、VB中的控件也叫做部件或组件，主要包括三类，以下哪一项不属于VB控件的分类（ ）

A．控件

B．可插入对象

D．ActiveX控件

C．ADO控件

第 12 页 共 32 页

考后答案网 www.khdaw.com 29、表达式4+5 \\ 6 * 7 / 8 Mod 9 的值是（ ）

A．4

B．5

C．6

D．7

30、可以同时删除字符串前导和尾部空白的函数是（ ）

A．Ltrim

B．Rtrim

C．Trim

D．Mid

三、简答题

1、全局变量声明有哪些限制？

2、字符串是否可以自动转换为数字类型？

3、用Format函数格式化后的字符格式在不同区域环境下的输出是否相同？为什么？ 4、在InputBox函数中，哪一个参数是必需的？ 5、在MsgBox函数中哪一个参数是必须的？ 6、在什么情况下使用过程？ 7、为什么要进行程序调试？ 8、调试程序有哪些手段？

9、用语句Dim A(-3 To 5) As Integer定义的数组的元素个数是多少？

10、设有如下的Visual Basic表达式：5*x^2-3*x-2*Sin(a)/3，与它对应的数学式是什么？ 11、数学式(2x?a)(3y?b)对应的VB表达式是什么？ 12、表达式2>3 And 4<=5 Or 4>4的值是什么？ 13、怎样在程序中设置断点？ 14、在什么情况下可以设置断点？ 15、程序出错的类型有哪几种？

16、在同一模块、不同过程中声明的相同变量名，两者是否表示同一个变量？为什么？ 17、什么情况下会出现“数组下标越界错误”？ 18、逐语句和逐过程有什么区别？ 19、表达式2.75 * 2 \\ 3.45的值是什么？ 20、在程序设计中为什么尽量不用GoTo语句？

四、读程序题

第 13 页 共 32 页

考后答案网 www.khdaw.com 1、分析以下程序，写出运行结果。

Private Sub Form_Click() score = Int(Rnd * 10) + 80 Select Case score Case Is < 60 A$ = \ Case 60 To 69 A$ = \ Case 70 To 79 A$ = \ Case 80 To 89 A$ = \ Case Else A$ = \ End Select Print A$ End Sub

2、读下面的程序，分析其功能，写出运行结果。

在窗体上有一个命令按钮，名称为Command1。然后编写如下程序：

Private Sub Command1_Click() For I = 1 To 4 For J = 0 To I Print Chr$(65 + I); Next J Print Next I

第 14 页 共 32 页

考后答案网 www.khdaw.com End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是什么？ 3、阅读下面的程序，分析并写出其功能。

Sub insert(a() As Single,ByVal x As Single) Dim m as integer,n as integer n=1

Do While n<20 And x>a(n) n=n+1

Loop

For m=20-1 To n Step –1

a(m+1)=a(m)

Next m a(n)=x End Sub

4、分析以下程序，写出运行结果。 Sub subP(b() As Integer) For i =1 To 4 b(i)=2*i Next i End Sub

Private Sub Commandl_Click() Dim a(1 To 4)As Integer a (1)=5 a (2)=6 a (3)=7

第 15 页 共 32 页