2. 计算机
  3. 在考生文件夹下有一个工程文件sjt4．vbp，窗体中有一个矩形和一个圆，程序运行时，单击“开始”按钮，圆可以横向或纵向运行(通过选择单选按钮来决定)，碰到矩形的边时，则向其相反方向运动，单击“停止”按钮，则停止运动，如图所示。可以通过选择单选按钮随时改变运

在考生文件夹下有一个工程文件sjt4．vbp，窗体中有一个矩形和一个圆，程序运行时，单击“开始”按钮，圆可以横向或纵向运行(通过选择单选按钮来决定)，碰到矩形的边时，则向其相反方向运动，单击“停止”按钮，则停止运动，如图所示。可以通过选择单选按钮随时改变运

admin2020-04-08  34
问题  在考生文件夹下有一个工程文件sjt4．vbp，窗体中有一个矩形和一个圆，程序运行时，单击“开始”按钮，圆可以横向或纵向运行(通过选择单选按钮来决定)，碰到矩形的边时，则向其相反方向运动，单击“停止”按钮，则停止运动，如图所示。可以通过选择单选按钮随时改变运动方向。
    已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符。把程序中的?改为正确的内容。
    注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。
选项
答案 【操作步骤】 步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Dim d As Integer Private Sub Commandl_Click() Timerl．Enabled=True′当单击＂开始＂按钮时，Timer生效 End Sub Private Sub Command2一C1ick() Timerl,Enabled=False′当单击＂停止＂按钮时．Timer失效 End Sub Private Sub Form_Load() d=1 End Sub Private Sub Timerl_Timer() If Optionl Then＂判断Optionl是否被单击 Shape2．Top=Shape2,Top+d*50′实现圆垂直移动 If Shape2．Top＜=Shapel．Topor Shape2．Top+Shape2．Width＞=Shapel· Top+Shapel．Height Then′判断Shape2与Shapel的位置 d=－d′当圆移出Shapel时，改变移动方向 End If ElseIf Option2 Then Shape2．Left=Shape2.Left+d*50′实现水平移动 If Shape2．Left＜=Shapel．Left Or Shape2．Left+Shape2．Width＞=Shapel· Left+Shapel．Width Then d=－d′当圆移出Shapel时，则改变移动方向 End If End If End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析 在Timerl．Timer事件过程中，通过判断单选按钮“纵向”或“横向”是否被选中来决定圆运动的方向，如果是纵向，则通过Shape2的Top和Width属性值的改变实现圆的移动，并通过判断Top属性值来确定是否到达上或下界，使圆向相反方向运动。如果是横向，则通过Shape2的Left和Width属性值的改变实现圆的移动。在Command2一Click事件过程中通过将Timerl的Enabled属性设置为False，使圆停止运动，在Commandl_Click事件过程中通过将Timerl的Enabled属性设置为True，使圆开始运动。
转载请注明原文地址:https://kaotiyun.com/show/1ATp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)