VB考试题

VB程序设计期末考试题

一、选择题

1下列常量中，是Integer类型常量的是（C）。

A、123&

B、-38844

C、123%

D、32768

2下面选项中(A)是字符连接运算符.

A、&

B、And

C、%

D、Mod

3下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（B）。

A、IDE是设计、调试、运行VB程序的工具。

B、用户不能随意关闭IDE中的窗口。

C、"窗体设计"窗口是用来设计应用程序界面（窗体）的。

D、打开/关闭各窗口的命令主要在IDE的"视图"菜单中。

4len("vb程序设计")=(C)。

A、5

B、2

C、6

D、10

5表达式15Mod4+13\5*2的值是(D)

A、7

B、0

C、2

D、4

6赋值语句A=123+Mid$("123456",3,2)执行后，A=（A）。

A、157

B、12334

C、123

D、"12334"

7在一个语句内写多条语句时,用来分隔每条语句的符号是(C).

A、,

B、;

C、:

D、、

8将逻辑型数据转换成整型数据时，转换规则是（D）。

A、将True转换为1，将False转换为0

B、将True转换为1，将False转换为-1

C、将True转换为0，将False转换为-1

D、将True转换为-1，将False转换为0

9表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D).

A、SIN

B、4^5

C、3*4

D、x+1

10如果x=2，则表达式x+1>2Or sin(x)>0.9And3>x+3的值（D）。

A、不能计算

B、True

C、5

D、False

11随机产生[10，50]之间整数的正确表达式是（D）。

A、Round(Rnd*50)

B、Int(Rnd*40+10)

C、Round(Rnd*51)

D、10+Int(Rnd*41)

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

A、类模块文件

B、工程文件

C、窗体文件

D、程序模块文件

13INT(100*RND(1))产生的随机整数的闭区间是(B).

A、[1,100]

B、[0,99]

C、[0,100]

D、[1,99]

14下列数据类型中,占用内存最小的是(D).

A、Integer

B、Single

C、Boolean

D、Byte

15VisualBasic是一种(B)程序设计语言.

A、过程式

B、非过程

C、机器

D、低级

16函数Int(10*Rnd)是在(A)范围内的整数.

A、[0,9]

B、[0,1]

C、[1,9]

D、[1,10]

17以下合法的一组Visual Basic用户标识符是(C)

A、Sum和8abc

B、a#x和Pi

C、For Loop和Total

D、Const和Do While

18函数Len(Str(Val("123.4")))的值为(B).

A、5

B、6

C、8

D、11

19Int(198.555*100+0.5)/100的值为(B)

A、199.

B、198.56

C、200

D、198

20以下各表达式中,计算结果为0的是(A).

A、FIX(12.4)+FIX(-12.6)

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

C、INT(12.4)+INT(-12.6)

D、FIX(13.6)+FIX(-12.6)

21MsgBox()的正确语法是（D）。

A、MsgBox(标题[，提示信息][，按钮类型])

B、MsgBox(提示信息[，标题][，按钮类型])

C、MsgBox(标题[，按钮类型][，提示信息])

D、MsgBox(提示信息[，按钮类型][，标题])

223>8-3OR10+2<=3*4AND5=2+3的结果是(C).

A、10

B、-3

C、True

D、False

23表达式4+5\6*7/8Mod9的值是(D).

A、7

B、4

C、6

D、5

24设a=6,则执行x=IIf(a>5,-1,0)后,x的值为(D).

A、5

B、0

C、6

D、-1

25下面关于VB的叙述中，不正确的是（A）。

A、用VB编写的程序可以在任何操作系统环境中运行。

B、VB是面向对象的可视化的软件开发工具。

C、VB是在20世纪60年代美国Dartmouth学院开发的Basic语言基础上发展而形成的。

D、VB是由美国Microsoft（微软）公司开发程序设计语言。

26表达式16/4-2^5*8/4Mod5\2=(A)。

A、4

B、0

C、-2

D、-6

