简单应用(参考)

1、简单应用（注意本题中所有代码在原题中不提供）(一) 简单应用（15分）打开表单myform002，表单中已有一个标签（名称为Label1），二个命令按钮“计算”和“关闭”（名称分别为Command1和Command2），三个文本框（名称分别为Text1、Text2、Text3），要求完成以下功能：1. 在Text1、Text2中分别输入一个自然数（要求用文本框事件代码设定，设计时不使用属性，当不满足要求时，光标不能离开该文本框），且Text2中的自然数大于Text1中的自然数（不用代码设定），当单击“计算”按钮时，求出两个自然数之间奇数的和，并将结果显示在文本框Text3中。2. 在表单中增加

2、一个“重置”按钮，其字体和字号同其他命令按钮，当单击“重置”按钮时，三个文本框均清空。3. 单击“关闭”按钮时结束表单的运行。界面设计如下图所示。需要完成的操作如下：1. 请将“计算”命令按钮单击事件代码中的？去掉，改成正确的代码，不能增加行或删除行。（练习题中该事件中无代码）2. 按要求完成“重置”按钮和“关闭”按钮的事件代码，两个文本框的事件代码。注意：完成表单设计后要运行表单的所有功能。(在重置按钮的click事件代码窗口中输入：THISFORM.TEXT1.VALUE=THISFORM.TEXT2.VALUE=THISFORM.TEXT3.VALUE=在关闭按钮的click事件代码窗口

3、中输入：THISFORM.RELEASE修改计算按钮的click事件代码如下：A=VAL( THISFORM.TEXT1.VALUE )B=VAL(THISFORM.TEXT2.VALUE)P= AS=0DO WHILE P= Bif int(p/2) P/2S=S+PENDIFP=P+1ENDDOTHISFORM.TEXT3.VALUE =STR(S)TEXT1的valid事件代码如下：RETURN VAL(THISFORM.TEXT1.VALUE)=0 AND VAL(THISFORM.TEXT1.VALUE) =INT(VAL(THISFORM.TEXT1.VALUE)TEXT2的val

4、id事件代码如下：RETURN VAL(THISFORM.TEXT2.VALUE)=0 AND VAL(THISFORM.TEXT2.VALUE) =INT(VAL(THISFORM.TEXT2.VALUE)(二) 简单应用（15分）打开表单myform002，表单中已有一个标签（名称为Label1），三个文本框（名称为Text1、Text2、Text3），二个命令按钮（名称分别为Command1、Command2），其标题文字分别为“计算”和“关闭”。要求完成如下功能：1. 在文本框Text1、Text2中分别输入一个三位的自然数（用valid事件设定），且Text2中的数大于Text1中的

5、数据（用valid事件设定），当单击“计算”按钮时，计算在这两个自然数之间满足数字本身三个数字之和为10这样条件的数之和，并将计算结果显示在文本框Text3中；2. 在表单中增加一个“重置”按钮，其字体字号同其他命令按钮，单击该命令按钮时，三个文本框的内容均清空。3. 单击“关闭”按钮结束表单的运行。界面设计如下图所示。按功能完成如下操作：(三) 请将“计算”命令按钮单击事件代码中的？去掉，改成正确的代码，不能增加行或删除行。(四) 按要求完成“重置”按钮和“关闭”按钮的程序代码，完成text1和text2事件代码的设定。注意：完成表单设计后要运行表单的所有功能。(在重置按钮的click事件代

6、码窗口中输入：THISFORM.TEXT1.VALUE=THISFORM.TEXT2.VALUE=THISFORM.TEXT3.VALUE=在关闭按钮的click事件代码窗口中输入：THISFORM.RELEASE修改计算按钮的click事件代码如下：A=VAL(THISFORM.TEXT1.VALUE)B=VAL(THISFORM.TEXT2.VALUE)P=AS=0DO WHILE P =100 and val(thisform.text1.value)=100 and val(thisform.text2.value)val(thisform.text1.value) AND VAL(T

7、HISFORM.TEXT2.VALUE) =INT(VAL(THISFORM.TEXT2.VALUE)(三) 简单应用（15分）在指定的考生文件夹下，完成下列简单应用操作。打开表单myform002，其中已经添加两个名称分别为Label1和Label2的标签和一个定时器Timer1，标签Label1的标题为“销售管理信息系统”。要求完成如下功能：（1）将标签Label1的字体设置为“黑体”，字号为20，颜色为RGB（255,0,0），调整其大小，显示所有内容，其他控件的字体为隶书，字号为20。（2）将Timer1控件的事件代码中“？”位置改成正确的代码，并在属性窗口设置Timer1的相应属性，

8、保证每隔20毫秒，标签Label1能够不停的自右向左移动（移动值设置为-2），标签右边沿移至表单左边沿后，则标签再次从表单右边沿开始向左移动，循环往复。（3）添加名为Timer2的定时器控件，并编写相应的代码，保证每隔1秒在标签Label2中显示当前系统时间。（4）添加一个“退出”按钮，单击此按钮，则退出表单的运行。界面设计如下图所示：需要完成的操作如下：3. 请将timer1控件的事件代码中的？去掉，改成正确的代码，不能增加行或删除行。4. 按要求完成 “退出”按钮的事件代码，添加timer2控件并完成相应的代码设置。5. 完成相关属性的设置。注意：完成表单设计后要运行表单的所有功能。(在关

9、闭按钮的click事件代码窗口中输入：THISFORM.RELEASETIMER1控件的事件代码如下：IF THISFORM.LABEL1.LEFT-THISFORM.LABEL1.WIDTHTHISFORM.LABEL1.LEFT=THISFORM.LABEL1.LEFT-2ELSETHISFORM.LABEL1.LEFT=THISFORM.WIDTHENDIF TIMER2控件的事件代码如下：THISFORM.LABEL2.CAPTION=TIME()(四) 简单应用（15分）在指定的考生文件夹下，完成下列简单应用操作。打开表单myform002，表单中有两个命令按钮“输出”和“退出”（名

10、称分别为Command1和Command2）；二个文本框（名称分别为Text1、Text2），五个标签（名称分别为Label1、Label2、Label3、Label4、Label5）。要求完成以下功能：1. 在文本框Text1中输入姓名（不能为空，用事件代码限定），在Text2中修改学生成绩，初始成绩为100，用属性窗口设置，当单击“输出”按钮时，在标签Label5中显示等级，格式为“姓名”+“的等级为”+ 等级，其中等级的划分为：不及格（大于等于0且小于60）、合格（大于等于60且小于90）、优秀（大于等于90且小于等于100），2. Text2中修改的成绩只能在0-100之间，否则在判断

11、等级时显示“数据错误”（不用在单独事件中设定，在给定的事件中已设定），如果其中的值不为100，则光标进不去（用事件设定），添加一个“重置”按钮，字体字号同其他命令按钮，单击重置按钮，则text1为空，text2为100。3. 单击“退出”按钮时结束表单的运行。表单运行示例如下：需要完成的操作如下：6. 请将“输出”命令按钮单击事件代码中的？去掉，改成正确的代码，不能增加行或删除行。7. 按要求完成“退出”按钮和两个文本框的事件代码。8. 添加“重置”按钮，完成事件代码设定。注意：完成表单设计后要运行表单的所有功能。(在重置按钮的click事件代码窗口中输入：THISFORM.TEXT1.VAL

12、UE=THISFORM.TEXT2.VALUE=100在退出按钮的click事件代码窗口中输入：THISFORM.RELEASE修改输出按钮的click事件代码如下：cj=thisform.text2.valuedo casecase cj=0 AND CJ=60 and cj=90 and cj=100thisform.label5.caption=THISFORM.TEXT1.VALUE+的等级为优秀otherwisethisform.label5.caption=数据错误endcaseTEXT1的valid事件代码如下：return LEN(ALLTRIM(thisform.TEXT1.

13、VALUE)0TEXT2的when事件代码如下：return thisform.TEXT2.VALUE=100(五) 简单应用（15分）在指定的考生文件夹下，完成下列简单应用操作。打开表单myform002，表单中有两个命令按钮（名称分别为Command1和Command2），其标题文本分别为“输出”和“退出”。五个文本框（名称分别为Text1、Text2、Text3、Text4、Text5），两个标签（名称分别为Label1、Label2）。1. 要求在五个文本框中分别输入数据长度不超过4位的五个数（用事件代码加以限定），当单击“输出”按钮时，在标签Label2中显示由大到小排序的结果，其字

14、体显示为红色（RGB（255,0,0）。2. 单击“退出”按钮时结束表单的运行。表单运行效果示例如下：（需要完成的操作如下：9. 请将“输出”命令按钮单击事件代码中的？去掉，改成正确的代码，不能增加行或删除行。10. 按要求完成 “退出”按钮的事件代码，五个文本框的事件代码。注意：完成表单设计后要运行表单的所有功能。(在退出按钮的click事件代码窗口中输入：THISFORM.RELEASE修改输出按钮的click事件代码如下：dimension x(5)THISFORM.LABEL2.CAPTION=for i=1 to 5p=thisform.text+STR(I,1) +.valuex(

15、i)=val(&p)endforfor i=1 to 4for j=i+1 to 5if x(i)x(j)t=x(i)X(I)=X(J)X(J)=TendifendforENDFORfor i= 1 to 5thisform.label2.caption= THISFORM.LABEL2.CAPTION+str(x(i),7,2)endforTEXT1的valid事件代码如下：RETURN LEN(ALLTRIM(thisform.TEXT1.VALUE)=4TEXT2的valid事件代码如下：RETURN LEN(ALLTRIM(thisform.TEXT2.VALUE)=4TEXT3的va

16、lid事件代码如下：RETURN LEN(ALLTRIM(thisform.TEXT3.VALUE)=4TEXT4的valid事件代码如下：RETURN LEN(ALLTRIM(thisform.TEXT4.VALUE)=4TEXT5的valid事件代码如下：RETURN LEN(ALLTRIM(thisform.TEXT5.VALUE)0 AND VAL(THISFORM.TEXT1.VALUE)=INT(VAL(THISFORM.TEXT1.VALUE)TEXT2的valid事件代码如下：RETURN VAL(THISFORM.TEXT2.VALUE)0 AND VAL(THISFORM.

17、TEXT2.VALUE)=INT(VAL(THISFORM.TEXT2.VALUE) AND VAL(THISFORM.TEXT2.VALUE)VAL(THISFORM.TEXT1.VALUE)(七) 简单应用（15分）在指定的考生文件夹下，完成下列简单应用操作。打开表单myform002，在表单中有四个标签（名称为Label1、Label2、Label3、Label4），一个下拉式组合框，三个文本框（名称为Text1、Text2、Text3），TEXT1、TEXT2、TEXT3的字体颜色分别为RGB(255，0，0)、RGB(0，255，0)、RGB（0，0，255）两个命令按钮（名称为Co

18、mmand1、Command2），其标题文字分别为“统计”和“退出”。要求完成以下功能：1. 在文本框combo1中选择一组已有的字符或者输入长度大于6的字符串内容（若长度不大于6，焦点不能离开combo1，用事件代码限定）。当单击“统计”按钮时，分别统计“字符”、“数字”和“其他”的个数，并将结果分别显示在文本框Text2、Text3、Text4中。2. 添加一个“重置”按钮，其字体字形同“统计”按钮，单击“重置”按钮，则将组合框，三个文本框中的内容清空。3. 单击“退出”按钮则退出运行状态。表单运行示例图如下：需要完成的操作如下：13. 请将“统计”命令按钮单击事件代码中的？去掉，改成正确

19、的代码，不能增加行或删除行。14. 按要求添加“重置”按钮及它的属性设置和它的事件代码的设置15. 按要求编写“退出”按钮的事件代码，组合框的事件代码。注意：完成表单设计后要运行表单的所有功能。(在重置按钮的click事件代码窗口中输入：THISFORM.COMBO1.VALUE=THISFORM.TEXT1.VALUE=THISFORM.TEXT2.VALUE=THISFORM.TEXT3.VALUE=在退出按钮的click事件代码窗口中输入：THISFORM.RELEASE修改统计按钮的click事件代码如下：C=0D=0E=0a=ALLTRIM(bo1.DISPLAYvalue)b=LE

20、N(A)for i=1 to bch=SUBSTR(A,I,1)DO CASECASE ch=a and ch=A and ch=0 and ch6(八) 简单应用（15分）在指定的考生文件夹下，完成下列简单应用操作。打开表单myform002，表单中有三个标签（Label1、Label2、Label3），一个文本框（Text1），一个选项按钮组（Optiongroup1），一个列表框（List1），两个命令按钮（Command1、Command2），其标题文字分别为“重置”和“退出”。要求完成以下功能：1. 在文本框Text1输入行数（行数不能超过6行，必须为一个自然数，且如果不输入也不允许

21、退出Text1焦点）后，在Optiongroup1中，单击相应按钮，则在列表框中显示对应的图形。2. 单击“重置”按钮，则文本框和列表框内容清空，选项按钮组全部未选中，TEXT1获得焦点。3. 单击“退出”按钮则结束表单运行。表单运行示例图如下：需要完成的操作如下：16. 请将选项按钮组、第一个按钮、第二个按钮、第三个按钮的单击事件代码中的？去掉，改成正确的代码，不能增加行或删除行。17. 按要求完成“重置”按钮和“退出”按钮的事件代码，文本框的事件代码。注意：完成表单设计后要运行表单的所有功能。(在重置按钮的click事件代码窗口中输入：THISFORM.TEXT1.VALUE=THISFO

22、RM.OPTIONGROUP1.VALUE=0thisform.LIST1.ROWSOURCE=THISFORM.TEXT1.SETFOCUS()在退出按钮的click事件代码窗口中输入：THISFORM.RELEASE选项按钮组的click事件代码如下：public p,xp=val(thisform.text1.value)dimension x(p)for i=1 to px(I)=endforfor i=P to 1 step -1x(P-I+1)=space(6-P)for j=1 to Ix(P-I+1)=x(P-I+1)+*endforendforthisform.list1.r

23、owsourcetype=5thisform.list1.rowsource=Xthisform.refresh选项按钮组的第一个选项按钮的click事件代码如下：public p,xp=val(thisform.text1.value)dimension x(p)for i=1 to px(I)=endforfor i=1 to P step 1x(I)=space(6-I)for j=1 to 2*I-1x(I)=x(I)+*endforendforthisform.list1.rowsourcetype=5thisform.list1.rowsource=Xthisform.refres

24、h选项按钮组的第二个选项按钮的click事件代码如下：public p,xp=val(thisform.text1.value)dimension x(p)for i=1 to px(I)=endforfor i=1 to P step 1x(I)=space(6-I)for j=1 to Ix(I)=x(I)+*endforendforthisform.list1.rowsourcetype=5thisform.list1.rowsource=Xthisform.refresh选项按钮组的第三个选项按钮的click事件代码如下：public p,xp=val(thisform.text1.v

25、alue)dimension x(p)for i=1 to px(I)=endforfor i=P to 1 step -1x(P-I+1)=space(6-I)for j=1 to 2*I-1x(P-I+1)=x(P-I+1)+*endforendforthisform.list1.rowsourcetype=5thisform.list1.rowsource=Xthisform.refreshTEXT1的valid事件代码如下：RETURN VAL(THISFORM.TEXT1.VALUE)0 AND VAL(THISFORM.TEXT1.VALUE)=int(VAL(THISFORM.T

26、EXT1.VALUE) and val(THISFORM.TEXT1.VALUE)=6(九) 简单应用（15分）在指定的考生文件夹下，完成下列简单应用操作。打开表单myform002，表单中已有七个标签（名称为Label1label7），一个命令按钮组，一个命令按钮，四个文本框（名称分别为Text1text4），两个选项按钮组，一个复选按钮，一个编辑框，要求完成以下功能：1. 显示或编辑RSDA.DBF数据表中的各个记录的相关字段值，当为首记录时，“首记录”，“上一条”按钮不可用，当为末记录时，“下一条”和“末记录”按钮不可用，单击“添加记录时，“下一条”和“末记录”按钮不可用，可以在数据表最

27、后增加记录，单击“删除记录”，“首记录”和“上一条”不可用，可以删除一条记录。2. 记录号即TEXT1中的值，通过程序代码显示。3. 单击“退出”按钮时结束表单的运行。表单运行事例如下图所示。需要完成的操作如下：1. 请将命令按钮组中各个命令按钮的单击事件代码和表单INIT事件代码中的？去掉，改成正确的代码，不能增加行或删除行。(十) 按要求完成 “退出”按钮的事件代码。注意：完成表单设计后要运行表单的所有功能。(表单的INIT代码为：THISFORM.TEXT1.VALUE=RECNO()THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.F.THISFORM.

28、COMMANDGROUP1.COMMAND2.ENABLED=.F.命令按钮组中的首记录的click事件代码：GO TOPTHISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.T.THISFORM.TEXT1.VALUE=RECNO()THISFORM.REFRESH命令按钮组中的上一条的click事件代码：SK

29、IP -1IF RECNO()=1THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.F.ENDIFTHISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.T.THISFORM.TEXT1.VALUE=RECNO()THISFORM.REFRESH命令按钮组中的下一条的click事件代码：A=RECNO()GO BOTTOMB=RECNO()GO ASKIPIF REC

30、NO()=BTHISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.F.ENDIFTHISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.T.THISFORM.TEXT1.VALUE=RECNO()THISFORM.REFRESH命令按钮组中的末记录的click事件代码：GO BOTTOMTHISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.T.

31、THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.F.THISFORM.TEXT1.VALUE=RECNO()THISFORM.REFRESH命令按钮组中的添加记录的click事件代码：SELECT RSDAGO BOTTOMTHISFORM.REFRESHTHISFORM.TEXT2.READONLY=.F.THISFORM.TEXT3.READONLY=.F.THISFORM.TEXT4.

32、READONLY=.F.THISFORM.EDIT1.READONLY=.F.APPEND BLANKTHISFORM.TEXT1.VALUE=RECNO()THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.F.THISFORM.REFRESHTHISFORM.TEXT1.SETFOCUS()命令按钮组中的删

33、除记录的click事件代码：DELETEPACKTHISFORM.REFRESHTHISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.T.THISFORM.TEXT1.VALUE=RECNO()THISFORM.REFRESH在关闭按钮的click事件代码窗口中输入：THISFORM.RELEASE(十) 简单应

34、用（15分）在指定的考生文件夹下，完成下列简单应用操作。打开表单myform002，表单上有一个标签（Label1），一个图像控件（Image1），一个计时器控件（Timer1），一个命令按钮（Command1），其标题为“退出”。要求完成以下功能：1. 要求使用属性窗口为图像控件Image1添加要显示的图片内容（所需图片在对应的考生文件夹中），采用等比填充，然后图片每隔20毫秒在表单的水平方向上移动，到达表单的左或右边框时向相反方向移动。2. 当单击“退出”按钮时，结束表单的运行。表单设计完成后如下图所示：需要完成的操作如下：1. 修改程序，将计时器的timer事件代码中的“？”改成正确的内容，不能添加或删除代码行；2. 编写“退出”按钮的程序代码；3. 在表单的Init事件中设置ff为公共变量，初始值为.T.。通过属性将图片添加上去，采用等比填充。注意：完成表单设计后要运行表单的所有功能。(表单的init事件代码如下：public ffff=.T.在退出按钮的click事件代码窗口中输入：THISFORM.RELEASE修改计时器的timer事件代码如下：if ffthisform