2. 计算机
  3. 考生文件夹下有一个工程文件sjt4．vbp，窗体左端中有一个小的实心圆。程序运行时，单击窗体，圆将沿着正弦曲线的轨迹向右运动，运动一个正弦周期后。再沿着原来的轨迹退回到原来的位置。然后再沿正弦曲线的轨迹向右运动，如此周而复始。 给出的程序不完整。要

考生文件夹下有一个工程文件sjt4．vbp，窗体左端中有一个小的实心圆。程序运行时，单击窗体，圆将沿着正弦曲线的轨迹向右运动，运动一个正弦周期后。再沿着原来的轨迹退回到原来的位置。然后再沿正弦曲线的轨迹向右运动，如此周而复始。 给出的程序不完整。要

admin2020-04-08  20
问题 考生文件夹下有一个工程文件sjt4．vbp，窗体左端中有一个小的实心圆。程序运行时，单击窗体，圆将沿着正弦曲线的轨迹向右运动，运动一个正弦周期后。再沿着原来的轨迹退回到原来的位置。然后再沿正弦曲线的轨迹向右运动，如此周而复始。
    给出的程序不完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容。
    注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。
选项
答案【操作步骤】 步骤l：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释“′”，将问号改为正确的内容。 参考答案(划线部分是需要填入的内容) Dim x0，y0，a，angle Const PI=3．1415926 Private Sub Form_Click() Timerl．Enabled=True a=6 x0=50 y0=0 End Sub Private Sub Form_Load() Shapel．Top=1300 Shapel．Left=200 End Sub Private Sub Timerl_Timet() angle=angle+a b=1000*Sin(angle*PI／180) y0=1300－b $hapel．Left=Shapel．Left+x0 Shapel．Top=y0 If angle=360 Orangle=0Then a= －a x0=－x0 End If End Sub 步骤3：调试并运行程序，关闭程序后按题目要 求存盘。
解析 sin(x)函数返回值为自变量x的正弦值；Shape控件的Top属性为距容器顶部边界的距离，Left属性为距容器左边界的距离。
转载请注明原文地址:https://kaotiyun.com/show/vNTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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