C. 复选框呈灰色不可用 D. 复选框操作有误 63、以下叙述中正确的是_____A____。

A. 窗体及窗体上所有控件的事件过程代码都保存在窗体文件中 B. 在工程中只有启动窗体可以建立菜单 C. 窗体名称必须与窗体文件的名称相同 D. 程序一定是从某个窗体开始执行的

64、要改变Label控件中文字的颜色，可以设置Label控件的___C_____属性。 A． FontColor B. FillColor C. ForeColor D. BackColor 65、滚动条控件取值范围最大值的属性是____A_____。

A. MaxChange B. LargeChange C. Value D.Max-Min 66、要获知当前列表项的数目，可通过____B____属性实现。 A.List B.ListCount C.ListIndex D.Text

67、可以通过修改控件数组中的控件的____C____属性值改变其在数组中的顺序。 A.Font B.Caption C.Index D.Name 68、用来设置斜体字的属性是 ___B_____。

A. FontBold B. FontItalic C. FontName D. FontSize 69、复选框的Value 属性为 2时，表示 ____C____。 A.复选框未被选中 B.复选框被选中 C.复选框呈灰色不可用 D.复选框操作有误 70、下列控件中没有Caption属性的是 ____B____。 A.框架 B.列表框 C.复选框 D.单选按钮

71、滚动条产生Change事件是因为 ____B____值改变了。 A.SmallChange B.Value C.Max D.LargeChange

72、如果要每隔15s产生一个Timer事件，则Interval属性应设置为___D_____。 A.15 B.900 C.150 D.15000 73、列表框的 ____C____属性是数组。

A.List 和 ListIndex B.List 和 ListCount C.List 和 Selected D.List 和 Sorted

74、以下不允许用户在程序运行时输入文字的控件是____D____。 A.文本框 B.下拉式组合框 C.简单组合框 D.下拉式列表框 75、____A____不是VB控件。

A. 窗体 B. 定时器 C. 单选框 D. 复选框

76、要将窗体从内存中卸载出去，其实现的方法是____D____。 A. Show B. Hide C. Load D. UnLoad

77、要使按钮上能放置图片需要修改按钮的___D_____属性。 A. MaskColor B. BackColor C. Visible D. Style 78、能清除文本框Text1中内容的语句是____B____。 A. Text=\ B. Text1.Text=\ C. Text1.Clear D. Text1.Cls

79、设置标签Label1不可见的语句是___D_____。 A. Label1.Visible==0 B. Label1.Visible==1 C. Label1.Visible=True D. Label1.Visible=False

80、设置Line控件的____A____属性可使其呈现不同线型。 A. BorderStyle B. Style C. FillStyle D. Shape

81、要使文本框的滚动条ScrollBars属性有效，首先要将____A____属性设置为True. A.MultiLine B.Visible C.Text D.MaxLength

82、设置Image控件的____C____可使框内的图片按图像框大小自动调整。 A.AutoSize属性为True B.AutoSize属性为False C.Stretch属性为True D.Stretch属性为False

83、命令按钮、单选按钮、复选框上都有Picture属性，可以在控件上显示图片，但需要通 过____B____来控制。

A. Appearance属性 B.Style属性 C.DisablePicture属性 D.DownPicture属性 84、如果要在菜单中添加一个分隔线，则应将其Caption属性设置为____D_____。

A．= B．* C. & D．-

85、下列不能打开菜单编辑器的操作是____D_____。

A. 按Ctrl+E键 B. 单击工具栏中的“菜单编辑器”按钮 C. 执行“工具”菜单中的“菜单编辑器”命令 D．按Shift+Alt+M键

二、判断题

1、 方法是预先定义好的、能够被对象识别的动作。（ 错 ）

2、 工程资源管理器管理文件主要有6类，即窗体文件（.frm）、标准模块文件（.bas）、类模块文件（.cls）、

工程文件（.vbp）、工程组文件（vbg）和资源文件（.res）。（ 对 ） 3、 所有属性都可以在属性窗口设置。（ 错 ）

4、 在Visual Basic设计界面中,工程窗口是不能隐藏的窗口。（ 错 ）

5、 在语句中If x=1 Then y=1中，x=1为关系表达式，y=1为赋值语句。（ 对 ） 6、 若要退出for循环，可使用Exit语句。（ 错 ）

