可视化程序设计综合题及答案

可视化程序设计综合题

一、单项选择题

1.下列运算符中，运算级别最高的是（B）---1504C卷5

A、+

B、*

C、\

D、Mod

2.下列选择项中（C ）不能获得焦点。---1412B卷1

A、使用Tab键

B、用鼠标选择对象

C、设置GetFocus的值为True

D、使用SetFocus方法

3.执行下面的程序段后，x的值为(A )--- 1412B卷2

x=5

For i = 1 To 20 Step 2

x=x+i\5

Next i

A、21

B、22

C、23

D、24

4.有如下程序，执行程序后单击Button1按钮，窗体上显示的是什么（C）---1409A卷3、1504C卷3

Private Sub Command1_Click()

Dim a Dim b As Integer

a = 5 / 2

b = 5 / 2

Print a, b

End Sub (本题分数：3 分，本题得分：0 分。)

A、2 2

B、 2 2.5

C、 2.5 2

D、 2.5 2.5

5.如果希望用变量X存放数据12345.67890123，应将X定义为什么类型？（A ）---1504C卷4

A、数值

B、字符串

C、变体

D、数值或字符串(视输入的数据而定)

6.以下说法正确的是（D ）---1412B卷7

A、通用过程可以出现在窗体模块和标准模块中

B、不同模块中的通用过程可以重名

C、同一标准模块中的通用过程可以同名

D、不同标准模块中的通用过程不能同名

7.下列哪组语句可以将变量A、B的值互换（C ）。---1504C卷7、1401批次7

A、A=B：B=A

B、 A=C：C=B：B=A

C、 A=A+B：B=A－B：A=A－B

D、A=（A+B）/2：B=（A-B）/2

8.将文本框的（A）属性设置为True时，文本框可以输入或显示多行文本，且会在输入的内容超出文本框的宽度时自动换行。---1409A卷5

A、MultiLine

B、ScrollBars

C、 Text

D、Enabled

9.在表达式 y = InputBox ( a, b, c ) 中，b 为输入函数对话框的（A ）。--- 1409A卷6

A、标题

B、提示

C、预设值

D、帮助文件名

10.如果要退出Do…Loop循环，可使用语句（ B）。--- 1409A卷7

A、Exit

B、 Exit Do

C、 Exit For

D、Exit Sub

11.VB中，将命令按钮控件在窗体中失效（不可用）的属性语句是（C ）。---1412B卷16

A、default

B、 Cancel

C、 Enabled

D、 Visible

12.在VB中，称对象的数据为（A ）。---1504C卷9

A、属性

B、方法

C、事件

D、封装

13.下面的哪一项不能用来在模块之间传递数据（ D）。---1409A卷8

A、全局变量

B、对象属性

C、全局数组

D、模块级变量

14.令A、B、C都是整型变量，A=3，B=4，C=5，下列表达式结果为TRUE的是（C）

A、(A + B) C - 1 > 0

B、B+ C * A B * B = B+C*A\B*B

C、 (A - C) * Sqr(B) + B = 0

D、 A ^ 2 + B ^ 2 - C ^ 2 < 0

15.下列哪个语句定义了包含8个元素的单精度数组（C ）---1504C卷14

A、Dim a(2,4) As Single3C

B、 Dim a(1 to 8)!

C、Dim a!(7)

D、 Dim a(1 to 2,3 to 6) As

A、模块级变量的作用域为它所在的模块

B、同一模块中不同级的变量不能同名

C、在某一模块中所有过程外用Dim定义的变量为全局变量

D、不同模块中定义的全局变量可以相同

17.下列哪个语句定义了包含12个元素的整型数组（C ）。---1412B卷15

A、Dim a(3,4) As Integer

B、Dim a(1 to 12)%

C、Dim a%(-1 to 1,3)

D、Dim a(1 to 2,3 to

6) As Long

18.设a=2，b=3，c=4，d=5，下列表达式的值是（B ）a＞b AND c＜=d OR 2*a＞c ---1412B卷11

A、True

B、False

C、-1

D、1

19.要在子过程的过程体中退出子过程应使用（C ）语句。---1412B卷12

A、Exit Do

B、Exit For

C、 Exit Sub

D、 Exit Function

20.假定有以下循环结构 Do Until条件循环体 Loop 则正确的描述是 ( ) ---1412B卷13、1504C

卷13

A、如果"条件"为1，则一次循环体也不执行

B、如果"条件"为1，则无限次执行循环体

C、如果"条件"不为0，则至少执行一次循环体

D、不论"条件"是否为"真"，至少要执行一次循环体

21.若要使标签控件显示时不覆盖其背景内容，要对（D ）属性进行设置。

A、BackColor

B、Borderstyle

C、 ForeColor

D、 Backstyle

22.以下语句的输出结果是（C ）。 print format$（32548.5，"000，000.00"）---1412B卷14、1401批次11

A、2548.5

B、 32，548.5

C、032，548.50

D、32548.50

23.设有数组说明语句：Dim c（－１To１，１To５），则下列表示数组c的元素选项中（C ）是正确的。---1504C卷15

A、c(i+j)

B、 c(i)(j)

C、c(i-1, i+1)

D、 c(1,0)

24.下列过程说明合法的是（D ）

A、Sub S1(ByVal n!())

B、Sub S1(n!) as Integer

C、 Function S1%(S1%)

D、 Function S1(ByVal n!)

25.结构化程序设计的三种基本结构是（C ）---1409A卷15、1412B卷18

A、逻辑结构、选择结构、递归结构

B、逻辑结构、选择结构、循环结构

C、顺序结构、选择结构、循环结构

D、顺序结构、逻辑结构、循环结构

