04 05第1学期vb考试题及标准答案

2004-2005学年第一学期《计算机应用基础》课程试题

命题教师： 审题教师：

题目 得分 一 二 三 四 五 总分 一、填空题（每空1分，共10分）

1．VB中一个整型数据占用的存储空间为 字节。 2．表达式Len(\程序设计基础ABC\的值为 。 3．表达式Val(\的值为 。

4．为了在程序运行时把d:\\pic文件夹下的图形文件a.jpg装入图片框Picture1，应使用的语句为 。 5. Private Sub Form_Click()

Dim msg1 As String, msg2 As String, r As Integer msg1 = \继续吗？\ msg2 = \操作对话框\

r = MsgBox(msg1, vbYesNo + vbDefaultButton1, msg2) End Sub

程序运行后，单击窗体，屏幕会显示一个消息框。如果直接按回车键，则相当于用鼠标单击消息框中的 按钮。

6．语句Dim A(-1 to 2,3 to 5)用来声明一个二维数组，则这个数组中包含有 个数组元素。

7．控件数组中各元素拥有相同的名字，区分控件数组各元素的属性是 。 8．“&”可以作为长整型数据的类型符，可以作为八进制或十六进制常量的前导符，还

可以做为 运算符。

9．Visual Basic提供的对数据文件的三种访问方式为随机访问方式、 和二

进制访问方式。

10．随机文件记录数据的读取是通过 语句实现的。

第 1 页 共 13 页

二、选择题（1-12题每小题1分，13-15题每题2分，共18分）

1． VB中标准模块文件的扩展名是（ ） A）vba B）vbs C）bas D）mds

2．如果要改变Label的标题，则需要设置属性（ ）

A）Caption B）Name C）BackColor D）BorderStyle

3．要判断在文本框内是否按下了回车键，可以用文本框的（ ）事件过程。

A）Change B）LostFocus C）KeyDown D）GotFocus 4．下列不可以作为Visual Basic变量名的是（ ）

A）张三 B）姓名 C）then D）dim1 5．表达式100 & \的值是（ ）

A）300 B）100100100 C）200100 D）100200

6．当一个Visual Basic工程有多个窗体时，其中启动窗体是：（ ）

A) 启动Visual Basic时建立的窗体 B) 第一个添加的窗体 C) 最后一个添加的窗体

D) 在“工程属性”对话框中指定的窗体 7．在窗体上画一个命令按，然后编写如下代码： Private Sub Command1_Click() dim a as long ,b as long a=Inputbox(\请输入第一个数\ b=Inputbox(\请输入第二个数\ print a & b End Sub

程序运行后，单击命令按钮，在两个对话框中先后输入12345和54321，程序的输出结果是（ ）

A）66666 B）5432112345 C）1234554321 D）出错

8．在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Option Base 1

Private Sub Command1_Click()

Dim city() As Variant

city = Array(\北京\上海\天津\重庆\ Print city(1) End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ） A）空白 B）错误提示 C）北京 D）上海 9．以下能判断文件长度的函数是（ ）

A）BOF B）LOC C）LOF D）EOF

10．如果要在菜单项中显示一个分隔线，则应将其Caption属性设置为（ ）

A）= B）* C）& D）-

第 2 页 共 13 页

11．执行语句Open \后，对数据文件Tel.dat中的数据能够执行的操作是（ ）

A）只能写，不能读 B）只能读，不能写

C）既可以读，也可以写 D）不能读，不能写

12．设通用对话框控件名称为CD1，希望在打开文件对话框中的“文件类型”列表中包含：所有文件、WORD文档和文本文件这3类文件，在程序中设置Filter属性时正确的是：

A） CD1.Filter=\所有文件|*.*|Word文件|*.doc|文本文件|*.txt\

B） CD1.Filter=\所有文件|Word文件|文本文件\

C） CD1.Filter=所有文件|*.*|Word文件|*.doc|文本文件|*.txt D） CD1.Filter=\所有文件|*.doc|Word文件|*.txt|文本文件\

13．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim a As Integer, s As Integer

a = 5 s = 1

Do While a <= 0 s = s + a a = a - 1 Loop

Print s; a End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是（ ） A） 1 5 B） 16 0 C） 9 7 D）死循环

14．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim n As Integer, m As Integer m=0

For n = 1 To 20

If n Mod 5 = 0 Then m = m + n \\ 5 End If Next n Print m End Sub

程序运行后，如果单击命令按钮，则窗体上显示的内容是（ ）

A）15 B）18 C）10 D）21 15．在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码：

第 3 页 共 13 页

Private x As Integer

Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 z = n + z y = y + z x = x + z

Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub

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

A）10 10 10 B）30 30 30 C）30 30 10 D）10 30 30

三、写出程序运行结果（每小题4分，共20分，结果直接写在题右侧空白处）

1．Private Sub Command1_Click()

Dim m As Integer, n As String m = Val(InputBox(\请输入一个整数\ Print xx(m) End Sub

Function xx(ByVal x As Integer) As String Dim s As String, y As String, n As Integer s = \ y = \

Do While x <> 0 n = x Mod 16

y = Mid(s, n + 1, 1) & y x = x \\ 16 Loop xx = y

End Function

程序运行后，在输入框中输入30。运行结果是：

第 4 页 共 13 页