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

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

admin2018-03-20  45
问题 (1)在考生文件夹下有一个工程文件sjt3．vbp。程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的注释符，把程序中的?改为正确的内容。
    注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
    (2)在考生文件夹下有一个工程文件sjt4．vbp，窗体中有一个矩形和一个圆，程序运行时，单击“开始”按钮，圆可以横向或纵向运行(通过选择单选按钮来决定)，碰到矩形的边时，则向其相反方向运动，单击“停止”按钮，则停止运动，如图所示。可以通过选择单选按钮随时改变运动方向。

    已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
    注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。
选项
答案(1)【操作步骤】 步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符“’”将问号改为正确的内容。 参考答案 Private Sub Form Click()For i＝1 To 5 ’输入5行 For j＝1 To 6－i’循环实现输入空格，每行依次减少一个空格 Print" "； Next j For j＝1 To 2 * 1－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：打开代码编辑窗口，去掉程序中的注释符“f”，将问号改为正确的内容。 参考答案 Dim d As Integer Private Sub Command1_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 Option1 Then ’判断Option1是否被单击 Shape2．Top＝Shape2．Top＋d* 50’实现圆垂直移动 If Shape2．Top＜＝Shapel．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 If End If End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/pMGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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