VB考试试卷及答案一

VB考试试卷及答案一

第一篇：VB考试试卷及答案一

Visual Basic程序设计基础

试题一（每小题2分，共10分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】

过程JiSuan用于计算e = 1 + 1/1!+ 1/2!+ 1/3!+ …+1/n!的值，直至末项小于0.00001（不包含小于0.00001的项），并用消息框显示结果。

【程序】

Option Explicit Private Sub JiSuan()Dim e As single,(1), i As long e = 1: t = 1:(2)(3)i = i + 1: e = e + t:(4)Loop(5)End Sub 【供选择的答案】

（1）A、t As String B、Dim t As String C、Dim t As Single D、t As Single（2）A、i = 1 B、i = 2 C、i = 0 D、i = 3（3）A、While t >= 0.00001 B、Do While t >= 0.00001 C、While e >= 0.00001 D、Do While e >= 0.00001（4）A、t = t * i B、t = 1/(i * t)C、t = t / i D、t = 1 / i（5）A、MsgBox “近似值为：” + t B、MsgBox “近似值为：” & t C、MsgBox “近似值为：” + e D、MsgBox “近似值为：” & e

试题二（每小题2分，共8分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】

程序界面如下图所示，程序运行时要求有以下功能：

1.单击“加粗”复选框（Check1）,若复选框被选中，则设置标签(Label1)上显示的文字为加粗，否则设置为不加粗。

2.单击“选择颜色”按钮(Command1)将显示“颜色”对话框，若单选按钮“前景色”（Option1）被选中，则设置Label1的前景色为用户选择的颜色，否则设置Label1的背景色为用户选择的颜色。通

用对话框控件名称为CommonDialog1。

第1页，共9页

【程序】

Private Sub Check1_Click()Label1.FontBold = False If(6)Then Label1.FontBold = True End Sub Private Sub Command1_Click()Dim c As Long :(7): c =(8)If(9)Then Label1.ForeColor = c Else Label1.BackColor = c End Sub 【供选择的答案】

（6）A、Check1.Value = True B、Check1.Value = False C、Check1.Value = 1 D、Check1.Value = 0（7）A、CommonDialog1.ShowOpen B、CommonDialog1.ShowColor C、CommonDialog1.ShowSave D、CommonDialog1.Action = 1（8）A、CommonDialog1.ForeColor B、CommonDialog1.FontColor C、CommonDialog1.BackColor D、CommonDialog1.Color（9）A、Option1.Value B、Option1.Value = 1 C、Option1.Value = false D、Option1.Value = 0

试题三（每小题2分，共10分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】

程序界面如上面两图所示，程序运行时要求有以下功能：

1.当用户单击“增加”按钮(Command1)，若文本框(Text1)中的内容不为空，则将文本框中的内容添加到列表框末尾，并自动将文本框中的内容选中。

第2页，共9页2.当用户单击“删除”按钮(Command2)，若列表框中没有表项被选中，则用消息框提示“没有选择表项”，否则删除被选中的表项。

3.文本框仅允许输入数字字符与退格字符(ASCII码值为8)。【程序】

Private Sub Command1_Click()Dim s As String, t As String s = Text1.Text If s = ““ Then Exit Sub(10): Text1.SetFocus

Text1.SelStart = 0:(11)End Sub Private Sub Command2_Click()If List1.ListIndex =-1 Then MsgBox ”没有选择表项“ Else(12)End Sub Private Sub Text1_(13)If(14)Then KeyAscii = 0 End Sub 【供选择的答案】（10）A、List1.AddItem s，List1.ListCount B、List1.AddItem s, 0 C、List1.AddItem s, List1.ListCount1 p = i For j = _(18)If _(19)Then p = j Next j If p <> i Then _(20)Text2.Text = Text2.Text + c(i)Next i Text2.Text = _(21)End Sub Private Sub swap(a As String, b As String)Dim t As String: t = a: a = b: b = t End Sub 【供选择的答案】（15）A、Len(s)B、Val(s)C、Asc(s)D、Length(s)（16）A、ReDim c()B、Dim c()as string C、ReDim c(1 to slen)D、Dim c(1 to slen)（17）A、Mid(s,i)B、Left(s,i)C、Mid(s,i,1)D、Asc(Mid(s,i,1))（18）A、1 to slen-i B、i+1 to slen C、i to slen-1 D、1 to slen（19）A、c(p)>c(j)B、c(p)c(j)（20）A、swap c(p),c(i)B、Call swap c(p),c(i)C、swap c(p),c(j)D、Call swap(c(p),c(j))（21）A、Text2.Text + c(j)B、T ext2.Text + c(i) 第4页，共9页 C、c(j)D、c(i)

