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）单引号B）双引号C）圆括号D）花括号

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

A）浮点型B）货币型C）布尔型D）对象型

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 "最高分: " & Max

Print "最低分: " & Min

End Sub