VF部分应用题命令..docVIP

VF部分应用题命令 注:后为文字说明 ;是由于命令太长,分两行写,操作时可写在一行. 题目: 1.求1-100的自然数\奇数\偶数和 2．输入一个数N,求1到N的阶乘之和。 求1!+2!+3!+...+10! 3.输入一个数,判断是偶数还是奇数 4.编写程序显示倒计时天数 在text1中显示系统时间 5.使文本为随机颜色 6.设计表单使标签左右移动,碰到表单壁后反向移动 7.设计一个表单，使得标签Label1秒从左向右移动，移到窗口右边界时标签回到左边继续向右移动。从上至下移动10个像素，如果碰到窗口底部边界则返回顶部继续向下移动。为学生成绩管理系统设计登录单设计一个表单程序实现以下功能：在文本框中输入长、宽，计算长方形的面积.在文本框中输入，计算面积、 建立一个针对学生表student.dbf的查询表单建立一个针对课程表course.dbf的查询表单，要求在列表框中选择课程名，点击查询按钮后可查询到该课程的相关信息、选项按钮组控件的使用颜色和字体复选框控件的使用。加粗、倾斜等…… list1中可选字号为10-30,相差2 14.菜单设计 1.求1-100的自然数和 s=0for i=1 to 100 s=s+iendforthisform.label1.caption=str(s) 在标签显示。str()：转换为字符型 [拓展]（1）求1-100的奇数和 s=0for i=1 to 100 step 2s=s+iendforthisform.text1.value=s 在文本框显示结果 （2）求1-100的偶数和 s=0 for i=0 to 100 step 2s=s+iendforthisform.text1.value=s 2．输入一个数N,求1到N的阶乘之和。 n=val(thisform.text1.value) S=0 jc=1 FOR i=1 to n jc=jc*i S=S+jc next thisform.label1.caption=str(s) [拓展] 以下程序功能是求1!+2!+3!+...+10!，结果在标签Label1中显示。 S=0 jc=1 FOR i=1 to 10 jc=jc*i S=S+jc Next 或者endfor thisform.label1.caption=str(s) 3.输入一个数,判断是偶数还是奇数,在label2中显示该数是一个偶/奇数。 cammand的cllick事件: n=thisform.text1.value if n%2=0 %为求余 thisform.label2.caption=该数为一个偶数 else thisform.label2.caption=该数为一个奇数 endif （ 注：设置text1只能输入数字: --右键--生成器--格式--数据类型 设掩码:99999。题库里已帮你设好了。） 4.编写程序显示倒计时天数： 在text1事件中输入: this.value={^2012/8/8}-date() $$效果:在text1中显示出离2012年8月8日还有的天数 【拓展】r=rand()*211 数字可以随便 g=222-rand()*211 差别最好大点 b=rand()*24 thisform.text1.forecolor=rgb(r,g,b) 6.设计表单使标签左右移动,碰到表单壁后反向移动 form的Init事件: public s s=5 cammand的cllick事件: thisform.label1.left=thisform.label1.left+s if thisform.label1.left+thisform.label1.width; =thisform.width s=-s endif if thisform.label1.left=0 s=-s endif 7.设计一个表单，添加一个标签label1和一个计时器控件Timer1，使得标签Label1每隔1秒从左向右移动5个像素单位，移到窗口右边界时标签回到左边继续向右移动。(掌握计时器控件的用法，对象的位置属性left、top、width、height)计时器Timer1的属性设置：Interval设为1000，Enabled设为.T.-真. 计时器Timer1的事件代码参考：if thisform.label1.left=thisform.with thisform.label1.left; =-thisform.label1.width else thisform.label1.left; =thisform.label1.left+5 endif 退出:thisf