27声明符号常量应该用关键字(B).

A、Private

B、Const

C、Static

D、V26/ariant

28下列数据类型中,占用内存最大的是(D).

A、Boolean

B、Integer

C、Byte

D、Single

29下列VB数据类型中，占用内存最少的是(D)。

A、Currency

B、Integer

C、Boolean

D、Byte

30RGB函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB (红.绿.蓝),括号中红、绿、蓝三基色的成分使用0~255之间

的整数.若使用三个滚动条分别输入三种基色,为保证输入数值

有效,则应设置(B)属性.

A、Scroll和Change

B、Max和Min

C、Smallchange和LargeChange

D、Value

31k=12.5，len(str(k))=(B)。

A、4

B、5

C、3

D、2

32表达式Abs(-5)*5\5/5的值是(D)

A、1

B、5

C、-25

D、25

33产生[10,37]之间的随机整数的VisualBasic表达式是(C).

A、Int(Rnd(1)*27)+11

B、Int(Rnd(1)*28)+11

C、Int(Rnd(1)*28)+10

D、In t(Rnd(1)*27)+10

34工具栏中的"启动"按钮的作用是(B).

A、工程管理窗口

B、运行一个应用程序

C、打开被选中对象的代码窗口

D、运行一个窗体

35不需要编译，计算机便可直接执行的程序是（B）。

A、C语言程序

B、机器语言程序

C、汇编语言程序

D、Visual Basic语言程序

36Val("123ab")=（D）。

A、0B、不能转换C、1230D、123 37表达式16/4-2^5*8/4MOD5\2的值为（A）

A、4

B、2

C、14

D、20

38删除字符串前导和尾随空格的函数是(D).

A、Rtrim()

B、Ltrim()

C、Lcase

D、Trim() 39下列表达式中,其值为0的是(C).

A、15mod9

B、7/9

C、7\9

D、7mod15 40表达式Len("123程序设计ABC")的值是（B）

A、17

B、10

C、14

D、20

41Int(-3.1)+round(-4.6)=(C)。

A、-8

B、-6

C、-9

D、-7

42\、/、Mod、*等4个算术运算符中,优先级最低的是(A).

A、Mod

B、

C、*

D、\

43下面正确的赋值语句是（D）。

A、x=y=1

B、x+2=y^2+2

C、x+y=1

D、x=y+z1

44Len("实践应用能力")的值是(A).

A、6

B、4

C、不能确定

D、8

45表达式Mid("SHANGHAI",6,3)的值是(C).

A、ANG

B、SHA

C、HAI

D、SHANGH 46表达式25\3mod3*Int(4.5)的值为(B).

A、1

B、8

C、4

D、5

47下面变量名称正确的是（C）。

A、x□1

B、integer

C、x_1_y

D、x,y

48不能正确表示条件"两个整型变量A和B之一为0,但不能同时为0"的布尔表达式(D).

A、A*B=0ANDA<>B

B、(A=0ORB=0)ANDA<>B

C、A=0ANDB<>0ORA<>0AND B=0

D、A*B=0AND(A=0ORB=0)

49如果X是一个正的实数,将千分位四舍五入,保留两位小数的表达式是(C).

A、0.01*int(100*(x+0.05))

B、0.01*int(x+0.05)

C、0.01*int(100*(x+0.005))

D、0.01*int(x+0.005)

50表达式X+1>X是(D).

A、非法表达式

B、字符表达式

C、算术表达式

D、关系表达式

51.保存一个工程至少应保存两个文件，这两个文件分别是（B）。

A.文本文件和工程文件

B.窗体文件和工程文件

C.窗体文件和标准模块文件

D.类模块文件和工程文件

52.以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。

https://www.360docs.net/doc/b76885839.html,="VisualBasic窗体"

B.Form1.Title="VisualBasic窗体"

C.Form1.Caption="VisualBasic窗体"

D.Form1.Text="VisualBasic窗体"

53.赋给一个数组的数据类型一定要（A）。

