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

admin2015-06-30  34

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

    (2)在考生文件夹下有一个工程文件sjt4.vbp,窗体中有一个矩形和一个圆,程序运行时,单击“开始”按钮,圆可以横向或纵向运行(通过选择单选按钮来决定),碰到矩形的边时,则向其相反方向运动,单击“停止”按钮,则停止运动,如图所示。可以通过选择单选按钮随时改变运动方向。
    已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
    注意:不得修改已经存在的内容和控件属性,最后将修改后的文件按原文件名存盘。

选项

答案(1)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Form_Click() ’ For i = 1 To ?     For j = 1 To 6 - i       Print " ";     Next j ’ For j = 1 To ?       Print "*";     Next j     Print Next i For i = 1 To 4 ’ For j = 1 To ?       Print " ";     Next j ’ For j = 1 To ?       Print "*";     Next j     Print Next i End Sub 程序结束 参考答案 第1个?处填入:5 第2个?处填入:2 * i - 1 第3个?处填入:i + 1 第4个?处填入:(9 - 2 * i) 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim d As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() ’ ? = False End Sub Private Sub Form_Load() d = 1 End Sub Private Sub Timer1_Timer()     If Option1 Then ’ Shape2.Top = ? + d * 50 ’ If Shape2.Top <= Shape1.? Or Shape2.Top + Shape2.Width >= Shape1.Top + Shape1.Height Then         d = - d       End If     ElseIf Option2 Then ’ Shape2.Left = ? + d * 50       If Shape2.Left <= Shape1.Left Or Shape2.Left + Shape2.Width >= Shape1.Left + Shape1.Width Then         d = - d       End If     End If End Sub 程序结束 参考答案 第1个?处填入:Timer1.Enabled 第2个?处填入:Shape2.Top 第3个?处填入:Top 第4个?处填入:Shape2.Left 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析
转载请注明原文地址:https://kaotiyun.com/show/9tQp777K
0

最新回复(0)