让命令按钮控件在程序过程中不可用，可修改控件的）属性（）

在考生文件夹中有一个工程文件execise98.vbp及窗体文件execise98.frm。在名为Form1的窗体上有1个组合框Com1，其中已经预设了内容；还有1个文本框Text1，和3个命令按钮(名称分别为Cmd1、Cmd2和Cmd3，标题分别为“修改”、 “确定”和“添加”)。程序运行时，“确定”按钮不可用，如下图所示。

程序的功能是：在运行时，如果选中组合框中的一个列表项，单击“修改”按钮，则把该项复制到Text1中(可在Text1中修改)，并使“确定”按钮可用；若单击．“确定”按钮，则把修改后的Text1中的内容替换组合框中该列表项的原有内容，同时使“确定”按钮不可用；若单击“添加”按钮，则把在Text1中的内容添加到组合框中。

注意：

所提供的窗体文件已经给出了所有控件和程序，但程序不完整。请去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容，但不得修改程序的其他部分，也不得修改控件的属性。最后，按原文件名并在原文件夹中保存修改后的文件。

在考生文件夹下有一个数据库文件“samp3.accdb”，其中存在已经设计好的表对象“tAddr”和“tUser”，同时还有窗体对象“fEdit”和“fEuser”。请在此基础上按照以下要求补壳“狐dit”窗体的设计。

（1）将窗体中名称为“Lremgrk”的标签控件上的文字颜色改为红色（红色代码为255），字体粗细改为“加粗”。

（2）将窗体标题设置为“修改用户信息”。

（3）将窗体边框改为“对话框边框”样式，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线。

（4）将窗体中“退出”命令按钮（名称为“cmdquit”）上的文字颜色改为深棕（深棕代码为128）、字体粗细改为“加粗”，并给文字加上下划线。

（5）在窗体中还有“修改”和“保存”两个命令按钮，名称分别为“CmdEdit”和“CmdSave”，其中“保存”命令按钮在初始状态为不可用，当单击“修改”按钮后，应使“保存”按钮变为可用。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。

要求：修改后运行该窗体，并查看修改结果。

注意：不能修改窗体对象“fEdit”和“fEuser”中未涉及的控件、属性；不能修改表对象“tAddr”和“tUser”。

程序代码只允许在“**********”与“**********”之间的空行内补充一行语句，完成设计，不允许增删和修改其他位置已存在的语句。

在考生目录下有一个工程文件sit5．vbp。运行程序后，单击“读数据”按钮，从data5．dat文件中读出一个数据，并显示在标签Labell中；单击“找素数”按钮，则在大于Labell的数据范围内找出最小的素数，并将其显示标签Label2中。在给出的窗体文件中已经有了全部控件，并给出了读写文件和判断素数的程序代码，但程序不完整。

要求：去掉程序中的注释符，把程序中的?改为正确的内容，并编写相应程序段，实现程序功能。

注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，各命令按钮的事件过程必须至少各执行一次。

在考生文件夹下有一个工程文件sj5．vbp，其窗体上有一个文本框，名称为Text1；有三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“输入”、“计算显示”和“保存”，运行界面如图25-5所示。在给定程序中有一个函数过程isPrimeNum，其功能是判断参数是否为素数，如果是素数，则返回True，否则返回False。

请将程序中有“?”的地方替换为相应的代码，使得在运行时，单击“输入”按钮，弹出“输入”对话框，单击“计算显示”按钮，则找出大于输入参数的最小素数，并显示在Text1中；单击“保存”按钮，则把Text1中的计算结果存入考生文件夹下的out5．txt文件中。

注意：去掉程序中的注释符“‘”，把程序中的“?”改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。考生不得修改isPrimeNum函数过程和控件的属性，必须把计算结果通过“保存”按钮存入out5．txt文件中，否则无成绩。

以下关于命令按钮的叙述中正确的是

A.命令按钮上可以显示图片

B.命令按钮能够分别响应单击、双击事件

C.程序运行时，不能改变命令按钮上的文字

D.若命令按钮的Cancel属性设为True，焦点在其他控件上时，按下回车键与单击该按钮的效果相同

在考生目录下已有一个工程文件sjt5．vbp。运行程序后，分别从两个文件中读出数据，放入两个一维数组a、b中。请编写：程序，当单击“合并数组”按钮时，将a、b数组中相同下标的数组元素的值求和，并将结果存入数组C。单击“找最大值”按钮时，凋用find过程分别找出a、C数且中元素的最大值，并将所找到的结果分别显示在Text1、Text2中。在给出的窗体文件中已经有了全部控件，但程序不完整。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，并编写相应程序，实现程序的功能。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调用通过后，各命令按钮的事件过程必须至少各执行一次。

