国家二级（VB）机试模拟试卷356

国家二级（VB）机试模拟试卷356

选择题

1.若变量a未事先定义而直接使用(例如：a=0)，则变量a的类型是( )。(D)

A. Integer

B. String

C. Boolean

D. Variant

解析：VB不要求必须先定义再使用。如果没有提前定义变量，就直接使用，系统就会将变量的数据类型指定为默认数据类型Variant变体型。故选D。

2.下面程序运行时，单击窗体后，窗体上显示的结果是( )。

Private Sub Form_Click()

Dim i As Integer，sum As Long

DimtAs Long

t=1：sum=0

For i=l To 3

t=t*i

sum=sum+t

Next i

Print sum

End Sub(B)

A. 3

B. 9

C. 5

D. 6

解析：本题考查累加算法。题目中sum为求和项，初值为0，t为每一项的值，变化规律为后一项是前一项的i倍，i的变化为从1到3，由于t的初值为1，因此求和为1*1+1*2+2*3。

3.单击命令按钮时，下列程序段的执行结果为( )。

Private Sub Command1_Click()

Print Funcl(24，18)

End Sub

Public Function Func1(m As Integer，n As Integer)As Integer

Do While mn

Do While m>n：m=m．n：Loop

Do While m<n：n=n．m：Loop

Loop

Funcl=m

End Function(B)

A. 8

B. 6

C. 4

D. 2

解析：本题考查循环程序的分析。在函数Func1中，程序主要由一条嵌套的循环语句构成，如果mn，外循环内部的第一条内循环为除去m中包含的所有的n的倍数。第二条内循环为除去n中包含的m的倍数。最后计算到m和n相等。

4.在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：

Private X As Integer

Private Sub Command1_Click()

　　 X＝5： Y＝3

　　 Call proc(X， Y)

　　 Label1.Caption＝X

　　 Label2.Caption＝Y

End Sub

Private Sub proc(a As Integer， ByVal b As Integer)

　　 X＝a * a

　　 Y＝b＋b

End Sub

程序运行后，单击命令按钮，则两个标签中显示的内容分别是(　　)。(A)

A. 25和3

B. 5和3

C. 25和6

D. 5和6

解析：虽然在过程proc中参数a默认为按地址传递，参数b指定了ByVal(按值)方式传递，但过程中并没有对a，b的值改变，只对变量X和Y进行了赋值，而X是在窗体模块中起作用的模块变量，而变量Y在proc过程中没有声明，要整个模块中也没有声明，说明它是一个局部变量，只在本过程中起作用。因此，在proc过程中X＝a*a＝5*5＝25，会使按钮单击事件中的变量X值为25，而按钮单击事件过程中的变量Y不受影响，扔是原来的值3。因此两个标签上会分别显示25和3。

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

Private Sub Command1_Click()

c＝1234

c1＝Trim(Str(c))

For i＝1 To 4

　　Print　　　　

Next

End Sub

程序运行后，单击命令按钮，要求在窗体上显示如下内容：

1

12

123

1234

则在横线处应填入的内容为(　　)。(B)

A. Right(c1， i)

B. Left(c1， i)

C. Mid(c1， i， 1)

D. Mid(c1， i， i)

解析：程序中使用Str(c)将数值1234转换成为一个字符串\\

6.在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是(　　)。(D)

A. B. C. D. 解析：

7.层次型、网状型和关系型数据库划分原则是( )。(D)

A. 记录长度

B. 文件的大小

C. 联系的复杂程度

D. 数据之间的联系方式

解析：层次模型的基本结构是树形结构，网状模型是一个不加任何条件限制的无向图，关系模型采用二维表来表示，所以三种数据库的划分原则是数据之间的联系方式。

8.设有如下通用过程：

Public Function Fun(xStr As String)As String

Dim tStr As String，strL As Integer

lStr=\\(C)

A. ABCDEF

B. abcdef

C. defdef

D. defabc

解析：程序中过程：Fun的Do循环的功能是从参数字符串中依次取出后半部分的字符组成一个字符串，然后这个字符串再重复一次由函数返回。函数Len用于返回字符串的长度，过程中字符串的长度做为Do循环的结束条件。Mid是字符串中部截取函数，用来从指定位置开始截取指定个数的字符．讨稃中使用Mid(xStr，i+1．1)，通过循环依次取出字符串后半部分的字符。函数返回的字符串经Lcase函数转换为小写然后显示在文本框中。程序中做为Fun过程参数的字符串为“ABCDEF”，经处理返回并转为小写后为“defdef”。

9.在窗体上画一个命令按钮和一个文本框(名称分别为Commandl和Textl)，并把窗体的KeyPreview属性设置为True，然后编写如下代码：

Dim SaveAll As String

Private Sub Form＿Load()

Show

Textl．Text=“”

本文档预览：3600字符，共18898字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载