26.若单击了“否（No）”按钮，则MsgBox函数的返回值是（D ）。---1409A卷16

A、４

B、５

C、６

D、７

27.语句Print 5*5\5/5的输出结果是(D )。

A、0

B、 1

C、 5

D、25

28.下面子过程说明合法的是（D ）。---1412B卷19

A、Sub f1（ByVal n％（））

B、 Sub f1（％）As integer

C、 Function f1％（f1％）

D、 Function f1（ByVal n％）

29.下面语句书写正确的是（D ）。---1412B卷20、1401批次15

A、If a>max Then max=a Else

Else if max=b

End If

B、If b>max Then max=a

Else

max=b

End If

C、 If a>max Then max=a

Else

max=a

Else

max=b

End If

30.函数Int(Rnd*99+1)产生随机数的范围是(C )。---1409A卷21、1412B卷22

A、[1,98]

B、[1,99]

C、[1，100]

D、[1，101]

1. 下列关于多文档界面（MDI）应用程序，说法错误的是（B ） ---1504C卷8

A、一个多文档界面应用程序只能包含一个MDI窗体

B、一个多文档界面应用程序只能包含一个子窗体

C、子窗体的MDIChild属性应设置为True

D、最小化父窗口时，所有子窗口也被最小化

2. 下列属性中，目录列表框和文件列表框都有的属性为（C ）。---1409A卷1

A、List

B、value

C、Path

D、Pattern

3.下列关于菜单访问键和快捷键的说法正确的是（ D）---1412B卷3

A、若一菜单项的Caption属性为“打开(&O)”，则其快捷键是Ctrl+O

B、快捷键指用于执行一个命令的功能键或组合键，可以在菜单编辑器中将快捷键设为Alt+F

C、可以为任意的菜单项都添加快捷键或访问键

D、通过访问键打开某个子菜单时，必须先使焦点位于其上一级菜单

4.下面关于随机文件的描述，不正确的是：（B ）---1504C卷2

A、每条记录的长度必须相同

B、一个文件中记录号不必惟一

C、可通过编程对文件中的某条记录方便地修改

D、文件的组织结构比顺序文件复杂

5.下列说法正确的是（A ）---1409A卷2、1412B卷4、1401批次5

A、如果框架的Enable设为False，则框架内的所有控件都不可用。

B、时钟控件的Visable属性设为True时，该控件在程序运行时可见，设为False时，则不可见。

C、在列表框中能够将项目按字母顺序从大到小排列。

D、移动框架时，框架内的控件不随之移动。

6.用户可以通过设置菜单项的（B ）属性值为False来使该菜单项不可见。 ---1409A卷4

A、Hide

B、Visible

C、Cheched

D、 Enable

7.要暂时关闭计时器，需设置（B ）属性。 ---1412B卷5

A、Visible

B、 Enabled

C、 Lock

D、 Cancel

8.若要得到列表框中项目的数目，可以访问（C ）属性。---1412B卷6

A、List

B、ListIndex

C、 ListCount

D、 Text

9.在顺序文件中（D ）。---1412B卷8

A、每条记录的记录号接从小到大排序

B、每条记录的长度按从小到大排序

C、按记录的某个关键数据项的排序顺序组织文件

D、记录按写入的先后顺序存放，并按写入的先后顺序读出

10.通过设置Line控件的（D）属性可以绘制虚线、点划线等多种样式的直线。---1504C卷6

A、Shape

B、Style

C、Fillstyle

D、Borderstyl e

11. Seek方法用于在（ C）类型的记录集中查找满足条件的记录。 ---1412B卷9

A、动态集

B、快照

C、表

D、任意

12. 数据控件用于设置指定数据控件所访问的记录来源的属性是（ A）--- 1409A卷9

A、RecordSource

B、DataSource

C、 DatabaseName

D、 RecordSetType

13. AVI动画类似电影，由若干帧组成，Animation控件可以显示（A ）的音频视频动画（AVI文件）。--- 1409A卷11

A、无声

B、有声

C、无声和有声都可以

D、单声道

14. 在用菜单编辑器设计菜单时，必须输入的项有（D ）。---1504C卷11

A、快捷键

B、标题

C、索引

D、名称

15. 假设窗体上已添加了通用对话框CommonDialog1，下列选项中能打开“颜色”对话框的是（C ）--- 1409A

16. 当鼠标移动时，有关MouseMove事件的说明正确的是（A ）---1504C卷12

A、MouseMove事件不断发生

B、MouseMove事件只发生一次

C、MouseMove事件经过每个象素都会触发

D、当鼠标指针移动得越快，则在两点之间触发的MouseMove事件越多

17. 当BOF属性为Ture时，表示（B ）。---1409A卷13、1301批次B卷9

A、当前记录位置位于Recordset对象的第一条记录

B、当前记录位置位于Recordset对象的第一条记录之前

C、当前记录位置位于Recordset对象的最后一条记录

D、当前记录位置位于Recordset对象的最后一条记录之后

18. 在随机文件中（D ）---1409A卷14

A、记录号是通过随机数产生的，可以通过记录号随机读取记录

B、记录的内容是随机产生的，记录的长度是任意的

C、记录号不是通过随机数产生的不可以通过记录号随机读取记录

D、记录的内容不是随机产生的，记录的长度不是任意的

19. 通过文本框的（ D）事件过程可以获取文本框中键入字符的ASCII码值。

A、Change

B、 GotFocus

C、 LostFocus

D、 KeyPress

20. 以下关于索引的说法，错误的是（ B）。---1412B卷17、1504C卷16、1401批次12

A、一个表可以建立一个到多个索引

B、每个表至少要建立一个索引

