VB程序设计题库

《VB程序设计》试题

(适用于2012级计算机技术专业高职学生，闭卷考试,满分500分)

一、判断题（共50题，每题1分，共50分）

1.面向对象程序设计中的对象也可以包含其他对象。（1章1节）

2.可以使用代码在程序运行时设置对象的属性值。（1章2节）

3.VB可以自动检查逻辑错误。（1章2节）

4.逐语句和逐过程调试工具都可以单步执行程序代码。（1章2节）

5.如果程序中设置了断点，则运行程序时将在断点处终止程序。（1章2节）

6.程序的窗体模块和标准模块的功能相同。（3章1节）

7.VB的通用过程必须使用Sub…End Sub语句定义。（3章1节）

8．Single类型不属于数值型数据类型。（3章1节）

9．在程序运行过程中其值可以被改变的量称为常量。（3章1节）

10.变量名必须以字母、汉字开头。（3章1节）

11.使用Dim arry(7) As Long语句声明的数组arry有7个数组元素。（3章4节）12．算术表达式a \ b 的含义是求a除以b的余数。（3章1节）

13．逻辑表达式a Xor b 的含义是只有a、b的值相同时，表达式的结果才为True。（3章1节）

14．函数的Cos(x)功能是求x的余弦值。（3章1节）

15．函数Exp(x)的功能是求e的x次方。（3章1节）

16．StrComp(s1,s2)函数的功能是比较s1、s2的大小。（3章1节）

17．Left(s，n)函数的功能是从字符串s左边的第一个字符起截取n个字符。（3章1节）18．下述If语句语法上是错误的：If -4

20．数组作为过程中的参数，实参与形参之间传递的是地址数据。（3章4节）

21．当形式参数用ByVal修饰时，表示参数是按引用传递的。（3章5节）

22．通过设置窗体的Width属性可以改变窗体的名字。（3章1节）

23．对话框是一种特殊的窗体，能够向用户展示某些信息并接收用户输入。（5章1节）24．通过设置标签的Width属性可以改变标签的大小。（3章1节）

25．通过设置TextBox的Name属性可以改变TextBox的名字。（3章1节）

26．某个Button控件的Visible属性设置为真时，该按钮控件在程序运行期间是不可见的。（3章1节）

27.框架控件的主要作用是作为容器放置其他控件对象。（4章2节）

28．复选框控件用来表示一组互斥的选项。（4章2节）

29.复选框控件的Value属性设置为0时，表示单选钮处于被选中状态。（4章2节）30．分组框是可以往其中放入其它控件的容器控件。（4章2节）

31.对于列表框来说，只能逐项删除列表项。（4章3节）

32.对于列表框来说，可以在设计阶段向列表框中添加项。（4章3节）

33.组合框控件存放被选定项文本内容的属性是Caption（4章3节）

34.用户可以在组合框的文本框中输入数据。（4章3节）

35.对于PictureBox控件来说，只能在设计阶段加载图像，不能在运行阶段加载图像。（6章1节）

36.PictureBox控件的BorderStyle属性可以用来设置要显示的图片。（6章1节）

37.Timer组件是一个界面组件（4章3节）

38.InputBox函数用来做提示信息的字符串是必选的参数，其他参数则是可选的。（5章1节）

39.MsgBox函数用来向用户输出信息。（5章1节）

40.过程级变量在过程执行结束时自动被删除。（3章5节）

41.窗体级变量在本窗体中的过程执行结束时不被删除。（3章5节）

42.窗体级变量只在定义变量的窗体中有效。（3章5节）

43.对于窗体上显示的所有有单选按钮，只能选择其中的一个。（4章1节）

44.在属性窗口中可以使用Add属性向组合框中添加选项。（4章1节）

45.菜单控件只有一个Click事件。（10章1节）

46.在菜单编辑器中可以为菜单命令设置Click事件过程代码。（10章1节）

47.创建工具栏时，可以使用ImageList控件保存要使用的图像。（10章2节）

48.所有命令按钮都具有相同的属性。（10章2节）

49.面向对象程序设计方法的程序是按照预定的流程执行的。（10章3节）

50. VB中的事件只能由用户激发。（10章3节）

二、选择题（共100题，每题2分，共200分）

1．在面向对象的程序设计中，( )是程序的基本单位。（1章1节）

A.对象

B.类

C.属性

D.方法

2．在面向对象的程序设计过程中，( )是在类及子类之间自动共享数据和方法的一

种机制。（1章1节）

A.封装

B.链接

C.继承

D.属性

3．对象是将数据和代码( )起来的实体。（1章1节）

A.封装

B.串接

C.链接

D.伪装

4．一个对象所能做的事情称为对象的( )。（1章2节）

A.方法

B.继承

C.属性

D.封装

5．对象可以识别和响应的某些行为称为( )。（1章2节）

A.方法

B.继承

C.属性

D.事件

6．在面向对象程序设计中，一个对象向另一个对象发出的请求被称为( )。（1章2节）

A.方法

B.消息

C.属性

D. 事件

7．Visual Basic是一种（）的可视化程序设计语言。（1章2节）

A．面向机器 B. 面向对象 C. 面向问题 D. 面向过程

8．VB中窗体文件的扩展名是（）。（1章2节）

A. VBP

B. PDM

C. VBW

D.FRM

9.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（）。(2章1节)

A.属性、控件和方法

B.属性、事件和方法

C.窗体、控件和过程

D.控件、过程和模块

10．Visual Basic主窗口中不包括（）。(2章1节)

A.标题栏

B.工具栏

C.状态栏

D.菜单栏

11.在Visual Basic设计界面中不能隐藏的窗口是（）。(2章1节)

A. 工程窗口

B. 属性窗口

C. 立即窗口

D. 窗体窗口

12．在设计阶段，当双击窗体上的某个控件时，所打开的窗口是( ) (2章1节)

A.工程资源管理器窗口

B.工具箱窗口

C.代码窗口

D.属性窗口

13．在设计阶段，从代码窗口切换到窗体窗口，可以采用( )。(2章1节)

A. 双击代码窗口

B.单击代码窗口

C. 单击工程资源管理窗口中的“切换文件夹”按钮

D. 单击工程资源管理窗口中的“查看对象”按钮

14．在Visual Basic代码中，将多个语句并在一行上的并行符号是( )。(2章2节)

A. 撇号(…)

B. 星号(*)

C. 感叹号(!)

D. 冒号(:)

15.下列数据类型中，不属于数值型数据的有（）。 (3章1节)

A.Integer

B.Byte

C.Currency

D.Boolean

16.下列数据中，整型数据是（）。(3章1节)

A.123%

B.123&

C.123！

D.123@

17．下面( )不是Visual Basic6.0 的数据类型。(3章1节)

A. Single

B. Boolean

C. Currecy

D. Object

18．以下可以作为Visual Basic变量名的是：( ) (3章1节)

A. F1.1

B. Л

C. F2A

D. 2FA