A.相同

B.不相同

C.两可

D.都不对

54.下面正确的赋值语句是（C）。

55.A、x+y=30B、y=π*r*r C、y=x+30D、3y=x

55.若要使命令按钮不可操作，要对()属性进行设制。(A)

A.Enabled

B.Visible

C.BackColor

D.Caption

56.设x=3,y=5,则以下表达式值为真的是(C)

A.(-3+5>x)And(y>0)

B.(x<0)Eqv(y>0)

C.(x>y)Or(y>0)

D.x>=y And y>10

57.要判断在文本框是否按了Enter键，应在文本框的(D)事件中判断。

A.Change

B.KeyDown

C.Click

D.KeyPress

58.如果文本框的Enabled属性设为False，则(A)。

A.文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上。

B.文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容。

C.文本框的文本将变成灰色，用户仍然能改变文本框中的内容。

D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容

59.图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是

(B)。

A.Autosize

B.Stretch

C.AutoRedraw

D.Appearance

60.Visual Basic是一种面向对象的可视化程序设计语言，采取了(A)的编程机制。

A.事件驱动

B.按过程顺序执行

C.从主程序开始执行

D.按模块顺序执行

61.确定一个控件在窗体上的位置的属性是(D)。

A.Width或Height

B.Width和Height

C.Top或Left

D.Top和Left

62.如果要改变窗体的标题，则需要设置的属性是(A)。

A.Caption

https://www.360docs.net/doc/b76885839.html,

C.BackColor

D.BorderStyle

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

A.文本框

B.命令按钮

C.窗体

D.标签

64.用来设置粗体字的属性是(C)。

A.FontItalic

B.FontName

C.FontBold

D.FontSize

65.INT（100*RND）产生的随机整数的闭区间是（A）。

A.[0，99]

B.[1，100]

C.[0，100]

D.[1，99]

66.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是(C)。

A、单选按钮

B、图片框

C、通用对话框

D、文本框

67.声明符号常量应该用关键字(B)。

A.Static

B.Const

C.Private

D.Variant

68.设a=10，b=5，c=1，执行语句Print a>b>c后，窗体上显示的是(B)。

A.True

B.False

C.1

D.出错信息

69.设a=2,b=3,c=4,d=5，表达式a>b AND c<=d的值是(B)。

A.True

B.False

C.-1

D.1

70.表达式6*8Mod9的值是(B)。

A.4

B.3

C.6

D.7

71.可以同时删除字符串前导和尾部空白的函数是(C)。

A.Ltrim

B.Rtrim

C.Trim

D.Mid

72.设a=3,b=5，则以下表达式值为真的是(B)。

A.a>=b And b>10

B.(a>b)Or(b>0)

C.(a<0)or(b<0)

D.(-3+5>a)And(b>0)

73.VB提供了结构化程序设计的3种基本结构，这3种基本结构是（B）。

A.递归结构，分支结构，循环结构

B.选择结构，过程结构，顺序结构

C.过程结构，输入、输出结构，转向结构

D.分支结构，循环结构，顺序结构Dim x

x=Int(Rnd)+5

Select Case x

Case5“优秀”

Case4Print“良好”

Case3Print“通过”

Case Else Print“不通过”

End Select

A.优秀

B.良好

C.通过

D.不通过

74.一个数组说明为Dim a(1to5)As Integer，则该数组共有（C）个元素。

A.4

B.5

C.6

D.不确定

75.赋给一个数组的数据的值的类型一定要（A）。

A.相同

B.不相同

C.两可

D.都不对

76.在过程定义中用(C)表示形参的传值。

A.Var

B.ByDef

C.ByVal

D.Value

77.假如列表框（List1）有四个数据项，那么把数据项“China”添加到列表框的最后，应使用(D)语句。

A.List1.AddItem3,"China"

B.List1.AddItem"China",List1.List1Count-1

C.List1.AddItem"China",3

D.List1.AddItem"China"

