VB程序设计作业（一）答案

《VB程序设计》作业（一）

客观题部分：

选择题（每题1分，共15题）

1. 下列哪个选项不是Visual Basic语言的特点（ D ）。 A） 事件驱动编程机制 B） 可视化编程 C） 结构化程序设计 D） 面向过程的程序设计

2. Visual Basic的版本中不包含（ D ）。 A）学习版

B）专业版

C）企业版

D）标准版

3. 下列选项中不属于主窗口的是（ C ）。 A）工具栏

B）菜单栏

C）状态栏

D）标题栏

4. 下列（ D ）计量单位是与屏幕分辨率无关的。 A）twip

B）Point

C）Pixel

D）Inch

5. 工程资源管理器窗口不能显示（ D ）文件。 A） 窗体文件(.frm) B） 标准模块文件(.bas) C） 控件文件（.ctl） D） 资源文件（.res）

vbp 工程文件 frm 窗体文件 cls 类模块文件 ctl 用户控件文件 pag 属性页文件 bas 模块文件 6. 下列（ B ）方法不能打开工程资源管理器窗口。 A） 单击工具栏上的“工程资源管理器”按钮 B） 双击窗体或窗体上的控件 C） 按Ctrl＋R组合键

D） 执行“视图”菜单中的“工程资源管理器”命令 7. 在Visual Basic中，使用（ D ）字符作为续行符。 A） ：

B） ；

C） `

D） _

8. Visual Basic中，工程软件的扩展名为（ A ）。 A）vbp

B）frm

C）cls

D）bas

9. 下面哪一种变量名是错误的（ A ）。 A）3abc

B）a123

C）abc

D）ab12％

10. 什么关键字声明的局部变量在整个程序运行中一直存在（ C ）。

A）Dim

B）Public

C）Static

D）Private

11. 在Visual Basic 6.0中，字符串是被放在（ B ）号内的若干个字符。

A）单引号 A）浮点型

B）双引号 B）货币型

C）圆括号 C）布尔型

D）花括号 D）对象型

12. （ A ）种数据类型对小数点的位置有明确的位数限制。

13. 在窗体上画一个名称为Commandl的命令按钮和三个名称分别为Labell、Label2和 Label3的标签，然后编写如下代码： Private a As Integer

Private Sub Command1_C1ick()

Static b As Integer Dim c As Integer x＝5 b＝b + x c＝c + x a＝a + x

Label1.Caption＝a Label2.Caption＝b Label3.Caption＝c

End Sub

运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是（ C ）。

A) 5 5 5

B) 15 15 15 C) 15 15 5

D) 5 15 15

14. 下面哪一种变量的类型说明符的使用是正确的（ B ）。

A）Dim a: a = 2000$ B）Dim a: a% = 90000 C）Dim a: a& = True D）Dim a: a = “OK” 定义变量可以使用显式或隐式两种方式定义：

1、显式定义：Dim 变量名 As 类型 2、隐式定义：使用类型说明符

类型说明符如下： %——整型 &——长整型 !——单精度浮点数 #——双精度浮点数 @——货币型 $——字符串型 楼主的情况就属于第二种——隐式定义。 DIM A$表示定义一个变量A，类型为字符串型。 没有 AS 的话默认是 Variant。

DIM X => Dim X As Variant DIM X$ => Dim X As String DIM X% => Dim X As Integer 15. 标题栏中不允许出现的工作状态是（ D ）。

A）设计阶段

B）运行阶段

C）中断阶段

D）调试阶段

主观题部分：编程题（每题15分，共1题）

1、编程实现一个命令按钮command1的单击事件，单击该按钮后从键盘上输入若干学生的成绩，统计并输出最高分数和最低分数，当输入负数时结束输入。 Private Sub Command1_Click() Dim mArr!(), Max!, Min!, i%, Mark! i = 1 Max = 0 Min = 1000

Mark = InputBox(\请输入分数\负数结束\Do While Mark > 0

ReDim Preserve mArr(1 To i) mArr(i) = Mark

If Max < Mark Then Max = Mark If Min > Mark Then Min = Mark i = i + 1

Mark = InputBox(\请输入分数\负数结束\Loop

Print \最高分: \Print \最低分: \End Sub

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