19.下列可作为V2sualBasic变量名的是（）。(3章1节)

A. A#A

B. 4A

C. ?xY

D. constA

20. 以下变量名中合法的是（）。(3章1节)

A. x2-1

B. print

C. str_n

D. 2x

21．设a=3,b=5,则以下表达式值为真的是（）。(3章1节)

A）a>=b and b>10 B）(a>b) or (b>0)

C) (a<0) Eqv (b>0) D) (-3+5>a) and (b>0)

22．VB表达式5^2 Mod 25\2^2的值是（）(3章1节)

A.1

B. 0

C. 6

D. 4

23. 在Visual Basic中，所有的窗体和控件都必定具有的一个属性是（）。(3章2节) A．Name B．Font C)Caption D)FillColor

24. 以下所列的7个控件中，具有Caption属性的有( ) 个。(3章2节)

CheckBox（复选框）、ComboBox（组合框）、HscrollBar（水平滚动条）、Image（图像框）、Frame（框架）、Label（标签）、Line（线条）

A．5 B．4 C．3 D．2

25. 用来设置文字字体是否斜体的属性是( ) 。(3章2节)

A．FontUnderline B．FontBold C．FontSlope D．FontItalic

26. Timer控件的 ( )属性决定该控件是否对时间的推移做出响应。将该属性设置为False会关闭Timer控件，设置为True则打开它。(3章3节)

A．Enabled B．Visible C．Time D．Capable

27.以下关于添加控件的叙述中，不正确的是（）。 (3章3节)

A.先单击工具箱中的某个控件按钮，再拖动鼠标可以在窗体设计器中画出控件

B.先按住Ctrl不放，再单击工具箱中的控件按钮，可以添加多个相同类型的控件

C.先单击工具箱中的控件按钮，再按住Ctrl不放，可以添加多个相同类型的控件

D.双击工具箱中的控件按钮，可以窗体设计器中添加一个默认大小的控件

28.以下叙述错误的是（）。(3章3节)

A）双击鼠标可以触发Dblclick事件

B）移动鼠标时会触发MouseMove事件

C）窗体或控件的事件名称可以由编程人员确定

D) 控件的名称可以由编程人员设定

29．为了把焦点移到某个指定的控件，所使用的方法是（）(3章2节)

A.SetFocus

B.Visible

C.Refresh

D.GetFocus

30.以下窗体事件发生的先后顺序是（）。(2章1节)

A. Initialize，Activate,Load

B. Activate,Load，Initialize

C．Load，Initialize，Activate D. Initialize，Load ，Activate

31.下列叙述中不正确的是（）。(2章1节)

A.Load事件在装载窗体时发生

B.Unload事件在卸载窗体时发生

C.Click事件在单击窗体时发生

D.Click事件先于DblClick事件发生

32.下列叙述中不正确的是（）。(2章1节)

A.Move方法可以移动窗体

B.Move方法可以改变窗体大小

C.Enabled属性值为True时可以移动窗体

D.Moveable属性值为True时可移动窗体

33. 使用( )方法可将新的列表项添加到一个列表框中。(4章2节)

A．Print B．AddItem C．Clear D．RemoveItem

34. 要想在一个文本框中显示多行内容，应对下列哪一个属性进行设置 ( )。(4章2节)

A．Text B．Font C．Multiline D．Alignment 35. 通过文本框的( )事件过程可以获取文本框中键入字符的ASCII码值。(4章2节)

A．Change B．GotFocus C．LostFocus D．KeyPress

36.下列叙述中不正确的是（）。(4章2节)

A.标签控件可用于显示文本

B.文本框控件可用于接收输入的文本

C.Caption属性用于设置标签的标题

D.Caption属性用于设置文本框的标题

37.设置标签控件Label1的Visible属性值为True的语句是（）。(4章2节)

A. https://www.wendangku.net/doc/143179044.html,bel1=True

B. Label1.Visible.True

C. Label1 Visible=True

D. Label1.Visible=True

38.对于命令按钮，下列叙述中不正确的是（）。(4章2节)

A.Caption属性用于指定按钮的标题

B.Enabled属性用于指定按钮是否有效

C.Visible属性用于指定按钮是否可见

D.BorderStyle属性用于指定边框样式

39.以下关于窗体的描述中，错误的是（）。(4章2节)

A.执行UnloadFoMl语句后，窗体Fonnl消失，但仍在内存中

B.窗体的Ioad事件在加载窗体时发生

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

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

40．为了把窗体上的某个控件变为活动的，应执行的操作是（）(4章2节)

A. 单击窗体的边框

B. 双击窗体

C. 双击该控件

D.单击该控件

41.以下关于窗体设计器的叙述中，以下正确的是（）。(4章2节)

A．拖动窗体设计器的边框可以改变其大小

B．拖动窗体设计器边框上的控制柄可以改变其大小

C．单击窗体设计器的关闭按钮可以关闭窗体设计器

D．单击窗体设计器的最小化按钮可以最小化窗体设计器

42.下列叙述中正确的是（）。(4章2节)

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

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

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

的局部变量同名

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

43.以下叙述中错误的是（）。(4章2节)

A.在同一窗体的菜单项中，不允许出现标题相同的菜单项

B.在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键

C.程序运行过程中，可以重新设置菜单的Visible属性

D.弹出式菜单也在菜单编辑器中定义

44.以下叙述中错误的是（）。(4章2节)

A.在程序运行时，通用对话框控件是不可见的

