用计算机设置变大的命令按钮 vb,2015年计算机二级考试《VB》考前练习题(4)

1[简答题] 在名称为Form1的窗休上添加一个名称为Label1的标签，字号大小为四号，标题为“等级考试”，如图1所示。通过设置属性使标签初始为不显示。请编写适当的程序，使得运行程序时，窗体的标题立即变为“标签”，单击窗体时，显示标签，如图2所示。

注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为sjt2.frm，工程文件名保存为sit2.vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。

参考解析：

【考点分析】本题考点有：标签的Name、Caption、Visi.ble和FontSize属性以及窗体的Caption属性。

【解题思路】通过标签的Name、Caption和FontSize属性设置标签的名称、标题和字体大小，通过设置标签的Visible属性为False，使标签初始为不可见。编写适当的程序，在Form_Load事件过程中，窗体的Caption属性值立即变为“标签”，在Form_Click事件过程中单击窗体时，设置标签的Visible属性为True显示标签。

【操作步骤】

步骤1：新建一个窗体，按照题目要求建立控件并设置其属性，如表3.37所示。

步骤2：编写程序代码。

参考答案

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

2[简答题](1)在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，其标题分别为“编程语言”和“帮助”，名称分别为vbLanguage和vbHelp，其中“编程语言”菜单包括“C++”、“Basic”和“JAVA”三个子菜单，名称分别为vbLanguage1、vbLanguage2和vbLanguage3。程序运行后，如果在“编程语言”的下拉菜单中选择“C++”，则在文本框内显示“指针”;如果选择“Basic”，则在文本框内显示“对话框”;如果选择“JAVA”，则在文本框内显示“对象”。程序中不能使用任何变量，直接显示字符串。程序运行后，选择“编程语言”的“c++”选项，则界面如图26-3所示。

注意：保存时必须存放在考生文件夹下，窗体文件名为sj3.frm，工程文件名为sj3.vbp。

(2)在考生文件夹中有文件sj4.vbp及其窗体文件sj4.frm，该程序是不完整的。窗体上有一个名称为Text1的文本框;两个复选框，名称分别为Check1和Check2，标题分别为“足球”和“篮球”。要求程序运行后，如果只选中Check1，单击窗体，则在文本框中显示“我的爱好是足球”;如果只选中Check2，然后单击窗体，则在文本框中显示“我的爱好是篮球”;如果同时选中Check1和Check2，单击窗体，则在文本框中显示“我的爱好是足球和篮球”;如果Check1和Check2都不选取，在单击窗体后，则在文本框中什么都不显示。程序运行选中两项时，界面如图26-4所示。

注意：请在有“?”的地方填入正确内容，然后删除“?”及所有注释符“'”，但不能修改其他部分。存盘时不得改变文件夹和文件名。

参考解析：

(1)在Visual Basic中，菜单也被看做控件，具有属性和事件。菜单的建立在菜单编辑器中完成，菜单的级数通过内缩符号来表示，第一级菜单没有内缩符号，第二级菜单的内缩符号为1;文本框的内容由Text属性设置。根据题意，按“Ctrl+E”组合键打开菜单编辑器，在其中添加如下菜单项：

标签名称内缩

编程语言vbLanguage无

C++vbLanguage1一位

BasicvbLanguage2一位

JAVAvbLanguage3一位

帮助vbHelp无

单击“确定”按钮，完成菜单编辑。再将一个文本框控件添加到窗体中，将其名称设为Text1，在代码窗口中编写如下代码：

(2)在Visual Basic中，复选按钮的标题由Caption属性设置，Value属性用来表示复选框的状态，复选框的Value属性有0、1或2三种取值，0表示未选中;1表示选中该复选框;2表示该复选框被禁止(灰色)。

根据题意，将一个文本框控件和两个复选框添加到窗体中，文本框控件的名称设为Text1，复选框的名称分别设为Check1和Check2，Caption属性分别设为“足球”和“篮球”。双击复选框进入代码窗口，补充后的具体代码如下：

3[单选题] 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

程序运行后，如果在输入对话框中输入2，则窗体上显示的是(　　)。

A.分支1B.分支2C.Else分支D.程序出错

参考答案：C

参考解析：本题考查对Case语句的使用。SelectCase.语句为分支选择语句，根据不同的条件选择不同的操作。InputBox用于获得用户的输入，以字符串格式存入变量，由于在程序运行后输入2，因此程序将执行Else分支，即输出“Else分支”。

