vb考试题库

一、单项选择题（25道小题，共25分）

1、VB中工程软件的扩展名为(c )A、ds B、frmC、vbp D、bas

2、把字符串"abcdef "右边的空格去掉应使用( b)函数A、trim B、rtrimC、right D、mid

3、文本框text1的text属性的数据类型是(b )A、整数型B、字符串C、单精度D、双精度

4、下列( b)属性决定窗体标题栏显示内容（1分）A、NameB、CaptionC、TextD、BackStyl

5、命令按钮command1不具有下列哪个事件(d )（1分）A、ClickB、KeyPressC、GotFocusD、DblClick

6、为了使文本框同时具有水平和垂直滚动条，应先将MultiLine属性设置为True,然后再把ScrollBars 属性设置为( d)（1分）A、0B、1C、2D、3

7、Dim D(3,1 To 10,1 To 15)语句中，数组的元素个数为(c )A、3*10*16B、3*11*16C、4*10*15D、4*11*15

8、如果整型变量c、d、x的值分别为8、6、0，则下列语句For I=c to d : x=x+i : Next

I 执行结束时，I的值为(a )（1分）A、8B、7C、6D、5

9、假定有以下循环结构Do Until 条件循环体Loop 则正确的描述是( b)（1分）

A、如果"条件"是一个为0的常数，则一次循环体也不执行

B、如果"条件"是一个为0的常数，则至少执行一次循环体

C、如果"条件"是一个不为0的常数，则至少执行一次循环体

D、不论"条件"是否为"真"，至少要执行一次循环体

10、"x是小于100的非负数"，用VB表达式表示正确的是(c )A、0 <= x 0r x < 100B、0 <= x < 100

C、0 <= x And x < 100

D、0 <=x , x < 100

11、下列语句错误的是( d)A、exit forB、exit doC、end subD、exit select

12、Inputbox函数返回的数据类型为( d)A、整型B、逻辑型C、单精度D、字符串

13、假定有以下程序段: For I= 1 To 3: For j = 1 To 5 Step -1:

Print I*j: Next j: Next I 则语句Print I*j 的执行次数是( d)（1分）

A、15

B、18

C、10

D、0

14、如果要清除在窗体中打印输出的文字，可以利用( c)语）A、InputB、LoadC、ClsD、Paint

15、case <表达式表列>,其中的表达式表列不正确的为(d )（1分）A、Case 100*aB、Case 1000 To 2000

C、Case Is<3000

D、Case 2000

16、下列说法错误的是( )（1分）

A、VB声明数组时既可指定上界也可指定下界

B、数组元素类型可以是任意的VB数据类型

C、数组元素的下标可以是数值，也可以是结果在上下界之间的数值表达式

D、VB声明数组时必须指定下界

17、下面的四个数组说明语句语法正确的是(c ) A、DIM X[10]B、DIM EN fn(10)

C、DIM X(20)

D、DIM ENSION a[10]

18、以下程序段: x = 1: y = 4: Do Until y>4: x = x * y: y = y

+1: Loop 执行后x的结果为( b) A、1B、4C、8D、20

19、以下声明和命名标识符错误的是( c)A、必须以字母开头B、变量名的最后一个字符可以是类型声明字符C、长度不能超过8个字符D、不能与关键字同名

20、下列说明错误的是(d )（1分）A、Const MyVar#=123B、Dim myname as stringC、dim a as integer,dim b as singleD、dim MyString="Hello,"+"My friend!"

21、VB中允许出现的数据形式为(b )A、1.89E1.1B、.368C、D32D、2.5E

22、设a=2,b=3,c=4,d=5,下列表达式a>b AND c<=d OR 2*a>c的值是( b)A、TrueB、False C、-1D、1

23、语句6 * 6\6/6的输出结果是( c)A、6B、12C、36D、216

24、给窗体form1加载背景图片，应使用(c ) A、pictureB、ucase C、loadpictureD、image

25、字符串"河南农业大学现教部"的长度是(c )A、18B、10C、9D、16

二、填空题（12道小题，共35分）

1、设定系统当前日期是2004年5月12日，Month(date)=5。

2、设A$="Visual Basic",len(a$)函数返回值是12。

3、在窗体的声明部分，语句Private x% 语句，是将变量定义为窗体模块级变量。

4、逻辑型数据只有true false 两个值。

5、顺序文件读操作用open 语句。

6、一个工程可以包括多种类型的文件,其中扩展名为.frx的文件表示frm 文件。

7、Command1.Visible=False,是将命令按钮1设为把它设置为隐藏。

8、当鼠标在控件上暂停时，显示提示信息，要用属性ToolTipText 属性。

9、Text1.SetFocus语句功能是把焦点移到上Text1。

10、Dim X As Currency 是将变量X定义为货币型。

三、判断题（10道小题，共10分）

1、VB中请求对象执行某一操作的要求称为"方法"。（1分）正确

2、False为字符型常量。（1分）错误

3、语句Print 25*40 执行时输出的结果是1000。（1分）正确

4、窗体的卸载使用Load 语句。（1分）错误

5、表达式268="268" 的结果为True。（1分）错误

6、语句if 0 then print "Hello" 是错误的。（1分）错误

7、在for循环结构对循环变量的赋值中，终值可以大于初值，也可以小于初值。（1分）正确

8、将文本框Text1中的内容清除，可使用语句Text1.cls。错误

9、文件名的命名规则同变量的命名规则一样。（1分）正确

10、InputBox函数返回值的类型是字符串类型。（1分）正确

Private Sub Command1_Click()

Dim mark!, aver!, i%, max1!, min1!

aver = 0

For i = 1 To 6

mark = InputBox("输入第" & i & "位评委的打分")

If i = 1 Then

max1 = mark: min1 = mark

Else

If mark < min1 Then

min1=mark

ElseIf mark > max1 Then

max1=mark

End If

End If

aver=aver+mark

Next

aver = (aver-min1-max1)/4

Print aver

End Sub

1、以下叙述中错误的是( b )（1分）

A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件

B、控件的名称可以由编程人员设定

C、窗体文件包含该窗体及其控件的属性

D、Visual Basic 中控件的某些属性只能在运行时设置

2、以下关于窗体的描述中,错误的是( d)（1分）

A、窗体的Load事件在加载窗体时发生

B、当窗体的Enabled属性为False时,通过鼠标和键盘对窗体的操作都被禁止

C、窗体的Height、width属性用于设置窗体的高和宽

D、执行Unload Form1语句后,窗体Form1消失,但仍在内存中

3、用Static M (60 to 90) As Integer语句定义的数组的元素个数是(c )（1分）A、60 B、30 C、31 D、90

4、如果整型变量a、b的值分别为3和1,则下列语句中For I=a to b : Print I : Next I 循环体的执行次数是(c)（1分）A、3 B、2 C、1

D、0

5、关于语句If x=1 Then y=1 下列正确的说法是(c )（1分）

A、x=1和y=1均为赋值语句

B、x=1和y=1均为关系表达式

C、x=1为关系表达式,y=1为赋值语句

D、y=1为关系表达式,x=1为赋值语句

6、用情况选择语句Select Case X,选择|X| >10情况的语句为Case(c )（1分）

A、Not (-10 To 10)

B、10 To -10

C、Is < -10, Is >10

D、ABS(X) > 10

7、下列哪条语句是错的( c )（1分）

A、RTrim()

B、Exit Function

C、Exit While

D、Exit Do

8、在Visual Basic中下面的四个数组声明语句,正确的是( c)（1分）

A、Dim a[10]

B、Def fn(10)

C、Dim a(10)

D、Dimension a(10)