C、索引字段可以是多个字段的组合

D、利用索引可以加快查找速度

21. 以下叙述错误的是（ D）---1504C卷17

A、在KeyUp和KeyDown事件过程中，从键盘上输入A和a是相同的

B、在KeyUp和KeyDown事件过程中，从键盘上1和小键盘上的1看作不同数字

C、 KeyPress事件中不能识别键盘上某个键的按下与释放

D、KeyPress事件中可以识别键盘上某个键的按下与释放

22. 文本框控件与DATA控件绑定到一起时，文本框的DataSource属性指定了文本框所要绑定的（ B）---1504C卷18

A、数据库名

B、数据表名

C、字段名

D、以上都不是

23. 用于设置或返回文件类型的属性是（C ）。 ---1409A卷17、1301批次B卷10

A、Drive

B、 Path

C、 Pattern

D、 FileTitle

24. 运行时，要清除图片框P1中的图像，应使用语句（B ）。---1504C卷19

A、Pl.Picture=“”

B、 P1.Picture=LoadPicture（）

C、 Picturel.Picture=LoadPicture

D、Picturel.Picture=LoadPicture(“C：＼WINDOWS＼Clouds.bmp”)

25. 若要清除列表框的所有项目内容，可以使用（ C）方法。 ---1409A卷18

A、AddItem

B、 ReMove

C、Clear

D、 Print

26. 改变驱动器列表框的Drive属性将引发（D ）事件。 ---1401批次14

A、Load

B、 Click

C、 Pattern change

D、 Change

27. 以下的属性和方法中（C ）可重定义坐标系。 ---1409A卷19、1504C卷20

A、DrawStyle属性

B、 DrawWidth属性

C、 Scale方法

D、 ScaleMode属性

28. 语句“ Select ＊ From学生基本 Where 性别=”男”中的“＊”号表示（D ）。--- 1409A卷20

A、所有表

B、所有指定条件的记录

C、所有记录

D、指定表中的所有字段

29. 如果当前的List1中为空（即没有选项），运行下列语句后，List1中的内容是（D ）---1504C卷21 Private Sub Command1_Click()

Dim s As String

For n = 1 To 3

s = Chr(65+n)

List1.AddItem s, n

A、A

B、 B

C、 C

D、 D

30. 以下正确的语句是：（C ）---1412B卷21

A、CommonDialogl.Filter=All Files|*.*|Pictures（*.Bmp）|*.Bmp

B、 CommonDialogl.Filter=” All Files” |” *.*” |” Pictures（*.Bmp）” |” *.Bmp”

C、 CommonDialogl.Filter=”All Files|*.*|Pictures（*.Bmp）|*.Bmp”

D、CommonDialogl.Filter={All Files|*.*|Pictures（*.Bmp）|*.Bmp}

31. 编写如下事件过程： ---1504C卷22

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button And 3) = 3 Then

Print "AAAA"

End If

End Sub

程序运行后，为了在窗体输出“AAAA”，应按下的鼠标键为（D）

A、左

B、右

C、同时按下左、右

D、按什么键都不显示

32. 当使用Seek方法或Find方法进行查找时，可以根据记录集的（B ）属性判断是否找到了匹配的记录。---1409A卷22

A、Match

B、NoMatch

C、 Found

D、 Nofound

1. 下列过程不能包含在标准模块中定义的是（A ）。

A. 事件过程

B. 子过程

C. 函数过程

D. 公共过程

2. 下列关于数据库说法错误的是（C ）

A. 一个表可以构成一个数据库

B. 多个表可以构成数据库

C. 一个表的每一条记录中的各数据项具有相同的类型

D. 同一个字段的数据具有相同的类型

5. 要设置列表框的选择方式，应使用（B ）属性。

A. Columns

B. MultiSelect

C. Style

D. List

6. 下面关于随机文件的描述，不正确的是：（B ）---1401批次4

A. 每条记录的长度必须相同

B. 一个文件中记录号不必惟一

C. 可通过编程对文件中的某条记录方便地修改

D. 文件的组织结构比顺序文件复杂

8. 下列控件中，（A ）不是用于文件操作的控件。

A. List Box

B. DriveListBox

C. DirListBox

D. FileListBox

9. 可以在窗体模块的通用声明段中声明（A ）。---1401批次6

A. 全局变量

B. 全局常量

C. 全局数组

D. 全局用户自定义类型

11. 当函数EOF()的返回值为真时，表示文件的指针指向（ B）--1401批次8

A. 开头

B. 尾部

C. 最后一个字节

D. 最后一个记录

14. 将通用对话框CommonDialog1的类型设置为“另存为”对话框，该调用该控件的（C ）方法。

A. ShowOpen

B. ShowColor

C. ShowSave

D. ShowFont

15. 在下列关于对话框的叙述中，错误的是（ A）：

A. 作为对话框窗体的Borderstyle、ControlBox、MaxButton和MinButton应分别设置为l、True、False和 False。

B. 语句frmAbout．Show vbModeless，frmMain将 fmAbout窗体显示为 fmMain的无模式子窗体。

C. 可以将对话框分成两种类型：模式的和无模式。

D. 语句frmAbout．Show将frmAbout作为无模式对话框显示。

19. 以下说法正确的是（D ）。

A. 使用Data控件可以直接显示数据库中的数据

B. 使用数据绑定控件可以直接访问数据库中的数据

C. 使用Data控件可以对数据库中的数据进行操作，却不能显示数据库中的数据

D. Data 控件只有通过数据绑定控件才可以访问数据库中的数据

22. 下面关于多重窗体的叙述中，正确的是（B ）。---1401批次13