78.在Visual Basic中，下列优先级最高的运算符是(A)

A.*

B.\

C.<

D.Not

79.表达式15Mod4+13\5*2的值是(D)

A.7

B.0

C.2

D.4

80.下列表达式中,其值为0的是(C).

A.15mod9

B.7/9

C.7\9

D.7mod15

81.下列常量中，是Integer类型常量的是（C）。

A.123&

B.-38844

C.123%

D.32768

二、判断题

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

2．Visual Basic表达式可以写为：128?4+COS（28?）（）

3．当文本框的ScrollBar属性设置为2(有垂直滚动条)但没有垂直滚动条显示，是没有对MultiLine属性设置为True。()

4..Cls可以清除窗体或图形框中程序运行时产生的图形和文字的内容。（）

5．当运行程序时系统自动启动窗体的Load事件过程（）

6在VB6.0中包括四个文件类控件，它们分别是DriveListBox控件，DirListBox控件、FileListBox控件和Picturebox控件。（√）

7．图像框控件使用系统资源比图片框少（）

8．按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。()

9．函数过程（Function Procedure）用来完成特定的功能但不可以用函数带回值。()

10．设A=3，B=4，C=5，D=6，计算表达式A>B AND C<=D OR2*A>C的值是False。（）

11.VB表达式（A&B&C）的值一定是字符型数据。()

12.程序循环结构中的循环体语句将根据实际情况（条件）确定执行次数。()

13.程序通过编译可以有效发现程序的语法错误。()

14.在VB中，Int(100*Rnd+1)的取值范围是1～100之间的所有整数（包括1和100）。()

15.运行程序时，程序中的所有语句都要运行一次或多次。()

16.算法有五大特征，其中包括输入和输出这两种，意思就是说一个算法必须要有输入，也必须要有输出。()

17.在VB中，编写程序代码在代码编辑窗口中进行。代码由语句、常数和声明部分组成。()

18.VB的所有控件在程序运行以后都是可见的。(×)

19.在VB程序设计中，方法表示了对象的行为，即对象所能完成的某种操作。()

20.控件是应用程序的图形界面中显示可供用户操纵，并可控制应用程序的图形界面元素，是VB可视化编程的基本操作对象。()

21.如果知道一个三角形的两个角和一条边的值，可以用解析法设计程序求解该三角形的面积。()

22.在面向对象程序设计中，类是对多个对象的抽象，因此，同一类的不同对象只能有不同的对象名，属性值则相同。()

23.列举一切与命题相关的情况，然后根据问题设定的条件，逐个加以检查，找到满足条件的解答的方法称为穷举法。()

24.递归算法就是一种直接或间接地调用自身的算法。()

25.已知三角形的两边分别为a、b，它们的夹角为0.6弧度，在VB中可用公式(a*b *Sin(0.6)/2)求出该三角形的面积。()

26.条件语句在执行过程中将由电脑随机选择执行哪部分语句。()

27.在一个循环语句的循环体中含有另一个循环语句，肯定出现死循环。()

28.算法就是用计算机语言编写的程序。()

29.用计算机解决某个问题的算法只有一种。()

30.VB中的算术运算符*(乘)、/(除)、\(整除)、Mod(取余数)的运算优先级相同。()

31.用高级语言编写的必须经过翻译器将其翻译成机器语言，才能在计算机上执行.()

32.所有的程序都是从程序中的第一条语句开始按顺序执行的。()

33.在VB程序设计中，对象的行为称为方法。()

34.如果程序经过编译未发现错误，那么程序的调试就完成了。()

35.算法是程序设计的核心，是程序设计的灵魂。()

36.窗体是VB程序设计的基础，各种控件对象必须建立在窗体上，一个窗体对应一个窗体模块。()

37.在面向对象程序设计中，一个程序对象的属性用变量来表示，而对象的行为用对象中的代码段来实现。()

38.程序循环结构中的循环体语句至少会执行一次。（）