9、阅读下面的程序段For i=1 To 3:For j=1 To i:For k=j To 3 :a=a+2:Next :Next:Next 执行上面的三重循环后,a 的值为( c)（1分）

A、26

B、27

C、28

D、29

10、下面说法错误的是( b )（1分）

A、对象的性质和状态值称为"属性"

B、请求对象执行某一操作的要求称为"消息"

C、改变对象的一个或多个属性值的操作称为"事件"

D、对象发生某事件所执行的程序称为事件驱动程序

11、若使用文本框Text1,为对用户输入内容进行立即检查,应对Text1的哪个事件编程( a )（1分）

A、Change

B、Interval

C、Left

D、Top

12、如果数据包含小数,则不应定义为下列哪种类型(c )（1分）

A、Double

B、Single

C、Byte

D、Currency

13、下列程序段s=0:for i=9 to 42 step 11:s=s+i:next:if i>50 then s=s+i else s=s-i 运行后s的结果为( )（1分）

A、167

B、139

C、144

D、155

14、有如下程序,m$ ="ABCDE":MID(m$, 1 ,5)="abcde":Print m$,运行后的输出结果是( a )（1分）

A、abcdeABCDE

B、ABCDEabcde

C、abcde

D、ABCDE

15、在下列四个式子中,非法的Visual Basic表达式是( c)（1分）

A、a=b+e

B、5>3+3

C、a=exp

D、5<>5

16、表达式INT(6*RND+1)*(INT(6*RND－1))值的范围是( b )（1分）

A、[-6,18]

B、[-6,24]

C、[-3,24]

D、[-3,18]

17、字符串"计算机技术基础"的长度是,应使用下列(c )函数（1分）

A、TAB

B、STR

C、LEN

D、INSTR

18、表达式(not true or true) and (true or false)的值为( b )（1分）

A、false

B、true

C、0

D、-1

19、下列叙述中正确的是(c )（1分）

A、在窗体的Form_Load事件过程中定义的变量是全局变量

B、局部变量的作用域可以超出所定义的过程

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

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

20、下面的变量名合法的是(c )（1分）

A、https://www.360docs.net/doc/8f17702183.html,

B、k%name

C、name

D、k-name

21、在Visual Basic中,下面四个数据,数据形式错误的是(b )（1分）

A、3.456#

B、236!

C、1.23D-23

D、1.89E1.1

22、已知C>D,S>T,正确表示它们之间关系的式子是( c)（1分）

A、Sgn(D-C)-Sgn(S-T)>0

B、Sgn(D-C)-Sgn(S-T)=-2

C、Sgn(D-C)-Sgn(S-T)=0

D、Sgn(D-C)-Sgn(S-T)=1

23、表达式Int(Rnd*11)+100的值的范围是( b)（1分）

A、[11,111]

B、[100,110]

C、[11,100]

D、[100,111]

24、下列关于属性设置的叙述正确的是(d )（1分）

A、所有的对象都有同样的属性

B、控件的属性只能在设计时修改,运行时无法改变

C、控件的属性都有同样的默认值

D、引用对象属性的格式为：对象名称.属性

25、Visual Basic中没有提供下列( d)事件（1分）

A、MouseDown

B、MouseUp

C、MouseMove

D、MouseExit

二、填空题（12道小题，共35分）

1、可视化Visual Basic语言是公司推出的程序开发语言。

2、双击某个对象时，最终引发该对象的事件执行。

3、程序流程中被重复执行的程序段叫循环体。

4、将对象设置为允许用户操作，并对操作作出响应，是将它的Enabled属性值设为True。

5、在Visual Basic6.0中，用Font.StrikeThtouth属性设置。

6、表示单精度型数据的单一字符是!。

7、Rnd函数的含义是。

8、Chr$(数值)函数返回该数值表示的字符。

9、在窗体各过程中均有效的变量是全局变量。

10、在Print方法中，句尾有符号时，是换行执行下一个Print语句

11、下列程序段将十进制数转换为十六进制数，要求十进制数为非负整数。单击窗体，弹出InputBox对话框，让用户输入一个十进制数；单击“确定”后，在Label1上显示出十

六进制数的结果。如果输入的不是十进制数，在标签Label1上显示出"你输入的不是十进

制数"，退回到对话框状态，让用户重新输入。

Private Sub Form_Click()

Dim sHex As String, Ys As Integer

Dim n As String, nd As Integer, Ai As String

sHex = ""

n = InputBox("请输入一个十进制整数")

If Not IsNumeric(n) Or Left(n, 1) = "0" Or _

Int(Val(n)) <> Val(n) Then

MsgBox "你输入的不是十进制整数！"

End

Else

nd = Val(n)

Do While nd >= 10

Ys = nd Mod 16

Select Case Ys

Case 10

Ai = "A"

Case 11

Ai = "B"

Case 12

Ai = "C"

Case 13

Ai = "D"

Case 14

Ai = "E"

Case 15

Ai = "F"

Case 0 To 9

Ai = Ys

End Select

sHex = Trim(Ai) & sHex

nd = nd \ 16

Loop

Label1 = nd & sHex

End If

End Sub

12、在窗体上有两个命令按钮和一个文本框，名称分别为

cmdstart（“开始”）、cmdend（“结束”）

和txt。程序开始运行时，要求文本框txt中的字符个数不超过300个，“结束”按钮成灰色，单击

“开始”按钮后，“开始”按钮不可用，同时使“结束”按钮能响应,单击“结束”按钮结束程序。

Private sub form_load()

=300

Cmdend.enabled=false

End sub

Private sub cmdstart_click()

cmdstart.enabled=false

=true

end sub

private sub cmdend_click()

end

end sub ???????????????????????????????????????????????????///

三、判断题（10道小题，共10分）

1、通过label1.cls 可以清除由label1所显示的内容。（1分）

错误

2、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。（1分）

错误

3、设a＝5，则语句print a＝5的运行结果为True。（1分）

正确

4、能够改变窗体背景颜色的属性是BackColor。（1分）正确

5、在VB的表达式中，加入括号有时可以改变运算符的优先级。正确

6、在if <条件> then 结构中，条件可以是逻辑表达式或关系表达式。（1分）正确

7、在For <控制变量>＝<初值> To <终值> [Step <步长>] 结构中，步长可以取任意值。（1分）错误

8、可以用Text1.text="" 来清除Text1中的内容。（1分）正确

9、在VB中可以同时打开多个工程。（1分）正确

10、在定义了一个函数后，可以象调用任何一个VB内部函数一样使用它，即可以在任何表达式、语句或函数中引用它。（1分）错误

四、编程题（4道小题，共60分）

1、求公式：e=1/1!+1/2!+1/3!+……+1/n! 直到最后一项小于10^(-6)时e的值。(保留小数点后9位)

(注：程序代码写在命令按钮Command1的Click事件中。)

Private Sub Command1_Click()

e = 0

s = 1

i = 1

Do Until s < 10 ^ (-6)

s = s / i

e = e + s

i = i + 1

Loop

Print e

End Sub

2、有100匹马，驮100担货：大马驮3担，中马驮2担，两匹小马驮1担，问有大、中小马各多少？

（本题不要求填写运行结果）

请将你解答本题所写的源程序粘贴到下面或者上载源程序

Private Sub Command1_Click()

Dim a, b, c As Integer

For a = 1 To 100

For b = 1 To 100

c = 100 - a - b

If 3 * a + 2 * b + c / 2 = 100 Then

Print a, b, c

End If

Next

Next

End Sub

3、编写程序，用牛顿切线法求方程f(x)= x+lnx-1.7=0的近似实根r，迭代初值自选，精确到0.0001。

〔提示:计算公式为x=x-f(x)/f'(x)〕