B. 如果启动对象是 main子过程，则程序启动时可不加载任何窗体，以后由该过程根据不同情况决定

是否加载或加载哪一个窗体

C. 没有启动窗体，程序不能执行

D. 以上都不对

25. 下面关于过程作用域，错误的描述是（D ）。---1409A卷10

A. 全局级过程的作用域为整个工程

B. 在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前加上窗体名称

C. 在不同模块中定义的模块级过程可以同名

D. 在不同模块中定义的工程级过程不能同名

1. 确定一个控件在窗体上的位置的属性是(D )

A. Width或Height

B. Width和Left

C. Top或Height

D. Top和Left

2. 标准模块中的内容存放在以（B）为扩展名的文件中。---1401批次1

A. frm

B. bas

C. cls

D. xt

3. 下面的程序的输出结果是(B)

x=5

For i = 1 To 20 Step 2

x=x+i\5

Next i

Print x, i

A. 21 20

B. 21 21

C. 22 20

D. 22 21

4. 要使某控件在运行时不可显示，应对（B）属性进行设置。---1301批次B卷1

A. Enabled

B. Visible

C. BackColor

D. Caphon

5. 假设A=3，B=7，C=2，则表达式 A>B OR B > C 的值是 (A )

A. True

B. False

C. 表达式错误

D. 不确定

7. 求COS35°可以使用的函数是（D）。

A. Cos 35

B. Cos（35）

C. Cos（35o）

D. Cos（35*3.14159/180）

8. 下列赋值语句中（C）是错误的。---1401批次2

A. x＝x＋１

B. x＝x＋y

C. x＋y＝x

D. x＝４＞６

10. 若要取消窗体的最小化按钮，可以设置（D）属性来实现。---1401批次3

A. Top

B. Enabled

C. MaxButton

D. MinButton

11. “X是小于100的正实数”写成VB表达式正确的是：(A)

A. X > 0 AND X<100

B. X >0 OR X < 100

C. X >= 0 AND X < 100

D. X >= 0 OR X < 100

13. 在VB中不能表示逻辑真的是(D)。

A. True

B. –1

C. 1

D. T

15. 语句Print 6 * 6 \ 6 / 6的输出结果是（D）

A. 0

B. 1

C. 6

D. 36

17. 下列可作为Visual Basic中所允许的形式的数是(C)

A. ±25.74

B. 3.457E-100

C. 368

D. 1.87E+50

19. 若有数组说明语句：Dim t(1 To 10) As Variant，则t被定义为（D）。---1401批次9-

A. 数值数组

B. 可调数组

C. 字符串数组

D. 可变类型数组

20. Function过程要由函数名返回一个值。如果不使用As数据类型选项来指定函数的类型，函数类型默认为（B）类型。---1401批次10

A. Integer

B. Variant

C. Long

D. Siring

21. 设有数组说明语句：Dim b（－１To２，－２To２），则数组b中元素的个数是（D ）。

A. 12

B. 15

C. 16

D. 20

24. 把数值型转换为字符（串）型需要使用下列哪一个函数？（B）

A. Val

B. Str

C. Asc

D. Chr

1. 下面的数写成普通的形式是1.21576654590569E+019 ( D)

A. 12157665459056900

B. 121576654590569000

C. 1215766545905690000

D. 12157665459056900000

2. 下列赋值语句合法的是（A）

A. A=A+B

B. A+B=A

C. –A=A

D. A=2B

A. －1

B. 1

C. true

D. false

5. 若将命令按钮设置为默认命令按钮，可以通过（C ）属性来实现。

A. Value

B. Cancel

C. Default

D. Enabled

6. 通用过程可以通过执行“工具”菜单中的（A）命令来建立。---1301批次B卷2

A. 添加过程

B. 通用过程

C. 添加窗体

D. 添加模块

7. 假设A=3，B=7，C=2，则表达式 NOT ( B>A) 的值是 (B)--- 1301批次B卷3

A. True

B. False

C. 表达式错误

D. 不确定

9. 在表达式 y = InputBox ( a, b, c ) 中，b 为输入函数对话框的（A）。

A. 标题

B. 提示

C. 预设值

D. 帮助文件名

11. 为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为(B)--- 1301批次B卷4

A. 1

B. 2

C. 3

D. 4

12. 若有数组说明语句：Dim t(1 To 10) As Variant，则t被定义为（D）。---1301批次B卷5

A. 数值数组

B. 可调数组

C. 字符串数组

D. 可变类型数组

14. 不论何对象，都具有（B）属性。

A. Text

B. Name

C. ForeColor

D. Caption

15. 下列语句正确的是（C）。---1301批次B卷7

A. For i=1 To m

For j=1 To n

Next i

Next j

B. For i=1 To m

For j=1 To n

Next i,j

C. For i=1 To m

For j=1 To n

Next j,i

D. For i=1 To m

While x>0

Next i

end

16. 下列过程调用合法的是（C）

A. Call Prog a,b

B. Prog(a,b)

C. Call Prog(a,b)

D. 以上都不对

18. 数学式子Sin25°写成VB表达式是（）。

A. Sin25

B. Sin（25°）

C. Sin（25）

D. Sin（25*3.14/180）

19. 以下程序段中循环语句（B）。---1301批次B卷8

x%=0

While Not x

x=x+1

Print x

Wend

A. 有语法错误

B. 溢出

C. 循环体执行一次

D. 循环体一次也不执行

A. 12

B. 16

C. 18

D. 20

23. 下列一维数组说明语句错误的是（C。

A. Dim b(100) AS Double

B. Dim b(-5 To 0) AS Byte

C. Dim b(-10To –20) AS Integer

D. Dim b(5 To 5) AS String