B.在同一个程序中，用不同的方法(不同的作用如ShowOpen或ShowSave等）打开的通

用对话框具有

C.调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件

D.调用通用对话框控件的ShowColor方法，可以打开颜色对话框

45.表达式left(“how are you”,3)的值是：（）(4章2节)

A: how B: are C: you D: how are you

46.设S=“中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（）。(4章2节)

A.“中华民国”

B.“中国人民”

C.“中共人民”

D.“人民共和”

47.以下（）操作不能打开属性窗口。(4章3节)

A.按下F4键

B.单击工具栏的“属性窗口”按钮

C.执行“视窗”菜单中的“属性窗口”命令

D.双击任何一个对象

48．在VB中，所有的窗体和控件都必须有一个属性是（）。(4章3节)

A）Caption B）Font C）Name D）属性窗口

49.在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是（）。(4章2节)

A.Load

B.Show

C.Hide

D.Unload

50.函数String(n，“str”)的功能是（）。(4章3节)

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

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

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

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

51.表达式3∧2*2+3 MOD 10\4的值是（）。(3章1节)

A. 18

B. 1

C. 19

D. 0

52.设有如下变量声明Dim time1 As Date,为变量time1正确赋值的表达式是（）。(3

章1节)

A. time1 = #11:34:04 #

B.time1 = Format(Time,"yy:mm:dd")

C.time1 = #"11:34:04"#

D.time1 = Format("hh:mm:ss",Time)

53.在窗体上画一个名称为Command1的命令按钮，编写以列程序：

Private Sub Command1_Click( )

Dim a As Integer

Static b As Integer

a = a + b

b = b + 4

Print a,b

End Sub

程序运行后，单击该命令按钮三次，屏幕上显示的值是（）。(3章1节)

A. 4 12

B. 0 4

C. 4 8

D. 8 12

54.下列语句中，定义strname和str为字符型变量的语句是（）。(3章1节)

A.Dim strname,str As String

B.Dim strname As String,Dim str As String

C.Dim strname As String,str As String

D.Dim strname As String:Dim str As String

55.下列各组语句中，正确的是（）。(3章1节)

A. Dim intA As Integer

intA=26

B.Dim intA As Integer

intA=2.6

C.Dim intA As Integer

intA=2000*2

D.Dim intA As Integer

intA=“程序设计”

56.下列程序段错误的是（）。(3章4节)

A. Dim a As Integer

a = array(1,2,3,4)

B.Dim a(),b()

a = array(1,2,3,4):

b = a

C. Dim a As Variant

a = array(1,"asd",true)

D.Dim a() As Variant

a = array(1,2,3,4)

57．下列关于变量的说法不正确的是（）(3章4节)

A. 局部变量在声明它的过程执行完毕后就被释放了

B. 局部变量的作用域仅限于声明它的过程

C. 静态局部变量是在过程中用Static语句声明的

D. 局部变量是指那些在过程中用Dim语句或Static语句声明的变量

58.设有语句open "c：\Test．Dat" For OutPut 则以下错误的叙述是（）。(7章2节)

A.该语句打开C盘根目录下一个己存在的文件Test．Da

B.该语句在C盘根目录下建立一个名为Test．Dat的文

C.该语句建立的文件的文件号为1

D.执行该语句后，就可以通过Print#语句向文件Test．Dat中写入信息

59.下列类型的变量中占用字节数最小的是（）。(3章1节)

A. Integer

B. Single

C. Date

D. Byte

60.下拉式组合框的Style属性值为（）。(第 4.3节)

A. 0

B. 1

C. 2

D. 3

61.要使循环体至少执行一次，应使用_____循环。（）。(3章3节)

A.For-next

B.While-wend

C.Do--Loop while|until

D.do[while|until]-loop

62.下列叙述中错误的是（）。(3章3节)

B.只有满足指定的条件，才能执行单分支选择结构的程序分支

C.无论是否满足指定的条件，都能执行双分支选择结构中的一个程序分支

D.多分支块If语句提供的多个分支中必定执行其中一个分支

E.多分支块If语句提供的多个分支中最多执行其中一个分支

63．下面程序运行后，输出的结果是: （）(3章3节)

Private Sub Command1 _ Click()

K=0

A=0

While K＜10

K=K+2

A=A+K

Wend

Print A

End Sub

A.2

B.10

C.20

D.30

64.以下不是基于条件的循环语句有（）。(3章3节)

A.While...Wend语句

B.Do...Loop While语句

C.Do...Loop Until语句

D.For...Next语句

65.下列设置断点的叙述中，不正确的是（）。(3章3节)

F.单击需要添加断点的代码行左边的标识条

G.按F9可以为光标所在行添加断点

H.选择“调试”→“切换断点”命令可以为光标所在行添加断点

I.单击“标准”工具栏上的“切换断点”按钮可以为光标所在行添加断点

66．把数值N转化成字符型的函数是（）。(3章3节)

A）ASC B）Str

C）Val D）Mid

67．从键盘上输入两个字符串，分别保存在变量str1,str2中。确定第二个字符在第一个字符中的起始位置的函数是（）。(3章3节)

A）Left B) Instr C) Len D) Mid

68．下列程序段的执行结果为（）(4章1节)

x=2

Print x+1;x+1

(A)3 3 (B) x+1 x+1 (C)3 4 (D)2+1 2+1

69．在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下程序：

Private sub command1_click()

Dim I as integer, n as integer

I=0

n=0

For I=0 to 50

I=I+3

n=n+1

If I>10 then exit for

Next I

Text1.text=str(n)

Endsub

程序运行后，单击命令按钮，在文本框中显示的值是（）(3章3节)

A）2 B）3 C）4 D）5

70．14.设a=″Visual Basic″，下面使b=″Basic″的语句是（）(3章3节)

A.b=Left(a，8，12)

B.b=Mid(a，8，5)

C.b=Right(a，5，5)

D.b=Left(a，8,5)

71．程序的运行结果是（）(3章3节)

x=0

For I=1 To 3

x=x+I

Next I

Print x+I

(A)6 (B)10 (C)7 (D)9

72．以下能够触发文本框Change事件的操作是。（）(4章1节)

A）文本框失去焦点B) 文本框获得焦点

C) 设置文本框的焦点D) 改变文本框的内容

73．下列关于面向对象程序设计的叙述不正确的是（）(2章2节)

A.对象具有属性、方法等特性

B.对象之间的通信产生了消息

C.一个对象是一个软件构造块，它包含数据与相关的操作

D.对象的属性不能被改变

74.下面程序段的循环次数是（）。(3章3节)

For k=5 To 34 Step 3

Print k

Next k

A. 10

B. 9

C. 29

D. 28

75.下面程序段运行时输出的结果是（）。(3章3节)

k=1

While k<20

k=(k+1)*(k+1)

n=n+1

Wend

Print n

A. 1

B. 2

C. 3

D. 4

76.下面程序段运行时输出的结果是（）。(3章3节)

Dim x As String,y As String,z As String

x=“1”:y=“2”:z=“3”

For k=1 To 2

x=y:y=z:z=x

Next k

Print x+y+z

A. 123

B. 231

C. 321

D. 323

77.下面程序段运行时输出的结果是（）。(3章3节)

For m=1 To 3

For n=1 To m

a=a+1

Next n

Next m

Print a

A. 1

B. 3

C. 6

D. 9

78.在窗体上画一个名称为Command1的命令按钮，编写如下程序：

Private Sub Command1_Click()

Print pl(3,7)

End Sub

Public Function pl(x As Single,n As Integer) As Single If n=0 Then

pl=1

Else

If n Mod 2=1 Then

pl=x*x+n

Else

P1=x*x-n

End If

End If

End Function

程序运行后，单击该命令按钮，屏幕上显示的结果是（）。(3章2节)

A. 2

B. 1

C. 0

D. 16

79.定义Sub过程为公有过程，应使用的关键字是（）。(3章2节)

A. Private

B. Public

C. Static

D. Dim

80.定义Function过程为私有过程，应使用的关键字是（）。(3章5节)

A. Private

B. Public

C. Static

D. Dim

81.如果在窗体模块中定义Sub过程为私有过程，则该过程（）。(3章5节)

A.只能被本窗体中的通用过程调用

B.只能被本窗体中的其他过程调用

C.可以被本窗体中的所有过程调用

D.可以被其他窗体中的过程调用

82.Sub过程和Function过程最根本的区别是（）。(3章5节)