在考生文件夹下有一个工程文件sj5.vbp，其窗体上有一个命令按钮，名称为Command1、标题为"添加"；一个文本框，名称为Text1。程序运行前，文本框的编辑区为空白；一个列表框，名称为List1。

在文本框中输入文本，若单击"添加"按钮，文本框中的文本被作为一个列表项被加入到列表框中，如图39-5所示。若双击文本框，则使文本框中的内容为空，且使"添加"按钮变为无效。

图39-5

要求：去掉程序中的注释符"‘"，把程序中的"?"改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性，最后把修改后的文件以原来的文件名存盘。

在考生文件夹下有一个工程文件execise29.vbp设窗体文件execise29.frm。窗体Form1上有两个图片框，名称为Pic1和Pic2，分别用来表示信号灯和汽车(其中在Pic1中轮流装入“黄灯.ico”、“红灯.ico”和“绿灯.ico”文件来实现信号灯的切换)：有一个命令按钮，标题为“开车”；还有两个计时器Timer1和Timer2，Timer1用于变换信号灯：黄灯1秒，红灯2秒，绿灯3秒；Timer2用于控制汽车向左移动。运行时，信号灯不断变换，单击“开车”按钮后。汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。如下图所示。

要求：

窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。

在考生文件夹下有一个工程文件sjt3.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，滚动条中的滚动框向左移动与该数绝对值相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”。如图2—1所示。

要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的程序以原来的文件名存盘。

2．在考生文件夹下有一个工程文件sjt4.vhp，相应的窗体文件为sjt4.frm。在窗体上有2个命令按钮、1个标签和1个计时器，其名称分别为Command1、Command2、Label1和Tim er1，如图2—2所示。程序运行后，在命令按钮Command1中显示“开始”，在命令按钮

Command2中显示“停止”，在标签中用字体大小为16的粗体显示“热烈欢迎”(标签的AutoSize属性为True)，同时把计时器的Interva1属性设置为50，Enabled属性设置为 False。此时如果单击“开始”命令按钮，则该按钮变为禁用，标题变为“继续”，同时标签自左至右移动，每个时间间隔移动20，如图2—3所示，移动出窗体右边界后，自动从左边界开始向右移动；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签停止移动；再次单击“继续”命令按钮后，标签继续移动。这个程序不完整，请把它补充完整，并能正确运行。

要求：去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

试题所提供的程序如下：

Private Sub Form. Load()

Command1.Caption="开始"

Command2.Caption="停止"

Timer1.Interval=50

Timer1.Enabled=False

Label1.Caption="热烈欢迎"

Label1.AutoSize=True

Label1.FontSize=16

Label1.FontBold=True

End Sub

Private Sub Command1_Click()

Command1.Caption="继续"

'Timer1.Enabled=?

Command1.Enabled=False

Command2.Enabled=True

End Sub

Private Sub Command2_Click()

'Timer1.Enabled=?

Command2.Enabled=False

Command1.Enabled=True

End Sub

Private Sub Timer1_Timer()

If Label1.Left＜Width Then

'Label1.Left=?

Else

'Label1.Left=?

End If

End Sub

在考生文件夹下有一个工程文件execise48.vbp及其窗体文件execise48.frm。在窗体Form上有1个文本框，名称为Text1，可以多行显示；有1个名为CD1的通用对话框：还有3个命令按钮，名称分别为Cmd1、Cmd2和Cmd3，标题分别为Open、Change和Save，如下图所示。

命令按钮的功能是：单击Open按钮，则弹出打开文件对话框，默认打开文件的类型为“文本文件”。选择考生文件夹下的in48.txt文件后，该文件中的内容显示在Text1中；单击Change按钮，则把Text1中的所有小写英文字母转换成大写；单击Save按钮，则把 Text1中的内容存入考生文件夹下的out48.dat文件中。在窗体中已经给出了部分程序。

要求：

(1)去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。

(2)编写Change按钮的Click事件过程。最后把修改后的文件按原文件名存盘。

注意：

考生不得修改已有的程序和控件的属性，必须对考生文件夹下的in48.txt文件进行转换，并把转换结果通过Save按钮存入考生文件夹下的out48.dat文件中，否则无成绩。