在考生文件夹下有一个工程文件sjt3．vbp。窗体上有名称为Timer1的定时器，以及两条水平直线，名称分别为Line1和Line2。请用名称为Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，设置其形状为圆，并设置适当属性使其满足以下要求

admin2019-06-11 3

问题在考生文件夹下有一个工程文件sjt3．vbp。窗体上有名称为Timer1的定时器，以及两条水平直线，名称分别为Line1和Line2。
请用名称为Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，设置其形状为圆，并设置适当属性使其满足以下要求：
①圆的顶端距窗体Form1顶端的距离为360；
②圆的颜色为红色(红色对应的值为：&H000000FF&或&H=FF&)，如图所示。

程序运行时，Shape1将在Line1和Line2之间运行。当Shape1的底部到达Line2时，会自动改变方向向上运动；当Shape1的顶端到达Line1时，会自动改变方向向下运动。
文件中给出的程序不完整，请去掉程序中的注释符，把程序中的?改为正确内容，使其实现上述功能。
注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。

选项

答案[操作步骤] 步骤1：打开本题工程文件，新建一个形状控件，并按表3．51所示设置属性。 [*] 步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。参考代码(画下划线部分是需填入的内容) Dim s As Integer，h As Long Private Sub Form_Load() Timer1．Enabled=True s=-40 End Sub Private Sub Timer1_Timer() Shapel．Move Shape1．Left，Shape1．Top+s If Shape1．Top＜=Line1．Y1Then s=-s End If If Shape1．Top+Shape1．Height＞=Line2．Y1 Then’圆的底端坐标加上圆的自身高度与Line2比较 s=-s End If End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

解析

转载请注明原文地址:https://www.kaotiyun.com/show/6RUp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

0

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)