试题五（每小题2分，共8分）

阅读下列程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】

Dim a As Byte Private Sub Form_click()'Dim a As Byte '(1)a = a + 2 Call aa(a)'(2)Print a;End Sub Sub aa(b As Byte)'(3)b = a + 2 End Sub 【供选择的答案】（22）单击窗体两次后，窗体上显示的内容是什么？

A、0 0

B、2 2

C、2 4

D、4 8（23）其它代码不变，仅将程序中的语句（1）前面的单引号“’”删除，单击窗体两次后，窗体上显示的内容是什么？

A、0 0

B、2 2

C、2 4

D、4 8（24）其它代码不变，仅将程序中的语句（2）改为call aa(a+2)，单击窗体两次后，窗体上显示的内容是什么？

A、0 0

B、2 2

C、2 4

D、4 8（25）其它代码不变，仅将程序中的语句（3）改成sub aa(byval b as byte)，单击窗体两次后，窗体上显示的内容是什么？

A、0 0

B、2 2

C、2 4

D、4 8

试题六（每小题2分，共12分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】

程序界面如下图所示，程序运行时要求有以下功能：

1.单击影像框(Image1)，定时器（timer1）开始运行；再次单击影像框，定时器停止运行。

2.定时器运行时，每隔一定时间更换影像框中的图片：第1次显示“c:pic1.bmp”的图片，第2次显示“c:pic2.bmp”的图片，第3次显示“c:pic

3.bmp”的图片，第4次又显示“c:pic1.bmp”的图片……依次类推。

3.滚动条(HScroll1)用于控制定时器Timer1的Timer事件时间间隔。

第5页，共9页

【程序】

Dim i As Byte Private Sub Form_Load()HScroll1.Min = 1000: HScroll1.Max = 10000: HScroll1.SmallChange = 1000 https://www.360docs.net/doc/4519189512.html,rgeChange = 3000: HScroll1.Value = 1000 : i = 1 Timer1.Enabled = False: Timer1.Interval = HScroll1.Value End Sub

Private Sub HScroll1_Change()_(26)End Sub Private Sub Image1_Click()_(27)End Sub Private Sub Timer1_Timer()Dim fn As String fn = ”c:pic“ +_(28)+ ”.bmp“ _(29)if i < 3 then i = i + 1 else _(30)End Sub 【供选择的答案】（26）A、Timer1.Interval = HScroll1.Value B、Timer1.Index= HScroll1.Value C、HScroll1.Value = Timer1.Interval D、HScroll1.Value= Timer1.Index（27）A、Timer1.Enabled = Not Timer1.Enabled B、Timer1.Enabled = True C、Timer1.Interval = 0 D、Timer1.Enabled = False（28）A、Trim(Chr(i))B、Str(i)C、Trim(Str(i))D、Chr(i)（29）A、Image1.Image = LoadPicture(fn)B、Image1.Image = fn C、Image1.Picture = LoadPicture(fn)D、Image1.Picture = fn（30）A、i = i1（31）程序启动后，单击滚动条右边箭头一次，再单击滑块与右边箭头空白处一次后，滚动条的Value 属性的值为：

A、3000

B、4000

C、5000

D、6000

第6页，共9页

试题七（每小题2分，共8分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】

程序界面如下图所示，程序运行时要求有以下功能：

1.在窗体的Load事件过程中，设置图片框p1中的内部坐标系如下：图片框左、右边线在其内部坐标系中的横坐标分别为0、200，上、下边线在其内部坐标系中的纵坐标分别为50、-50。

2.单击“中心线”按钮（Command1），在图片框的水平和垂直的中心位置画两条直线，效果如左下图所示。

3.单击“画图”按钮（Command2），在图片框上画5个大小相等并水平相接的圆，效果如右下图所示。

【程序】

