2. 计算机
  3. (1)在考生文件夹下有一个工程文件sjt3．vbp。程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹

(1)在考生文件夹下有一个工程文件sjt3．vbp。程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹

admin2019-06-24  29
问题 (1)在考生文件夹下有一个工程文件sjt3．vbp。程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的注释符，把程序中的?改为正确的内容。
    注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
    (2)在考生文件夹下有一个工程文件sjt4．vbp，窗体中有一个矩形和一个圆，程序运行时，单击“开始”按钮，圆可以横向或纵向运行(通过选择单选按钮来决定)，碰到矩形的边时，则向其相反方向运动，单击“停止”按钮，则停止运动，如图所示。可以通过选择单选按钮随时改变运动方向。
      
    已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
    注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。
      
选项
答案(1)【操作步骤】 步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。 参考答案(画线部分是需考生填入的内容) Private Sub Form_Click() For i=1 To5’输入5行 For j=1 To 6一i’循环实现输入空格，每行依次减少一个空格 Print""； Next j For j=1 To 2* i-1’观察图像每行*的个数 Print"*"； Next j Print Next i For i=1 To 4 For j=1 To i+1’同问题1 Print""； Next j For j=1 To(9-2*i)’同问题2 Print"*"； Next j Print Next i End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。 参考答案(画线部分是需考生填入的内容) Dim d As Integer Private Sub Commandl Click() Timer1．Enabled=True’当单击"开始"按钮时，Timer生效 End Sub Private Sub Command2 Click() Timer1.Enabled=False’当单击"停止"按钮时，Timer失效 End Sub Private Sub Form_Load() d=1 End Sub Private Sub Timer1_Timer() If Optionl Then’判断Option1是否被单击 Shape2．Top=Shape2.Top+d*50’实现圆垂直移动 If Shape2．Top<=Shape1．Top Or Shape2．Top+Shape2．Width>=Shape1．Top+Shape1．Height Then’判断Shape2与Shape1的位置 d=－d’当圆移出Shape1时，改变移动方向 End If ElseIf Option2 Then Shape2．Left=Shape2.Left+d*50’实现水平移动 If Shape2．Left<=Shape1．Left Or Shape2．Left+Shape2．Width>=Shape1．Left+Shape1．Width Then d=－d’当圆移出Shape1时，则改变移动方向 End It End If End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析 (1)本题主要考查的是对循环语句的理解，以及对于循环上限的判断。首先看一下两个主要的：For循环语句实现什么样的功能，先看第1个For语句，在循环语句中嵌套两个循环语句，第1个语句实现输入空格，当i=1时，即当输入第1行时，进行For j=1 To 6-i的循环，即在第1行打印出5个空字符，也可以理解为打印出5个空格。第2个for循环实现的是*的打印，还以i=1为例，要打印出一个*，同时要注意行数i和输入空格及*符号个数之间的关系，也就是找出表达式的运算规律，从而得到循环上限。
    (2)在Timer1_Timer事件过程中，通过判断单选按钮“纵向”或“横向”是否被选中来决定圆运动的方向，如果是纵向，则通过Shape2的Top和Width属性值的改变实现圆的移动，并通过判断Top属性值来确定是否到达上或下界，使圆向相反方向运动。如果是横向，则通过Shape2的Left和Width属性值的改变实现圆的移动。在Command2_Click事件过程中通过将Timer1的Enabled属性设置为False，使圆停止运动，在Command1_Click事件过程中通过将Timer1的Enabled属性设置为True，使圆开始运动。
    在窗体载入时设置d的值，是为了方便编辑圆向相反方向的运动过程语句。
转载请注明原文地址:https://kaotiyun.com/show/mqUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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