39.在VB中，开发的每个应用程序都被称为工程，工程是组成一个应用程序的文件集合。（）

40.凡是能够用解析法求解的问题都可以通过定量分析，并能用解析表达式来描述。（）

41.VB中的事件只能由用户引发。夹角为60度，在VB中可用公式(a*b*Sin(60)

/2)求出该三角形的面积。（）

43.条件语句在执行过程中会根据逻辑表达式的值选择执行哪部分语句。(√)

36、对半查找的实质是在一个有限且有序的对象中，通过每次减缩一半查找范围而达

到迅速确定目标的一个有效算法。（√）

44.递归算法的实质是把问题转化为规模缩小了的同类问题的子问题，然后递归调用函数或过程来表示问题的解。（）

45.在一个循环语句的循环体中含有另一个循环语句，就形成了嵌套循环。（）

46.列举一切与命题相关的情况，然后根据问题设定的条件，逐个加以检查，找到满足条件的解答的方法称为解析法。（）

三、填空题

1．当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的

工具箱选项，使“工具箱”窗口显示。

2．VB是一种面向对象、事件的程序设计语言，采用了驱动编程机制。

3．在VB中，要显示程序代码，必须在代码窗口；要设计程序的运行界面，必须

在窗体窗口。

4．窗体是一种对象，由属性定义其外观，由方法定义其行为，由事件定义其与用户的交互。

5．对象的属性是指对象的性质，来描述和反映对象特征的参数。

6．对象的方法是指对象的动作、行为。

7．在VB中，事件过程名由对象和事件构成。

8．在VB中设置或修改一个对象的属性的方法有两种，它们分别是属性窗口设置

和代码窗口编程

9.一个控件在窗体上的位置由Top和Left属性决定，其大小由Width和Height属性决定。评析:S$的最终值是Beijing，所以输出的应该是Beijing。

10.窗体、图片框或图像框中的图形通过对象的Picture属性设置。

11.设有如下的Visual Basic表达式：5*x^2-3*x-2*Sin(a)/3，它相当于代数式5x2-

3x-2Sina/3。

12.在过程定义中出现的变量名叫做形式参数，而在调用过程时传送给过程的常数、变量、表达式或数组叫做实际参数。

13.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请将程序补充完整。

Private Sub Form_Load()

Command1．Enabled=False

End SUb

Private SubText1_Change()

Command1．Enabled=True

End Sub

14.在窗体上已建立多个控件，如Text1，Label1，Command1，若要使程序一运行焦点就定位在Command1控件上，应对Command1控件的tabindex属性设置为

_TabIndex____。

15.日期表达式#2/24/02#-#2/12/02#的值为_12____。

16.已知a=2.5，b=5.0，c=2.5，d=True，则表达式：a>=0AND a+c>b+3OR NOT d的值是_false____。

17.表示x是5的倍数或是9的倍数的逻辑表达式为__x mod5=0OR x mod9=

0___。

18.在刚建立工程时，使窗体上的所有控件具有相同的字体格式，就对__font___的属性进行设置。

19.Int(-2.6)、Int(2.6)、Fix(-2.6)、Fix(3.6)的值分别是_-3____、___2__、__-2___、____3_。

https://www.360docs.net/doc/b76885839.html,bel和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用_label___控件；若允许用户输入文本，则应使用_Textbox____控件。

21.若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。

Private Sub Cmdopen_Click()_____

_frm1.show____

end sub

22.表达式93\7Mod2^2的值是__1___。

23.表达式Ucase(Mid("abcdefgh",3,4))的值是__CDEF___。

24.当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__属性窗口中，把此文本框的__text___属性设置成空白。

25.已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c

__true___。表达式c>a And Not b

四、程序阅读题

1.在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程：

Private Sub Command1_Click()

A=Text1．Text+Text2．Text

Print A

End Sub

Private Sub Form_Load()

Text1．Text=＂＂

Text2．Text=＂＂

End Sub

