多媒体软件工具与应用开发模拟题

2003年10月

一、填空

1.在VB中，窗体由 定义外观，由方法定义行为，由事件定义其与用户的交互。

2.VB 的基本表达式包括 表达式、关系表达式和逻辑表达式。

3.在VB中，若要求在模块中显式地指定变量的数据类型，应在模块中的声明部分使用

语句。

4.动态数组是指 可以改变的数组。

5.VB 的过程可以分 Sub 过程、 过程和属性过程。

6.在 VB 中，控件数组是具有相同名称，但 值不同的一组控件，利用控件数组开发控件的事件代码，可以大大提高开发效率。

7.在用 VB 开发一个 MDI 应用时，如果要添加一个 MDI 窗体的子窗体，应将这个子窗体的 属性的值设置为True。

8. 文件按照存取方式及其组成结构可以分为 文件和随机文件。

9. 在 VB 中，要对单选钮进行分组，需要使用 控件。

10. VB 6.0的标准模块文件的扩展名是 。. VB语言具有很多优点，用其开发应用程

序时具有两个基本特点：可视化设计和 。

11. 在VB中，若要求在模块中显式地指定变量的数据类型，应在模块中的声明部分使用

语句。

12. 动态数组是指 可以改变的数组。

13. 在 VB中，控件数组是具有相同 ，但索引值不同的一组控件，利用控件数组开发控件的事件代码，可以大大提高开发效率。

14. 在用 VB 开发一个 MDI 应用时，如果要添加一个 MDI 窗体的子窗体，应将这个子窗体的 MDIChild 属性的值设置为 。

15. 文件按照存取方式及其组成结构可以分为顺序文件和 文件。

16. 在 VB 中，如果要启动“菜单编辑器”开发菜单，应执行 菜单中的“菜单编辑器”命令。

17. VB 6.0的窗体文件的扩展名是⑩ 。

二、选择题

1. 下列除 外均不是 VB 合法的变量名。（ ）

A. 3ABC B. ABC_3 C. ABC.3 D. _ABC

2. 在 VB 中，运算 "321" & 12 的结果是 。（ ）

A. "32112" B. 333 C. "12321" D. 出错

3. 以下选项中，不属于标签（Label）的属性是 。（ ）

A. Enabled B. Visible C. Text D. Caption

4. 在VB中，函数 INT(-2.6) 的值是 。（ ）

A. 2.6 B. -1 C. -2 D. -3

5. 使用下列 语句可以对文件进行改名操作。（ ）

A. Shell B. Name C. FileCopy D. RmDir

6. 以下关于 VB 命令按钮的叙述中，除 外均是正确的。（ ）

A. 如果属性 Enabled 的值为False，则该按钮灰化。

B. 如果属性 Visible 的值为False，则该按钮不可见。

C. 如果属性 Text 的值为“OK”，则该按钮上的文字是“OK”。

D. 如果属性 Cancel 的值为True，则运行时按Esc键等效于按该钮。

7. 以下关于 VB 列表框（ListBox）的叙述中，除 外均是正确的。（ ）

A. 可通过属性 Item 返回列表框中的项目。

B. 可通过属性 Text 返回列表框中的已选项目。

C. 可通过属性 ListIndex 返回列表框中的已选项目。

D. 可通过属性 ListCount 返回列表框中项目的数目。

8. 在VB中，函数 INT(-7.6) 的值是 。（ ）

A. 7.6 B. -6 C. -7 D. -8

9. 下列关于窗体的 VB 事件中，最先执行的是 。（ ）

A. Form_Load B. Form_Initialize C. Form_Activate D. Form_Paint

10. 通过以下 的设置，可使得在向文本框中输入信息时显示“#”。（ ）

A. 将Text属性值设置为“#” B. 将Name属性值设置为“#”

C. 将Passwordchar属性值设置为“#” D. 将Passwordchar属性值设置为True

11. 下列关于 VB 计时器（Timer）的叙述中，除 外均是正确的。（ ）

A. 利用计时器控件可以使 Timer 事件中的代码定期执行一次。

B. 计时器控件的Interval 属性的单位是毫秒。

C. 当计时器控件的 Enabled 属性的值为 False 时，计时器不再工作。