24. 设已定义函数过程f，它有三个整型数值参数，再设a,b和c为实型变量，则调用该函数过程使用的语句为（D）。

A. f

B. f( a+b, b+c )

C. f ( a+b, b+c ,c+a )

D. f a+b, b+c, c+a

25. 执行下面程序段时，内循环的循环次数是（D）。

For m=1 To 3

n=0

While n<=m-1

Print m,n

n=n+1

Wend

Next m

A. 3

B. 4

C. 5

D. 6

10. 若有以下说明语句 Type employee num As Integer salary As Single End Type Dim programmer As employee 则下面表示记录变量 programmer 的成员 Salary 正确的是（D ）。

---1412B卷10

A、programmer→salary

B、 salary

C、 salary.programmer

D、 programmer.salar

10、函数Len (Str (Val (“123.4”) ) ) 的值为（C）。---1504C卷10

A、11

B、5

C、6

D、8

6、如果X是一个正实数，精确到小数点后第二位的表达式是（B）---1301批次B卷6

A、0.01 * Int ( X + 0.005 )

B、 0.01 * Int ( 100 * ( X +0.005 ) )

C、 0.01 * Int ( 100 * ( X +0.05 ) )

D、 0.01 * Int ( X +0.05 )

二、判断题（共5题、总分10分、得分0分）

1.整除（\）运算时，若运算量为实数，则结果为实数或整数。（×）

2.赋值符号“=”左边可以是常量、符号常量、表达式。（×）

3.数组作为参数，函数调用时一定是按地址传递。（√）

4.用“&”符号进行连接时，两个操作数必须为字符型。（×）

5.事件过程通常由事件驱动执行，而Sub过程通过过程调用执行。（√）

1.通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上。（×）

2.将复选框的Value属性设置成2后，则该复选框变成灰色，说明用户无法选择该选项。（×）

三、填空题（共10题、总分40分、得分40分）

1.计时器每经过一个由Interval属性指定的时间间隔就会触发一次Timer事件。---1409A卷2、1412B卷2

2.要使用工具栏控件设计工具栏，应首先在“部件”对话框中选择.Microsoft Windows Common Controls 6.0 ，然后从工具箱中选择ToolBar控件。---1504C卷2

3.假定有一个通用对话框控件CommonDialogl，除了用CommonDialogl．Action＝3显示颜色对话框之外，还可以用CommonDialogl．ShowColor方法显示。---1409A卷4

4.使用line方法画矩形，必须在指令中使用关键字B。---1412B卷4、1504C卷4

5.组合框的Style设置为2时，其风格为下拉式列表框；列表框的Style设置为1时，其风格为复选框。---1412B卷6

6.使用通用对话框控件打开字体对话框时，如果要在字体对话框中列出可用的屏幕字体和打印机字体，必

7.注释语句是一个非执行语句，对程序的执行结果没有任何影响，它的作用是给程序增加一些注释；提高程序的可读性。

8.要在运行时给状态栏 StatusBar1的第二个窗格添加一幅图片，该图片由文件“c：＼windows＼winupd．ico”指定，应使用语句：。----1504C卷8

StatusBar1．Panels（2）．Picture＝LoadPicture（”C：＼Windows＼Winupd．ico”）

9.假定一个文本框思的Name属性为Text1，为了在该文本框中显示“Hello!”，所使用的语句为Text1.Text ="Hello!"。---1504C卷6

10.设Form1.Scaleleft=-150，

Form1.Scalertop=-200，

Form1.Scalewidth=350，

Form1.Scaleheight=500，

则Form1的右下角坐标为200,300。

1. 若在标准模块中以关键字public定义子过程，则在整个应用程序中都可以调用该过程。

3. VB中三种文件访问类型是顺序、随机、二进制。---1301批次B卷2、1401批次C卷3

4. 不论任何控件，共同具有的是Name（名称）属性。

6. 每一个过程都有一个使用范围，过程的使用范围称为过程的作用域。

7. 按数据的组织方式不同，数据库可以分为3种类型，即层次数据库、网状数据库和关系数据库。---1401批次C卷1

8. 菜单在运行时的动态增减主要通过控件数组实现，首先将菜单项的Visible属性设为False，然后在程序中用Load语句加载。

9. 随机文件以记录为单位读写，二进制文件以字节为单位读写。

10. 当单选按钮的Value属性为False时表示该单选按钮处于未选中状态。---1401批次C卷5

1.根据文件内容区分，文件分为程序文件和数据文件。---1301批次B卷1

3. 要使标签框有边框，需设置BorderStyle属性的值为1－Fixed Single。---1301批次B卷3

4. VB程序的错误一般分为编译错误，运行时错误，逻辑错误三类。---1301批次B卷4、1401批次C卷4

5. 在执行KeyPress事件过程中，KeyAscii是所按键的ASCII值，对于有上档字符和下档字符的键，档执行KeyDown事件过程中，KeyCode是下档字符的ASCII值。---1301批次B卷5

1.当Scale方法不带参数时，则采用缺省坐标系。---1401批次C卷2

1.控件数组是由一组相同类型的控件构成。---1409A卷1

3.若需要对菜单进行分组，则可以在菜单编辑器中，将菜单项的分隔符设为“－”。---1409A卷3

5.在一个窗体中，只允许一个命令按钮的 Default 属性设置为 True。---1409A卷5

7.设

Form1.Scaleleft=-250，

Form1.Scalertop=300，

Form1.Scalewidth=350，

Form1.Scaleheight=500，

则 Form1 的右下角坐标为100,800。---1409A卷7

8.假定一个文本框的 Name 属性为Text1，为了在该文本框中显示“Hello!”，所使用的语句为Text1.test="Hello" 。---1409A卷8

