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

admin2019-06-11  27

问题 (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=i 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 C1ick() Timerl.Enabled=True’当单击"开始"按钮时,Timer生效 End Sub Private Sub Command2 C1ick() 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 orShape2.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://jikaoti.com/ti/VdN0FFFM
0

最新回复(0)