必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!

4、编写程序，输出下列三角形：(要求用循环做，非循环不给分。)

1

1 2 3

1 2 3 4 5

1 2 3 4 5 6 7

Private Sub Command1_Click()

For i = 1 To 4

Print Tab(20 - 3 * i);

For t = 1 To 2 * i - 1

Print t;

Next

Next

End Sub

1、如果一个工程含有多个窗体,则以下叙述中错误的是(d )（1分）

A、不可以在运行期间改变对象的Name属性的值

B、用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体

C、任何时刻最多只有一个窗体是活动窗体

D、窗体的Name属性的值是显示在窗体标题栏中的文本

2、下列不能打开属性窗口的操作是(c )（1分）

A、执行“视图”菜单中的"属性窗口"命令

B、按F4键

C、按Ctrl+T

D、单击工具栏上的"属性窗口"按钮

3、用Dim S (20) As Integer语句定义的数组的元素个数是( )（1分）

A、19

B、20

C、21

D、22

4、如果整型变量a、b的值分别为3和1,则下列语句中For I=a to b : Print I : Next I 循环体的执行次数是( )（1分）

A、3

B、2

C、1

D、0

5、关于语句If x=1 Then y=1 下列正确的说法是( )（1分）

A、x=1和y=1均为赋值语句

B、x=1和y=1均为关系表达式

C、x=1为关系表达式,y=1为赋值语句

D、y=1为关系表达式,x=1为赋值语句

6、用情况选择语句Select Case X,选择|X| >10情况的语句为Case( )（1分）

A、Not (-10 To 10)

B、10 To -10

C、Is < -10, Is >10

D、ABS(X) > 10

7、在运行阶段,要在文本框Text1获得焦点时选中文本框中所有内容,对应的事件过程是( a )（1分）

A、Private Sub Text1_GotFocus( ) : Text1.SelStart=0 : Text1.SelLength=Len(Text1.text) : End Sub

B、Private Sub Text1_LotFocus( ) : Text1.SelStart=0 : Text1.SelLength=Len(Text1.text) : End Sub

C、Private Sub Text1_Change( ) : Text1.SelStart=0 : Text1.SelLength=Len(Text1.text) : End Sub

D、Private Sub Text1_SetFocus( ) :

Text1.SelStart=0 : Text1.SelLength=Len(Text1.text) : End Sub

8、在Visual Basic中下面的四个数组声明语句,正确的是( )（1分）

A、Dim a[10]

B、Def fn(10)

C、Dim a(10)

D、Dimension a(10)

9、假设有以下程序段For I=1 to 3:For j=7 to 1 Step -1:Print I*j:Next j:Next I则语句Print I*j 的执行次数以及I、j的值分别是( )（1分）

A、21 3 0

B、21 4 0

C、20 3 0

D、20 4 0

10、如果Form1是启动窗体,并且Form1的Load事件过程中有Form2.Show,则程序启动后( c )（1分）

A、发生一个运行时错误

B、发生一个编译时错误

C、在所有的初始化代码运行后Form1是活动窗体

D、在所有的初始化代码运行后Form2是活动窗体

11、以下控件中可以入选为容器控件的是( b)（1分）

A、Image图像框控件

B、PictureBox图片框控件

C、TextBox文本框控件

D、ListBox列表框控件

12、假设变量bool_x是一个布尔型(逻辑型)的变量,则下面正确的赋值语句是( b )（1分）

A、bool_x="False"

B、bool_x=.False.

C、bool_x=#False#

D、bool_x=False

13、下列程序段If (2 * 2 = 5) < (2 * 2 = 4) Then:Print "True is greater than false":Else:Print "False is greater than true"的运行结果是( )

A、True is greater than false

B、False is greater than true

C、False

D、True

14、有如下程序,For j=1 TO 20 :a=a+j\7 :Next运行结束时a的值是( ) （1分）

A、21

B、41

C、63

D、210

15、在下列四个式子中,非法的Visual Basic表达式是( )（1分）

A、a=b+e

B、5>3+3

C、a=exp

D、5<>5

16、表达式INT(4*RND+2)*(INT(4*RND－2))值的范围是( )（1分）

A、[-10,8]

B、[-4,8]

C、[-10,5]

D、[4,8]

17、要统计出字符串"计算机技术基础visual basic"的长度,应使用下列( )函数（1分）

A、TAB

B、STR

C、LEN

D、INSTR

18、表达式25\3 mod 3.2*int(2.5)的值为( )（1分）

A、1

B、2

C、3

D、5

19、Dim b1,b2 as boolean语句显式声明变量( d )（1分）!!!!!!!

A、b1和b2都为布尔型变量

B、b1是整型,b2是布尔型变量

C、b1和b2都为是可变型变量

D、b1是可变型,b2是布尔型变量

20、下列哪一个是Visual Basic合法变量名( d )（1分）

A、IF

B、7AB

C、A[B]7

D、AB7

21、用变量a存放数据888666.666888,应将变量a的类型定义为( )（1分）

A、Long

B、Integer

C、Single

D、Double

22、下面逻辑表达式值为真的是( )（1分）

A、"A" > "a"

B、"9" > "a"

C、"That" > "Thank"

D、12>12.1

23、函数String(n,"str")的功能是( )（1分）

A、把数值型数据转换为字符串

B、返回由n个字符组成的字符串

C、从字符串中取出n个字符

D、从字符串中第n个字符的位置开始取子字符串

24、如果希望一个窗体在显示的时候没有边框,应该设置的属性是( b )（1分）

A、将窗体的Caption设成空字符

B、将窗体的BorderStyle置成None

C、将窗体的Enabled属性置成False

D、将窗体的ContalBox置成False

25、( b )对象能使用print方法（1分）

A、文本框

B、图片框

C、命令按钮

D、标签

二、填空题（12道小题，共35分）

1、从机器的执行角度来说，程序设计语言可分为高级语言和两大类。

2、双击某个对象时，最终引发该对象的事件。

3、程序流程是按一定条件重复多次执行一段程序的结构是结构。

4、将对象设置为禁止用户操作，是将它的Enabled属性值设为。

5、在Visual Basic6.0中，用Font.Italic属性设置。

6、长整型变量的关键字是。

7、三角函数是以为单位。

8、Chr$(13)为huiche 。

9、在整个工程的所有模块中均有效变量是全局变量。

10、方法用于在窗体、图片框、调试窗中、打印机等对象上输出文本

11、下列程序段是用于在一个字符串变量中查找"red"，并用信息输出框给出找到的个数或

没有找到的查找结果。

Private Sub Form_Click()

Dim Str1 As String, Length As Integer, Sum As Integer, I As Integer

Str1 = InputBox("请输入一个字符串")

Length =

I = 1

Sum = 0

Do While I <=length-3

If = "red" Then

Sum = Sum + 1

End If

I = I + 1

Loop

If Then

MsgBox "没有找到！"

Else

MsgBox "找到了" & Str(Sum) & "个"

End If

End Sub

12、在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：Private Sub Form_Load()

Timer1.Enabled = False

Timer1.Interval =

End Sub

Private Sub Form_Click()

Timer1.Enabled =

End Sub

Private Sub Timer1_Timer()

Label1.Caption = time()

End Sub

程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（如见下图）。——————————————————————

14:54:41

——————————————————————

三、判断题（10道小题，共10分）

1、立即窗口既可显示程序调试时新产生的信息，也可执行一行代码。错误

2、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。（1分）错误

3、语句a=7:print：a=8:print a 可以输出a的两个值。

4、可以在运行期间改变对象的Name属性的值。（1分）错误

5、字符串"AB" 与"ab"是两个相等的字符串。（1分）