1、设置工具栏控件的（Align ）属性可以改变工具栏在窗体上的位置。---1412B卷1

3、若使用赋值语句给对象的属性赋值时缺少对象名，则系统默认的对象（当前窗口）。---1412B卷3 5、要使数据绑定控件能够显示数据库记录集中的数据，必须首先在设计时就在运行时设置这些控件的两个属性，即使用（DataSource）属性设置数据源，使用（DataField）属性设置要连接的数据源字段的名称。---1412B卷5

7、以下循环的执行次数是（101）---1412B卷7

K=0

Loop Until k>100

8、设Form1.Scaleleft=-150，

Form1.Scalertop=-200，

Form1.Scalewidth=350，

Form1.Scaleheight=500，

则Form1的右下角坐标为（200,300 ）。---1412B卷8

1、注释语句可以放在可执行语句的后面，但必须是一行中最后一个语句。---1504C卷1

3、如果把菜单项的Checked属性设置为True，则该菜单项成为一个选项。---1504C卷3

5、若使命令按钮Command1重新生效，则使用的赋值语句为Command1.Enabled=True 。---1504C卷6 7、将窗体Form1移动到屏幕（300，500）的位置，并将大小改变为3000×2000使用的语句是（）。form1.left=300

form1.top=500

form1.width=3000

form1.height=2000---1504C卷7

四、程序阅读题

1.Private Sub Form_Click()

num = 0

Do num= num+ 1

Print num

Loop Until num＞ 2

End Sub 程序运行后，单击窗体，输出结果是_____________ ---1412B卷2

1 2 3

2.写出下面事件过程的执行结果。---1409A卷2

Private Sub Command1_Click()

Dim s(1 To 6) As Integer

For i=1 To 6

s(i)=i

Next i

For i=1 To 3

For j=4 To 6

t=s(i)

s(i)=s(j)

s(j)=t

Next j

Next i

For i=1 To 6

Print s(i)

Next i

End Sub

6 5 4 3 2 1

3.下面程序运行后的结果是什么？该程序的功能是什么？

Private Sub Commandl_Click（）

Dim x$，n％ n=20

Do While n＜＞0

a＝n Mod 2

n＝n＼2

x＝Chr（48＋a）＆x

End Sub

运行后结果为10100，该程序的功能是将十进制数转换成二进制字符串。

4.执行下面的程序，单击命令按钮Command1后在窗体上显示的图形功能是什么?---1409A卷4、1412B 卷4、1504C卷4

Private Sub Command1_Click()

Cls

Print

For n = 1 To 8

Print Tab(2 * n + 2);

For m = 1 To 8

Print Spc(1); "*";

Next m

Print

Next n

End Sub

由“*”号组成的平行四边形

1. 下面程序的功能是什么？ ---1401批次C卷3

Private Sub Command1_Click()

Dim a%, s%, n%

a = Val(InputBox("Please input a number:"))

Do While (a > 0)

s = a Mod 10

a = a / 10

n = n + func(s)

Loop

Print n

End Sub

Private Function func(x%) As Integer

func = x * x

End Function

答：求一个数各位上的数的平方和。

2. 下面程序的功能是什么？---1504C卷1

Private Sub Command1_Click()

Dim s%, n%

Dim a As String

n = 0

a = InputBox("Please input a number:")

For s = 1 To Len(a)

If (func(Val(Mid(a, s, 1)))) Then

n = n + 1

Next

Print n

End Sub

Private Function func(x%) As Boolean

If (x Mod 2 = 0) Then

func = True

Else

func = False

End If

End Function

3. 写出下列事件过程的执行结果。

Private Sub Command1_Click()

Dim s% s=f(5)

Print "s="; s

End Sub

Private Function f(ByVal n As Integer)

If n=1 Then

f=1

Else

f=n+f(n - 1)

End If

End Function

答：s=15

4. 完成一个时钟定时的程序，要求按下Command1按钮后开始计时，每半个小时调用一次PrintTime()子过程，在窗体上打印当前的日期和时间。要求每空只能写一个执行语句，不允许用“:”将多个语句写在一起。

Private Sub Command1_Click()

____Timer1.Interval = 30000_______

____Timer1.Enabled = True_______

End Sub

Private Sub Timer1_Timer()

Static n As Integer

_____n = n + 1____

If (n = 60) Then

Call

Print Time

____n = 0 ___

End If

End Sub

Private Sub

PrintTime()

Form1.FontSize = 30

Form1.ForeColor = RGB(0, 255, 0)

Form1.BackColor = RGB(0, 0, 0)

Print ___Time(), Date()______

End Sub

5. 写出下列事件过程的执行结果。

Public x As Integer Private Sub Command1_Click()

x=10

Print x

Call s1

Print x

Call s2

Print x

End Sub

Private Sub s1()

x=x+20

Print x

End Sub

Private Sub s2()

Dim x As Integer

x=x+20

答：执行结果为： 10 30 30 20 30

1、下面事件过程的功能是输入某班学生的某门课程成绩，并存放到文件“d:\file2.dat”中，在横线上

填上适当内容。---1301批次B卷1、1401批次C卷2

Private Sub Command1_Click()

Dim n%, i%, score!

n = InputBox("输入学生人数：")

Open "d:\file2.dat" For Output As #1

For i = 1 To n

score = InputBox("输入第" & Str(i) & "个学生的成绩：")

Write #1, score

Next i

Close #

End Sub

2、在窗体上画一个文本框，有如下事件过程：---1301批次B卷2

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim char As String

char= Chr(KeyAscii)

KeyAscii = Asc(UCase(char))

Print String(6, KeyAscii)

