设计一程序，程序运行界面如图所示。程序运行时，命令按钮Command1的Caption属性为“开始”，单击Command1后，Caption属性变为“结束”，同时计时器开始工作，并在标签上显示计时时间；再一次单击Command1后，Caption属性又变为“开始”，计时器停止工作，将本次计时时间s1添加到列表框，并与上次计时时间s2进行比较，如果s1小于s2，则弹出消息框提示“有进步！”，否则提示“加油哦！”。

编程：窗体的标题为“改变大小”，程序运行时，用画圆方法在窗体正中画出一个半径为1500Twips的红色实心圆，窗体的下面有一个水平滚动条Hscroll1，将它的最大值设置为与圆的半径相同，初始值为最大值，SmallChange和LargeChange均为100Twips，圆形的上方有两个标签控件，Label1的标题为“圆半径为：”，Label2的标题为“1500”，两个标签均为固定边框；改变滚动条的值可以控制圆形的直径（要求圆形直径在变化时要保持圆心位置不变），同时在标签Label2中动态显示圆形的半径。程序运行的初始界面如下图。

编制一个演示文本操作的程序，界面如图所示，要求各命令按钮为一个控件数组。
（1）程序刚运行时3个命令按钮均不能响应。
（2）当选择文本之后Label1显示响应的提示，“剪切”和“复制”按钮能够响应。
（3）单击“剪切”或“复制”按钮后，所有按钮中只有“粘贴”按钮能响应。
（4）单击“粘贴”按钮后，3个命令按钮都不能响应。

编写程序，求解：S=A!+B!/C!。其中A、B、C用输入对话框输入，要求阶乘用function函数实现。程序运行结果的界面如下图所示。

程序设计界面如图所示，在窗体上添加一图片框，图片框中添加一形状控件，再设计一弹出式菜单“移动”，其下有“上升”、“下降”和“停止”3个子菜单，鼠标右击图片框时，弹出该菜单。要求：单击“上升”菜单后，小球以每0.1秒100个单位的速度向上运动，到达图片框顶部后，停止运动，同时“上升”菜单不可响应，“下降”菜单有效；单击“下降”菜单后，小球以每0.1秒100个单位的速度向下运动，到达图片框底部后，停止运动，同时“下降”菜单不可响应，“上升”菜单有效；；小球移动过程中单击“停止”菜单，则停止小球的移动。

按如下要求编程：
（1）窗体的标题为“改变大小”。
（2）窗体上引入一个红色的圆形形状控件（Shape1），圆的直径为3000Twips。
（3）窗体的下面有一个水平滚动条Hscroll1，将它的最大值设置为与圆的直径相同，初始值为最大值，SmallChange和LargeChange均为100Twips。
（4）形状控件（Shape1）的上方有两个标签控件，Label1的标题为“圆直径为：”，Label2的标题为“3000”，两个标签均为固定边框。
（5）改变滚动条的值可以控制圆形的直径（要求圆形直径在变化时要保持圆心位置不变），同时在标签Label2中动态显示圆形的直径。程序运行的初始界面如下图。