6、在if <条件> then 结构中，条件必须是逻辑表达式或关系表达式。（1分）

7、在For <控制变量>＝<初值> To <终值> [Step <步长>] 结构中，可以写成For a="x" to "z" 。（1分）

8、计时器（Timer）控件的Interval属性的单位是毫秒，即若将此属性值设为10，则每0.01秒产生一次Timer事件。（1分）

9、窗体文件的扩展名是.frm。（1分）

10、在VB中，int(rnd*90)+10的取值范围是[10,99]。（1分）

四、编程题（4道小题，共60分）

1、输入一串数字，求其中各位数字之和。例如输入123456，则求1＋2＋3＋4＋5＋6。

必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!

请将你解答本题所写的源程序粘贴到下面或者上载源程序

2、勾股定理中三个数的关系是：a^2 + b^2 =c^2 编写程序，输出100以内满足上述关系的整数组合，例如3，4，5就是一个整数组合。

（本题不要求填写运行结果）

请将你解答本题所写的源程序粘贴到下面或者上载源程序

3、编写程序，用普通迭代法求方程f(x)=x+lgx-1.7=0的近似实根r，迭代初值为1.5，精确到0.0001。

〔提示：必须把方程f(x)=0化成其等价形式x=g(x)〕。（允许使用其他迭代法）

必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!

请将你解答本题所写的源程序粘贴到下面或者上载源程序

4、编写程序，输出下列三角形：(要求用循环做，非循环不给分。)

G

FG

EFG

DEFG

CDEFG

BCDEFG

ABCDEFG

（本题不要求填写运行结果）

请将你解答本题所写的源程序粘贴到下面或者上载源程序

1、以下叙述中错误的是(b )（1分）

A、一个工程中可以包含多个窗体文件

B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用

C、若工程文件中有多个窗体,可以根据需要指定一个窗体为启动窗体

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

2、在设计阶段,当双击窗体上的某个控件时,所打开的窗口是( )（1分）

A、工程资源管理器窗口

B、工具箱窗口

C、代码窗口

D、属性窗口

3、用Static M (60 to 90) As Integer语句定义的数组的元素个数是( )（1分）

A、60

B、30

C、31

D、90

4、如果整型变量c、d的值分别为10和5,则下列语句中For I=c to d : Print I : Next I 循环体的执行次数是( )（1分）

A、6

B、5

C、1

D、0

5、a和b中有且只有一个为0,可以用以下的表达式来表示( )（1分）

A、a=0 or b=0

B、a*b=0 and a+b<>0

C、a*b=0or a+b≠0

D、a=0 and not b=0 and b=0 and not a=0

6、用情况选择语句Select Case X,选择|X| >10情况的语句为Case( )（1分）

A、Not (-10 To 10)

B、10 To -10

C、Is < -10, Is >10

D、ABS(X) > 10

7、设a=10,b=5,c =1,执行语句a > b > c结果是( )（1分）

A、True

B、False

C、1

D、出错信息

8、在Visual Basic中下面的四个数组声明语句,正确的是( )（1分）

A、Dim a[10]

B、Def fn(10)

C、Dim a(10)

D、Dimension a(10)

9、假设有以下程序段For I=1 to 3:For j=5 to 1 Step -1:Print I*j:Next j:Next I则语句Print I*j 的执行次数以及I、j的值分别是( )（1分）

A、12 3 0

B、13 3 1

C、12 4 0

D、13 4 1

10、创建Visual Basic应用程序的主要步骤是：①创建应用程序界面②设置控件③设置属性④编写代码,其中正确的步骤是( d )

（1分）!!!!!!!!!!!!!!!

A、①②③④

B、①②④

C、②③④

D、①③④

11、为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是( )（1分）

A、Value

B、Default

C、Cancel

D、Enabled

12、如果数据包含小数,则不应定义为下列哪种类型( )（1分）

A、Double

B、Single

C、Byte

D、Currency

13、下列程序段s=0:for i=9 to 42 step 11:s=s+i:next:if i>50 then s=s+i else s=s-i 运行后s的结果为( )（1分）

A、167

B、139

C、144

D、155

14、有如下程序For x=1 TO 2:For y=0 TO x-1:Print x*y:Next:Next,内层循环的循环体的总执行次数是( )（1分）

A、1

B、2

C、3

D、4

15、在下列四个式子中,非法的Visual Basic表达式是( )（1分）

A、a=b+e

B、5>3+3

C、a=exp

D、5<>5

16、表达式INT(4*RND+2)*(INT(4*RND－2))值的范围是( )（1分）

A、[-10,8]

B、[-4,8]

C、[-10,5]

D、[4,8]

17、要统计出字符串"计算机技术基础visual basic"的长度,应使用下列( )函数（1分）

A、TAB

B、STR

C、LEN

D、INSTR

18、表达式(not true or true) and (true or false)的值为( )（1

A、false

B、true

C、0

D、-1

