VFP表单设计题

VFP程序设计题 第2题：编制一个表单完成计数器计数显示功能（界面如图例所示，图例文件为*.JPG）。 具体 要求 对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗 如下： 1． 表单的边框为固定对话框，运行时自动居中，不可移动； 2． 表单初始显示状态为全零“00:00:00”； 3． 按“计数”按钮后，自动以秒为单位从零开始计数（设：时的计数属性名为F，分的计数属性名为H，秒的计数属性名为S）并在表单上动态显示； 4． 按“停止”按钮后暂停计数，按“计数”按钮可以继续计数； 参考 答案 八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案 ： 1． 表单的标题属性Caption设置为“计数器”； 2． 表单的BorderStyle属性为“2—固定对话框”，自动居中属性AutoCenter为.T.。 3． 表单的Movable属性为.F.； 4． 时钟控件Timer1的Interval属性为1000。 5． 表单的Form1的Init事件代码： THIS.TIMER1.INTERVAL=1000 THISFORM.TIMER1.ENABLED=.F. STOR 0 TO THIS.S,THIS.F,THIS.H THIS.TEXT1.VALUE='00:00:00' 6． “计数”按钮Command1的Click事件代码： THISFORM.TIMER1.ENABLED=.T. 7． “停止”按钮Command2的Click事件代码： THISFORM.TIMER1.ENABLED=.F. 8． 时钟控件Timer1的Timer事件代码： THISFORM.S=THISFORM.S+1 IF THISFORM.S=60 THISFORM.F=THISFORM.F+1 THISFORM.S=0 ENDIF IF THISFORM.F=60 THISFORM.H=THISFORM.H+1 THISFORM.F=0 ENDIF IF THISFORM.H=60 THISFORM.S=THISFORM.S+1 THISFORM.H=0 ENDIF HH=IIF(THISFORM.H>=10,STR(THISFORM.H,2),'0'+STR(THISFORM.H,1)) FF=IIF(THISFORM.F>=10,STR(THISFORM.F,2),'0'+STR(THISFORM.F,1)) SS=IIF(THISFORM.S>=10,STR(THISFORM.S,2),'0'+STR(THISFORM.S,1)) THISFORM.TEXT1.VALUE=HH+':'+FF+':'+SS 第3题：编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能（界面如图例所示）。 具体要求如下： 1． 表单的边框为固定对话框，运行时自动居中，不可移动； 2． 表单初始显示内容为表文件“学生.dbf”的首记录； 3． 表单内容将以10秒为间隔自动刷新，即自动顺序向后翻记录，当翻至表底时，将自动回到首记录循环翻动。 参考答案： 1．表单的标题属性Caption设置为“学生表内容只读浏览”； 2．表单的BorderStyle属性为“2—固定对话框”，自动居中属性AutoCenter为.T.; 3．表单的Movable属性为.F.； 4．时钟控件Timer1的Interval属性为10000。 5．表单的Form1的Init事件代码： THIS.SETALL("READONLY",.T.,"TEXTBOX") GO TOP THISFORM.REFRESH 6．时钟控件Timer1的Timer事件代码： SKIP IF EOF()             GO TOP ENDIF THISFORM.REFRESH 第4题：编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能（界面如图例所示）。 具体要求如下： 1． 表单的边框为单线边框，运行时自动居中； 2． 表单初始显示内容为表文件“学生.dbf”的首记录； 3． 当按“前翻” “后翻” “首记录” “末记录” 按钮时，表单将自动显示相应记录的内容； 4． 当翻至表头或表底时，将自动设置相应按钮不可访问。 参考答案： 1． 表单的标题属性Caption设置为“学生表内容只读浏览”； 2． 表单的BorderStyle属性为“1—单线边框”；自动居中属性AutoCenter为.T. 3． 表单的Form1的Init事件代码： THIS.SETALL("READONLY",.T.,"TEXTBOX") GO TOP THISFORM.REFRESH 4． “首记录”按钮Command1的Click事件代码： go top thisform.command2.enabled=.t. thisform.command3.enabled=.t. thisform.command4.enabled=.t. thisform.command1.enabled=.f. thisform.refresh 5． “前翻”按钮Command2的Click事件代码： skip -1 if bof() thisform.command1.enabled=.f. this.enabled=.f. endif thisform.command3.enabled=.t. thisform.command4.enabled=.t. thisform.refresh 6．“后翻”按钮Command3的Click事件代码： skip if eof() thisform.command3.enabled=.f. thisform.command4.enabled=.f. endif thisform.command1.enabled=.t. thisform.command2.enabled=.t. thisform.refresh 7．“末记录”按钮Command4的Click事件代码： go bottom thisform.command1.enabled=.t. thisform.command2.enabled=.t. thisform.command3.enabled=.t. thisform.command4.enabled=.f. thisform.refresh 第7题：编制一个表单完成表文件“成绩.dbf”内容的查询显示功能（界面如图例所示）。 具体要求如下： 1． 表单的边框为固定对话框，运行时自动居中； 2． 当用户在组合框（下拉列表）选择班级（学号的左三位）后，表单将自动显示对应班级的所有学生的总平均成绩； 3． 按“退出”按钮时，自动关闭表单。 参考答案： 1． 表单的标题属性Caption设置为“查询并显示指定班级的总平均成绩”； 2． 表单的BorderStyle属性为“2—固定对话框”；自动居中属性AutoCenter为.T.。 3． 组合框Combo1的Init事件代码： SET TALK OFF INDEX ON LEFT(学号,3) TO XH UNIQUE SCAN   THIS.ADDITEM(LEFT(学号,3)) ENDSCAN SET INDEX TO 4． 组合框Combo1的Click事件代码： BJ=THIS.VALUE AVERAGE FOR LEFT(学号,3)=BJ 成绩 TO CJ THISFORM.TEXT1.VALUE=CJ 5． “退出”按钮Command1的Click事件代码： thisform.release 第8题：编制一个表单完成数字时钟显示功能（界面如图例所示）。 具体要求如下： 1． 表单的位置在左上角，可移动，表单的边框为无边框； 2． 表单将自动以1秒间隔动态显示系统时间； 参考答案： 1． 表单的标题属性Caption设置为“数字时钟”； 2． 表单的位置属性Left为0；Top为0；Movable为.T.； 3． 表单的BorderStyle属性为“0—无边框”； 4． 时钟控件Timer1的Interval属性为1000。 5． 文本框Text1的背景色Backcolor为RGB(255,255,255)；FONTNAME为“隶书”。 6． 时钟控件Timer1的Timer事件代码： s=substr(time(),1,2) f=substr(time(),4,2) m=substr(time(),7,2) thisform.text1.value=s+"时"+f+'分'+m+'秒' 第10题：编制一个表单完成表文件“成绩.dbf”和“课程.dbf”内容的查询显示功能（界面如图所示）。 具体要求如下： 1． 表单运行时自动居中，不可移动； 2． 当用户在组合框（下拉列表）选择课程后，表单将自动显示该课程的总平均成绩； 3．按“退出”按钮时，自动关闭表单。 参考答案： 1．表单的标题属性Caption设置为“查询并显示指定课程的总平均成绩”； 2．表单的自动居中属性AutoCenter为.T.; 3．表单的Movable属性为.F.； 4．组合框Combo1的RowSouceType属性为“6-字段”，RowSouce属性为“课程.课程名”。 5．组合框Combo1的Click事件代码： SET TALK OFF SELECT 课程 KCH=课程号 SELECT 成绩 AVERAGE FOR 课程号=KCH 成绩 TO CJ THISFORM.TEXT1.VALUE=CJ 6.“退出”按钮Command1的Click事件代码： thisform.release 第11题：编制一个表单完成表文件“学生.dbf”内容的信息查询功能（界面如图例所示）。 具体要求如下： 7． 表单的边框为固定对话框，运行时自动居中，不可移动； 8． 表单的文本框中输入需查询学生的学号。 参考答案： 1．表单的标题属性Caption设置为“学生表信息查询”； 2．表单的BorderStyle属性为“2—固定对话框”，自动居中属性AutoCenter为.T.; 9． 表单的Movable属性为.F.； 10． 标签Label2的Forecolor属性为“255,255,255”；FontSize属性为“16”； 11． 表单的Form1的Init事件代码： use 学生 thisform.setall("visible",.f.) thisform.label1.visible=.t. thisform.text1.visible=.t. 12． 表单的Form1的destroy事件代码： use 7.文本框Text1的Valid事件代码： loca for alltrim(学号)=alltrim(this.value) if found()     thisform.label2.caption=""     thisform.setall("visible",.t.) else     thisform.setall("visible",.f.)     thisform.label1.visible=.t.     thisform.text1.visible=.t.     thisform.label2.visible=.t.     thisform.label2.caption="您所指定的学生并不存在！" endif thisform.refresh return .t. 第12题：根据要求，用表单设计器建立一个“按钮组调色板”表单（界面如图例所示）。 具体要求如下： 1． 表单的标题为“按钮组调色板”， 表单运行时，当按某个命令按钮后，表单的背景色就会变成按钮指定的对应颜色。 参考答案： 1． 表单的标题属性Caption设置为“按钮组调色板”； 2． 命令按钮组Commandgroup1的Click事件代码： do case case this.value=1 thisform.backcolor=rgb(225,0,0) case this.value=2 thisform.backcolor=rgb(0,255,0) case this.value=3 thisform.backcolor=rgb(0,0,255) case this.value=4 thisform.backcolor=rgb(0,0,0) case this.value=5 thisform.backcolor=rgb(225,255,255) endcase thisform.refresh 第13题：根据要求，用表单设计器建立一个“按钮组调色板”表单（界面如图例所示）。 具体要求如下： 1.表单的标题为“按钮组调色板”， 表单运行时，当按某个命令按钮后，命令按钮组的背景色就会变成按钮指定的对应颜色。 参考答案： 1.表单的标题属性Caption设置为“按钮组调色板”； 2.命令按钮组Commandgroup1的Click事件代码： do case case this.value=1 this.backcolor=rgb(225,0,0) case this.value=2 this.backcolor=rgb(0,255,0) case this.value=3 this.backcolor=rgb(0,0,255) case this.value=4 this.backcolor=rgb(0,0,0) case this.value=5 this.backcolor=rgb(225,255,255) endcase thisform.refresh 第15题：根据要求，用表单设计器建立一个“选项按钮组调色板”表单（界面如图例所示）。 具体要求如下： 1.表单的标题为“选项按钮组调色板”， 表单运行时，当按某个命令按钮后，选项按钮组的背景色就会变成按钮指定的对应颜色。 参考答案： 1.表单的标题属性Caption设置为“选项按钮组调色板”； 2. 选项按钮组Optiongroup1的Click事件代码： do case case this.value=1     thisform.optiongroup1.backcolor=rgb(255,0,0) case this.value=2     thisform.optiongroup1.backcolor=rgb(0,255,0) case this.value=3     thisform.optiongroup1.backcolor=rgb(0,0,255) case this.value=4     thisform.optiongroup1.backcolor=rgb(0,0,0) case this.value=5     thisform.optiongroup1.backcolor=rgb(255,255,255) endcase 第16题：编制一个表单完成表文件“学生.dbf”内容的信息查询功能（界面如图例所示）。 具体要求如下： 1． 表单的列表框中选择需查询学生的姓名。 2． 所有文本框Text为只读。 参考答案： 1． 表单的标题属性Caption设置为“学生表信息查询”； 2． 所有文本框Text的ReadOnly属性为“.T.”； 3.表单的Form1的Init事件代码： use 学生 thisform.setall("visible",.f.,"textbox") thisform.setall("visible",.f.,"label") thisform.label1.visible=.t. thisform.refresh 4．表单的Form1的destroy事件代码： use     5．列表框List1的Interactivechange事件代码：     thisform.setall("visible",.t.) thisform.refresh 第17题：编制一个表单完成表文件“学生.dbf”内容的信息查询功能（界面如图例所示）。 具体要求如下： 1. 表单的组合框中选择需查询学生的姓名。 2. 所有文本框Text为只读。 参考答案： 1． 表单的标题属性Caption设置为“学生表信息查询”； 2． Combo1的Rowsourcetype为“6-字段”，Rowsource为“学生.姓名”； 3． 所有文本框Text的ReadOnly属性为“.T.”； 4.表单的Form1的Init事件代码： use 学生 thisform.setall("visible",.f.,"textbox") thisform.setall("visible",.f.,"label") thisform.label1.visible=.t. thisform.refresh 5．表单的Form1的destroy事件代码： use     6．列表框Combo1的Interactivechange事件代码：     thisform.setall("visible",.t.) thisform.refresh 第19题：根据要求，用表单设计器建立一个时钟表单（界面如图例所示）。 具体要求如下： 1． 表单只有标题为“信息窗”。 2． 当时钟的分为奇数时，表单的背景色为绿色，偶数时为蓝色。 3． 显示的内容为只读。 参考答案： 1． 表单的标题属性Caption设置为“信息窗”； 2． 时钟控件Timer1的Timer事件代码： S=SUBSTR(TIME(),1,2) F=SUBSTR(TIME(),4,2) M=SUBSTR(TIME(),7,2) MN=VAL(f) IF INT(MN/2)=MN/2   THISFORM.backCOLOR=RGB(0,0,255) ELSE   THISFORM.backCOLOR=RGB(0,255,0)  ENDIF thisform.text1.value=time() 第20题：根据要求，用表单设计器建立一个“人工翻动日历牌” 表单（界面如图例所示）。 具体要求如下： 1． 编制一个日历的表单，表单的标题为“人工翻动日历牌”，文本框为只读，显示的日期格式为“年月日”，年份为4位。 2． 当表单运行时，显示当前日期，用户可以通过微调按钮向前或向后翻动日期。 参考答案： 1． 表单的标题属性Caption设置为“人工翻动日历牌”； 2． 微调Spinner1的Downclick事件代码： thisform.text1.value=thisform.text1.value-1 thisform.refresh 3． 微调Spnnier1的Upclick事件代码： thisform.text1.value=thisform.text1.value+1 thisform.refresh 第21题：根据要求，用表单设计器建立一个“选页调色板”表单（界面如图例所示）。 具体要求如下： 1.表单的标题为“选页调色板”， 表单运行时，当按某个命令按钮后，该页框的背景色就会变成按钮指定的对应颜色。 参考答案： 1.表单的标题属性Caption设置为“选页调色板”； 2. 选项按钮组Pageframe1的Click事件代码： do case case this.activepage=1     this.page1.backcolor=rgb(255,0,0) case this.activepage=2     this.page2.backcolor=rgb(0,255,0)    case this.activepage=3     this.page3.backcolor=rgb(0,0,255) case this.activepage=4     this.page4.backcolor=rgb(0,0,0)    case this.activepage=5     this.page5.backcolor=rgb(255,255,255)    endcase thisform.refresh    第22题：根据要求，用表单设计器建立一个如图所示的表单（界面如图例所示）。 1.表单的标题属性Caption设置为“新建”； 2. 选项按钮组Optiongroup1的Click事件代码： do case case this.value=1     crea case this.value=2     crea form case this.value=3     modify command endcase 第24题：编制一个日历时钟表单（界面如图例所示）。 具体要求如下：     1．“日期”“星期”“时钟”标签上的文本能自动换行，自动调整大小，背景透明；     2．文本框对齐方式为中间对齐；     3．时钟每1秒种跳一次。 参考答案： 1． 表单的标题属性Caption设置为“日历时钟表单”； 2． 文本框Text1、Text2、Text3的对齐方式属性为Alignment为“2—中间”； 3． 时钟控件Timer1的Interval属性为1000。 4． 时钟控件Timer1的Timer事件代码： Y=STR(YEAR(DATE()),4) M=STR(MONTH(DATE()),2) D=STR(DAY(DATE()),2) THISFORM.Text1.Value=Y+"年"+M+"月"+D+"日" C="日一二三四五六" N=DOW(DATE()) W="星期"+SUBSTR(C,2*N-1,2)+"("+CDOW(DATE())+")" THISFORM.Text2.Value=W THISFORM.Text3.Value=TIME() 第26题：编制一个如图所示的表单（界面如图例所示）。 参考答案： 1.表单的标题属性Caption设置为“学生成绩信息浏览”； 2.表单的Form1的Init事件代码： set dele on SElect  课程 set order to tag  课程号 in 成绩 SET RELATION TO 课程号 INTO 成绩 select  学生 set order to tag 学号 in 成绩 SET RELATION TO 学号 INTO 成绩 with this.grd成绩   .readonly=.f.   .allowaddnew=.f.   .deletemark=.f. endwith this.setall("READONLY",.T.,"TEXTBOX") this.commandgroup1.command1.setfocus 3. 表单的Form1的Unload事件代码：         clear events 4. 命令按钮组Commandgroup1的Click事件代码： do case case this.value=1  &&表头按钮   go top   this.command1.enabled=.f.   this.command2.enabled=.f.     this.command3.enabled=.t.     this.command4.enabled=.t. case this.value=2 and !bof()  &&前翻   skip  -1   if bof()       this.command1.enabled=.f.       this.command2.enabled=.f.   endif   this.command3.enabled=.t.    this.command4.enabled=.t. case this.value=3 and !eof()  &&后翻   skip    if eof()       this.command3.enabled=.f.       this.command4.enabled=.f.   endif     this.command1.enabled=.t.    this.command2.enabled=.t.  case this.value=4    &&表尾   go bottom   this.command1.enabled=.t.   this.command2.enabled=.t.     this.command3.enabled=.f.     this.command4.enabled=.f. case this.value=5  &&退出   if messagebox("退出吗？",4+32,"退出确认框")=6       select 成绩       pack       set delete off       thisform.release   endif endcase  thisform.refresh 第27题：编制一个表单完成学生成绩信息查询显示功能（界面如图例所示）。 参考答案： 1．表单的标题属性Caption设置为“学生成绩信息查询表单”； 2．文本框Text1的SelectOnEntry设置为“.T.”； 3. 表单的Form1的Init事件代码： sele 学生 set order to tag 学号 in 成绩 set relation to 学号 into 成绩 thisform.setall("visible",.f.) thisform.label1.visible=.t. thisform.text1.visible=.t. 4. 表单的Form1的Unload事件代码： use 5. 文本框Text1的Valid事件代码： loca for alltrim(学号)=alltrim(this.value) if found()     thisform.setall("visible",.t.)     thisform.text2.value=姓名 else     thisform.setall("visible",.f.)     thisform.label1.visible=.t.     thisform.text1.visible=.t.     messagebox('查无此人！',0+48,"提示窗")    endif thisform.refresh return .t. 6. 文本框Text1的Gotfocus事件代码： thisform.setall("visible",.f.) thisform.label1.visible=.t. thisform.text1.visible=.t. thisform.refresh 第28题：编制一个表单完成表文件“成绩.dbf”内容的查询显示功能（界面如图例所示）。 参考答案： 1.表单的标题属性Caption设置为“学生成绩信息查询”； 2.表单的Form1的Init事件代码： sele 学生 set order to tag 学号 in 成绩 set relation to 学号 into 成绩 3. 列表框List1的Interactivechange事件代码：       thisform.setall("visible",.t.) thisform.refresh 4. 列表框List1的Gotfocus事件代码： sele 学生 set order to tag 学号 in 成绩 set relation to 学号 into 成绩 thisform.refresh 第30题：编制一个表单完成学籍信息查询显示功能（界面如图例所示）。 参考答案： 1.表单的标题属性Caption设置为“学生学籍信息查询表单”； 3． 表单的Form1的Init事件代码： SELE 成绩 SET ORDER TO TAG 课程号 IN 课程 SET RELATION TO 课程号 INTO 课程 sele 学生 set order to tag 学号 in 成绩 set relation to 学号 into 成绩 thisform.setall("visible",.f.) thisform.combo1.visible=.t. this.combo1.style=2 this.combo1.rowsourcetype=6 this.combo1.rowsource="学生.学号" 4． 表单的Form1的Unload事件代码： use 5． 组合框Combo1的Interactivechange事件代码： thisform.setall("visible",.t.) select 成绩 THISFORM.REFRESH 6． 组合框Combo1的Gotfocus事件代码：         thisform.setall("visible",.f.) thisform.combo1.visible=.t. thisform.refresh 第32题：编制一个表单完成学籍信息查询显示功能（界面如图例所示）。 1.表单的标题属性Caption设置为“学籍信息查询表单”； 2.数据环境Dataenvironment中的3个表文件Cursor1、Cursor2和Cursor3的表独占属性Exclusive设置为真（.T.）。 3. 表单的Form1的Init事件代码：     set dele on SElect  课程 set order to tag  课程号 in 成绩 SET RELATION TO 课程号 INTO 成绩 select  学生 set order to tag 学号 in 成绩 SET RELATION TO 学号 INTO 成绩 this.setall("READONLY",.T.,"TEXTBOX") this.pageframe1.activepage=1        &&激活“学生”页面 this.commandgroup1.command1.setfocus 4. 表单的Form1的Unload事件代码：     clear events 5. 命令按钮组Commandgroup1的Click事件代码：     do case case this.value=1  &&表头按钮   go top   this.command1.enabled=.f.   this.command2.enabled=.f.     this.command3.enabled=.t.     this.command4.enabled=.t. case this.value=2 and !bof()  &&前翻   skip  -1   if bof()       this.command1.enabled=.f.       this.command2.enabled=.f.   endif   this.command3.enabled=.t.    this.command4.enabled=.t. case this.value=3 and !eof()  &&后翻   skip    if eof()       this.command3.enabled=.f.       this.command4.enabled=.f.   endif     this.command1.enabled=.t.    this.command2.enabled=.t.  case this.value=4    &&表尾   go bottom   this.command1.enabled=.t.   this.command2.enabled=.t.     this.command3.enabled=.f.     this.command4.enabled=.f. case this.value=5  &&退出   if messagebox("退出吗？",4+32,"退出确认框")=6       select 成绩       pack       set delete off       thisform.release   endif endcase  if thisform.pageframe1.activepage=1   select  学生   set order to tag 学号 in 成绩 else   select 课程   set order to tag 课程号 in 成绩 endif thisform.refresh 6. 页框page1的activate事件代码：         select  学生 set order to tag  学号 in 成绩   7. 页框page2的activate事件代码： select  课程 set order to tag  课程号 in 成绩 第33题：编制一个表单完成学籍信息查询显示功能（界面如图例所示）。 参考答案： 1.表单的标题属性Caption设置为“学籍信息查询表单”； 2.表单的Form1的Init事件代码：         sele 学生 set order to tag 学号 in 成绩 set relation to 学号 into 成绩 3.列表框List1的Interactivechange事件代码： thisform.grid1.setfocus thisform.refresh     4. 列表框List1的Gotfocus事件代码：         sele 学生 set order to tag 学号 in 成绩 set relation to 学号 into 成绩 thisform.refresh 5.列表框List2的Interactivechange事件代码： thisform.grid1.column1.text1.setfocus thisform.refresh 6.列表框List2的Gotfocus事件代码： sele 课程 set order to tag 课程号 in 成绩 set relation to 课程号 into 成绩 thisform.refresh 第34题：编制一个表单完成学籍信息查询显示功能（界面如图例所示）。 参考答案： 1.表单的标题属性Caption设置为“学籍信息查询表单”； 2.表单的Form1的Init事件代码：     thisform.list3.rowsourcetype=0 thisform.list3.rowsource='' 3. 列表框List1的Interactivechange事件代码： select 成绩 set order to tag 课程号 in 课程 set relation to 课程号 into 课程 thisform.list3.clear select 成绩 scan for 学号=学生.学号     thisform.list3.additem(课程.课程名+str(成绩.成绩,6,2)) endscan thisform.refresh       4. 列表框List1的Gotfocus事件代码： thisform.refresh 5. 列表框List2的Interactivechange事件代码：   select 成绩 set order to tag 学号 in 学生 set relation to 学号 into 学生 thisform.list3.clear select 成绩 scan for 课程号=课程.课程号     thisform.list3.additem(学生.姓名+str(成绩.成绩,6,2)) endscan thisform.refresh 6. 列表框List2的Gotfocus事件代码：   thisform.refresh 另解：参考答案： 1. 表单的标题属性Caption设置为“学籍信息查询表单”； 2. 列表框List1的Init事件代码： select 学生 scan     this.additem(姓名) endscan thisform.refresh 3. 列表框List1的Interactivechange事件代码： THISFORM.LIST1.SETFOCUS SELECT 学生 LOCATE FOR 姓名=THIS.VALUE A=学号 ERASE 11.DBF SELECT 课程.课程名,成绩.成绩 FROM 课程,成绩 WHERE 成绩.学号=A AND 成绩.课程号=课程.课程号 INTO TABLE 11 THISFORM.LIST3.CLEAR USE 11 SCAN     THISFORM.LIST3.ADDITEM(ALLTRIM(课程名)+STR(成绩)) ENDSCAN USE THISFORM.REFRESH 4. 列表框List2的Init事件代码： select 课程 scan     this.additem(课程名) endscan thisform.refresh 5. 列表框List2的Interactivechange事件代码： THISFORM.LIST2.SETFOCUS SELECT 课程 LOCATE FOR 课程名=THIS. VALUE A=课程号 ERASE 11.DBF SELECT 学生.姓名,成绩.成绩 FROM 学生,成绩 WHERE 成绩.学号=学生.学号 AND 成绩.课程号=A INTO TABLE 11 THISFORM.LIST3.CLEAR USE 11 SCAN     THISFORM.LIST3.ADDITEM(ALLTRIM(姓名)+STR(成绩)) ENDSCAN USE THISFORM.REFRESH 第35题：编制一个表单完成文字的水平移动功能（界面如图例所示）。 参考答案： 1. 表单的标题属性Caption设置为“水平移动的文字”； 2. 添加表单的新属性ud； 3.表单的Form1的Init事件代码： this.ud='R' 4．时钟控件Timer1的Timer事件代码： do case case thisform.ud='R'     thisform.label1.left=thisform.label1.left+1     if thisform.label1.left=thisform.width-thisform.left-3         thisform.ud='L'     endif case thisform.ud='L'     thisform.label1.left=thisform.label1.left-1     if thisform.label1.left=0         thisform.ud='R'     endif endcase thisform.refresh 第37题：编制一个表单完成文字的缩放功能（界面如图例所示）。 参考答案： 1.表单的标题属性Caption设置为“缩放文字”； 2.添加表单的新属性ud； 3.表单的Form1的Init事件代码： this.ud='D' 4．时钟控件Timer1的Timer事件代码：     do case case thisform.ud='D'         thisform.label1.fontsize=thisform.label1.fontsize+1         if thisform.label1.fontsize=52             thisform.ud='X'         endif case thisform.ud='X'         thisform.label1.fontsize=thisform.label1.fontsize-1         if thisform.label1.fontsize=4             thisform.ud='D'         endif endcase thisform.refresh 第40题：编制一个表单完成数据转移操作功能（界面如图例所示）。 参考答案： 1.表单的标题属性Caption设置为“数据转移操作”； 2.表单的Form1的Init事件代码： this.list2.rowsourcetype=0 this.list2.rowsource="" this.list2.sorted=.t. this.list1.rowsourcetype=0 this.list1.rowsource="" this.list1.sorted=.t. use 学生 scan     this.list1.additem(姓名) endscan 3. 表单的Form1的Destroy事件代码： use 4. 命令按钮“选择一项”Command1的Click事件代码： thisform.list2.additem(thisform.list1.value) thisform.list1.removeitem(thisform.list1.listindex) thisform.refresh 5. 命令按钮“全部选定”Command2的Click事件代码： thisform.list2.clear scan     thisform.list2.additem(姓名) endscan thisform.list1.clear thisform.refresh 文档已经阅读完毕，请返回上一页！