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

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

admin2020-08-10  44
问题 考生文件夹下有一个工程文件sjt4．vbp，窗体左端中有一个小的实心圆。程序运行时，单击窗体，圆将沿着正弦曲线的轨迹向右运动，运动一个正弦周期后，再沿着原来的轨迹退回到原来的位置，然后再沿正弦曲线的轨迹向右运动，如此周而复始。
    给出的程序不完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容。
    注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。
选项
答案sin(x)函数返回值为自变量x的正弦值： Shape控件的Top属性为距容器顶部边界的距离，Left属性为距容器左边界的距离。 第1个?处初始化y0；第2个?处，由于Shape1．Top=y0+b，则y0应为1300-b；第3个?处进行临界点的判断，判断圆是否运动完一个正弦周期或运动回原来位置，即angle为360或0，第四个？处，由于到达临界点，圆的运动方向发生变化，对水平方向的运动增量进行取反。 第1个?处应为：0 第2个?处应为：1300-b 第3个?处应为：angle=0 第4个?处应为：-x0 步骤1：打开本题工程文件。 步骤2：打开代码编辑窗，去掉程序中的注释“‘”，将问号改为正确的内容。 Dim x0，y0，a，angle Const PI=3．1415926 Private Sub Form_Click( ) Timer1．Enabled=True a=6 x0=50 y0=0 End Sub Privale Sub Form_ Load( ) Shape1．Top=1300 Shape1．Left=200 End Sub Prirate Sub Timer1_Timer( ) angle=angle+a b=1000*Sin(angle*P1／180) y0=1300-b Shape1．Left=Shape1．Left+x0 Shape1．Top=y0 If angle=360 Orangle=0 Then A=-a x0=-x0 End If End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/oqHp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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