19、下列哪个关键字声明的局部变量在整个程序运行中一直存在( c

A、Dim

B、Public

C、Static

D、Private

20、下面的变量名合法的是( )（1分）

A、https://www.360docs.net/doc/8f17702183.html,

B、k%name

C、name

D、k-name

21、Visual Basic中不允许出现的数据形式为( )（1分）

A、4.56E-3

B、.368

C、D32

D、0.258

22、设a=2,b=4,c=6,下列表达式值为真的是( )（1分）

A、a>b And c

B、a>b Or c

C、aa

D、b>c Or c

23、要使变量x赋值为1到100间(含1,不含100)的一个随机整数,正面语句正确的是( )（1分）

A、x=Int(100*Rnd)

B、x=Int(101*Rnd)

C、x=1+Int(100*Rnd)

D、x=1+Int(99*Rnd)

24、下列关于属性设置的叙述正确的是( d )（1分）

A、所有的对象都有同样的属性

B、控件的属性只能在设计时修改,运行时无法改变

C、控件的属性都有同样的默认值

D、引用对象属性的格式为：对象名称.属性

25、使文本框获得焦点的方法是( )（1分）

A、Change

B、GotFocus

C、SetFocus

D、LostFocus

二、填空题（12道小题，共35分）

1、可视化Visual Basic以结构化Object pascal 语言为基础。

2、一个工程可以包括多种类型的文件,其中窗体文件的扩展名为。

3、程序流程中被重复执行的程序段叫循环结构。

4、将对象设置为不可见的，是将它的属性值设为False。

5、在Visual Basic6.0中，用Font.Size属性设置。

6、表示货币型数据的单一字符是。

7、Int(x)函数的含义是。

8、设A$="Visual Basic是一种可视化编程语言",mid$(A$,8,5)函数返回值是。

9、逻辑值转变为数值时，False为0 。

10、在Print方法中，输出项用逗号分隔是按标准格式输出。

11、下列程序段是用于在一个字符串变量中查找"Rose"，并用信息输出框给出找到的个数或

没有找到的查找结果。

Private Sub Form_Click()

Dim Str1 As String, Length As Integer, Sum As Integer, I As Integer

Str1 = InputBox("请输入一个字符串")

I = 1

Sum = 0

Do While I <=length-4

If = "Rose" Then

Sum = Sum + 1

End If

I = I + 1

Loop

If Then

MsgBox "没有找到！"

Else

MsgBox "找到了" & Str(Sum) & "个"

End If

End Sub

12、在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：

Private Sub Form_Load()

Timer1.Enabled =

Timer1.Interval = 1000

End Sub

Private Sub Form_Click()

Timer1.Enabled =

End Sub

Private Sub Timer1_Timer()

Label1.Caption = time()

End Sub

程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（如见下图）。——————————————————————

22:40:20

——————————————————————

三、判断题（10道小题，共10分）

1、在VB中，注释语句也是可执行语句。（1分）错误

2、在VB中，变量可以直接使用（即不声明就使用）正确

3、要想以标准方式显示变量a,b,c的值，可以写成print a，b，c

4、要想修改在窗体上输出的字体的颜色，可以修改窗体的Forecolor属性。（1分）

5、字符串"AB" 与"ab"是两个相等的字符串。（1分）

6、在if <条件> then 结构中，条件可以是逻辑表达式或数值表达式。（1分）

7、在For <控制变量>＝<初值> To <终值> [Step <步长>] 结构中，可以写成For a="x" to "z" 。（1分）

8、改变窗体的标题也就是改变其属性窗口中的name属性。（1分）

9、Open命令的作用只是打开一个已经存在的文件。（1分）

10、在定义了一个函数后，可以象调用任何一个VB内部函数一样使用它，即可以在任何表达式、语句或函数中引用它。（1分）正确

四、编程题（4道小题，共60分）

1、编写程序，计算并输出下面级数前n项(n=80)的部分和。

1-1/2+1/3-1/4+1/5+……＋1/n

(n由键盘输入，要求用循环做，非循环不给分。)

必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!

请将你解答本题所写的源程序粘贴到下面或者上载源程序

2、勾股定理中三个数的关系是：a^2 + b^2 =c^2 编写程序，输出100以内满足上述关系的整数组合，例如3，4，5就是一个整数组合。

（本题不要求填写运行结果）

请将你解答本题所写的源程序粘贴到下面或者上载源程序

3、编写程序，用普通迭代法求方程f(x)=x+lnx-1.7=0的近似实根r，迭代初值为1.5，精确到0.0001。

〔提示：必须把方程f(x)=0化成其等价形式x=g(x)〕。（允许使用其他迭代法）

必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!

请将你解答本题所写的源程序粘贴到下面或者上载源程序

4、编写程序，输出下列三角形：(要求用循环做，非循环不给分。)

1

1 2 3

1 2 3 4 5

1 2 3 4 5 6 7

（本题不要求填写运行结果）

请将你解答本题所写的源程序粘贴到下面或者上载源程序

1、以下叙述中正确的是( )（1分）

A、可以在运行期间改变对象的Name属性的值

B、窗体的Name属性的值是显示在窗体标题栏中的文本

C、窗体的Name属性指定窗体的名称,用来标识一个窗体

D、对象的Name属性可以为空

2、下列不能打开属性窗口的操作是( )（1分）

A、执行“视图”菜单中的"属性窗口"命令

B、按F4键

C、按Ctrl+T

D、单击工具栏上的"属性窗口"按钮

3、用Dim A (1 to 15) As Integer语句定义的数组的元素个数是( )（1分）

A、14

B、15

C、16

D、17

4、执行下面的程序x=30 :For i=1 To 20 Step ( ):x=x+i\5:Next i 后,X的值为64,则Step为( )（1分）

A、1

B、2

C、3

D、4

5、关于语句If c=2 Then d=2 下列正确的说法是( )（1分）

A、c=2和d=2均为赋值语句

B、c=2和d=2均为关系表达式

C、c=2为关系表达式,d=2为赋值语句

D、d=2为关系表达式,c=2为赋值语句

6、如下程序,n = 10:Select Case n:Case 1 To 20:x = 10:Case 2, 4, 6:x = 20:Case Is < 10:x = 30:Case 10:x = 40:End Select:Text2.Text = x程序运行后,则在Text2中显示的内容为( )（1分）？？？？？？？？？？？？？？？

A、10

B、20

C、30

D、40

7、下列哪条语句是正确的( )（1分）

A、Exit While

B、End Sub

C、For loop

D、Do Exit

8、下列数组声明正确的是( )（1分）

A、n=6 : Dim a (1 to n) as integer

B、Dim a(10) as integer : ReDim a(1 to 12)

C、Dim a() as single : ReDim a(3,6) as integer

D、Dim a() as integer : n=6 : ReDim a(1 to n) as integer

9、假设有以下程序段For I=1 to 3:For j=8 to 2 Step -1:Print I*j:Next j:Next I则语句Print I*j 的执行次数以及I、j的值分别是( )（1分）

A、21 4 0

B、21 4 1

C、22 4 0

D、22 4 1

10、下列说法正确的是( )（1分）

A、即使数据类型为Variant,数组中的元素类型也必须保持一致

B、数据类型为Variant时,数组中的元素可以包含不同的类型

C、在数组中如果使用Option Base 1语句,则缺省的下界为0

D、在数组中如果没有使用Option Base语句,则缺省的下界为1

11、假定Picture1和Text1分别为图片框和文本框的名称,下列不正确的语句是( c )（1分）

A、Print 26

B、Picture1.Print 26

C、Text1.Print 26

D、Debug.Print 26

12、在Visual Basic中单精度的类型说明符为( )（1分）

A、%

B、#

C、!

D、&

13、"输入一个正数x,并判断x的开平方是否为整数"的语句为( c )（1分）

A、x >0 and sqr(x)=chr(x)

B、x >0 or sqr(x)=abs(x)

C、x >0 and sqr(x)=fix(sqr(x))

D、x >0 or sqr(x)=int(sqr(x))

14、在如下语句中,d$="123":f="456",则d+f$的结果是( )

A、123456

B、"123456"

C、123+"456"

D、显示出错信息

15、在Visual Basic中,下面的四个语句中正确的是( )（1分）

A、Log(sin(-1))

B、c=abs

C、Print TAB(10)"QB"

D、a=b=c

16、表达式INT(4*RND+2)*(INT(4*RND－2))值的范围是( )（1分）

A、[-10,8]

B、[-4,8]

C、[-10,5]

D、[4,8]

17、要统计出字符串"计算机技术基础visual basic"的长度,应使用下列( )函数（1分）

A、TAB

B、STR

C、LEN

D、INSTR

18、表达式(not true or true) and (true or false)的值为( )（1分）

A、false

B、true

C、0

D、-1

19、下列叙述中正确的是( c )（1分）

A、在窗体的Form_Load事件过程中定义的变量是全局变量

B、局部变量的作用域可以超出所定义的过程

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

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

20、以下哪一个是变量名是错误的( c )（1分）

A、我你他

B、ABC

C、AB.C

D、A123

21、下列可作为Visual Basic允许的数据形式的是( d )（1分）

A、10^(1.256)

B、D32

C、2.5E

D、12E3

22、已知C>D,S>T,正确表示它们之间关系的式子是( )（1分）

A、Sgn(D-C)-Sgn(S-T)>0

B、Sgn(D-C)-Sgn(S-T)=-2

C、Sgn(D-C)-Sgn(S-T)=0

D、Sgn(D-C)-Sgn(S-T)=1

23、要使变量x赋值为1到100间(含1,不含100)的一个随机整数,正面语句正确的是( )（1分）

A、x=Int(100*Rnd)

B、x=Int(101*Rnd)

C、x=1+Int(100*Rnd)

D、x=1+Int(99*Rnd)

24、下列关于属性设置的叙述正确的是( )（1分）

A、所有的对象都有同样的属性

B、控件的属性只能在设计时修改,运行时无法改变

C、控件的属性都有同样的默认值

D、引用对象属性的格式为：对象名称.属性

25、Visual Basic中没有提供下列( )事件（1分）

A、MouseDown

B、MouseUp

C、MouseMove

D、MouseExit

二、填空题（12道小题，共35分）

1、从机器的执行角度来说，程序设计语言可分为高级语言和两大类。

2、一个工程可以包括多种类型的文件,其中可执行文件的扩展名为。

3、For...Next结构的循环次数为。

4、将对象设置为可见的，是将它的属性值设为True。

5、在Visual Basic6.0中，用Font.Italic属性设置。

6、变体型变量的关键字是variant 。

7、三角函数是以为单位。

8、设A$="Visual Basic是一种可视化编程语言",Right$(A$,4)函数返回值是。

9、在整个工程的所有模块中均有效变量是。

10、在Print方法中，句尾有符号时，是执行下一个Print语句。

11、已知求根区间[a,b]有一根，每次把求根区间缩小一半,直到找到解或求根区间足够小。

二分法求根算法思想：

求[a,b]的中点c，判断

f(c)=0, c为求得的根，结束；

f(a)与f(c)同号,则[a,c]无根，c代替a；

否则[c,b]无根，c代替b；

使求根区间缩小一半，重复上述步骤，直到区间长度小于精度。

根的精度为0.00001，试填空完成此程序。

Public Function halfRoot(a as single, b as single) as single

Dim c as single

Do While

c = (a + b) / 2

If f(c) = 0 Then

Exit Do

ElseIf Then

a = c

Else

b = c

End If

Loop

End Function

12、用计时器按秒记时,在窗体上画一个计时器控件timer1和一个标签label1,程序运行后，

在标签内显示经过的秒数,并响铃,补充程序:

1.)需把计时器的Interval属性设置为1000

