你可能喜欢
问答题
程序设计:x1、y1已声明为模块级变量,鼠标按下的事件过程如下:
编制事件过程Picture1_MouseUp,使得在图片框控件Pic1上拖动鼠标后,绘制出一个矩形,鼠标按下、抬起的位置分别为矩形斜对角线的定点,矩形轮廓线为红色,矩形内部填充色为绿色。
问答题
下面是一个“画板”程序,程序运行结果如图所示。单击“颜色”按钮(Command1)打开颜色对话框,实现对绘图笔颜色的设置,单击“清除”按钮(Command2)则清除图片框中的图形,使用单选按钮选择线型粗细(Option1)设置为1磅和(Option2)设置为3磅,根据选择的线型的粗细、颜色,用鼠标的左键模拟笔在绘图区随意绘图。
问答题
完成一个行星程序的设计,一个蓝色的小圆围绕红色大圆沿椭圆轨道运行。椭圆方程为:x=x0+rx*cos(alfa),y=y0+ry*sin(alfa),其中X0,Y0为椭圆圆心坐标,RX为水平半径,RY为垂直半径,ALFA为圆心角。具体要求如下:
1)在窗体中引入一个合适大小的形状控件SHAPE2,将SHAPE2的SHAPE属性设置为圆形、蓝色。
2)TIMER的时间间隔为0.1秒。
3)代码窗口中的内容填充完整。
效果如图所示。