End Sub

程序运行后，如果在键盘上输入字母“a”，则窗体上显示的结果为：AAAAAA 。

3、阅读程序

Sub form_click()

a = 10:

b = 15

c = 20

d = 25

Print a; Spc(5); b; Spc(7); c

Print a; Space$(8); b; Space$(5); c

Print c; Spc(3); "+"; Spc(3); d;

Print Spc(3); "="; Spc(3); c + d

End Sub

运行上面的程序，单击窗体，输出结果是（）---1301批次B卷3

输出是这样

10 15 20

10 15 20

20 + 25 = 45

分为顺序文件和结构文件

4、Private Sub Command1_Click()

Dim n As Integer

Dim t As Integer

n = 354

t = 0

While (n > 1)

t = t + f1(n Mod 10) n = n \ 10

Wend

Print t

End Sub

Public Function f1(n As Integer)

If (n = 0) Then

f1 = 0

Else If (n = 1) Then

f1 = 1

End If

End Function

单击一次Command1按钮一次，窗体上显示的是什么？150---1301批次B卷4

5、下面程序的功能是对两个整型变量的值进行交换，在横线上填上适当内容。---1301批次B卷5 Private Sub Command1_Click()

Dim a As Integer, b As Integer

a=10

b=20

Print "a="; a, "b="; b

swap a, b 或 Call swap( a, b)

Print "a="; a, "b="; b

End Sub

Private Sub swap(ByRef a As Integer, ByRef b As Integer)

Dim t As Integer

t=a: a=b: b=t

End Sub

1、Private Sub Command1_Click()

For I= 1 To 4

For J = 0 To I

Print Chr$(65 + I);

Next J

Print

Next I

End Sub

程序运行后，如果单击命令按钮Command1，则在窗体上显示的内容是69。---1401批次C卷1

1. Private Sub Form_Click()

num = 0

Do

num = num + 3

Print num

Loop Until num Mod 4 = 0

End Sub

程序运行后，单击窗体，输出结果是_______。答：3 6 9 12---1409A卷1

3.写出下列事件过程的执行结果。---1409A卷3

Private Sub Command1_Click()

Dim i%

For i=1 To 3

Call s4

Next i

End Sub

Static Sub s4()

u=u+1: v=v+1

Print "u="; u, "v="; v

End Sub 答：

u=1 v=1

u=2 v=2

u=3 v=3

1.写出下列事件过程的执行结果。---1412B卷1

Private Sub Command1_Click()

s3（1）

Privite Sub s3(By Val a As Integer)

Dim x As Integer

Static y As Integer

x=x+a

y=y+a

Print “x=”；x，“y=”；y

End Sub

x=1 y=1

x=1 y=2

3.有如下事件过程，写出运行结果---1412B卷3

Private Sub Command1_Click()

s=0

i=1

Do While i<=5

s=s+i∧2

i=i+1

loop

Print “s=”& s

End Sub

s=55

2、下面程序运行后的结果是什么？该程序的功能是什么？---1504C卷2

Private Sub Commandl_Click（）

Dim x$，n％ n=20

Do While n＜＞0

a＝n Mod 2

n＝n＼2

x＝Chr（48＋a）＆x

loop

Pint x

End Sub

答：运行后结果为10100，该程序的功能是将十进制数转换成二进制字符串。

3、有下面一段程序，运行后单击Command4按钮，过3分钟后Text1中的内容是什么？---1504C卷3 Public a As Integer Private Sub Form_Load( )

a=0

End Sub

Private Sub Command4 Click（）

Timer1. Enabled = 1

Timer1. Interval = 100

End Sub

Private Sub Timer1_Timer( )

Static a%

a = a + 1

If a Mod 10 = 0 Then

f1 a

End If

End Sub

Static Sub f1(s%)

a = a + 1

s =0

答：18

五、问答题

1.通过调试窗口中的“立即”窗口、“本地”窗口和“监视”窗口调试时的差别？---1504C卷4

答：“立即”窗口是调试窗口中使用最方便、最常用的窗口。可以在程序代码中利用Top“立即”窗口是调试窗口中使用最方便、最常用的窗口。可以在程序代码中利用Debug．Pint方法，把输出送到“立即”窗口，也可以直接该窗口使用 Print语句或“？”显示变量的值。“本地”窗口显示当前过程中所有变量的值。当程序的执行从一个切换到另一个过程时，“本地”窗口的内容会发生改变，它只反映当前过程中可用的变量。“监视”窗口可显示当前的监视表达式。在设计阶段必须在设计阶段，利用“调试”菜单的“添加监视命令”或“快速监视”命令添加监视表达式以及设置的监视类型，运行时可显示在“监视”窗口。

2.RGB函数中的参数按什么颜色排列，其有效的数值范围是多少？怎样用RGB函数实现色彩的渐变？

---1412B卷4

答：RGB函数中的三个参数按红、绿、蓝的方式排列，RGB函数三基色的取值在0－255之间，当该值大于255时，RGB函数将其当作255处理。为实现色彩的渐变，只要在循环内连续改变三基色的取值。

3.Now函数和Date函数有何区别？

答： Now函数和Date函数都是求当前机器内日期，不同之处是Now函数除日期外还带回时间。

4.调用函数的一般格式是什么？---1409A卷4

答：计算机编或运行时，使用某个函数来完成相关命令。调用方法：函数名（参数列表）有参函数函数名无参函数

1. 在Visual Basic中可使用哪些格式的图形文件？---1504C卷1

答：Visual Basic可处理图形文件主要有 bmp、ico、wmf、jpg、gif和 cur。

2. 解释一下keycode 参数的用法？