2.)Private Sub Timer1_Timer()

Static c As Integer

c=

Beep

三、判断题（10道小题，共10分）

1、立即窗口既可显示程序调试时新产生的信息，也可执行一行代码

2、在VB中，每个变量都有一个名字和相应的数据类型。（1分）

3、要想在第15列的位置上输出变量x的值，可以写成print tab(15),x（1分）

4、VB声明数组时既可指定上界也可指定下界。（1分）正确

5、字符串"AB" 与"ab"是两个相等的字符串。（1分）

6、在if <条件> then 结构中，条件必须是逻辑表达式或关系表达式。正确

7、在For <控制变量>＝<初值> To <终值> [Step <步长>] 结构中，循环次数为Int((终值－初值)/步长+1)（1分）

8、计时器（Timer）控件的Interval属性的单位是毫秒，即若将此属性值设为10，则每0.01秒产生一次Timer事件。（1分）

9、工程文件的扩展名是.vbg 。（1分）

10、在VB中，利用表达式int(10+RND*90) 来产生一个[10，99]间的整数。（1分）

四、编程题（4道小题，共60分）

1、编写程序，计算下面级数前n项中(n=50)奇数项的和，并输

出该级数最后两项之差的绝对值。(要求用循环做，非循环不给分。)

1*2*3+2*3*4+3*4*5+……+n*(n+1)*(n+2)+…

必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!

请将你解答本题所写的源程序粘贴到下面或者上载源程序

2、输入3个数a,b,c，按大小顺序把它们输出来。

（本题不要求填写运行结果）

请将你解答本题所写的源程序粘贴到下面或者上载源程序

3、编写程序，用牛顿切线法求方程f(x)= x^3/2+2x^2-8=0（其中^表示幂运算）在区间[0，2]上的近似实根r，

迭代初值自选，精确到0.0001。〔提示: 计算公式为x=x-f(x)/f'(x)〕

必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!

请将你解答本题所写的源程序粘贴到下面或者上载源程序

4、编写程序，输出下列三角形：总行数通过键盘输入。(要求用循环做，非循环不给分。)

1 1 1 1 1 1 1

2 2 2 2 2

3 3 3

4

（本题不要求填写运行结果）

请将你解答本题所写的源程序粘贴到下面或者上载源程序

一、单项选择题（25道小题，共25分）

1、以下叙述中错误的是(b )（1分）

A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件

B、控件的名称可以由编程人员设定

C、窗体文件包含该窗体及其控件的属性

D、Visual Basic 中控件的某些属性只能在运行时设置

2、Visual Basic是一种面向对象的程序设计语言,构成对象的三要素是( )（1分）

A、属性、控件和方法

B、属性、事件和方法

C、窗体、控件和过程

D、控件、过程和模块

3、用Static M (2 to 10) As Integer语句定义的数组的元素个数是( )（1分）

A、8

B、9

C、10

D、11

4、如果整型变量c、d的值分别为6和9,则下列语句中For I=c to d step -3: Print I : Next I 循环体的执行次数是( )（1分）

A、6

B、9

C、4

D、0

5、设有以下循环结构Do : 循环体: Loop While <条件> ,则以下叙述中错误的是( a)（1分）

A、若"条件"是一个为0的常数,则一次也不执行循环体

B、"条件"可以是关系表达式、逻辑表达式或常数

C、循环体中可以使用Exit Do语句

D、如果"条件"总是为True,则不停地执行循环体

6、假设x的值为5,则在执行以下语句时,其输出结果为"OK"的Select Case的语句是( )（1分）

A、Select Case x : case 10 to 1 : Print "OK" : End select

B、Select Case x : case Is>5,Is<5 : Print "OK" : End select

C、Select Case x : case Is>5,1,3 to 10 : Print "OK" : End select

D、Select Case x : case 1,3 Is>5 : Print "OK" : End select

7、如下程序Do while i<=100:s=s+i: loop运行后的输出结果是( )（1分）

A、5050

B、5051

C、死循环,无输出

D、无穷大的数

8、下列数组声明正确的是( )（1分）

A、r=8 : Dim a (1 to r) as integer

B、Dim a(10) as integer : ReDim a(1 to x)

C、Dim a(x) as single : ReDim a(3,6) as integer

D、Dim a() as integer : x=8 : ReDim a(1 to x) as integer

9、假设有以下程序段For I=1 to 3:For j=7 to 1 Step -1:Print I*j:Next j:Next I则语句Print I*j 的执行次数以及I、j的值分别是( )（1分）

A、21 3 0

B、21 4 0

C、20 3 0

D、20 4 0

10、创建Visual Basic应用程序的主要步骤是：①创建应用程序界面②设置控件③设置属性④编写代码,其中正确的步骤是( )（1分）

A、①②③④

B、①②④

C、②③④

D、①③④

11、若使用文本框Text1,为对用户输入内容进行立即检查,应对Text1的哪个事件编程(b )（1分）

A、Change

B、Interval

C、Left

D、Top

12、如果数据包含小数,则可定义为下列哪种类型( )（1分）

A、integer

B、string

C、Byte

D、Currency

13、以下能够正确计算1*2*3*…*n的程序是( )（1分）

A、n=10 : s=1 : Do : s=s*i : i=i+1 : Loop While i

B、n=10 : s=1 : i=1 : Do : s=s*i : i=i+1 : Loop While i

C、n=10 : s=1 : i=1 : Do : s=s*i : i=i+1 : Loop while i<=n

D、n=10 : s=1 : i=1 : Do : s=s*i : i=i+1 : loop While i>n

14、有如下程序For x=1 TO 2:For y=0 TO x-1:Print x*y:Next:Next,内层循环的循环体的总执行次数是( )（1分）

A、1

B、2

C、3

D、4

15、下列语句中合法的是( )（1分）

A、Print a=spc

B、Print "SIN(3.14)"+"COS(3.14)"

C、Print TAB(10)"QB"

D、Print USING"####",1234.56

16、表达式INT(4*RND+1)*(INT(4*RND－1))值的范围是( )（1分）

A、[0,8]

B、[-1,8]

C、[-3,8]

D、[- 4,8]

17、要统计出字符串"VB计算机技术基础"的长度,应使用下列( )函数

A、TAB

B、STR

C、LEN

D、INSTR