7、 在For??Next循环中，其中step步长可以是正数、负数或者零。（ 错 ） 8、 文本框中显示的内容可根据文本框的大小自动换行。（ 错 ） 9、 Dim a1,a2 as integer 语句声明变量a1和a2都为整型变量。（ 错 ） 10、 VB中的变量必须先声明才可使用。（ 错 ）

11、 在VB的工具箱中包括了所有的VB控件，我们不能再加载其他的控件。（ 错 ） 12、 所有的控件在程序运行以后都是可见的。（ 错 ）

13、 VB中有两种常量：直接常量和符号常量；两者的区别在于后者在程序运行过程中可以根据程序执行的

要求改变该常量的值。（ 错 ）

14、 在同一过程中声明数组时，数组名可以与变量名相同。（ 错 ） 15、 PictureBox控件不是“容器”控件。（ 错 ）

16、 菜单编辑器中的快捷键是指无须打开菜单就可以直接由键盘输入选择菜单项的键。（ 对 ） 17、 在一个语句内写多条语句时，每个语句之间用：符号分隔。 （ 对 ） 18、 若要取消窗体的最大化功能，可设置MaxButton属性为False来实现。（ 对 ） 19、 面向对象程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。（ 对 ）

20、 窗体模块和标准模块都是只由代码组成。（ 错 ）

21、 用户定义类型中的元素可以是任何数据类型，如变长字符串型，整型等。（ 对 ） 22、 赋值语句的功能是计算表达式值并转换为相同类型数据后为变量或控件属性赋值。（ 对 ） 23、 Do While??Loop循环至少执行一次，Do ??Loop Until循环可能不执行。（ 错 ） 24、 if 6>5 then x=5 endif是一条合法语句。（ 错 ）

25、 给三个变体型变量x、y、z,分别对三个变量赋值：x=1、y=1、z=x=y，那么变量z的值也是1（ 对 ） 26、 逻辑型数据只有两个值：0和1。 （ 错 ）

27、 InputBox函数返回值的类型是数值或字符串。（ 错 ） 28、 在VB中，运算 \的结果是True。（ 对 ） 29、 在VB中，运算 \的结果是True。（ 对 ） 30、 通用过程中使用Static关键字定义的过程级变量都是静态变量。（ 对 ） 31、 由Array函数建立的数组必须是Variant类型。（ 对 ）

32、 文本框和标签控件有许多共同特点，它们都能显示和输入文本。（ 错 ） 33、 菜单一旦建成后，所有的菜单项均可识别Click事件。（ 错 ） 34、 可以同时删除字符串前导和尾部空白的函数是Trim。（ 对 ） 35、 一条赋值语句只能给一个变量赋值，不能给多个变量赋值。（ 对 ） 36、 递归结构属于3种控制结构之一。（ 错 ）

37、 VB中给对象的属性赋值可以通过赋值语句实现。（ 对 ）

38、 在Select Case语句中，关键字Case后面的取值格式有3种。（ 对 ） 39、 一个工程只能有一个窗体。（ 错 ）

40、注释语句作为一个独立行，可放在过程、模块的开头作为标题，也可以放在执行语句的后面。（ 对三、填空题

1、 窗体上有一个命令按钮Command1，编写如下事件过程：

Private Sub Command1_Click() x = InputBox(\y = InputBox(\Print x + y End Sub

运行后，单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是（ 123321 ）。

2、 语句Form1.Print \的输出结果为：（ 1020 ）。

）3、 执行下面程序，输出结果是（ 2 ）。

Private Sub Command1_Click() Dim aa As Variant aa=Array(1,2,3,4) Print aa(1) End Sub

4、 控件数组中以（ index ）属性来区分各个元素。

5、 程序运行时单击第三个命令按扭，Label1的背景色是蓝色，请将下面代码补充完整。

Private Sub Command1_Click(Index As Integer) Select Case Index Case 0

Label1.BackColor= VbRed Case 1

Label1.BackColor= VbGreen Case 2

Label1.BackColor=（ Vbblue ） End Select End Sub

6、 执行下面程序，输出结果是n=（ 3 ），j=（ 42 ）。

Dim j as integer,n as integer j=1：n=0 Do While n<3 j=j * (j+1) n=n+1 Loop

Print n; j

7、执行以下程序段后，x和a的值分别为： （ 20 ） 、（ 10 ）。 Private Sub Command1_Click() Dim a As Integer, b As Integer a = 10: b = 10 Call mysub(a, b)