D. 在应用程序运行时，计时器在窗体上显示为一个钟的形状。

12. 在用 VB 开发学生信息管理系统的输入界面时，若要求选择学生的性别、政治面貌（党员/团员/群众）以及选课情况（共有5门课，可任选），下列设计中 是合理的。（ ）

A. 将5门课程用一组5个选择框来表示，将性别和政治面貌用5个单选钮来表示。

B. 将5门课程用一组5个选择框来表示，用两个框架分别将性别用2个单选钮，政治面貌用3个单选钮来表示。

C. 将5门课程用一组5个单选钮来表示，将性别和政治面貌用5个选择框来表示。

D. 用一组10个选择框来表示课程、性别和政治面貌。

13. .通过以下 的方法，可以设置列表框（List Box）中的选择项。

A 在List属性中依次输入各个选择项，两个选择项之间用Ctrl+Enter分隔

B 在List属性中依次输入各个选择项，两个选择项之间用Alt+Enter分隔

C. 在Text属性中依次输入各个选择项，两个选择项之间用Ctrl+Enter分隔

D. 在Text属性中依次输入各个选择项，两个选择项之间用Alt+Enter分隔

三、判断题

1. 在VB中，控件的属性值都可以在运行过程中重新设置。

2. 在VB 中，Image 控件比 Picture 控件使用的资源多。

3. 在VB 的默认状态下，过程调用是按传值方式传递参数的。

4. 在窗体模块的声明部分中用 DIM 定义的变量的有效范围是其所在的工程。

5. 设A=3，B=4，C=5，D=6，则表达式A>B And C<=D Or 2* A>C 的值是 True。

6. 在 VB 6.0 中，列表框中的项目可以多列显示。

7. 用 VB 6.0 仅能开发具有窗口菜单的应用程序，开发的应用中不能支持弹出式菜单。

8. 在 VB 6.0 中，表达式 "78" + 22 与表达式 78 + 22 有不相同的值。

9. 在 VB 6.0 中，可以根据需要在一个工程中包含多个窗体模块、多个类模块和多个标准模块。

10. VB 6.0 允许一个窗体模块文件被多个不同的工程共享。

11. 在VB中，控件的属性值都可以在运行过程中重新设置。

12. 在VB 6.0中，如果要增加工具箱中的控件，应执行VB“文件”菜单中的命令。

13. 在VB 的默认状态下，过程调用是按传址方式传递参数的。

14. 在标准模块的声明部分中用 Public 声明的变量的有效范围是其所在的工程。

15. 在VB中，运算 "D" Like " [! A-Z]" 的结果是True。

16. 在 VB 6.0 中，列表框中的项目可以多列显示。

17. 用 VB 6.0 仅能开发具有窗口菜单的应用程序，开发的应用中不能支持弹出式菜单。

18. 在 VB 6.0 中，表达式 "38" + 42 与表达式 38 + 42 有不相同的值。

19. 在 VB 6.0 中，可以根据需要在一个工程中包含多个窗体模块、多个类模块和多个标准模块。

20. VB 6.0 允许一个窗体模块文件被多个不同的工程共享。

四、读程序题

1. 设有下列程序，请指出单击命令按钮Cmd1后程序完成的功能。

Private Sub Cmd1_Click( )

Dim X As Integer, Y As Integer

Dim R As Integer

X = PicA.ScaleWidth / 2

Y = PicA.ScaleHeight / 2

For R= 100 To 500 Step 50

PicA.Circle (X, Y), R, RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)

Next R

SavePicture PicA.Image, "MYPIC.BMP"

End Sub

2. 若在一个窗体中已经设置了三个文本框Txt1、Txt2和Txt3及一个命令按钮 Cmd1，并且已经设计有下列程序，设用户在 Txt1 框中输入“Unit”后，单击命令按钮 Cmd1，请指出程序执行后 Txt1、Txt2 和 Txt3 框中的内容。

Private Sub Cmd1_Click( )

Dim ss As String

If Txt1.Text = "" Then Txt1.Text = "ABCDEF"

ss = Txt1.Text

MyPro (ss)

Txt2.Text = ss

End Sub

Private Sub MyPro(s1 As String)

Dim Pos As Integer

Dim Str1 As String