18、表达式(not true or true) and (true or false)的值为( )（1

A、false

B、true

C、0

D、-1

19、下列叙述中正确的是( c )（1分）

A、在窗体的Form_Load事件过程中定义的变量是全局变量

B、局部变量的作用域可以超出所定义的过程

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

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

20、下面哪一种变量名是错误的(d )（1分）

A、我们

B、a123

C、abc

D、a-1

21、在Visual Basic中,下面四个数据,数据形式错误的是( d )（1分

A、3.456#

B、236!

C、1.23D-23

D、D36

22、设a=2,b=4,c=6,下列表达式值为真的是( )（1分）

A、a>b And c

B、a>b Or c

C、aa

D、b>c Or c

23、数学表达式lg6 在Visual Basic中的正确表示是( )（1分）

A、ln(6)/ln(10)

B、log(10)/log(6)

C、log(6)/ln(10)

D、Log(6)/ Log(10)

24、如果希望一个窗体在显示的时候没有边框,应该设置的属性是( )

A、将窗体的Caption设成空字符

B、将窗体的BorderStyle置成None

C、将窗体的Enabled属性置成False

D、将窗体的ContalBox 置成False

25、( )对象能使用print方法（1分）

A、文本框

B、图片框

C、命令按钮

D、标签

二、填空题（12道小题，共35分）

1、可视化Visual Basic语言是一种通用的程序设计语言。

2、双击某个对象时，最终引发该对象的事件。

3、结构最常用于循环次数已知的循环结构。

5、在Visual Basic6.0中，用Font.Size属性设置。

6、表示货币型数据的单一字符是。

7、Rnd函数的含义是

8、设A$="Visual Basic是一种可视化编程语言",len(a$)函数返回值是。

9、只在一个过程有效，其它过程无效的变量是。

10、方法用于在窗体、图片框、调试窗中、打印机等对象上输出文本

11、本程序用辗转相除法求两自然数m、n的最大公约数和最小公倍数。

求最大公约数的算法如下：

（1）对于已知两数m、n，使得m>n；

（2）m除以n得余数r；

（3）若r=0，则n为求得的最大公约数，算法结束；否则执行（4）；

（4）m=n，n=r再重复执行（2）。

原两数相乘除以最大公约数即为最小公倍数。程序段如下：

Private Sub Form_Click()

Dim m as integer,n as integer,r as integer,mn as integer

n=Val(InputBox(“n=”))

m=Val(InputBox(“m=”))

If n<=0 OR m<=0 Then

MsgBox “数据出错”

End

End If

If Then

t=m

m=n

n=t

End If

mn=m*n

r=m mod n

Do While ()

m=n

n=r

Loop

Form1.Print “最大公约数=”,n,

Form1.Print “最小公倍数=”,mn/n

End Sub

12、窗体中有两个命令按钮：“显示”（对象名为cmdDisplay）和“测试”（对象名为cmdTest）。

单击“测试”按钮时，执行如下事件过程，此事件过程的功能是：当在窗体中出现消息框,并选

中其中的“确定”按钮时，隐藏“显示”按钮。否则退出。请填空。

Private Sub cmdTest_Click( )

Answer = (“隐藏按钮”,l)

if Answer = vbOK then

cmdDisplay.visible =

Else

End

End if

End Sub

三、判断题（10道小题，共10分）

1、Image控件不能用作容器使用。（1分）正确

2、如果一个变量在声明时没有指定类型，则它是Variant类型的。（1分）正确

3、语句a=7:a=8:print a 可以输出a的两个值。（1分）

4、创建VB应用程序的三个主要步骤是：（1）创建应用程序界面（2）设置控件（3）编写代码。错误

5、在VB中，sin(3a+b)是一个合法的表达式。（1分）

6、在if <条件> then 结构中，条件可以是逻辑表达式或关系表达式。（1分）正确

7、在For <控制变量>＝<初值> To <终值> [Step <步长>] 结构中，步长可以取任意值。（1分）

8、改变窗体的标题也就是改变其属性窗口中的name属性。（1分）

9、在VB中可以同时打开多个工程。（1分）错误

10、在VB中，利用表达式int(10+RND*90) 来产生一个[10，99]间的整数。（1分）

四、编程题（4道小题，共60分）

1、求公式：e=1/1!+1/2!+1/3!+……+1/n! 直到最后一项小于10^(-6)时e的值。(保留小数点后9位)

(注：程序代码写在命令按钮Command1的Click事件中。)

必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!

请将你解答本题所写的源程序粘贴到下面或者上载源程序

2、有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当每步跨7阶时恰好走完，问这个长阶梯大于200阶的最小值是多少？

（本题不要求填写运行结果）

请将你解答本题所写的源程序粘贴到下面或者上载源程序

3、编写程序，用牛顿切线法求方程f(x)= x+lnx-1.7=0的近似实根r，迭代初值自选，精确到0.0001。

〔提示:计算公式为x=x-f(x)/f'(x)〕

必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!

请将你解答本题所写的源程序粘贴到下面或者上载源程序

4、编写程序，输出下列三角形：(要求用循环做，非循环不给分。)

1

2 2 2

3 3 3 3 3

4 4 4 4 4 4 4

（本题不要求填写运行结果）

请将你解答本题所写的源程序粘贴到下面或者上载源程序

1、以下叙述中正确的是( )（1分）

A、可以在运行期间改变对象的Name属性的值

B、窗体的Name属性的值是显示在窗体标题栏中的文本

C、窗体的Name属性指定窗体的名称,用来标识一个窗体

D、对象的Name属性可以为空

2、下列不能打开属性窗口的操作是( )（1分）

A、执行“视图”菜单中的"属性窗口"命令

B、按F4键

C、按Ctrl+T

D、单击工具栏上的"属性窗口"按钮

3、用Dim A (1 to 15) As Integer语句定义的数组的元素个数是( )（1分）

A、14

B、15

C、16

D、17

4、执行下面的程序x=30 :For i=1 To 20 Step ( ):x=x+i\5:Next i 后,X的值为64,则Step为( )（1分）

A、1

B、2

C、3

D、4

5、关于语句If c=2 Then d=2 下列正确的说法是( )（1分）

A、c=2和d=2均为赋值语句

B、c=2和d=2均为关系表达式

C、c=2为关系表达式,d=2为赋值语句

D、d=2为关系表达式,c=2为赋值语句6、如下程序,n = 10:Select Case n:Case 1 To 20:x = 10:Case 2, 4, 6:x = 20:Case Is < 10:x = 30:Case 10:x = 40:End Select:Text2.Text = x程序运行后,则在Text2中显示的内容为( )（1分）

A、10

B、20

C、30

D、40

7、下列哪条语句是正确的( )（1分）

A、Exit While

B、End Sub

C、For loop

D、Do Exit

8、下列数组声明正确的是( )（1分）

A、n=6 : Dim a (1 to n) as integer

B、Dim a(10) as integer : ReDim a(1 to 12)

C、Dim a() as single : ReDim a(3,6) as integer

D、Dim a() as integer : n=6 : ReDim a(1 to n) as integer

9、假设有以下程序段For I=1 to 3:For j=8 to 2 Step -1:Print I*j:Next j:Next I则语句Print I*j 的执行次数以及I、j的值分别是( )（1分）

A、21 4 0

B、21 4 1

C、22 4 0

D、22 4 1

10、下列说法正确的是( )（1分）

A、即使数据类型为Variant,数组中的元素类型也必须保持一致

B、数据类型为Variant时,数组中的元素可以包含不同的类型

C、在数组中如果使用Option Base 1语句,则缺省的下界为0

D、在数组中如果没有使用Option Base语句,则缺省的下界为1