A.Sub过程可以Call语句调用，Function过程不能使用Call语句调用。

B.Function过程可以有参数，Sub过程不能有参数

C.Sub过程和Function过程传递参数的方式不同

D.Sub过程不能返回值，Function过程可能返回值。

83.要想在过程调用后返回两个值，则定义过程的语句应该使用（）。(3章5节)

A. Sub xh1(Byval x,Byval y)

B. Sub xh1(Byval x,y)

C. Sub xh1(x,Byval y)

D. Sub xh1(x,y)

84.引用列表框（List1）最后一个数据项应使用的表达式是（）。 (4章2节)

A. List1.List(List1.ListCount)

B.List1.List(List1.ListCount-1)

C. List1.List(ListCount)

D.List1.List(ListCount-1)

85.执行如下语句：a＝inutBox(”Today”，”TomorroW，”Yesterday”,"Day before yesterday" ,5) 将显示一个输入对话框，在对话框的输入区中显示的信息是（）。(5章1节)

A. Today

B. Tomorrow

C. Yesterday

D. Day before yesterday

37.Sub过程与Function过程最根本的区别是（）。(3章5节)

A.Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以

B.Function过程可以有形参，Sub过程不可以

C.Sub过程不能返回值，而Function过程能返回值

D.两种过程参数的传递方式不同

86.下列关于过程叙述不正确的是（）。(3章5节)

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

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

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

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

87.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是（）。 (4章3节)

https://www.wendangku.net/doc/143179044.html,bo1.RemoveItem Text

https://www.wendangku.net/doc/143179044.html,bo1.RemoveItem2

https://www.wendangku.net/doc/143179044.html,bo1.RemoveItem 3

https://www.wendangku.net/doc/143179044.html,bo1.RemoveItemCombo1.Listcount

88.以下能够正确计算n!的程序是（）。(3章3节)

A．Private Sub Commandl_ClicK()

n＝5:x＝1

Do

X=x*1

i＝i十1

Loop While i＜n

Print x

End Sub

B．Private Sub Commandl_Click()

n＝5: x＝1：i=1

Do

X＝X*1

i＝i十1

Loop While i＜n

Print x

End Sub

C．Private Sub Commandl_Click()

n=5：x＝1：i＝1

Do

X=X*1

i＝i十1

Loop while i<=n

Print x

End Sub

D．Private Sub Commandl_C1ick()<

n＝5：x＝1：i=1

Do

X=X*l

i=i十1

loop While i＞n

Print x

End Sub

89.执行了下面程序后，组合框中数据项的值是（）。(4章4节)

Private Sub Form_Click()

For i=1 to 6

Combo1.AddItem i

Next i

For i= 1 to 3

Combo1.RemoveItem i

Next i

End Sub

A．1 5 6 B. 1 3 5 C. 4 5 6 D. 2 4 6

90.下列逻辑运算结果为"TRUE"的是（）。(3章1节)

A.false or not true

B.false and not true

C.true or not true

D.true and not true

91.下面关于多重窗体的叙述中，正确的是（）。(10章3节)

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

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

C.没有启动窗体，程序不能执行

D.以上都不对

92.在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Commandl的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为"Save"，缺省文件名为“SaveFile ”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是（）。(7章1节)

A. Private Sub Command_C1ick()

Commondialogl．FileName=“Savefile”

Commondialogl.filter＝"All Files|*.*|(*.txt)|*.txt|(*.doc)．|*.doc"

CommonDialogl．Filterindex=2

CommonDialogl．Dial0g．title＝"Save"

CommonDialogl．Action＝2

End Sub

B. Private Sub Commandl_Click()

CommonDialogl．FileName＝"SaveFile"

CommonDiaLogl．Filter＝"A11 Files|*.*|(*.txt)|*.txt|*．doc|*．doc"

C0mmonDialogl．FilterIndex＝1

CommonDialogl．DialogTitle＝"Save"

CommonDialogl．Action＝2

End Sub

C. Private Sub Cmmandl_C1ick()

COmmonDialogl．FileName＝"Save"

CommonDialogl．FiLter＝"A11Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"

CommonDialogl．Filterindex＝2

C0mmonDialogl．DialogTitle＝"SaveFile"

CommonDialogl．Action＝2

End Sub

D. Private Sub Commandl_C1ick()

CommonDialogl．FileName＝"SaveFile"

CommonDialogl．Filter＝"All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"

CommonDialogl．FilterIndex=1

CommonDialogl．DialogTitle=“Save”

CommonDialogl．Action＝1

End Sub

93．可以在窗体模块的通用声明段中声明（）。(3章5节)

（A）全局变量（B）全局常量

（C）全局数组（D）全局用户自定义类型

94．在Visual Basic 中按文件的访问方式不同，可以将文件分为（）。(7章1节)（A）顺序文件、随机文件和二进制文件（B）文本文件和数据文件

（C）数据文件和可执行文件（D）ASCII 文件和二进制文件

95．下面叙述中不正确的是（）。(7章1节)

（A）对顺序文件中的数据的操作只能按一定的顺序执行

（B）顺序文件结构简单

（C）能同时对顺序文件进行读写操作

（D）顺序文件的数据是以字符（ASCII 码）的形式存储的

96．在顺序文件中（）。(7章1节)

（A）每条记录的记录号按从小到大排序

（B）每条记录的长度按从小到大排序

（C）按记录的某个关键数据项的排序顺序组织文件

（D）记录按写入的先后顺序存放，并按写入的先后顺序读出

97．要在C 盘当前文件夹下建立一个名为StuData.dat 的顺序文件，应先使用（）

语句。(7章1节)

（A）Open "StuData.dat" For Output As #2

（B）Open "C:StuData.dat" For Input As #2

（C）Open "C:StuData.dat" For Output As #2

（D）Open "StuData.dat" For Input As #2

98．执行语句Open "C:StuData.dat" For Input As #2 后，系统（）。(7章1节)（A）将C 盘当前文件夹下名为StuData.dat 的文件的内容读入内存

（B）在C 盘当前文件夹下建立名为StuData.dat 的顺序文件

（C）将内存数据存放在C 盘当前文件夹下名为StuData.dat 的文件中

（D）将某个磁盘文件的内容写入C 盘当前文件夹下名为StuData.dat 的文件中

99．如果在C 盘当前文件夹下已存在名为StuData.dat 的顺序文件，那么执行语句Open "C:StuData.dat" For Append As #1 之后将（）。(7章1节)

（A）删除文件中原有内容

（B）保留文件中原有内容，在文件尾添加新内容

（C）保留文件中原有内容，在文件头开始添加新内容

（D）以上均不对

100．下面叙述中不正确的是（）。(7章1节)

（A）若使用Write #语句将数据输出到文件，则各数据项之间自动插入逗号，并且将字

符串加上双引号

（B）若使用Print #语句将数据输出到文件，则各数据项之间没有逗号分隔，且字符串

不加双引号

