VB期末复习题

1、Visual Basic是一种面向( )的程序设计语言。 A、用户 B、事件 C、程序 D、对象 2、Visual Basic主要用于开发哪种环境下的程序（ ） A、DOS B、DOS和Windows C、Windows D、UNIX

3、一个逻辑型变量在内存当中占的存储空间是（ ） A、一个字节 B、两个字节 C、四个字节 D、八个字节

4、一个双精度型变量在内存当中占的存储空间是（ ） A、一个字节 B、两个字节 C、四个字节 D、八个字节

5、在Visual Basic6.0中规定窗体文件的扩展名是： A、frm B、for C、vbp D、bas

6、在Visual Basic6.0中规定工程文件的扩展名是： A、frm B、for C、vbp D、bas

7、在Visual Basic6.0中标准模块文件的扩展名是： A、frm B、for C、vbp D、bas

8、一只黑色的台球被打进袋内，则黑色、台球、打、进袋依次是( ) A、对象，属性，事件，方法 B、对象，属性，方法，事件

C、属性，对象，方法，事件 D、属性，对象，事件，方法

9、在Visual Basic代码窗口中，将某一条语句加以注释和说明时，应在语句前加英文状态下的( ) A、逗号（，） B、冒号（：） C、单引号（’） D、问号（?）

10、在Visual Basic代码窗口中，多行语句书写在同一行，应在语句之间加英文状态下的( )

A、逗号（，） B、冒号（：） C、单引号（’） D、问号（?）

11、下列控件中可用于接受用户输入文本，又可用于显示文本的是（ ） A、Label 控件 B、TextBox 控件

C、Timer 控件 D、CommandButton 控件 12、下列控件中大小不能改变的是（ ） A、Label 控件 B、TextBox 控件

C、Timer 控件 D、CommandButton 控件

13、如果要改变窗体的标题,需要设置窗体对象的（ ）属性。 A、Caption B、Name C、BackColor D、BorderStyle

14、要在C盘当前文件夹下建立一个名为Stu1.txt的顺序文件，应先使用( )语句： A、Open \ B、Open \ C、Open \ D、Open \

15、要从C盘当前文件夹下一个名为Stu1.txt的顺序文件读取内容，应先使用( )语句：

A、Open \ B、Open \

C.、Open \ D、Open \

16、双击窗体中的对象后，Visual Basic将显示的窗口是( )。 A、项目（工程）窗口 B、工具箱 C、代码窗口 D、属性窗口

17、如果一个变量未经定义直接使用，其类型为( )。 A、integer B、byte C、boolean D、variant

18、在Visual Basic中，以下选项中表示装入事件的是

A、KeyUp B、Click C、Activate D、Load 19、在Visual Basic中，以下选项中表示单击事件的是

A、KeyUp B、Click C、Activate D、Load 20、下列标识符书写正确的是（ ）

A、9x B、Y1+X2 C、M* D、W6 21、表达式5^2*2+3 mod 10\\4的值是（ ） A、50 B、51 C、52 D、53 22、表达式运算结果Int(-7.2)是（）

A、-7 B、7 C、-8 D、8 23、表达式运算结果Fix(-7.2)是（）

A、-7 B、7 C、-8 D、8 24、下列（ ）属性是每个控件都有的。 A、Name B、Caption C、Font D、Interval

25、标签控件能显示文本，应对（ ）属性进行设置。 A、Alignment B、Caption C、Visible D、Borderstyle

26、如果每一秒激发一次计时器事件，则设置计时器（Timer）控件的Interval属性为（）： A、1000 B、100 C、10 D、1

27、当程序运行时，需要给用户一些提示信息或警告信息时，应使用（）：

A、MsgBox B、InputBox C、A和B都可以 D、A和B都不可以 28、保存一个VB程序时需要保存两个文件：

A、.vbp文件和 .frm文件 B、窗体文件和 .frm文件 C、工程文件和 .vbp D、模块文件和 .bas文件 29、以下能判断是否到达文件尾的函数是（ ）

A.BOF B.LOC C.LOF D.EOF 30、按照变量的作用域可将变量划分为（ ） A、公有、私有、系统

B、全局变量、模块级变量、过程级变量 C、动态、常数、静态 D、Public、 Private、 static