11、假定Picture1和Text1分别为图片框和文本框的名称,下列不正确的语句是( )（1分）

A、Print 26

B、Picture1.Print 26

C、Text1.Print 26

D、Debug.Print 26

12、在Visual Basic中单精度的类型说明符为( )（1分）

A、%

B、#

C、!

D、&

13、"输入一个正数x,并判断x的开平方是否为整数"的语句为( )（1分）

A、x >0 and sqr(x)=chr(x)

B、x >0 or sqr(x)=abs(x)

C、x >0 and sqr(x)=fix(sqr(x))

D、x >0 or sqr(x)=int(sqr(x))

14、在如下语句中,d$="123":f="456",则d+f$的结果是( ) （1分）

A、123456

B、"123456"

C、123+"456"

D、显示出错信息

15、在Visual Basic中,下面的四个语句中正确的是( )（1分）

A、Log(sin(-1))

B、c=abs

C、Print TAB(10)"QB"

D、a=b=c

16、表达式INT(4*RND+2)*(INT(4*RND－2))值的范围是( )（1分）

A、[-10,8]

B、[-4,8]

C、[-10,5]

D、[4,8]

17、要统计出字符串"计算机技术基础visual basic"的长度,应使用下列( )函数（1分）

A、TAB

B、STR

C、LEN

D、INSTR

18、表达式(not true or true) and (true or false)的值为( )（1分）

A、false

B、true

C、0

D、-1

19、下列叙述中正确的是( )（1分）

A、在窗体的Form_Load事件过程中定义的变量是全局变量

B、局部变量的作用域可以超出所定义的过程

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

D、在调用过程时,所

有局部变量被系统初始化为0或空符串

20、以下哪一个是变量名是错误的( )（1分）

A、我你他

B、ABC

C、AB.C

D、A123

21、下列可作为Visual Basic允许的数据形式的是( )（1分）

A、10^(1.256)

B、D32

C、2.5E

D、12E3

22、已知C>D,S>T,正确表示它们之间关系的式子是( )（1分）

A、Sgn(D-C)-Sgn(S-T)>0

B、Sgn(D-C)-Sgn(S-T)=-2

C、Sgn(D-C)-Sgn(S-T)=0

D、Sgn(D-C)-Sgn(S-T)=1

23、要使变量x赋值为1到100间(含1,不含100)的一个随机整数,正面语句正确的是( )（1分）

A、x=Int(100*Rnd)

B、x=Int(101*Rnd)

C、x=1+Int(100*Rnd)

D、x=1+Int(99*Rnd)

24、下列关于属性设置的叙述正确的是( )（1分）

A、所有的对象都有同样的属性

B、控件的属性只能在设计时修改,运行时无法改变

C、控件的属性都有同样的默认值

D、引用对象属性的格式为：对象名称.属性

25、Visual Basic中没有提供下列( )事件（1分）

A、MouseDown

B、MouseUp

C、MouseMove

D、MouseExit

二、填空题（12道小题，共35分）

1、从机器的执行角度来说，程序设计语言可分为高级语言和两大类

2、一个工程可以包括多种类型的文件,其中可执行文件的扩展名为。

3、For...Next结构的循环次数为。

4、将对象设置为可见的，是将它的属性值设为True。

5、在Visual Basic6.0中，用Font.Italic属性设置。

6、变体型变量的关键字是。

7、三角函数是以为单位。

8、设A$="Visual Basic是一种可视化编程语言",Right$(A$,4)函数返回值是。

9、在整个工程的所有模块中均有效变量是。

10、在Print方法中，句尾有符号时，是执行下一个Print语句。

11、已知求根区间[a,b]有一根，每次把求根区间缩小一半,直到找到解或求根区间足够小。

二分法求根算法思想：

求[a,b]的中点c，判断

f(c)=0, c为求得的根，结束；

f(a)与f(c)同号,则[a,c]无根，c代替a；

否则[c,b]无根，c代替b；

使求根区间缩小一半，重复上述步骤，直到区间长度小于精度。

根的精度为0.00001，试填空完成此程序。

Public Function halfRoot(a as single, b as single) as single

Dim c as single

Do While

c = (a + b) / 2

If f(c) = 0 Then

Exit Do

ElseIf Then

a = c

Else

b = c

End If

Loop

End Function

12、用计时器按秒记时,在窗体上画一个计时器控件timer1和一个标签label1,程序运行后，

在标签内显示经过的秒数,并响铃,补充程序:

1.)需把计时器的Interval属性设置为1000

2.)Private Sub Timer1_Timer()

Static c As Integer

c=

Beep

三、判断题（10道小题，共10分）

1、立即窗口既可显示程序调试时新产生的信息，也可执行一行代码

2、在VB中，每个变量都有一个名字和相应的数据类型。（1分）

3、要想在第15列的位置上输出变量x的值，可以写成print tab(15),x（1分）

4、VB声明数组时既可指定上界也可指定下界。（1分）

5、字符串"AB" 与"ab"是两个相等的字符串。（1分）

6、在if <条件> then 结构中，条件必须是逻辑表达式或关系表达式。

7、在For <控制变量>＝<初值> To <终值> [Step <步长>] 结构中，循环次数为Int((终值－初值)/步长+1)（1分）

8、计时器（Timer）控件的Interval属性的单位是毫秒，即若将此属性值设为10，则每0.01秒产生一次Timer事件。（1分）

9、工程文件的扩展名是.vbg 。（1分）

10、在VB中，利用表达式int(10+RND*90) 来产生一个[10，99]间的整数。（1分）

四、编程题（4道小题，共60分）

1、编写程序，计算下面级数前n项中(n=50)奇数项的和，并输

出该级数最后两项之差的绝对值。(要求用循环做，非循环不给分。)

1*2*3+2*3*4+3*4*5+……+n*(n+1)*(n+2)+…

必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!

请将你解答本题所写的源程序粘贴到下面或者上载源程序

2、输入3个数a,b,c，按大小顺序把它们输出来。

（本题不要求填写运行结果）

请将你解答本题所写的源程序粘贴到下面或者上载源程序

3、编写程序，用牛顿切线法求方程f(x)= x^3/2+2x^2-8=0（其中^表示幂运算）在区间[0，2]上的近似实根r，

迭代初值自选，精确到0.0001。〔提示: 计算公式为x=x-f(x)/f'(x)〕

必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!

请将你解答本题所写的源程序粘贴到下面或者上载源程序

4、编写程序，输出下列三角形：总行数通过键盘输入。(要求用循环做，非循环不给分。)

1 1 1 1 1 1 1

2 2 2 2 2

3 3 3

4

（本题不要求填写运行结果）

请将你解答本题所写的源程序粘贴到下面或者上载源程序

一、单项选择题（25道小题，共25分）

1、以下叙述中错误的是( d)（1分）

A、事件可以由用户引发,也可以由系统引发

B、窗体文件包含该窗体及其控件的属性

C、移动鼠标时,会触发MouseMove事件

D、Visual Basic应用程序只能以解释方式执行

2、下列不能打开属性窗口的操作是(c)（1分）

A、执行“视图”菜单中的"属性窗口"命令

B、按F4键

C、按Ctrl+T

D、单击工具栏上的"属性窗口"按钮

3、用Dim S (20) As Integer语句定义的数组的元素个数是(c )（1分）A、19 B、20 C、21 D、22

4、如果整型变量c、d的值分别为6和9,则下列语句中For I=c to d step -3: Print I : Next I 循环体的执行次数是(d )（1分）

A、6

B、9

C、4

D、0

5、假定有以下循环结构Do Until <条件> : 循环体:Loop ,则正确的描述是( b)（1分）