Dim intC As Integer

Pos = Len(s1)

For intC = Pos To 1 Step -1

Str1 = Str1 & Mid(s1, intC, 1)

Next intC

s1 = Str1

Txt3.Text = s1

End Sub

3. 设在一个窗体中已设计了一组五个单选按钮Option1(0) ~ Option1(4) 和一个公共对话框ComDialog1，并有如下事件代码，请写出运行的结果。(本题10分)

Private Sub Form_Load( )

Option1(4).Value = True

Option1(4).Visible = False

End Sub

Private Sub Option1_Click(Index As Integer)

Dim FileName1 As String, FileName2 As String

Select Case Index

Case 0

ComDialog1.ShowOpen

FileName1 = ComDialog1.FileName

Kill FileName1

Case 1

ComDialog1.ShowOpen

FileName1 = ComDialog1.FileName

ComDialog1.ShowSave

FileName2 = ComDialog1.FileName

FileCopy FileName1, FileName2

Kill FileName1

Case 2

ComDialog1.ShowOpen

FileName1 = ComDialog1.FileName

ComDialog1.ShowSave

FileName2 = ComDialog1.FileName

FileCopy FileName1, FileName2

Case 3

ComDialog1.ShowOpen

FileName1 = ComDialog1.FileName

FileName2 = InputBox("The new file name:", FileName1)

Name FileName1 As FileName2

End Select

Option1(4).Value = True

End Sub

4、设有一计时器控件TimerA，其属性Interval的值设置为400，且有一标签控件LabA，其属性Caption设置为“欢迎！”，并设有下列事件代码，请指出程序运行时发生的事件。(本题5分)

Private Sub TimerA_Timer( )

If LabA.FontSize <= 50 Then

LabA.FontSize = LabelA.FontSize + 2

LabA.ForeColor = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)

Else

LabA.FontSize = 5

End If

End Sub

5、若在一个窗体中已经设置了一个文本框控件数组 Text1、一个图片框 Picture1 及一个命令按钮 Cmd1，并且已经设计了下列事件代码，请指出单击 Cmd1 后，程序完成的工作。

Private Sub Cmd1_Click( )

Dim X As Integer, Y As Integer

Dim ii As Integer, R As Integer

X = Picture1.Width / 6

Y = Picture1.Height

R = 0

For ii = 0 To 5

Picture1.Line (R, Y - Val(Text1(ii)))-(200 + R, Y), , BF

R = R + X

Next ii

End Sub

Private Sub Form_Load( )

Dim ii As Integer

For ii = 0 To 5

Text1(ii) = 0

Text1(ii).Alignment = 1

Next ii

End Sub

6、设在一个窗体中已设计了三个文本框及如下过程，请写出在单击命令按钮Command1后产生的结果。

Option Explicit

Dim ThisArray() As Integer

Private Sub Command1_Click()

Dim tt As Integer

Dim ss As Integer

Dim ii As Integer

For ii = 1 To Len(Text1.Text)

If Mid(Text1.Text, ii, 1) < "0" Or Mid(Text1.Text, ii, 1) > "9" Then

MsgBox ("错误！")

End If

Next ii

ss = 0

tt = Val(Text1)

Text3.Text = MyPro(tt, ss)

Text2.Text = tt + ss

End Sub

Private Sub Form_Load()

ReDim ThisArray(5)

Dim ii As Integer

For ii = 1 To 5

ThisArray(ii) = ii

Next ii

Text1.Text = ""

End Sub

Private Function MyPro(T1 As Integer, ByVal T2 As Integer) As Integer

Dim ii As Integer

T2 = 1

If T1 > UBound(ThisArray) Then

ReDim Preserve ThisArray(T1)

For ii = 6 To T1

ThisArray(ii) = ii

Next ii

For ii = 2 To T1

T2 = T2 + ThisArray(ii)

Next ii

T1 = 1

Else

T1 = -1

End If

MyPro = T2

End Function

五、编程题

1. 设命令按钮名为CmdA，要求单击该按钮时，将标签LabA上的文字改为“职业：”，居中排列，同时隐藏标签LabB，将文本框 TxtA 中的内容设置为“学生”。请补充下列事件代码中的空白处，以实现这一要求。