31、向一个顺序文件中追加数据，应使用（ ）方式

A.Output B.Input C.Append D.Random

32、如果要在菜单中添加一个分隔线，则应将其Caption属性设置为 A、.= B、.* C、.& D、.- 33、表达式Print Val(\的值为（ ）：

A、1 B、20 C、20 efgh D、efgh 34、For i = 1 To 19.8 Step 3 i = i + 2 Next i Print i

A、21 B、20 C、18 D、22 35、Private Sub Command1_Click()

Dim Y As Integer : Static X As Integer Y = Y + 5 ：X = X + 5 ：Print X, Y End Sub

程序运行时，第三次单击命令按钮Commandl后，窗体上显示的结果为( ) A．5 5 B．15 5 C. 15 15 D．5 15 36、函数fix(5.67)的值为（ 5）

37、VB提供了（ Select Case）语句用于描述较复杂的多分支结构。 38、结构化程序中的三种基本结构是： 顺序 、 选择 和 循环 。 39、函数Left(“student”,5)= stude ， Right(“Student”,4)= dent 。

40、用户自定义过程分Sub开头的 子过程 和Function开头的 函数过程 。 41、VB参数传递有2种方式，分别是： ByVal 和 ByRef 。

42、在VB中，提供了三种访问文件的方法，分为是 顺序访问 、 随机访问 和 二进制访问 。

43、因为组合框是文本框和列表框的组合，所以其大多数属性都和这两个控件相同。其中只有一个特殊的__Style_属性为其独有。

44、编程实现N!。求一个阶乘值不大于X的数N 45、编程实现两个数的交换。

46、编程实现两个数中的较大（较小）的一个 47、编程实现分段函数。

48、编程实现二维数组运算。 如全部数组赋值、对角线元素赋值、最大值、最小值、对角线元素求和。

Private Sub Command1_Click()

Dim S as integer,I as integer S = 0

For I = 9 To 42 Step 11 S = S + I Next I

If I > 50 Then S = S + I Else S = S - I Print S 155 End Sub

Private Sub Form_Click() Dim x%, y%, z%

x = 2: y = 3: z = 5 Call proc(x, y, z) Print x, y, z

Call proc(x, y, z)

End Sub 15 20 35 Private Sub proc(m, n, g) 15 20 35 m = 3 * g 105 140 245 n = 4 * g g = m + n

Print m, n, g End Sub

编程实现：10位评委打分，去掉一个最高分和一个最低分，计算输出平均分、最高分及最低分数。

Private Sub Form_Click()

Dim min%, max%, score%, i% Dim str As String Dim ave As Single

score = Val(InputBox(\请输入第1个评委的分数:\ max = score min = score

ave = score For i = 2 To 10

str = \请输入第\个评委的分数:\ score = Val(InputBox(str)) ave = ave + score

If max < score Then max = score If min > score Then min = score Next

ave = (ave - max - min) / 8 Print \最高分:\ Print \最低分:\Print \平均分:\End Sub

利用列表框和命令按钮等控件编程，要求程序能够实现添加项目、删除项目、删除全部项目的功能。写出窗体的装载事件。

Private Sub Command1_Click() ‘添加项 Dim str As String

str = InputBox(“请输入要添加的项目”) ‘输入要添加的项 List1.AddItem str ‘添加

Command2.Enabled = True ‘使删除及全部删除按钮可用 Command3.Enabled = True End Sub

Private Sub Command2_Click() ‘删除项

List1.RemoveItem List1.ListIndex ‘删除选中项

If List1.ListCount <= 0 Then ‘列表框中无项,删除及全删按钮不可用 Command2.Enabled = False Command3.Enabled = False End If End Sub

Private Sub Command3_Click() ‘全部删除 List1.Clear ‘删除列表框中全部项 Command2.Enabled = False ‘删除按钮不可用 Command3.Enabled = False ‘全部删除按钮不可用 End Sub

Private Sub Form_Load() ‘窗体加载事件 List1.AddItem \物理\ List1.AddItem \数学\ List1.AddItem \计算机\

Command1.Enabled = True ‘使命令按钮可用 Command2.Enabled = True Command2.Enabled = True End Sub

本文来源：https://www.bwwdw.com/article/umpd.html