（C）Write #语句和Print #语句建立的顺序文件格式完全一样

（D）Write #语句和Print #语句均实现向文件中写入数据

三、填空题（共50题，每题2分，共100分）

1. Visual Basie中的常量分为两种，一种是文字常量，一种是____常量。(3章1节)

2. 货币型数据的类型标识符为______。(3章1节)

3. 假定当前日期为2002年7月12日，星期六，则执行语句Print day(now)后，输出结果

是______。(3章1节)

4.表达式（2+8*3）/2的值是______。 (3章1节)

5. 表达式3/6*5的值是_______。(3章1节)

6. A=7,B=3,C=4,则表达式 A MOD 3+B^3/C\5的值为____。(3章1节)

7. 表达式3>4 and 7=5的值是______。(3章1节)

8. 表达式："1"+"2"="3"的值是_______。(3章1节)

9. 表达式“12345”<>“12345”&“ABC”的值是_____。 (3章1节)

10.执行语句“a=6=5”后，变量a的值为______。(3章2节)

11.逻辑常量值为TRUE或_______。(3章2节)

12. 以下循环的执行次数是_____。(3章3节)

K=0

Do While k<=10

k=k+1

Loop

13.下列程序的执行结果是____。(3章3节))

T = O : m = 1 : Sum = 0

Do

t = t + m : Sum = Sum + t : m = m + 2

Loop While m <= 9

Print Sum

14.以下程序用来判断一个整数X是否为偶数，并将其中的偶数在窗体上显示，请补充完该程序。(3章2节)

If X___2=____ Then Print X

15.下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。(3章2节)

If a

d=a:a=b:b=d

EndIf

If a

d=a:a=c:c=d

EndIf

If_____Then

d=b:b=c:c=d

EndIf

Print a,b,c

16.下列程序的执行结果是_______。(3章2节)

A = 75

If a>60 Then

I = 1

ElseIf a>70 Then

I = 2

ElseIf a>80 Then

I = 3

ElseIf a>90 Then

I = 4

End If

Print I

17.下列程序段的执行后输出的结果为_____。(3章3节)

I=4:A=5

Do

I=I+1:A=A+2

Loop Until I>=7

Print "A=";A

18. 下列程序段的执行时，共循环____次。(3章3节)

For a=0 To 1

For b=1 To 2

For c=1 To 3

I=I+1

Next c

Next b

next a

19. 以下程序计算2到50间所有偶数的和，请补充完该程序。(3章3节) Sub mult()

Dim Sum As Integer

Sum=0

Dim I as integer

For___to 50

If I MOD 2=___Then___

Next I

Print sum

End Sub

20. 以下程序用来输出1到100所有奇数的和，请补充完该程序。(3章3节) Private Sub Command3_Click()

Dim s As Long

Dim x As Integer

s = 0

For x=1 to 100 step____

s = s + x

Next x

Print s

End Sub

21. 执行下面的程序段后，s的值为____。(3章3节)

S=5

For I=2.6 To 4.9 Step 2

s=s+1

Next I

22. 下列程序用来计算1+2+3……+10的值，请补充完程序。(3章3节)

Dim t,k as single

K=0

DO While k<10

K=k+1:______

loop

print t

23. 下列程序段的执行后输出的结果为_______。(3章3节)

K = 1

For I = 1 To 3

A = I ^ I ^ K

Next I

Print A

24. 下列程序是用来计算1＋2＋3……＋10的程序段，请补充完该程序。(3章3节)

Dim I, s, k As Integer

s = 0: k = 0

For____To -1

k = k+1:s = s+k

Next I

Print s

25. 给定年份，下列程序用来判断该年是否闰年，请补充完该程序。(3章2节)

提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。

Private Sub Command6_Click()

Dim y As Integer

y=InputBox("请输入年号")

If(y Mod 4=0______y Mod 100<>0) or (y Mod 400=0) Then

Print "是闰年"

Else Print "是普通年份"

End If

End Sub

26. 下列程序的执行结果是_____。(3章3节)

M1 = 1:m2 = 1

Do While m2<>6

m1 = m1*m2 : m2 = m2+1

Loop

Print m1

27.一组具有相同名称，不同下标的下标变量称为______。(3章4节)

28.有一数组定义语句：dim M(-2 to 1) as string，该语句定义的数组M中包含____个元素。(3章4节)

29.设有数组声明语句：Option base 1 dim A(3,-2 to 1)，则数组A中有_____个元素。 (3章4节)

30.有数组定义语句：dim I(99,99) as Integer，则数组I中共包含有______个元素。(3章4节)

31.窗体的属性可在属性窗口中设置，也可在程序中用______语句动态设置。(10章1节)

32.如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为______。(10章1节)

33.当程序开始运行，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的属性窗口中，把此文本框的____属性设置为空。(10章1节)

34.当对窗体中的对象进行_____操作时，Visual Basic 就会显示该对象的代码窗口。 (4章1节)

35. 要选择多个不相邻的控件，按住_______或SHIFT键不放，再单击要选择的控件。 (4章1节)

36.______属性为列表框中的每个列表项设置一个对应的数值，它是一个整数数组，数组大小与列表项的个数一致。(4章2节)

37. 激活属性窗口的快捷键是______。(4章2节)

38.执行inputbox函数后，会产生一个对话框，对话框上通常有两个按纽，它们是_____按纽和取消按钮。(5章1节)

39. Visual Basic 的对象是________和_______的总称。(5章1节)

40. 滚动条响应的重要事件有_______和_______（提示：该题只填写英文，如Click事件，只写Click即可）。(5章1节)

41. 为了能自动放大或缩小图象框中的图形以与图象框的大小相适应,必须把该图象框的Stretch属性设置为______。(6章1节)

42. 根据变量的定义位置和所使用的变量定义语句的不同，VB中的变量可以分为3类，即_____、模块变量和全局变量。 (3章1节)

43. 假设有一复选框控件，名为Check1，在程序中，我们用“check1.value=1”语句设置Value属性的值，则该程序执行后，复选框处于____状态。(4章2节)

44. Visual Basie 提供了列表框控件，当列表框中的项目较多、超过了列表框的长度时，系统会自动在列表框边上加一个______。(4章3节)

45. 一个程序最多可以有________窗体。(10章32节)

46. 将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性的值设置为_______。 (4章2节)

47. VB程序设计中三种基本结构分是：_______结构、选择结构和_______结构。(3章1节)

48. ______是构成文件的最基本的单位。(7章1节)

49. 顺序文件与随机文件相比较，占用内存资源较小的文件是______文件。(7章2节)

50. 随机文件是以_______为单位读写，二进制文件以_______为单位读写。(7章2节)

四、程序阅读题（共10空，每题5分，共 100分）

1.假定建立了一个工程，该工程包括两个窗体，其名称（Name属性）分别为Form1和Form2，

启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，显示窗体Form2，Form1窗体消失，请在横线处将程序补充完整。(2章1节) Private Sub Command1_Click()