程序运行后，在第一个文本框(Text)和第二个文本框(Text2)中分别输入123和321，然后单击命令按钮，则输出结果为___123321___。

2.在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Commandl_Click()

For i=1To4

x=4

For j=l To3

x=3

For k=1To2

x=x+6

Next k

Next j

Next i

Print x

End Sub

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

3.在窗体上画一个命令按钮，然后编写如下事件过程：

Option Base1

Private Sub Command1_Click()

Dim a

a=Array(1，2，3，4)

j=1

For i=4T01Step-1

s=s+a(i)*j

j=j*10

Next i

Print s

End Sub

运行一面的程序，单击命令按钮，其输出结果是____1234___。

五、编程题

画线、商品打折、昌泡、选择、韩信点兵

划线：

Private Sub Command1_Click()

Dim x,y,r,g,b,i As Integer

For i=1To20

r=255*Rnd

g=255*Rnd

b=255*Rnd

x=Form1.ScaleWidth*Rnd

y=Form1.ScaleHeight*Rnd

Line(Form1.Width/2,Form1.Height/2)-(x,y),RGB(r,g,b)

Next i

End Sub

韩信点兵：

Private Sub Command1_Click()

Dim y,x As Integer

Do

If x Mod3=1Then

If x Mod5=2Then

If x Mod7=4Then

If x Mod13=6Then

If x Mod17=8Then y=x

End If

End If

End If

End If

x=x+1

Loop Until y>0

Print"韩信点的最少兵为";y

End Sub

商品打折：

题：顾客在商场购物时，若所选物品的总金额x在下述范围内，则实付款y可按对应折扣支付，请编程计算某顾客的实付款，总金额由键盘输入。

x x<1000

0.9x1000<=x<2000

0.8x2000<=x<3000

0.7x x>=3000

Private Sub Command1_Click()

Dim x!,y!

x=InputBox("请输入x的值")

Select Case x

Case Is<1000

y=x

Case Is<2000

y=0.9*x

Case Is<3000

y=0.8*x

Case Else

y=0.7*x

End Select

MsgBox"y="&y

End Su

冒泡：

Private Sub Command1_Click()

Dim a(1To4)As Integer

For i=1To4

a(i)=InputBox("请输入第"&i&"个数值(共4个数)")' Next i

Print"您输入的四个数为："

For i=1To4

Print a(i);

Next i

Print

For m=4To2Step-1

For n=1To m-1

If a(n)>a(n+1)Then

t=a(n)

a(n)=a(n+1)

a(n+1)=t

End If

Next n

Next m

Print"排序后为："

For i=1To4

Print a(i);

Next i

End Sub

选择：

1、升序：

Public Sub swap_1()

Print"按从大到小排列输出："

For i=1To10

For j=i+1To10

If a(i)

t=a(i):a(i)=a(j):a(j)=t

Next j

Next i

For i=1To10

Print a(i);

End Sub

Private Sub Command1_Click()

Dim i As Integer,j As Integer,t As Integer,a(1To10)As Integer Print"原始数据如下"

For i=1To10

a(i)=Int(Rnd*9)

Next i

Print"按从大到小排列输出："

For i=1To10

For j=i+1To10

If a(i)

Next j

Next i

For i=1To10

Print a(i);

Next

End Sub

2、降序：

Public Sub swap_1()

Print"按从小到大排列输出："

For i=1To10

For j=i+1To10

If a(i)>a(j)Then

t=a(i):a(i)=a(j):a(j)=t

Next j

Next i

For i=1To10

Print a(i);

End Sub

Private Sub Command1_Click()

Dim i As Integer,j As Integer,t As Integer,a(1To10)As Integer Print"原始数据如下"

For i=1To10

a(i)=Int(Rnd*9)

Next i

Print"按从小到大排列输出："

For i=1To10

For j=i+1To10

If a(i)>a(j)Then t=a(i):a(i)=a(j):a(j)=t Next j

Next i

For i=1To10

Print a(i);

Next

End Sub