VB复习资料有答案

一、填空题

1、一个工程可以包括多种类型的文件,其中,扩展名为.frm的文件表示【窗体】文件.

2、复选框【Value】属性设置为2----Grayed时,变成灰色,禁止用户选择.

3、声明单精度常量P1代表3.14159的语句为【Const PI=3.14159】.

4、大于X 的最小整数的VB表示形式为【Int(x)+1】.

5、列表框中项目的序号是从【0】开始的.

6、根据访问模式文件分成顺序文件、随机文件、【二进制文件】.

7、可以通过【文件】菜单中的【退出】命令退出Visual Basic.

8、设x=2,y=4,a=4,b=6,表达式 (a>x Xor b

9、列表框(ListBox)显示【列表】,用户可以从中选择一个或多个项目.

10、文件列表框的Path与目录列表框的Path都表示【当前路径】.

11、执行下面的程序段后,a 的值为【20】, b 的值为【300】.

a=300

b=20

a=a+b

b=a-b

a=a-b

12、已知a=3.5,b=5.0,c=2.5,d=True,则表达式:a>=0 AND a+c>b+3 OR NOT d的值是【False】.

13、下面程序运行后输出的结果是【7】.

x=Int(Rn((D)+3

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

If x^2=9 Then y=x^2-2

If x^2<8 Then y x^3

Print y

14、表达式"[A]"Like "[A]"的值为【False】.

15、整型变量x中存放了一个二位数,要将二位数交换位置,例如,13变成31,实现的表达式是【(x

Mod 10) * 10 + x\10】.

16、若使文本框内能接受多行文本,则要设置【MultiLine】属性的值为True.

17、执行下面的程序段后,s的值为【10】

s = 5

For i = 2.5 To 5.1 Step 0.6

s = s+1

Next i

18、滚动条控件主要支持两个事件,它们是scroll和【change】事件.

19、若定义一维数组为:Dim a(N To M),则该数组的元素为【M-N+1】个.

20、控件数组的名字由【Name】属性决定,而数组中每个元素由【Index】属性指定.

21、X=2:Y=8:PRINT X+Y=10的结果是【True】.

22、当程序运行时,要求窗体中的文本框呈现空白,则在设计时,把此文本框的【Text】属性设置成空白.

23、VB中,变量的声明可分为两种方法:【静态】数组和动态数组.

24、【Alignment】属性设置为1,单选按钮和复选框的标题显示在左边.

25、在一条Dim语句中可以声明多个变量,如Dim strVar,intVar,sngVar As Integer,则

strVar、intVar与sngVar的数据类型分别是Variant、Variant和【Integer】.

26、声明单精度常量g(重力加速度)代表9.8可写成【const g=9.8】.

27、窗体上有一标签,要使标签中显示红色的字符,应该对标签的【ForeColor】属性进行设置.

28、表达式93\7 MOD 2^3的值是【5】.

29、列表框控件不支持Click事件,但支持【dblclick】事件.

30、设x为一个两位数,将x个位数和十位数交换后所得两位数VB的表达式是【(x mod 10) * 10

+ int(x/10)】.

31、在定义有10个元素的整型静态数组a时,可以定义为【dim a(9) as integer】;也可以在

通用部分添加Option Base 1语句,并定义为【dim a(1 to 10) as integer】.

32、用Circle方法画扇形,起始角、终止角取值范围为【在0 ~ -2π】.

33、Circle方法正向采用【逆时针方向】时针方向.

34、要获得列表框List数组的元素总个数通过【ListCount】属性.

35、滚动条产生Change事件是因为【Value】值改变了.

滚动条响应的重要事件有【Scroll】和Change.

36、如果要使用命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设

置为【退出(&X)】.

37、一个工程可以包括多种类型的文件,其中,扩展名为.vbp的文件表示【工程】文件.

38、VB 6.0的基本表达式包括算术表达式、关系表达式和【逻辑】表达式.

39、由For k=35 to 0 step 3:next k循环语句控制的循环次数是【0】 .

40、VisualBasic6.0用于开发【WINDOWS】环境下的应用程序.

41、当x=2时,语句if x=2 then Print x=2 的结果值是【True】.

42、如果:I=12:J=3:I=int(-8.6)+I\J+13/3 MOD 5,则I值是【-1】.

43、表达式 1 and 0的值【False】.

44、设X$ ="abc123456"则"a"+str$(val(right(X$,4)))的值是【a3456】.

45、表达式 Fix(-21.68) + Int(-12.02) 的值为【-56】 .

46、当x=2时,语句if x=2 then Print x=2 的结果值是【True】.

47、表达式(-3) And 8 的值为【True】.

48、设a="Good morning",语句Left(a,3) 值为【Goo】,Mid(a,8,4) 值为【rnin】.

49、在VB中,若要将字符串"12345"转换成数字值应使用的类型转换函数是【val】.

50、当x=2时,语句if x=2 then Print x=2 的结果值是【True】.

51、String(3, "abc")的结果为【aaa】.

二、选择题

1、复选框的Value属性为1时,表示__B_.

A:复选框未被选中

B:复选框被选中

C:复选框内有灰色的勾

D:复选框操作方式"错误"

2、在程序代码中修改滚动条的value 属性时将激发滚动条的(A)事件.

A:change

B:scroll

C:dragdrop

D:gotfocus

3、假设在图片框Pictrue1中装入一个图形,为了清除该图形(不删除图片框),应采用的正确方法是:B

A:选择图片框,然后按Delete键.

B:执行语句Pictrue1. Pictrue=LoadPictrue("")

C:执行语句Pictrue1. Pictrue=""

D:选择图片框,在属性窗口选择Pictrue1属性,然后安回车键

4、Print Day(#2000-10-15#)语句显示的结果是D

A:2000-10-15

B:2000

C:10

D:15

5、当事件能被触发时,()就会对该事件作出响应.A

A:对象

B:程序

C:控件

D:窗体

6、属性窗口只能在使用.A

A:设计时

B:编译时

C:运行时

D:以上都不对

7、Rnd函数不可能产生的()值.B

A:0

B:1

C:0.1234

D:.00005

8、工程资源管理器窗口中包含的文件类型有()种.C

A:2

B:3

C:4

D:5

9、表达式25.28Mod6.99的值是().C

A:1

B:5

C:4

D:出错

10、下列的逻辑表达式中不正确的是()B.

A:A

B:X

C:1>2 AND 3>1

D:X>Y AND 1=2

11、能够获得一个文本框中被选取文本的内容的属性是().C

A:Text

B:Length

C:SelText

D:SelStart

12、一个菜单项是不是一个分隔条,由()属性决定B.

A:Name(名称)

B:Caption

C:Enabled

D:Visible

第6题（2.0分）题号:3445

13、下面4项中合法的字符常数是().B

A:ABC$

B:"ABC"

C:'ABC'

D:ABC

14、将命令按钮Command1设置为缺省的活动按钮可修改该控制件的()属性.C

A:Enabled

B:Value

C:Default

D:Cancel

15、以下能判断是否到达文件尾的函数是()D.

A:BOF

B:LOC

C:LOF

D:EOF

16、以下各表达式中, 计算结果为0的是().D

A:INT(12.4)+INT(-12.6)

B:CINT(12.4)+CINT(-12.6)

C:FIX(13.6)+FIX(-12.6)

D:FIX(12.4)+FIX(-12.6)

17、作为一个给编辑、编译、运行与一体的集成环境, Visual Basic的工作状态可分为设计、

中断、和()三种模式.

A:开发

B:运行

C:插入断点

D:逐句跟踪

18、执行了下面的程序：

Sub Form_Click()

For i=1 To 6

List1.AddItem i

Next

For i=1 To 3

List1.RemoveItem i

Next

End Sub

列表框中的数据项为D

A:1,5,6

B:2,4,6

C:4,5,6

D:1,3,5

19、为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应D

将其Interval属性值设置为().

A:5

B:500

C:300

D:5000

20、组合框有三种风格,它们由Style属性所决定,其中为下拉列表框时,

Style属性值应为().C

B:1

C:2

D:3

21、以下关于过程及过程参数的描述中,错误的是().C

A:过程的参数可以是控件名称

B:用数组作为过程的参数时,使用的是"传地址"方式

C:按"传值"方式传送参数时,有可能会改变实际参数的值.

D:窗体可以作为过程的参数

第6题（2.0分）题号:3207

22、设a="Visual Basic",下面使b="Basic"的语句是 C .

A:b=Left(a,8,12)

B:b=Left(a,8,5)

C:b=Mid(a,8,5)

D:b=Right(a,5,5)

23、下列可缩放图片的属性是().C

A:autosize

B:picture

C:stretch

D:OleDrawMode

24、改变控件在窗体中的上下位置应修改控件的()属性A.

A:Top

B:Left

C:Wide

D:Height

25、执行指令"Line(1200,1200)-Step(1000,500),,B"后,CurrentX=A

A:2200

B:1200

C:1000

D:1700

26、在下列说法中,正确的是___.D

A:通过适当的设置,可以在程序运行期间,让时钟控件显示在窗体上B:在列表框中不能进行多项选择

C:在列表框中能够将项目按字母顺序从大到小排列

D:框架也有 Click和 DblClick事件

27、Integer类型的数据由_ _____字节组成.B

A:1

C:3

D:4

28、VB的过程有三种,它们是()A.

A:事件过程、子过程和函数过程

B:Sub过程、Function过程和Property过程

C:事件过程、函数过程和属性过程

D:Sub过程、函数过程和通用过程

29、常量2.7856E-6的类型是______B.

A:整型

B:实型

C:字符型

D:双精度

30、inputBox函数返回值的类型为().B

A:数值

B:字符串

C:变体

D:数值或字符串(视输入的数据而定)

31、在VB集成环境创建VB应用程序时,除了工具箱窗口、窗体窗口、属性窗口外,必不可少的窗

口是().C

A:窗体布局窗口

B:立即窗口

C:代码窗口

D:监视窗口

32、在Visual Basic中最基本的对象是(),它是应用程序的基石,是其他控件的容器.C

A:文本框

B:命令按钮

C:窗体

D:标签

33、下面是()合法的字符常数.B

A:ABC$

B:"ABC"

C:'ABC'

D:ABC

34、以下属于合法的数组元素是().C

A:x8

B:x[A]

C:x(3)

D:x{6}

35、变量未赋值时,数值型变量的值为().A

A:0

B:空

C:1

D:无任何值

36、组合框控件是将()组合成一个控件.A

A:列表框控件和文本框控件

B:标签控件和列表框控件

C:标签控件和文本框控件

D:复选框控件和选项按钮控件

37、数学关系3≤x<10表示成正确的VB表达式为B

A:3<=x<10

B:3<=x AND x<10

C:x>=3 OR x<10

D:3<=x AND <10

38、控件是().A

A:建立对象的工具

B:设置对象属性的工具

C:编写程序的编辑器

D:建立图形界面的编辑窗口

39、每个窗体对应一个窗体文件,窗体文件的扩展名是().C

A:.bas

B:.cls

C:.frm

D:.vbp

40、下列()是窗体的扩展名A.

A:frm

B:bas

C:cls

D:dll

41、下面关于顺序文件的描述正确的是D

A:文件中按每条记录的记录号从小到大排序好

B:文件中按每条记录的长度从小到大排序好

C:文件中按记录的某关键数据项从大到小的顺序排序

D:记录按进入的先后顺序存放,读出也是按原写入的先后顺序读

42、要获得当前驱动器应使用驱动器列表框的哪个属性()B.

A:Path

B:Drive

C:Dir

D:Patten

43、以下叙述中错误的是().C

A:打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件B:保存VisualBasic程序时,应分别保存窗体文件及工程文件

C:VisualBasic应用程序只能以解释方式执行

D:事件可以由用户引发,也可以由系统引发

44、按文件的组织方式分有A

A:顺序文件和随机文件

B:ASCII文件和二进制文件

C:程序文件和数据文件

D:磁盘文件和打印文件

45、表达式print Len(trim(" abcd ")&"123")的结果是B

A:9

B:7

C:abcd

D:123

46、下列不属于代码窗口的是().D

A:对象下拉式列表框

B:过程下拉式列表框

C:代码框

D:属性列表框

47、下面关于顺序文件的描述正确的是C

A:每条记录的长度必须相同

B:可通过编程对文件中的某条记录方便地修改

C:数据只能以ASCII码形式存放在文件中,所以可通过文本编辑软件显示

D:文件的组织结构复杂

48、下面关于顺序文件的描述正确的是C

A:每条记录的长度必须相同

B:可通过编程对文件中的某条记录方便地修改

C:数据只能以ASCII码形式存放在文件中,所以可通过文本编辑软件显示

D:文件的组织结构复杂

49、下列有关控件数组与一般控件的区别的叙述中,最合理的是A

A:控件数组一定由多个同类型的控件组成,一般控件只有一个控件;

B:控件数组的Index为0,而一般控件的Index为空;

C:控件数组的Index为1,而一般控件的Index为0;

D:控件数组的建立通过Dim语句声明,而一般控件不必声明.

50、双击窗体的任何地方,可以打开的窗口是().A

A:代码窗口

B:属性窗口

C:工程管理窗口

D:以上3个选项都不对

51、选择和循环结构的作用是().A

A:控制程序的流程

B:提高程序的运行速度

C:便于程序的阅读

D:方便程序的调试

52、不能通过()来删除列表框中的选项.D

A:List属性

B:Removeltem方法

C:Clear方法

D:T est属性

53、表达式4+5 \ 6 * 7 / 8 Mod 9 的值是().B

A:4

B:5

C:6

D:7

54、当一个工程含有多个窗体时,其中的启动窗体是().D

A:启动 Visual Basic 时建立的窗体

B:第一个添加的窗体

C:最后一个添加的窗体

D:在"工程属性"对话框中指定的窗体

55、在下面关于窗体事件的叙述中,错误的是C

A:用Hide方法不但可以隐藏窗体,而且可以清除内存中的窗体

B:在多重窗体的程序中,各窗体的德菜单是彼此独立的

C:对于多重窗体,需要单独保存每个窗体

D:Resize事件在窗体的大小有所改变时被触发

56、下列方法中可用于列表框动态添加数据的是().B

A:add

B:additem

D:removeitem

57、将通用对话框类型,设置为字体对话框,可修改该控件的()属性.D

A:font

B:filename

C:filter

D:action

58、用下面语句定义的数组的元素个数是() C

Dim A (-2 To 4) As Integer

A:6

B:5

C:7

D:8

59、不管一个对象的属性如何设置,程序运行时始终都能接收焦点的

方法是(). D

A:用Tab键

B:用鼠标

C:用方向键

D:不能实现

60、下面关于多重窗体的叙述中,正确的是A

A:作为启动对象的Main子过程只能放在窗体模块内

B:如果启动对象是Main子过程,则程序启动时不加载任何窗体,以后由该过程根据不同情况决定是否加载及加载哪一个窗体

C:没有启动窗体,程序不能执行

D:以上都不对

61、以下正确的描述是:B

在Visual Basic 应用程序中

A:过程的定义可以嵌套,但过程的调用不能嵌套

B:过程的定义不可以嵌套,但过程的调用能嵌套

C:过程的定义过程的调用均可以嵌套

D:过程的定义过程的调用均不可以嵌套

62、MSGBOX函数中有4个参数,其中必须写明的参数是().C

A:指定对话框中显示按钮的数目

B:设置对话框标题

C:提示信息

D:所有参数都是可选的

63、每建立一个窗体,工程管理器窗口中就会增加一个().B

B:窗体文件

C:程序模块文件

D:类模块文件

64、下列不能用commondialog 控件调用的对话框是().D

A:open/save

B:help

C:font

D:search

65、将数据项"China"添加到列表框(List1)中成为第一项应使用的语句是（）。A

A:List1.AddItem〞China〞,0

B:List1.AddItem〞China〞,1

C:List1.AddItem 0, 〞China〞

D:List1.AddItem 1,〞China〞

66、Sub过程与Function过程最根本的区别是 D

A:Sub过程可以有参数,Function过程不可以

B:Function过程可以有参数,Sub过程不可以

C:两种过程参数的传递方式不同

D:Sub过程的过程名不能返回值,而Function过程能通过过程名返回值

67、下列控件中,没有Caption属性的是 B

A:框架

B:列表框

C:复选框

D:单选按钮

68、Line(100,100)-Step(400,400)将在窗体()画一直线. C

A:(200,200)到(400,400)

B:(100,100)到(300,300)

C:(100,100)到(500,500)

D:(100,100)到(400,400)

69、下面关于随机文件的描述不正确的是 B

A:每条记录的长度必须相同

B:一个文件中记录号不必惟一

C:可通过编程对文件中的某条记录方便地修改

D:文件的组织结构比顺序文件复杂

70、下面正确的赋值语句是 C

A:x+y=30

B:y=π*r*r

C:y=x+30

D:3y=x

71、在程序代码中修改滚动条的value 属性时将激发滚动条的()事件. A

A:change

B:scroll

C:dragdrop

D:gotfocus

72、窗体设计器是用来设计(). B

A:应用程序的代码段

B:应用程序的界面

C:对象的属性

D:对象的事件

73、以下的vb 常量中非法的是(). B

A:"Good Luck"

B:PI

C:.0015

D:16.3412

74、运行下面程序后,在窗体中显示的是______. D

Private Sub Form_Click()

a$="*": b$="$"

For k=1 To 3

x$=String$(Len(a$)+k,b$)

Print x$;

Next k

Print

End Sub

A:*** ** ****

B:*$*$*$

C:1*$2*$3*$

D:$$$$$$$$$

75、当输入4时,以下程序的输出结果是______.B

Private Sub Command1_Click()

x=InputBox(x)

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

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

Print y

End Sub

A:4

B:17

C:18

D:25

76、表达式Len("123程序设计ABC")的值是 A

A:10

B:14

C:20

D:17

77、简单组合框的style值为(). B

A:0

B:1

C:2

D:3

78、当一个对象(如窗体或图片框)被移动或改变大小之后,或当一个覆盖该窗体被移开之后,如果

要保持该所画图形的完整性,可以选择触发()事件来完成图形的重画工作.A

A:Paint

B:Load

C:Click

D:Active

79、下列不属于代码窗口的是(). D

A:对象下拉式列表框

B:过程下拉式列表框

C:代码框

D:属性列表框

80、下列对象中没有焦点属性的是(). B

A:命令按钮控件

B:窗口控件

C:文本框控件

D:单选框控件

81、用下面语句定义的数组的元素个数是() C

Dim A (-2 To 4) As Integer

A:6

B:5

C:7

D:8

82、InputBox函数返回值的类型是(). B

B:字符串

C:变体

D:数值或字符串

83、以下不具有Picture属性对象是(). D

A:窗体

B:图片框

C:图像框

D:文本框

84、复选框的Value属性为1时,表示___. B

A:复选框未被选中

B:复选框被选中

C:复选框内有灰色的勾

D:复选框操作方式"错误"

85、要使Form1窗体的标题栏显示"欢迎使用VB",以下语句正确的是(). D

A:Form1.Caption="欢迎使用VB"

B:Form1.Caption=ˊ欢迎使用VBˊ

C:Form1.Caption=欢迎使用VB

D:Form1.Caption=〞欢迎使用VB〞

86、表达式16/4-2^5*8/4MOD5\2的值为 B

A:14

B:4

C:20

D:2

87、以下的vb 常量中非法的是(). B

A:"Good Luck"

B:PI

C:.0015

D:16.3412

88、单击滚动条的滚动箭头时,产生的事件是().

A:Click

B:Scroll

C:Change

D:Move

89、形状控件所显示的图形不可能是(). D

A:圆

B:椭圆

D:等边三角形

90、以下叙述错误的是: B

A:下拉式菜单和弹出式菜单都用菜单编辑器建立

B:如果把一个菜单项的Enabled属性设置为False,则菜单项不可见C:除分隔线外,所有菜单项都能接收Click事件

D:内缩符号由4个点组成,它表明菜单项所在的层次

92、在窗体Form1的Click事件过程中有以下语句: C

Label1.Caption="Visual Basic"

若本语句执行之前,标签控件的Caption属性为默认值,则标签控件的Name属性和Caption属性在执行本语句之前的值分别为().

A:"Label"、"Label"

B:"Label1"、"Visual Basic"

C:"Label1"、"Label1"

D:"Caption"、"Label"

93、要把一个命令按钮设置成无效,应设置其哪一属性值(). B

A:Visible

B:Enabled

C:Default

D:Cancel

94、执行语句For i=1 To 3:i=i+1:Next i后,变量i的值是().C

A:3

B:4

C:5

D:6

95、以下的属性和方法中,可重定义坐标系的是 C

A:Drawstyle属性

B:DmwWidth属性

C:Scale方法

D:ScaleMode属性

96、在窗体上画一个名称为TxtA的文本框，然后编写如下事件过程：

Private Sub TxtA_KeyPress(Keyascii as integer)

…

End Sub

若焦点位于文本框中，则能够触发KeyPress事件的操作是： D

A:单击鼠标e

B:双击文本框

C:鼠标划过文本框

D:按下键盘上的某个键

三、程序填空

1、'-------------------------------------------------------

'功能：'以下程序段分别以子过程和函数来计算某级数部分和，

' 级数公式如图1所示。

'-------------------------------------------------------

Function jishu1(x!, eps#) As Double

Dim n%, s#, t#

n = 1: s = 0: t = 1

Do While (Abs(t) >= eps)

s = s + t

t = t * x / n

n = n + 1

Loop

'**********SPACE**********

【?】jishul = s End Function

Sub jishu2(s#, x!, eps#)

Dim n%, t#

n = 1: s = 0: t = 1

Do While (Abs(t) >= eps)

s = s + t

t = t * x / n

n = n + 1

Loop

End Sub

Private Sub Command1_Click()

Dim f1#, f2#

f1 = jishu1(2#, 0.000001)

'**********SPACE**********

【?】 jishu2(f2, 2#, 0.000001) call Print "f1="; f1, "f2 = "; f2

End Sub

2、'-------------------------------------------------------

'功能：本程序段将一个十进制整数m转换成 r (2－16)进制字符串

'方法：将m不断除 r 取余数，直到商为零，以反序得到结果。

'-------------------------------------------------------

Function TranDec$(ByVal m%, ByVal r%)

Dim StrDtoR$

Dim iB%, mr%

StrDtoR = ""

Do While m <> 0

'**********SPACE**********

mr = 【?】 m Mod r

m = m \ r

If mr >= 10 Then

'**********SPACE**********

StrDtoR = Chr(mr - 10 + 【?】) & StrDtoR 65

Else

StrDtoR = mr & StrDtoR

End If

Loop

TranDec = StrDtoR

End Function

Private Sub Command1_click()

Dim m0%, r0%, i%

m0 = Val(Text1.Text)

r0 = Val(Text2.Text)

If r0 < 2 Or r0 > 16 Then

i = MsgBox("输入的R进制数超出范围", vbRetryCancel)

If i = vbRetry Then

Text2.Text = ""

Text2.SetFocus

Else

End

End If

End If

Label3.Caption = "转换成" & r0 & "进制数"

'**********SPACE**********

Text3.Text = TranDec(m0, 【?】) r0 End Sub

3、

----------------------------------------------------------------------------------

'以下程序段用于计算若干个数字的最大公约数。

'-------------------------------------------------------------------------------Option Base 1

Private Function gcd(ByVal m%, ByVal n%) As Integer

If m < n Then t = m: m = n: n = t

Do

r = m Mod n

If r = 0 Then Exit Do

m = n

n = r

Loop

'**********SPACE**********

【?】= n gcd End Function

Private Sub Command1_Click()

Dim a() As Integer

n = InputBox("输入n")

ReDim a(n)

For i = 1 To n

a(i) = InputBox("输入数据")

Next i

n1 = a(1)

For i = 2 To n

m1 = a(i)

mn = gcd(m1, n1)

If mn = 1 Then Exit For Else n1 = mn

Next i

'**********SPACE**********

Print 【?】 mn End Sub

4、'-------------------------------------------------------

'功能：求表达式s=x/2!+x^3/4!+...+x^(2n-1)/(2n)!的值，

' 并在窗体上输出。

'-------------------------------------------------------

Private Sub Form_Click()

Dim x As Single

Dim n As Integer

Dim sum As Single

x = Val(InputBox("Please input x Value:"))

n = Val(InputBox("Please input a integer:"))

'**********SPACE**********

sum = 【?】 s(n, x) Print "s="; sum

End Sub

Function s(n As Integer, x As Single) As Single

Dim i As Single, t As Long

s = 0

For i = 1 To n

t = 1

For j = 1 To 2 * i

'**********SPACE**********