4[单选题] 如果要在窗体上画一个标签，应在工具箱窗口中选择的图标是

A.

B.

C.

D.

参考答案：B

参考解析：标签控件在工具箱中的图标是B。而A是文本框控件的图标，C是按钮控件的图标，D是形状控件的图标。

5[单选题] 有一个名称为Form1的窗体，上面没有控件，设有以下程序(其中方法Pset(X，Y)的功能是在坐标X，Y处画一个点)：

此程序的功能是(　　)。

A.每按下鼠标键一次，在鼠标所指位置画一个点

B.按下鼠标键，则在鼠标所指位置画一个点;放开鼠标键，则此点消失

C.不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线

D.按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线

参考答案：D

参考解析：Pset(X，Y)函数是在X，Y处画出一个点，Form_MouseDown函数中只有一个cmdmave=True，即当鼠标按下就将cmdmave赋值为True，Form Mouse-Move函数是当cmdmave为True时就执行Pset(x，y)函数，即当移动鼠标且cmdmave=True时就不断地画点，即形成一条线;而Form_MouseUp函数是将cmdmave赋为false，即松开鼠标时不再画点。故整个程序的功能是按下鼠标键并拖动鼠标，沿鼠标拖动的轨迹画一条线，放开鼠标键就结束画线。

6[单选题] 下列叙述中正确的是(　　)。

A.在面向对象的程序设计中，各个对象之间具有密切的关系

B.在面向对象的程序设计中，各个对象都是公用的

C.在面向对象的程序设计中，各个对象之间相对独立，相互依赖性小

D.上述3种说法都不对

参考答案：C

参考解析：面向对象的程序设计是用对象模拟问题领域中的实体，各对象之间相对独立，相互的依赖性小，通过消息来实现对象之间的相互联系。

7[单选题] 设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Modulel.bas，两个窗体上分别只有一个名称为Command1的命令按钮。

Public y As Integer

运行以上程序，单击Form1的命令按钮Command1，则显示Form2;再单击Form2上的命令按钮Command1，则窗体上显示的是(　　)。

A.1 5B.0 5C.0 0D.程序有错

参考答案：B

参考解析：本题考查的考点是有关变量的作用域的。本题中的y就是在标准模块中定义的全局变量，在任何一个窗体中都能应用，并在Form1中被赋值为5;x是Form1中定义的局部变量，要想在Form2中引用，必须用Form1.x格式来引用。

8[单选题] 下列说法正确的是(　　)。

A.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器

B.只有当代码窗口为当前活动窗口时，才能打开菜单编辑器

C.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器

D.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令，打开菜单编辑器

参考答案：C

参考解析：VisuaI Basic关于菜单编辑的规定：只有当某个窗体为当前活动窗体时，才能打开菜单编辑器。

9[单选题] 设有如下程序：

Printx;y

EndSub

运行程序，单击窗体，输出结果为

参考答案：A

参考解析：函数传递参数有值传递和引用传递。默认是引用传递。sV(ByValnlAsInteger，nAsInteger)函数中m为值传递，n为引用传递。值传递不改变实参值。即在Form_CLick()过程中调用sV不会改变X的值。选A.。

10[简答题] 在名称为Form1　　的窗体上添加一个名称为Text1的文本框;再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使程序运行时，单击“隐藏”菜单项，文本框消失;单击“显示”菜单项，文本框重新出现，程序运行后的窗体如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sit2.vbp，窗体文件名保存为sjr2.frm。

参考解析：

【考点分析】本题考点有：菜单编辑器的使用(标题、名称、内缩符号)，文本框的Name、Text和Visible属性以及菜单的Click事件。

【解题思路】文本框的Visible属性用于设置其在运行时是否可见。通过“菜单编辑器”窗口建立菜单项。

【操作步骤】

步骤1：新建一个“标准EXE”工程，在窗体中绘制一个文本框，在属性设置窗口中将其Name属性值设置为Textl。打开菜单编辑器，按表3.25设置建立菜单项。

步骤2：打开代码编辑窗口，在指定位置编写如下代码。

参考答案

Private Sub Hide_Click()

Text1.Visible=False´当用户单击了”隐藏”菜

单项时，则Text1不可见

End Sub

Private Sub Show_Click()

Text1.Visible=True’同理，Textl可见

End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。