Private Sub Form_Load()_(32)End Sub Private Sub Command1_Click()_(33)P1.Line(100, 50)-(100,-50)End Sub Private

Sub Command2_Click()Dim r As Integer r = _(34)For i = _(35)p1.Circle(r * i, 0), r, vbBlue Next i End Sub 【供选择的答案】（32）A、p1.Scale(-50,0)-(50,200)B、p1.Scale(0,-50)-(200,50)C、p1.Scale(50,0)-(-50,200)D、p1.Scale(0,50)-(200,-50)（33）A、p1.Line(200,0)-(0,0)B、p1.Line –(200,0)第7页，共9页C、p1.Line(0,-50)-(200,-50)D、p1.Line(0,50)-(200,50)（34）A、p1.ScaleWidth / 5 B、p1.Width / 5 C、p1.ScaleWidth / 10 D、p1.Width / 10（35）A、9 to 1 Step-1 B、1 to 9 Step 2 C、1 to 5 D、5 to 1 Step-1

试题八（8分）

编程，用Inputbox函数输入x，根据下面公式计算y值，并在窗体上显示y值。代码写在窗体的Click事件过程中。

⎧x+3当x>3⎪x2当1≤x≤3⎪y = ⎨

⎪x当0

试题九（8分）

编写一个自定义函数CalcAVG，计算Single类型一维数组所有元素的平均值。

试题十（14分）

界面设计、运行时状态如下图所示，按照下列要求定义各事件过程：

1.2.3.4.为窗体的Load事件编写代码，使得文件列表框(File1)仅显示文本文件(*.txt)实现驱动器列表框(Drive1)和目录列表框(Dir1)，及文件列表框(File1)的联动。单击文件列表框中某一文件，将被选中文件的内容原样显示在文本框(Text1)中。单击“退出”按钮(Command1)，结束程序运行。

参考答案

试题一：DABCD 试题二：CBDA

试题三：AADAC 试题四：ACCBAAB 第8页，共9页试题五：DBCC 试题六：AACCAC 试题七：DACB 试题八：（8）

Private Sub Form_click()

Dim x As Single, y As Single ’1分

x = Val(InputBox(”x=“))

’1分

Select Case x ’5分

Case Is > 3

y = x + 3

Case Is >= 1

y = x * x

Case Is > 0

y = Sqr(x)

Case Else

y = 0

End Select

Prin t y ’1分 End Sub 试题九：（8）

'函数头定义2分，其中数组参数定义1分，返回值类型1分Function CalcAVG(a()As Single, n As Integer)As Single Dim h As Single, i As Integer '变量定义1分

For i = 1 To n '循环2分

h = h + a(i)'累加1分

Next i

CalcAVG = h / n '函数赋值1分,求平均值1分 End Function 试题十：（14）

Private Sub Command1_Click()

End

'1分

End Sub

Private Sub Form_Load()

File1.Pattern = ”*.txt“

'1分 End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path

'1分 End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

'1分 End Sub

Private Sub File1_Click()

Dim fs As String, s As String

'获取完整文件名3分

If Right(File1.Path, 1)= ”“ Then

fs = File1.Path + File1.FileName

Else

fs = File1.Path + ”” + File1.FileName

End If

Open fs For Input As #1 '打开文件2分

While Not EOF(1)

'循环2分

Line Input #1, s

'读取行1分 '累加1分

Text1.Text = Text1.Text + s + Chr(13)+ Chr(10)

Wend

Close #1

'打开文件1分 End Sub 第9页，共9页

第二篇：VB期末考试试卷及答案

VB期末考试试卷及答案

一·选择题

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

A属性、控件和方法

B属性、事件和方法 C窗体、控件和过程 D控件、过程和模块

2.所有控件都有一个共同的属性，这个属性是（C）

A text

B font

C name

D caption

3.下列叙述中错误的是（A）

A 工程文件扩展名是.vbg

B 标准模块文件的扩展名是.bas

C 窗体模块的扩展名是.frm

D 类模块的扩展名是.cls

4.当要编写一个新的Visual Basic程序时，所做的第一件事是（A）

A 新建一个工程

B 编写代码

C 设置属性

D 添加Active X控件

5.下面控件中，没有caption属性的是（B）

A 框架

B 组合框

C 命令按钮

D 复选按钮