Form2.

Form1

End Sub

2.在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和

Label1，通过属性窗口把列表框中的项目设置为："VB"、"VFP"、"VC"、"JAVA"。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数。下面是实现上述功能的程序，请填空。(4章2节) Private Sub Command1_Click()

If List1.ListIndex >= Then

List1.RemoveItem

Label1.Caption =

Else

MsgBox "请选择要删除的项目"

End If

End Sub

3.设有整型变量s，取值范围为0~100，表示学生的成绩。有如下程序段：

If s>=90 Then

Level="A"

ElseIf s>=75 Then

Level="B"

ElseIf s>=60 Then

Level="C"

Else

Level="D"

End If

下面用Select Case结构改写上述程序，使两段程序所实现的功能完全相同。请填空。(3章2节)

Select Case s

Case >=90

Level=”A”

Case 75 To 89

Level=”B”

Case 60 To 74

Level=”C”

Case

Level=”D”

4.以下程序实现将字符将字符串倒置，例如：输入”ABCD”变换成”DCBA”。 (3章3节)

Private Sub Cmd_Click()

Dim s1 As string,s2 As string

Dim i As integer

s1=inputbox(“输入字符串”)

For i= To 1 Step –1

s2=s2 &

Next i

Print s2

End Sub

5.求满足不等式1+4+9+16……n2

Private Sub Command1__Click()

Dim s ,m,n AS Integer

m=Val(InputBox(“请输入一个大于100的整数”))

n=

s=0

Do While

n=n+1

s=s+

Loop

Print "满足不等式的最大n是";

End Sub

6.下面程序运行后，单击窗体，输出结果为。(3章3节)

Private Sub Form_Click()

a = "ABCDEFG"

For i = 6 To 2 Step -2

x = Mid(a, i, i)

y = Left(a, i)

z = Right(a, i)

z = x & y & z

Next i

Print z

End Sub

7.下面程序运行后，单击窗体，输出结果为。(3章3节)

Private Sub Form_Click()

Dim i As Integer, sum As Integer

sum = 0

For i = 2 To 10

If i Mod 2 <> 0 And i Mod 3 = 0 Then

sum = sum + i

End If

Next i

Print sum

End Sub

8.下面程序运行后，单击窗体，输出结果为。(3章5节)

Private Sub Form_Click()

Dim Check, Counter

Check = True : Counter = 0

Do

Do While Counter < 20

Counter = Counter + 1

If Counter = 10 Then

Check = False

Exit Do

End If

Loop

Loop Until Check = False

Print Counter, Check

End Sub

9.下面程序运行后，单击按钮cmd，输出结果为。(5章2节)

Private Sub Cmd_Click()

Dim a As String,b As String,x As String,i As Integer

a="*" : b="$"

For i=1 To 4

If i mod 2=0 Then

x=String(len(a)+i,b)

Else

x=String(len(a)+i,a)

End If

Print x;

Next i

End Sub

10. Private Sub Form_Click()

（4）Print "*"; Tab(6); 2, Tab(15); 5

Print

For I = 15 To 16

Print I;

For j = 2 To 6 Step 3

Print Tab(3 * j); j * I;

Next j

Print

Next I

End Sub

程序运行结果为 . (3章3节)

五、编程题（共5题，每题10分，共50分）

1.编写程序求三位偶数中，个位数字与十位数字之和除以10所得的余数是百位数字的数及个数。在窗体上放置一个命令按钮，名称为C1，点击按钮后将结果显示在窗体上。(3章2节)

2.税务部门征收所的税，规定如下：收入在800元以内的，免征；收入在800-1500元内，超过800的部分纳税3％；收入超过1200元的部分，纳税4％；收入超过5000的部分，纳税5％；请编制程序根据输入的收入，输出纳税金额。(3章2节)

3．求1！+2！+3！+…+N!,N为任意自然数。(3章3节)

4．求两个自然数m ,n 的最大公约数。(3章4节)

5．从键盘输入10个数，求出其中的最大数，最小数和平均值。(3章4节)

《VB程序设计》标准答案与评分标准

三、填空题（每题2分，共计100分）

1.符号

2. @

3. 12

4. 13

5. 2.5

6. 2

7.FALSE

8.FALSE

VB期末考试试题及答案

二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value

7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。

VB题库—程序设计[1]

程序设计 〖第1题〗『程序设计』(5分)(题号:148) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求10~20之间所有素数的乘积并输出在窗体上。 ' 将结果存入变量L中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = False Next Print Str(l) ---------------------- 〖第2题〗『程序设计』(5分)(题号:150) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。' 将结果存入变量J中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j ---------------------- 〖第3题〗『程序设计』(5分)(题号:131) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100， ' 结果输出在窗体上。 '------------------------------------------------- '将结果存入变量S中 '------------------------------------------------- 答案：---------------------- Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) ---------------------- 〖第4题〗『程序设计』(5分)(题号:152)

vb题库程序设计

一、程序设计 '【程序设计】 1.'题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：'两个数为15、20，结果显示"5" '要求使用Do ... Loop语句来实现。 答案：Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n 2.'题目：判断一个数是否是素数。 答案：---------------------- Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i ---------------------- 3,'题目：(事件)单击窗体。 ' (响应)求10!的值，并将结果输出到窗体上。 将结果存入变量SUM中。 答案：---------------------- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 4,'题目：(事件)单击窗体。 (响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。 答案：---------------------- Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum ---------------------- 5,'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。 答案：---------------------- Dim y As Double y = 1 Dim i As Integer For i = 1 To m

vb程序设计试题(含答案)

第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C )

VB程序设计 试题与答案-1

《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。

VB程序设计试题及答案一

V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 ……

VB程序设计试题及答案(一)

VB程序设计试题及答案（一） 一、单选题 1. 是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) =“欢迎使用VB” (B) ='欢迎使用VB' (C) =欢迎使用VB (D) ="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 … … Next x Next x

《VB程序设计基础》模拟精彩试题

