单选题窗体的左右两端各有一条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上，如下图所示；另有一个名称为Timer1的计时器控件，其Enable属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序：运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果下面修改方案中正确的是（　　）。A 把设计器的Interva

窗体的左右两端各有1直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Linel直线上(见图)；另有1个名称为Timer1的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interva1属性设置为1000，并编写了如下程序：

Private Sub Timer1 Timer（ ）

For k=Line1．X1 To Line2．X1 Step 100

If Shape1．Left+Shape1．width<Line2．X1 Then

Shape1．Left=Shape1．Left+100

End If

Next k

End Sub

运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面修改方案中正确的是（ ）。

A.把计时器的Interval属性设置为1

B.把For k=line1．X1 To Line2．X1 Step 100和Next k两行删除

C.把For k=Line1．X1 To Line2．X1Step 100改为For k=Line2．X1 To Line1．X1 Step 100

D.把If Shape1．Left+Shepe1．Width<Line2．X1 Then改为If Shape1．Left<Line2．X1 Then

在考生文件夹中有一个工程文件execise73.vbp及窗体文件execise73.tim。在名为 Form1的窗体上有一个圆和一条直线(直线的名称为Line1)构成一个钟表的图案；有两个命令按钮，名称分别为Cmd1和Crud2，标题分别为Begin和Stop;还有一个名为Timer1的计时器。

程序运行时，钟表指针不动，单击Begin按钮，则钟表上的指针(即Line1)开始顺时针旋转(每秒转6一分钟转一圈)；单击Stop按钮，则指针暂停旋转。运行时的窗体如下图所示。请设置计时器的适当属性，使得每秒激活计时器的Timer事件一次：编写两个按钮的Click事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后，按原文件名并在原文件夹中保存修改后的文件。

在考生文件夹下有一个工程文件sjt3．vbp。窗体上有名称为Timer1的定时器，以及名称 为Line1和Line2的两条水平直线。请用名称为Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，其显示形式为圆，并设置适当属性使其满足以下要求： ①圆的顶端距窗体Form1顶端的距离为360； ②圆的颜色为红色(红色对应的值为&H000000FF&或&HFF&)，如图3所示。 程序运行时，Shape1将在Line1和Line2之间运动。当Shape1的顶端到达Line1时，会自动改变方向而向下运动；当Lhape1的底部到达Line2时，会改变方向而向上运动。 文件中给出的程序不完整，请去掉程序中的注释符，把程序中的?改为正确内容，使其实现 上述功能。 注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp，包含了所有控件和部分程序，如图4所示。程序功能如下： ①单击“读数据”按钮，可将考生文件夹下in4．dat文件中的100个整数读到数组a中； ②单击“计算”按钮，则根据从名称为Combo1的组合框中选中的项目，对数组a中的数据计算平均值，并将计算，墙果四舍五入取整后显示在文本框Text1中。“读数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

如下图，窗体的名称为form1，窗体中有一个标签和一个命令按钮，名称分别为Lbl1和Com1。

在窗体视图显示该窗体时，要求在单击命令按钮后标签上显示的文字颜色变为红色,以下能实现该操作的语句是( )。

A．Lbl1.ForeColor=255

B．Com1.ForeColor=255

C．Lbl1.BackColor=255

D．Com1.BackColor=255

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml、标题为“测试”的窗体上画一个名称为Framel、标题为“字体”的框架。在框架内画两个单选按钮，其名称分别为Opt1和Opt2，标题分别为“隶书”和“宋体”。程序运行后的窗体如图6所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。 (2)在名称为Forml的窗体上用名称为shapel的形状控件画一个圆，其直径为1000(高、宽均为1000)；再画两个命令按钮，标题分别是“垂直线”和“水平线”，名称分别为Command1、Command2，如图7所示。然后编写两个命令按钮的Click事件过程。程序运行后，如果单击“垂直线”命令按钮，则圆的内部用垂直线填充；如果单击“水平线”命令按钮，则圆的内部用水平线填充．注意：程序中不得使用变量，每个事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上建立一个名称为Commandl的命令按钮数组，含三个命令按钮，它们的Index属性分别为0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为300、800。窗体的标题为“按钮窗口”。运行后的窗体如图4所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。(2)在名称为Forml的窗体上画一个名称为Shal的形状控件，然后建立一个菜单，标题为“形状”，名称为shape0，该菜单有两个子菜单，其标题分别为“正方形”和“圆形”，其名称分别为shape1和shape2，如图5所示，然后编写适当的程序。程序运行后，如果选择“正方形”菜单项，则形状控件显示为正方形；如果选择“圆形”菜单项，则窗体上的形状控件显示为圆形。 注意：程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sjit2.vbp．窗体文件名为sjt2.frm。

在考生文件夹中有一个工程文件execise106.vbp及窗体文件execise106.frm。请在名为 Form1的窗体上绘制两个框架(如下图所示)，其名称分别为Frame1和Frame2，标题分别为“交通工具”和“到达目标”。在Fmme1中绘制两个单选按钮，名称分别为opt1和 opt2，标题分别为“飞机”和“火车”。在Frame2中绘制两个单选按钮，名称分别为Opt3和opt4，标题分别为“杭州”和“昆明”。绘制一个图片框，其名称为Pic1，宽度为2000，高度为5000。

注意：

不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的“关闭”按钮。最后按原文件名并在原文件夹中保存修改文件。

（ 6 ）窗体如图所示，其中汽车是名称为 Image1 的图像框，命令按钮的名称为 Command1, 计时器的名称 为Timer1, 直线的名称为 Line1 。 程序运行时 ， 单击命令按钮 ， 则汽车每 0.1 秒向左移动 100 ， 车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序，以便实现上述功能。

1 Timer1 的 Interval 属性的值应事先设置为【 6 】

2 Private Sub Command1_Click()

Timer1.Enabled=True

End Sub

Private Sub Timer1_Timer()

If Image1.Left>= 【 7 】 Then

Image1.Left= 【 8 】 -100

End If

End Sub