6.在文件框中输入字符时，若只显示某个字符，如（*），应设置属性是（B）

A MultiLine

B PasswordChar

C Text

D selText

7.若要将窗体从内存中卸载出去，其实现的方法是（D）

A Show

B Hide

C Load

D UnLoad

8.下列关于过程叙述不正确的是（D）

A 过程的传值调用是将实参的具体值传值传递给形参

B 过程的传址调用是将实参在内存的地址传递给形参

C 过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的

D 无论过程传值调用还是传地址调用，参数传递都是双向的

9.某人创建1个工程，其中的窗体名为Form1，之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是（C）

A 在Form1的Load事件过程中加入语句Load Form2

B 在Form2的Load事件过程中加入语句Form2.Show

C 在“过程属性”对话框中把“启动对象”设置为Form2

D 在Form2的TabIndex属性设置为1，把Form1的TabIndex 属性设置为2

10.以下关于文件的叙述中，正确的是（B）

A 以Output方式打开一个不存在的文件时，系统将显示出错信息

B 以Append方式打开的文件，既可以进行读操作，也可以进行写操作

C 在随机文件在，每个记录的长度是固定的

D 无论是顺序文件还是随机文件，其打开的语句和打开的方式都是完全相同的 11.设a=6，b=8，c=10 则函数IIf(a

A 10

B 6

C 8

D 12

12.下面程序的执行结果为（B）

I=”1”

:

j=”2”

I=val(i)+val(j)

J=val(“12”)

If i<>j Then print i-j Else printj-i

A 9

B-9

C 12

D 0

13.下面程序的执行结果为（A）

Dim S(10)AS Integer

For i=0 to 10

S(I)=2*i

Next i

Print S(S(3))

A 12

B 6

C 0

D 4 二·程序填空题：

1.在窗体上画一个命令按钮（Command1）和一个标签（Label1），为命令按钮编写以下事件，其功能是求数组中各元素之和，并将结果在标签上显示，请在指定位置填上正确代码将程序补充完整。

Option Base 1

Private Sub Command1_Click()

Dim a(3,2)AS Integer

S =0

For i= 1 to 3

For j= 1 to 2

a(I,j)= i+j

s= 【1】

Next j Next i

【2】

End Sub

2.下面程序的功能是产生10个小于100（不含100）的随机正整数，并统计其中

5的倍数所占比例，请在指定位置填上正确代码将程序补充完整。

Private Sub Command1_Click()

Randomise

Dim a(10)As Integer

For j =1 to 10

a(i)=

【3】

If

【4】

Then k= k+1

Print a(j)

Next j

Print

Print k /10

End Sub

3.以下程序运行后，在Text1中输入任意字符串，单击命令按钮，将Text1中的字符串转换为大写，再将字符串逆置（如ABCD--DCBA），在Text2中显示逆置后的字符串。请在指定位置填上正确代码将程序补充完整。

Private Sub Command1_Click()

St = Ucase(Text1.text)

For i=

【5】

To 1 Step-1

S2= s2+Mid(s1, 【6】, 1)

Text2.text= s2

End Sub

4.Next i设有如下的循环，要求程序运行时执行3次循环，请在指

定位置填上正确代码将程序补充完整。

Dim x As Integer

X = 1

Do

x = x+2

Print x

Loop Until

【7】

5.在窗体上画一个组合框（Combo1）、一个列表框（List1）和一个命令按钮（Command1）。下面程序的功能是在组合框中选择一个大学名称，单击命令按钮，则所选大学名称将添加在列表框中，当组合框中没有要选的大学名称时，输入一个名称，则此大学名称在添加列表框中的同时也会添加到组合框中，请在指定位置填上正确代码将程序补充完整。

Private Sub Form_Load()

Combo1.AddItem”交通大学”

Combo1.AddItem”理工大学”

Combo1.AddItem”财经大学”

Combo1.AddItem”外贸大学”

End Sub

Private Sub Command1_Click()

【8】

Flag=Flase

For i=0 to

【9】

If Combo1.List(i)=Combo1.T ext Then

flag=True : Eixt For

End If

Next i

If Not flag

Then

【10】

End Sub

6.下面程序的功能是对数组的元素值用选择法按递增顺序排序，请在指定位置填上正确代码将程序补充完整。

Private Sub Command1_Click()

Dim ia(),i%,max%,imax%.t%

Ia=Array(3,8,5,6,7,4,9)

For i =0 To 5 : imax = i

For j = i+1 To 6

If 【11】

Then

imax =j

Next j

T=ia(i)

:

【12】

:

ia(imax)=t

Next i

For i=0 To 6 : Print ia(i)

:

Next i

End Sub 7.窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c:test.txt，并将文件中的内容（多行文本）显示在文本框中。下面是实现此功能的程序，请在指定位置填上正确代码将程序补充完整。

Private Sub Command1_Click()

Text1=””

Open”c:test.txt” For Input As #1

Do While Not

【13】

Line Input#1,S

Text1.text=Text1.text+

【14】

+chr(13)+chr(10)

Loop

【15】

End Sub

答案： 1.S+a(I,j)

https://www.360docs.net/doc/4519189512.html,bel1 0 = S

3.Int(Rnd*99)

4.a(i)mod 5=0

5.Len(S1)

6.i

7.x=7

8.List1.AddItem Combo1.text

9.3/ListCount

https://www.360docs.net/doc/4519189512.html,bo1.AddItem Combo1.text

11.a(j)>imax

12.ia(i)=ia(imax)

13.Eof

14.S

15.Close #1

三·阅读程序，在答题纸指定位置写出程序运行结果。

1.以下程序运行后，单击命令按钮，写出程序的运行结果。Private Sub Command1_Click()

Dim n%,b,t

t =1 : b =1

: n =2

Do While n<=4

If b > 1 Then Exit Do

b = b*n : t = t+b

:

n = n+1

Loop

Print “t=”& t

End Sub 2.在窗体中添加一个命令按钮Command1，并编写如下程序：

Private Sub Command1_Click()

X =InputBox(x)

If x^2<=9 Then y= 1/x

If x^2>9 Then y= x^2+1

If(x^2)-7=9 Then y=x

Print “y=”&y

End Sub

程序运行后，在InputBox中输入4，单击命令按钮，写出程序的运行结果。3.窗体上画一个命令按钮，并编写以下事件过程和子过程：Private Sub Command1_Click()

Dim x As Integer, y As Integer

x =12 : y = 20

Call Value(x,y)

Print “x=”&x, “y=”&y

End Sub

Private Sub Value(ByVal m As Integer, n As Integer)

m=m*2

：

ｎ=n-5

End Sub

程序运行后，单击命令按钮，写出程序的输出结果。

4.窗体上画一个命令按钮和一个图像框，并编写以下事件过程：

Private Sub Command1_Click()

Dim a(3,3)

For m =1T o3

For n= 1 To 3

If n = m Or n = 4 –m Then

a(m,n)=m+n

Else

a(m,n)=0

End If

Picture1.Print a(m,n)

Next n

Picture1.Print

Next m

End Sub

程序运行后，单击命令按钮，图像框中显示的内容是什么? 5.在窗体上画一个列表框和一个命令按钮Command1，然后编写如下程序：Private Sub Command1_Click()

List1.RemoveItem1

List1.RemoveItem2

End Sub

Private Sub Form_Load()

List1.AddItem”兰州”

List1.AddItem”甘肃”

List1.AddItem”交通”

List1.AddItem”大学”

End Sub 程序运行后，单击命令按钮，写出在列表框中显示的结果。

答案： 1.3

2.4

3.12；15

4.2 0 4；0 4 0；4 0 6 5兰州；大学

四·编写程序：输出（1,100）之间同时被5和7整除的数的个数及其它们的和。

答案：Private Sub Form1_Click()

Dim s%,c%

For i=1 to 100

If i Mod 5=0 And i Mod 7=0

Then

s = s+1

c = c +i

End If

Next i

Print s, c

End Sub

第三篇：VB模拟试卷一(含答案)

北京语言大学网络教育学院

《VB》模拟试卷一

注意：

1.试卷保密，考生不得将试卷带出考场或撕页，否则成绩作废。请监考老师负责监督。

2.请各位考生注意考试纪律，考试作弊全部成绩以零分计算。

3.本试卷满分100分，答题时间为90分钟。

4.本试卷分为试题卷和答题卷，所有答案必须答在答题卷上，答在试题卷上不给分。

一、【单项选择题】(本大题共20小题，每小题2分，共40分)在每小题列出的四个选项中只有一个选项是符合题目要求的，请将正确选项前的字母填在答题卷相应题号处。

1、关于VB的特点描述错误的是（c）。[A] VB编程是可视化编程 [B] 是面向对象的程序设计 [C] 不可以访问数据库 [D] 采用事件驱动

编程机制

2、下面关于鼠标的指针设置说法不正确的是（d）。[A] 可以使用MouseIcon设置鼠标的形状 [B] 可以使用MousePointer设置鼠标的形状

[C] MousePointer设为99时，可用MouseIcon设置鼠标的形状

[D] MouseIcon只能通过属性窗口选择鼠标形状

3、Dim Snow（1 to 12，1），As Integer 是大小为（c）的二维数组。[A]13*2 [B] 13*1 [C] 12*2 [D] 12*1

4、在工具箱里的都是（a）。[A] 标准控件[B] 外部控件[C] ActiveX控件 [D] 可插入对象（OLE）

5、一个窗体大小改变时被触发的事件是（b）。[A] Click事件 [B] Resize事件 [C] Initialize事件 [D] Unload事件

6、下列关于控件说法不正确的是（c）。[A] Agent控件用于设置动画行为 [B] TextBox用于接收用户输入的信息

[C] Frame用于将控件分为若干组，当框架移动时，其中的控件不移动 [D] ListBox向列表中添加一个新的项目

7、关于CheckBox控件描述错误的是（d）。[A] 是复选框按钮，用√表示选中 [B] Value用来表示复选框状态。[C] Value为1表示选中该框 [D] Value为0表示该框被禁止，显示灰色

8、关于Shape控件描述正确的是（b）。[A] 用于向窗体添加矩形、圆形等图形 [B] Arial取值有7种，FillStyle取值有8种 [C] Arial 用于设置显示控件的形状 [D] FillStyle用来设置控件填充风格。

9、下面不属于循环控制语句的是（a）。[A] if…then… [B] Do While…Loop [C] While…wend [D] For…to…

10、关于基本运算操作符描述正确的是（c）。[A] / 表示整除运算 [B] 表示除法运算 [C] Mod表示求余运算 [D] * 表示加法运算

11、下面关于函数和过程说法不正确的是（d）。[A] 函数和过程都可以有参数也可以都没有参数 [B] 使用函数和过程便于节省代码输入时间

[C] 使用函数和过程便于程序的结构化和修改查看 [D] 函数和过程

没有本质区别

12、窗体的（a）用来描述窗体和控件的特征。[A]属性[B] 事件

[C] 结构 [D] 方法

13、能够改变窗体边框线类型的属性是（b）。[A] FontStyle [B] BorderStyle [C] BackStyle [D] Border

14、下面关于函数功能的说法不正确的是（c）。

[A] PainPicture用于将位图显示在指定设备场景中并将位图背景设为透明 [B] InputBox接收用户输入的信息

[C] LoadCursorFormFile()用于设置动画光标 [D] SetClassLong()设置动画光标

15、关于控件属性描述错误的是（c）。[A] 每个控件都有自己的属性 [B] 所有的控件都有Name属性

[C] Name属性只能在属性窗口中修改

[D] Caption属性可在代码窗口或属性窗口里设置

16、真正读取、写入和修改数据库，并处理数据仓库中所有内部事务的是（b）。[A] 用户界面 [B] 数据库引擎 [C] 数据仓库 [D] 数据库表

17、下列各种窗体事件中，不能由用户触发的事件是（D）。[A] Load事件和Unload事件 [B] Click事件和Unload事件 [C] Click事件和Dbclick事件 [D] Load事件和Initialize事件

18、关于WebBrowser控件描述不正确的是（B）。[A] WebBrowser控件用于创建Web浏览器

[B] 利用WebBrowser控件的GoSearch方法向后移动一个项目

[C] 利用WebBrowser控件的Navigate方法移动到URL或打开HTML文件[D] 利用WebBrowser控件的GoHome方法移至当前主页。

19、当本地计算机要关闭客户机与服务器应用程序的TCP连接或监听套接字时，应调

用Winsock控件的（D）方法。[A]Unload [B] Open [C] Accept [D] Close 20、关于MAPI控件说法正确的是（D）。