《VB程序设计》模拟试题 ●填空题 1.窗体模块的文件扩展名为 ___FRM_________ 、标准模块的文件扩展名为____BAS______ 、 类模块文件的扩展名为______CLS_______ 。 2.Visual Basic中数据类型可分为 _____标准数据类型________和用户自定义数据类型两大类，前者根据其取值的不同，可分为_____整型_________、 ______长整型_____、布尔型和 ____字符型_________。 3. Abs(-6.5)= _____6.5______；Int(-9.1)= ____-10_______。 4. "程序"& "设计"运算结果为 ___程序设计____ 。 5. Dim a, b as Boolean语句显式声明变量a是___变体___变量，b是___布尔__变量。 6. MsgBox函数的返回值中， VBRetry表示单击了____重试_____按钮，VBYes表示单击了___是_____按钮，VBNo表示单击了_____否____按钮。 7. 要加载窗体，可以在代码中使用___________语句，要显示窗体，可以在代码中使用___________方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用___________方法。 8.对话框分为_________对话框和________对话框两种类型，其中_____________ 对话框最 常用。 9. 对象是Visual Basic应用程序的基本单元，它是由 ___类___创建的。在Visual Basic中可以用属性、 __方法___、___事件___ 来说明和衡量一个对象的特性。 10. 条件判断语句可以使用___If…then____________语句、 ____If…Then…Else______语句和 ______If…Then…ElseIf______语句。Select case 语句 11. 声明一个值为3.14的常量Pi的语句为___Const pi = 3.14______。 12. Do…Loop Until 循环结构中，当条件为____真____时结束循环。 13. 要显示弹出菜单，可以在代码中使用_____________事件。 14. 参数传递有__________方式、__________方式和命名传递方式，常量默认采用__________方式；变量默认采用__________方式；表达式默认采用__________方式。 15. 名称属性必须以一个__字母标点_开始并且最长可达40个字符,不能包括__符号___ 和 ___空格___。 16.Visual Basic的程序模块有3种：____窗体模块____ 、标准模块和 ____类模块____。 17.Visual Basic程序，按其语句代码执行的先后顺序，可以分为___顺序__结构、选择__结构和___循环____ 结构。 18.数组元素下标的下界默认为是_____________，如果要改变其默认值，应使用_____________。 ●判断题 （）1. Visual Basic运行程序的方法只有编译模式。 （）2. 语句Command1.visible=false 与Command1.enabled=false 是等价的。 （）3. InputBox函数和MsgBox函数一样，返回的是字符串。 （）4. 通过类模块，我们不可以根据需要建立自己的控件。 （×）5. 2.1E+5是合法的Visual Basic数据。 （）6. 根据占用内存方式的不同，可将数组分为常规数组和动态数组两种类型。 （√）7. x2是合法的变量名。 （）8. 按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。

vb题库程序设计题讲解

（事件）单 ' （响应）用输入框输入一自然数，判断是”正数”、”负数” 或”零”，并根据输入的数用消息框显示”正数”、"负数" 或”零”。 n = lnputBox（" 输入一个自然数"） If n > 0 Then result =" 正数" Elself n < 0 Then result =" 负数" Elself n = 0 Then result =" 零" End If MsgBox"输入的数据"& n & " 为："& result 题目编写函数fun，函数的功能是：判断一个字符是 '字母字符、数字字符还是其他字符，并做相应的显示。 '字母字符显示字符串"字母" '数字字符显示字符串"数字" '其他字符显示字符串"其他" '要求使用IF语句来实现。 If UCase（n） >= "A" And UCase（n） <= "Z" Then fun =" 字母" ElseIf n >= "0" And n <= "9" Then fun =" 数字" Else fun =" 其他" End If '题目：编写函数fun，函数的功能是：根据一个百分制 '成绩mark （整数），显示对应五级制的评定。条件如下： 'mark大于等于90显示"优秀" 'mark小于90且大于等于80显示"良好" 'mark小于80且大于等于70显示"中等" 'mark小于70且大于等于60显示"及格" 'mark小于60显示"不及格" '要求使用IF语句来实现。 Private Function fun(mark As Integer) As String **********Program ********** **********End ********** End Function If mark >= 90 The n fun =" 优秀" ElseIf mark >= 80 The n

VB程序设计题库全

V B程序设计题库全 Document serial number【LGGKGB-LGG98YT-LGGT8CB-LGUT-

程序设计 第一题、 题目：（事件）单击窗体 （响应）求50以内所有偶数的和，并在窗体上输出来。 将结果存入变量S中。 代码：Dim I As Integer For i = 2 To 50 If (i Mod 2)=0 Then S=s+i End If Next Print (CStr(s)) 第二题 题目：（事件）双击窗体 （响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dim i,j As Integer Dim k As Long k=1 s=0 For i =1To 10 For j=1 To i k=k*j Next s=s+k k=1 Next Print(CStr(s)) 第三题 题目：（事件）单击窗体 （响应）求100以内偶数的和，并将结果输出在窗体上。 将结果存入变量SUM中

代码：Dim i As Integer For i =1 To 100 If i Mod 2 =0 Then Sum=sum+i End If Next Print sum 第四题 题目：（事件）单击窗体 （响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。将结果存入变量M中。 代码：Dim i,j As Integer Dim s As Long For i =10 To 15 s=1 For j = i To i +2 s=s*j Next m=m+s Next Print (CStr(m)) 第五题 题目：（事件）双击窗体 （响应）求100以内奇数的和，并将结果输出在窗体上。 将结果存入变量SUM中。 代码：Dim i As Integer For i=1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum 第六题

【2017年最新】大学VB考试题库

大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（C）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（C）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.wendangku.net/doc/143179044.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。

A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设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 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0

VB程序设计题库(全)复习课程

V B程序设计题库(全)

VB程序设计练习题 第一题、 题目：（事件）单击窗体 （响应）求50以内所有偶数的和，并在窗体上输出来。 将结果存入变量S中。 代码：Dim I As Integer For i = 2 To 50 If (i Mod 2)=0 Then S=s+i End If Next Print (CStr(s)) 第二题 题目：（事件）双击窗体 （响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dim i,j As Integer Dim k As Long k=1 s=0 For i =1To 10 For j=1 To i k=k*j Next s=s+k k=1 Next Print(CStr(s)) 第三题题目：（事件）单击窗体 （响应）求100以内偶数的和，并将结果输出在窗体上。 将结果存入变量SUM中 代码：Dim i As Integer For i =1 To 100 If i Mod 2 =0 Then Sum=sum+i End If Next Print sum 第四题 题目：（事件）单击窗体 （响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。将结果存入变量M中。 代码：Dim i,j As Integer Dim s As Long For i =10 To 15 s=1 For j = i To i +2 s=s*j Next m=m+s Next Print (CStr(m)) 第五题 题目：（事件）双击窗体 （响应）求100以内奇数的和，并将结果输出在窗体上。

VB程序设计考试试题及答案

