1、Picture1.Line (19, 0)-(18.5, 0.5)Picture1.Line (0, 0)-(0, 19)Picture1.Line (0, 19)-(0.5, 18.5)Picture1.Line (0, 19)-(-0.5, 18.5) For i = 0 To N1 xi = 1 Picture1.PSet (i, 1), vbBlack 画x(n)的图像 Next i For n = 0 To N1 Picture1.CurrentX = n: Picture1.CurrentY = 0.4: Picture1.Print n Next nEnd SubPrivate
2、Sub Command2_Click()Picture2.Scale (-1, 20)-(20, -1) 画h(n)坐标Picture2.Line (0, 0)-(19, 0)Picture2.Line (19, 0)-(18.5, -0.5)Picture2.Line (19, 0)-(18.5, 0.5)Picture2.Line (0, 0)-(0, 19)Picture2.Line (0, 19)-(0.5, 18.5)Picture2.Line (0, 19)-(-0.5, 18.5)For n = 0 To N2Picture2.PSet (n, n / 2), vbBlack 画
3、h(n)的图像Next n Picture2.CurrentX = n: Picture2.CurrentY = 0.4: Picture2.Print nnd SubPrivate Sub Command3_Click()Picture3.Scale (-3, 44)-(44, -3)Picture3.Line (0, 0)-(44, 0) Picture3.Line (44, 0)-(43.5, -0.5) Picture3.Line (44, 0)-(43.5, 0.5) Picture3.Line (0, 0)-(0, 44) Picture3.Line (0, 44)-(0.5, 4
4、3.5) Picture3.Line (0, 44)-(-0.5, 43.5)For n = 0 To (N1 + N2)y = 0For m = 0 To nIf m = N1 ThenXn = 1ElseXn = 0End IfIf (n - m) 0.3) this+who *= _root.speedDecay; else +who = 0; /the car will react to certain keys /accelerate if (Key.isDown(87) & this+who_root.maxSpeed) +who += _root.acceleration; /b
5、rake (reverse) if (Key.isDown(83) +who -= _root.backSpeed; /steer left if (Key.isDown(65) & _root+who._rotation -= _root.rotationStep*(this+who/_root.maxSpeed); /steer right if (Key.isDown(68) &+who._rotation += _root.rotationStep*(this thisrotation+who = _root+who._rotation; /we calculate the two c
6、omponents of speed (X axis and Y axis)speedx+who = Math.sin(this+who*(Math.PI/180)*this+who;speedy+who = Math.cos(this+who*-1; /apply the components on the actual position of the car _root+who._x += this+who._y += this if(_root+who.hitTest(end) gotoAndPlay(3); ;+who.hitTest(car1) +who=0; for(i=1;i=1
7、7;i+) if(_root+who.hitTest(_rootbark+i) ; if (_root+who._x1150)+who._y700) if (Key.isDown(Key.UP) & if (Key.isDown(Key.DOWN) if (Key.isDown(Key.LEFT) & if (Key.isDown(Key.RIGHT) & gotoAndPlay(4); /shengli+who.hitTest(car2) +who =0;可进行两辆赛车的比赛4、题目要求:设计一个成绩管理系统,可添加、删除、修改班级,科目、学生。可按照科目和学号组合查询、可按照班级打印成绩单
8、 (要求:可添加、删除、修改班级,科目、学生,查询、打印)对输入的数据库文件进行存储,然后对其访问即可建立数据库文件保存对选定的班级进行成绩打印按科目和学号查找对数据库文件进行修改操作窗体代码:frmMainPrivate Sub MDIForm_Load() Me.Width = Screen.Width * 0.75 Me.Height = Screen.Height * 0.75 Me.Left = Screen.Width * 0.125 Me.Top = Screen.Height * 0.125 Me.Show总是将工作目录设到应用程序所在目录 ChDir App.Path初始化文档窗体数组,并显示第一个子窗体 ReDim Doc(1) ReDim FState(1) Doc(1).Tag = 1 FState(1).Dirty = False Doc(1).Caption = 新成绩表:1 Doc(1).Show读系统注册表并适当地设置最近使用的菜单文
copyright@ 2008-2023 冰点文库 网站版权所有
经营许可证编号:鄂ICP备19020893号-2