(1)考生文件夹下的工程文件sjt3.vbp中有1个名称为Label1的标签数组。程序运行时,单击“产生随机数”按钮,则在标签数组中显示随机数,如图1所示。单击“数据反序”按钮,则把数组中的数据反序,...
命令按钮的Click事件过程已经给出,但程序不完整,请将其中的注释符去掉,把 ?改为正确的内容,以实现上述功能。
注意:
不得修改窗体文件中已经存在的控件和程序,最后将修改后的文件按原文件名存盘。
(2)考生文件夹下有工程文件sjt4.vbp。程序刚运行时,飞机图标位于圆的顶端,如图所示。单击"开始"按钮后,飞机的中心开始沿圆轨迹顺时针运动。事件过程已经给出,但不完整,请将其中的注释符去掉,把 ?改为正确的内容,以实现上述程序功能。
注意:
考生不得修改窗体文件中已经存在的控件和程序, 最后程序按原文件名存盘。
参考解析: (1)【考点分析】本题考点是控件数组、caption属性、for循环等。
【解题思路】Command1_Click事件中根据控件数组的index属性值用生成的随机数依次修改caption属性。
数据反序同样根据index属性,顺序调换即可。
【操作步骤】
步骤1:打开代码编辑器窗口,去掉语句注释符号,将问号改为正确内容。
参考答案
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Command1_Click()
Randomize
For k = 0 To 9
Label1(k).Caption = Int(Rnd * 90 + 10)
Next k
End Sub
Private Sub Command2_Click()
For k = 0 To 4
temp = Label1(k).Caption
Label1(k).Caption = Label1(9 - k).Caption
Label1(-k + 9).Caption = temp
Next k
End Sub
代码结束
步骤2:调试并运行程序,关闭程序后按题目要求存盘。
(2)【考点分析】本题考点timer控件的使用,Image控件的Left和Top属性,Sin,cos等函数的使用。
【解题思路】设置好timer的Enabled属性,则时间事件就会定时触发。每次触发事件中,修改Image控件的Left和Top属性,就可定位图片的显示位置。
【操作步骤】
步骤1:打开代码编辑窗口,去掉注释符号,将问号改为正确语句。
参考答案(阴影部分是需要考生填入的内容)
Dim r%, x0%, y0, a
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
r = Shape1.Width / 2
x0 = Shape1.Left + r
y0 = Shape1.Top + r
Image1.Left = x0 - Image1.Width / 2
Image1.Top = y0 - r - Image1.Height / 2
a = 90
End Sub
Private Sub Timer1_Timer()
Dim x, y
a = a - 3
x = x0 + r * Cos(a * 3.14159 / 180)
y = y0 - r * Sin(a * 3.14159 / 180)
Image1.Left = x - Image1.Width / 2
Image1.Top = y - Image1.Height / 2
End Sub
代码结束
步骤2:调试并运行程序,关闭程序后按题目要求存盘。