答：Keycode 参数表示按下的物理键。上档键字符和下档键字符也是使用同一键，它们的Keycode值相同。keycode 参数通过 ASCII 值或键代码常数来识别键。字母键的键代码与此字母的大写字符的 ASCII 值相同。

3. 菜单名与菜单项有什么区别？---1401批次C卷1

答：菜单名是菜单栏上表示包含菜单项列表的对象，菜单项可以包括命令、分隔条和子菜单标题。每个菜单命令项对应一个应用程序，菜单项可以有热键与快捷键，而菜单名只能有热键。

4. 如何在目录列表框表示当前选定的目录?

答：在程序运行时双击目录列表框的某目录项，则将该目录项改变为当前目录，其Dirl．Pah的值做相应的改变。而当单击选定该目录项时，Dirl．Path的值并没有改变。为了对选定的目录项进行有关的操作，即与ListBox控件中某列表项的选定相对应，则表示如下： Dirl．List（Dirl．Listlndex）

5. 如何解决大数相乘产生“溢出”问题？

答：例如：在以下程序代码中，当 n的值为较大如 1000时，则运行如下程序段会产生“溢出”问题：Dim n％ Pi=2

For n=1 To 1000

Pi=Pi*（2*n）^2／(2*n-1）*（2*n+1）

Nex n 改进方法一：n声明为双精度类型。改进方法二：大数先除以大数再相乘，即程序段如下：

Dim n％ Pi=2

For n＝1 To 1000

Pi= Pi*（2*n）／(2*n-1）*（2*n）／（2*n+1）

Next n

1、VB坐标系中旋转什么方向是正向？---1301批次B卷1

答：在VB坐标系中，逆时针方向为正，各绘图方法都参照此坐标系。计算对象的坐标点时务必注意这一点。

2、要使单精度变量x,y,z分别保留1位、2位、3位小数位，并在窗体显示，使用什么函数？如何写对应的Print方法？---1301批次B卷2

答：使用Format函数，具体如下：

Print Format(x,”0.0”) 显示1位小数位

Print Format(x,”0.00”) 显示2位小数位

Print Format(x,”0.000”) 显示3位小数位

当表达式包含多个运算符时，将按预定顺序计算每一部分，这个顺序被称为运算符优先级。

可以使用括号越过这种优先级顺序，强制首先计算表达式的某些部分。运算时，总是先执行括号中的运算符，然后再执行括号外的运算符。但是，在括号中仍遵循标准运算符优先级。

当表达式包含多种运算符时，首先计算算术运算符，然后计算比较运算符，最后计算逻辑运算符。所有比较运算符的优先级相同，即按照从左到右的顺序计算比较运算符。算术运算符和逻辑运算符的优先级如下

在一个表达式中时，按从左到右的顺序计算加、减运算符。

1.在调试过程中，如何插入断点？ ---1409A卷1

答：在代码行按F9按鼠标右键，选择[Insert/Remove Breakpoint]，可以插入一个断点。

2.什么是“内外循环交叉”？ ---1409A卷2

答：循环嵌套时，内外循环交叉。

For i＝1 ito 4

For j= 1 to 5"

Next i

Next j

上述循环的交叉，运行时显示“无效的 Next 控制变量引用”。外循环必须完全包含内循环，不得交叉。

3.请说明 Print＃和 Write＃语句的区别。---1409A卷3

答：两者差别： 1.Write 语句通常用紧凑格式输出，即各数据项之间用逗号分割，在写入文件时，数据项之间会自动用逗号作为分界符分割开。而 Print 语句中的表达式之间因所用分隔符逗号或分号的不同，其数据项间的位置不同，且不会自动加入定界符。 2.Write 语句通常与 Input#读语句配合使用，Print 语句常与 Line Input 读语句配合使用。 3.Write 语句通常用于数据写入文件后还要用 VB 程序读出时；而 Print 语句通常用于写入文件的数据以后要被显示或打印出来时，作为格式输出语句。

1、Visual Basic 在构造图形时，有几个图形层次？能否将标签放置到文本框上方？---1412B卷1

答：Visual Basic 在构造图形时，有三个图形层次；不能将标签放置到文本框上方。

2、KeyPress与KeyDown事件的区别是什么？---1412B卷2

答：KeyPress指按下对应某ASCII 字符的键； KeyDown指按下键盘的任意键。

3、在程序运行时怎样在图形（像）框中装入或删除图形？---1412B卷3

答：在程序运行时可以通过LoadPicture（）函数、剪贴板ClipBoard对象和对象间图片的相互复制三种方法在图形（像）框中装入图形，删除Picture属性中的图形只需要调用无参数的LoadPicture（）函数。

2、DragMode属性的作用是什么？---1504C卷2

答：DragMode属性的作用是DragMode=0表示手动拖拽；DragMode=1表示自动拖拽。

3、叙述InputBox函数和MsgBox函数的调用情况。---1504C卷3

答：MSGBOX主要功能是“提示“，用户根据提示，点击鼠标，程序接收用户选择，即INTEGER值（例：VBYES,VBNO等等），程序根据用户选择决定执行什么功能，

INPUTBOX主要功能是“接收”，接收一个STRING变量，给INPUTBOX指定默认值。另外用户点击“取消”返回一个空值。程序对用户输入的值进行处理，INPUTBOX返回的结果是程序下一步运行的参数。

1、在窗体上移动一由控件shape1构成的正方形，每次移动时使正方形的长和宽增加100缇。---1401批次C卷1

答：

利用控件的移动事件

Private Sub Command1_Click()

Shape1.Move Shape1.Left + 100,Shape1.Top + _100,

Shape1.Width + 100,Shape1.height + 100

End Sub