月考上机试题 一．选择题：(10*2) 1由单精度浮点型的数据组成的字节数是 A.2 B.4 C.8 D.16 2.可以同时删除字符串前导和尾部空白的函数是 A．Ltrim B．Rtrim C．Trim D．Mid 3.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 A.工程资源管理器窗口 B.工具箱窗口 C.代码窗口 D.属性窗口 4.在窗体上添加如下命令按钮，然后编写如下事件过程：C Private Sub Command1 _ Click() Dim a(10)As Integer Dim p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 该过程的运行结果为: A.35 B.33 C.31 D.29 5.VB表达式Cos(0)+Abs(1)+Int(Rnd(1))的值是 A.1 B. -1 C. 0 D. 2 6.若m，x，y，均为Integer型变量，则执行下面语句后m值是m=1：X=2：Y=3 m=IIf(X＞Y，X+Y，X-Y) A.-1 B.0 C.1 D. 2 7.设a=″Visual Basic″，下面使b=″Basic″的语句是 A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a，8,5) 8.以下不能运行工程的操作是 A..执行"运行"菜单中的"启动"命令 B.单击工具栏中的"启动"命令 D.按下F5键 C.按下Ctrl+F5键 9.下列关于面向对象程序设计的叙述不正确的是 A.对象具有属性、方法等特性 B.对象之间的通信产生了消息 C.一个对象是一个软件构造块，它包含数据与相关的操作 D.对象的属性不能被改变 10.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1 _ Click（） Static X As Integer Static Y As Integer Cls Y=l Y=Y+5 X=5+X Print X，Y End Sub 程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为: A.15 16 B.15 6 C.15 15 D.5 6 二．填空题（3*4） 1.计算1*2*3*...*3000，当积大于3000时停止计算。请在_______处将程序补充完整。 Private Sub FormClick() Dim t As Single,j As Integer J=1 For j=1 To 3000 ____t=t*j______________ If t＞3000 Then Exit For Next j Debug.Print j,t End Sub 2.下面程序运行后，输出的结果是_BBBB______。 For J= 1 To 10 A(J)=2*J B(J)=A(J)*2 Next J Print B(J/2+0.1) End 3.设有如下程序：程序运行后，单击窗体，则在窗体上显示的是6 5 4 3，请在_______处将程序补充完整。 Option Base 0 Private Sub Form _ Click（） Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i) Next i End Sub 三．编程题：（34*2） 1. 用随机函数产生10个不大于100的整数存入一维数组a中，并找出这组数中能被3整除余2的数赋值于数组b。点击开始按钮在窗体中显示数组a和数组b。

VB语言程序设计试题库

VB程序设计 一、判断题 1. 同一Form窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。（ X ） 2. 一个对象的若能识别多个事件，我们只能对其中一个事件编程（ ） 3. 单选按钮与复选框对象的Value属性类型不同，且只能取值True和False。（√） 4. 事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用。（ ） 5. 图片框的Move方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变该图片框有关属性的值。（√） 6. “A=B=C”是一个合法的Visual Basic语句。（ ） 7. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。（ ） 8. Visual Basic程序的运行可以从 Main（）过程启动，也可以从某个窗体启动。（√） 9. 在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。（ ） 10. 对于文件系统控件，当驱动器控件Drivel中的驱动器符改变时，文件夹列表控件Dir1中显示的文件夹也作相应的改变，可以在Drive1中的Change事件中使用如下命令。Dir1. Path＝ Drive1. Drive（√） 11. 滚动条控件可作为用户输入数据的一种方法。（√） 12. 单选按钮控件和复选框控件都具有Value属性，它们的作用完全相同。（ ） 13. 静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。（√） 14. Visual Basic提供的几种标准坐标系统的原点都是在绘图区域的左上角，如果要把坐标原点放在其他位置，则需使用自定义坐标系统。（√） 15．注释语句REM可自成一语句。（√） 16. 用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发 KeyPress （ ） 17. 组合框兼有文本框和列表框两者的功能，用户可以通过键人文本或选择列表中的项目来进行选择。（√） 18. 当定时器控件的Interval属性值设置为0时，会连续不断地激发Timer事件。（ ）19．执行程序 x=0:for I=2 to 10 step –2:x=x+10:next I后x的值为0。（√） 2.句“FontName="宋体" ”与“Form1.FontName="宋体" ”的作用完全相同，无一例外。（ ） 21局变量只能在窗体的通用区内用Public或global定义。（ ） 22. 在盘驱动器列表框Drivel的Change事件过程中，代码Dirl. Path＝Drivel . Drive 的作用是：当Drivel的驱动器改变时，Dirl的目录列表随不同驱动器作相应改变。（√）

VB程序设计考试题库——考试专用

程序设计题 1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数”或"零"。 2、题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中 3、题目：单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。 4、题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。 5、题目：(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中 6、题目：单击窗体。)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中 7、题目：(事件)单击窗体。(响应)生成一个一维数组(10个数组元素依此为： ' 15、23、72、43、96、23、3、65、88、17 写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中 8、题目：(事件)单击窗体。(响应)在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM 中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。 9、题目：(事件)单击窗体。(响应)求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L 中。 10、题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。将结果存入变量J中。 1题 n = InputBox("输入一个自然数") If n > 0 Then result = "正数" ElseIf n < 0 Then result = "负数" ElseIf n = 0 Then result = "零" End If MsgBox "输入的数据" & n & "为：" & result 2题 Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum 3题 Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) 4题 Dim i, j, k, m As Integer s = 0 :i = 2:j = 1 For k = 1 To 10 s = s + i / j m = j Print (CStr(i)) & "/" & CStr(j) j = i i = i + m Next 5题 Dim i, j, k As Integer For i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If ((i + 2 * j + k * 5) = 100) Then Print (CStr(i)) Print (CStr(j)) Print (CStr(k))

《VB程序设计》试题及答案

2018-2019 第二学期计算机专业 每个窗体的二 《 VB 程序设计》试题（ A 卷） 进制数据文件，（共 10道 20分） 一、选择题 控件的属性值 等 1、一个工程必须包含的文件的类型是（） A）*.vbp *.frm *.frx B）*.vbp *.cls *.bas C） *.bas *.ocx */res D）*.frm *.cls *.bas 2、以下关于 VB 数据类型的说法，不恰当的是（） A）VB 6.0提供的数据类型主要有字符串型和数值型，此外还有班级：字节、货币、对象、日期、布尔和变体数据类型等 B）目前 Decimal 数据类型只能在变体类型中使用 C）用户不能定义自己的数据类型 D）布尔型数据只能取两种值，用两个字节存储 姓名： 3、以下各项，可以作为 VB 变量名的是（） A） Book B）2_Seek C）123.58D）Book-1 学号：4、函数 Int(Rnd(0)*10) 是在 ()范围内的整数。 A）(0,1)B）(1,10)C）(0,9)D）(1,9) 5、要将名为 MyForm 的窗体显示出来，正确的使用方法是（） A） MyForm.Show B）Show.MyForm C） MyForm .Load D）MyForm .Show 6、输入代码时， VB 可以自动检测 ()错误。 A）语法错误B）编译错误C）运行错误D）逻辑错误 7、单击窗体上的关闭按钮时，触发的事件是（） A ）Form_Initialize()B）Form_Load() C）Form_Unload()D）Form_Click() 8、.用于将窗体上的对象分组的控件是（） A ）列表框B）组合框C）标签D）框架 9、下面语句正确的是（） A ） If x<3*y And x>y Then y=x^3 B） If x<3*y And x>y Then y=3x C）If x<3*y : x>y Then y=x^3D）If x<3*y : x>y Then y=x**3 10、 1.下列程序段的执行结果为 a=5 For k=1To 3 a=a + k Next k Print k； a A）-1 6B）-1 16C）411D）1121 二、程序设计（共4道题 80分） 1、利用TextBox、Label、Commandbutton控件编写如下功能和如 下用户界面的 VB 程序