简单应用参考讲解.docx

简单应用参考讲解.docx

《简单应用参考讲解.docx》由会员分享，可在线阅读，更多相关《简单应用参考讲解.docx（27页珍藏版）》请在冰点文库上搜索。

简单应用参考讲解

简单应用（注意本题中所有代码在原题中不提供）

（一）简单应用（15分）

打开表单myform002，表单中已有一个标签（名称为Label1），二个命令按钮“计算”和“关闭”（名称分别为Command1和Command2），三个文本框（名称分别为Text1、Text2、Text3），要求完成以下功能：

1.在Text1、Text2中分别输入一个自然数（要求用文本框事件代码设定，设计时不使用属性，当不满足要求时，光标不能离开该文本框），且Text2中的自然数大于Text1中的自然数（不用代码设定），当单击“计算”按钮时，求出两个自然数之间奇数的和，并将结果显示在文本框Text3中。

2.在表单中增加一个“重置”按钮，其字体和字号同其他命令按钮，当单击“重置”按钮时，三个文本框均清空。

3.单击“关闭”按钮时结束表单的运行。

界面设计如下图所示。

需要完成的操作如下：

1.请将“计算”命令按钮单击事件代码中的？

去掉，改成正确的代码，不能增加行或删除行。

（练习题中该事件中无代码）

2.按要求完成“重置”按钮和“关闭”按钮的事件代码，两个文本框的事件代码。

注意：

完成表单设计后要运行表单的所有功能。

（在重置按钮的click事件代码窗口中输入：

THISFORM.TEXT1.VALUE=""

THISFORM.TEXT2.VALUE=""

THISFORM.TEXT3.VALUE=""

在关闭按钮的click事件代码窗口中输入：

THISFORM.RELEASE

修改计算按钮的click事件代码如下：

A=VAL（THISFORM.TEXT1.VALUE）

B=VAL（THISFORM.TEXT2.VALUE）

P=A

S=0

DOWHILEP<=B

ifint（p/2）<>P/2

S=S+P

ENDIF

P=P+1

ENDDO

THISFORM.TEXT3.VALUE=STR（S）

TEXT1的valid事件代码如下：

RETURNVAL（THISFORM.TEXT1.VALUE）>=0ANDVAL（THISFORM.TEXT1.VALUE）=INT（VAL（THISFORM.TEXT1.VALUE））

TEXT2的valid事件代码如下：

RETURNVAL（THISFORM.TEXT2.VALUE）>=0ANDVAL（THISFORM.TEXT2.VALUE）=INT（VAL（THISFORM.TEXT2.VALUE））

（二）简单应用（15分）

打开表单myform002，表单中已有一个标签（名称为Label1），三个文本框（名称为Text1、Text2、Text3），二个命令按钮（名称分别为Command1、Command2），其标题文字分别为“计算”和“关闭”。

要求完成如下功能：

1.在文本框Text1、Text2中分别输入一个三位的自然数（用valid事件设定），且Text2中的数大于Text1中的数据（用valid事件设定），当单击“计算”按钮时，计算在这两个自然数之间满足数字本身三个数字之和为10这样条件的数之和，并将计算结果显示在文本框Text3中；

2.在表单中增加一个“重置”按钮，其字体字号同其他命令按钮，单击该命令按钮时，三个文本框的内容均清空。

3.单击“关闭”按钮结束表单的运行。

界面设计如下图所示。

按功能完成如下操作：

（三）请将“计算”命令按钮单击事件代码中的？

去掉，改成正确的代码，不能增加行或删除行。

（四）按要求完成“重置”按钮和“关闭”按钮的程序代码，完成text1和text2事件代码的设定。

注意：

完成表单设计后要运行表单的所有功能。

（在重置按钮的click事件代码窗口中输入：

THISFORM.TEXT1.VALUE=""

THISFORM.TEXT2.VALUE=""

THISFORM.TEXT3.VALUE=""

在关闭按钮的click事件代码窗口中输入：

THISFORM.RELEASE

修改计算按钮的click事件代码如下：

A=VAL（THISFORM.TEXT1.VALUE）

B=VAL（THISFORM.TEXT2.VALUE）

P=A

S=0

DOWHILEP<=B

C=INT（P/100）

D=INT（p/10）-INT（P/100）*10

E=P-INT（P/10）*10

ifC+D+E=10

S=S+P

ENDIF

P=P+1

ENDDO

THISFORM.TEXT3.VALUE=STR（S）

TEXT1的valid事件代码如下：

returnval（thisform.text1.value）>=100andval（thisform.text1.value）<=999ANDVAL（THISFORM.TEXT1.VALUE）=INT（VAL（THISFORM.TEXT1.VALUE））

TEXT2的valid事件代码如下：

returnval（thisform.text2.value）>=100andval（thisform.text2.value）<=999andval（thisform.text2.value）>val（thisform.text1.value）ANDVAL（THISFORM.TEXT2.VALUE）=INT（VAL（THISFORM.TEXT2.VALUE））

（三）简单应用（15分）

在指定的考生文件夹下，完成下列简单应用操作。

打开表单myform002，其中已经添加两个名称分别为Label1和Label2的标签和一个定时器Timer1，标签Label1的标题为“销售管理信息系统”。

要求完成如下功能：

（1）将标签Label1的字体设置为“黑体”，字号为20，颜色为RGB（255,0,0），调整其大小，显示所有内容，其他控件的字体为隶书，字号为20。

（2）将Timer1控件的事件代码中“？

”位置改成正确的代码，并在属性窗口设置Timer1的相应属性，保证每隔20毫秒，标签Label1能够不停的自右向左移动（移动值设置为-2），标签右边沿移至表单左边沿后，则标签再次从表单右边沿开始向左移动，循环往复。

（3）添加名为Timer2的定时器控件，并编写相应的代码，保证每隔1秒在标签Label2中显示当前系统时间。

（4）添加一个“退出”按钮，单击此按钮，则退出表单的运行。

界面设计如下图所示：

需要完成的操作如下：

3.请将timer1控件的事件代码中的？

去掉，改成正确的代码，不能增加行或删除行。

4.按要求完成“退出”按钮的事件代码，添加timer2控件并完成相应的代码设置。

5.完成相关属性的设置。

注意：

完成表单设计后要运行表单的所有功能。

（在关闭按钮的click事件代码窗口中输入：

THISFORM.RELEASE

TIMER1控件的事件代码如下：

IFTHISFORM.LABEL1.LEFT>-THISFORM.LABEL1.WIDTH

THISFORM.LABEL1.LEFT=THISFORM.LABEL1.LEFT-2

ELSE

THISFORM.LABEL1.LEFT=THISFORM.WIDTH

ENDIF

TIMER2控件的事件代码如下：

THISFORM.LABEL2.CAPTION=TIME（）

（四）简单应用（15分）

在指定的考生文件夹下，完成下列简单应用操作。

打开表单myform002，表单中有两个命令按钮“输出”和“退出”（名称分别为Command1和Command2）；二个文本框（名称分别为Text1、Text2），五个标签（名称分别为Label1、Label2、Label3、Label4、Label5）。

要求完成以下功能：

1.在文本框Text1中输入姓名（不能为空，用事件代码限定），在Text2中修改学生成绩，初始成绩为100，用属性窗口设置，当单击“输出”按钮时，在标签Label5中显示等级，格式为“姓名”+“的等级为”+等级，其中等级的划分为：

不及格（大于等于0且小于60）、合格（大于等于60且小于90）、优秀（大于等于90且小于等于100），

2.Text2中修改的成绩只能在0-100之间，否则在判断等级时显示“数据错误”（不用在单独事件中设定，在给定的事件中已设定），如果其中的值不为100，则光标进不去（用事件设定），添加一个“重置”按钮，字体字号同其他命令按钮，单击重置按钮，则text1为空，text2为100。

3.单击“退出”按钮时结束表单的运行。

表单运行示例如下：

需要完成的操作如下：

6.请将“输出”命令按钮单击事件代码中的？

去掉，改成正确的代码，不能增加行或删除行。

7.按要求完成“退出”按钮和两个文本框的事件代码。

8.添加“重置”按钮，完成事件代码设定。

注意：

完成表单设计后要运行表单的所有功能。

（在重置按钮的click事件代码窗口中输入：

THISFORM.TEXT1.VALUE=""

THISFORM.TEXT2.VALUE=100

在退出按钮的click事件代码窗口中输入：

THISFORM.RELEASE

修改输出按钮的click事件代码如下：

cj=thisform.text2.value

docase

casecj>=0ANDCJ<60

thisform.label5.caption=THISFORM.TEXT1.VALUE+"的等级为不及格"

casecj>=60andcj<90

thisform.label5.caption=THISFORM.TEXT1.VALUE+"的等级为合格"

casecj>=90andcj<=100

thisform.label5.caption=THISFORM.TEXT1.VALUE+"的等级为优秀"

otherwise

thisform.label5.caption="数据错误"

endcase

TEXT1的valid事件代码如下：

returnLEN（ALLTRIM（thisform.TEXT1.VALUE））<>0

TEXT2的when事件代码如下：

returnthisform.TEXT2.VALUE=100

（五）简单应用（15分）

在指定的考生文件夹下，完成下列简单应用操作。

打开表单myform002，表单中有两个命令按钮（名称分别为Command1和Command2），其标题文本分别为“输出”和“退出”。

五个文本框（名称分别为Text1、Text2、Text3、Text4、Text5），两个标签（名称分别为Label1、Label2）。

1.要求在五个文本框中分别输入数据长度不超过4位的五个数（用事件代码加以限定），当单击“输出”按钮时，在标签Label2中显示由大到小排序的结果，其字体显示为红色（RGB（255,0,0））。

2.单击“退出”按钮时结束表单的运行。

表单运行效果示例如下：

（需要完成的操作如下：

9.请将“输出”命令按钮单击事件代码中的？

去掉，改成正确的代码，不能增加行或删除行。

10.按要求完成“退出”按钮的事件代码，五个文本框的事件代码。

注意：

完成表单设计后要运行表单的所有功能。

（在退出按钮的click事件代码窗口中输入：

THISFORM.RELEASE

修改输出按钮的click事件代码如下：

dimensionx（5）

THISFORM.LABEL2.CAPTION=""

fori=1to5

p="thisform.text"+STR（I,1）+".value"

x（i）=val（&p）

endfor

fori=1to4

forj=i+1to5

ifx（i）

t=x（i）

X（I）=X（J）

X（J）=T

endif

endfor

ENDFOR

fori=1to5

thisform.label2.caption=THISFORM.LABEL2.CAPTION+str（x（i）,7,2）

endfor

TEXT1的valid事件代码如下：

RETURNLEN（ALLTRIM（thisform.TEXT1.VALUE））<=4

TEXT2的valid事件代码如下：

RETURNLEN（ALLTRIM（thisform.TEXT2.VALUE））<=4

TEXT3的valid事件代码如下：

RETURNLEN（ALLTRIM（thisform.TEXT3.VALUE））<=4

TEXT4的valid事件代码如下：

RETURNLEN（ALLTRIM（thisform.TEXT4.VALUE））<=4

TEXT5的valid事件代码如下：

RETURNLEN（ALLTRIM（thisform.TEXT5.VALUE））<=4

（六）简单应用（15分）

在指定的考生文件夹下，完成下列简单应用操作。

打开表单myform002，表单上有两个标签（名称为Label1、Label2），三个文本框（名称为Text1、Text2、Text3），其中文本框Text3的字体为楷体，20号字，颜色为RGB（0，255,0），两个命令按钮（名称为Command1、Command2），其标题文字分别为“计算”和“退出”。

要求完成以下功能：

1.在Text1和Text2中分别输入一个自然数时，（Text2中输入的数要大于Text1中的数，且为自然数，即大于等于0的整数，要求用valid事件代码限定）,当单击“计算”按钮时，计算出这两个自然数之间所有素数的和，并将结果显示在Text3中。

2.添加一个“重置”按钮，字体字号同“计算”按钮，单击“重置”按钮，则三个文本框均置空。

3.当单击“退出”按钮时，则结束表单的运行。

表单运行示例如下：

需要完成的操作如下：

11.请将“计算”命令按钮单击事件代码中的？

去掉，改成正确的代码，不能增加行或删除行。

12.按要求完成“退出”按钮的事件代码，两个文本框的事件代码。

注意：

完成表单设计后要运行表单的所有功能。

（在重置按钮的click事件代码窗口中输入：

THISFORM.TEXT1.VALUE=""

THISFORM.TEXT2.VALUE=""

THISFORM.TEXT3.VALUE=""

在退出按钮的click事件代码窗口中输入：

THISFORM.RELEASE

修改计算按钮的click事件代码如下：

a=val（thisform.text1.value）

b=val（thisform.text2.value）

s=0

fori=atob

forj=2toi-1

ifint（i/j）=i/j

exit

endif

endfor

ifi=j

s=s+i

endif

endfor

thisform.text3.value=int（s）

TEXT1的valid事件代码如下：

RETURNVAL（THISFORM.TEXT1.VALUE）>0ANDVAL（THISFORM.TEXT1.VALUE）=INT（VAL（THISFORM.TEXT1.VALUE））

TEXT2的valid事件代码如下：

RETURNVAL（THISFORM.TEXT2.VALUE）>0ANDVAL（THISFORM.TEXT2.VALUE）=INT（VAL（THISFORM.TEXT2.VALUE））ANDVAL（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）两个命令按钮（名称为Command1、Command2），其标题文字分别为“统计”和“退出”。

要求完成以下功能：

1.在文本框combo1中选择一组已有的字符或者输入长度大于6的字符串内容（若长度不大于6，焦点不能离开combo1，用事件代码限定）。

当单击“统计”按钮时，分别统计“字符”、“数字”和“其他”的个数，并将结果分别显示在文本框Text2、Text3、Text4中。

2.添加一个“重置”按钮，其字体字形同“统计”按钮，单击“重置”按钮，则将组合框，三个文本框中的内容清空。

3.单击“退出”按钮则退出运行状态。

表单运行示例图如下：

需要完成的操作如下：

13.请将“统计”命令按钮单击事件代码中的？

去掉，改成正确的代码，不能增加行或删除行。

14.按要求添加“重置”按钮及它的属性设置和它的事件代码的设置

15.按要求编写“退出”按钮的事件代码，组合框的事件代码。

注意：

完成表单设计后要运行表单的所有功能。

（在重置按钮的click事件代码窗口中输入：

THISFORM.COMBO1.VALUE=""

THISFORM.TEXT1.VALUE=""

THISFORM.TEXT2.VALUE=""

THISFORM.TEXT3.VALUE=""

在退出按钮的click事件代码窗口中输入：

THISFORM.RELEASE

修改统计按钮的click事件代码如下：

C=0

D=0

E=0

a=ALLTRIM（bo1.DISPLAYvalue）

b=LEN（A）

fori=1tob

ch=SUBSTR（A,I,1）

DOCASE

CASEch>="a"andch<="z"ORch>="A"andch<="Z"

C=C+1

CASEch>="0"andch<="9"

D=D+1

otherwise

e=e+1

ENDCASE

ENDFOR

thisform.text1.value=str（C,3）

thisform.text2.value=str（D,3）

thisform.text3.value=str（E,3）

combo1的valid事件代码如下：

RETURNLEN（ALLTRIM（THISFORM.COMBO1.DISPLAYVALUE））>6

（八）简单应用（15分）

在指定的考生文件夹下，完成下列简单应用操作。

打开表单myform002，表单中有三个标签（Label1、Label2、Label3），一个文本框（Text1），一个选项按钮组（Optiongroup1），一个列表框（List1），两个命令按钮（Command1、Command2），其标题文字分别为“重置”和“退出”。

要求完成以下功能：

1.在文本框Text1输入行数（行数不能超过6行，必须为一个自然数，且如果不输入也不允许退出Text1焦点）后，在Optiongroup1中，单击相应按钮，则在列表框中显示对应的图形。

2.单击“重置”按钮，则文本框和列表框内容清空，选项按钮组全部未选中，TEXT1获得焦点。

3.单击“退出”按钮则结束表单运行。

表单运行示例图如下：

需要完成的操作如下：

16.请将选项按钮组、第一个按钮、第二个按钮、第三个按钮的单击事件代码中的？

去掉，改成正确的代码，不能增加行或删除行。

17.按要求完成“重置”按钮和“退出”按钮的事件代码，文本框的事件代码。

注意：

完成表单设计后要运行表单的所有功能。

（在重置按钮的click事件代码窗口中输入：

THISFORM.TEXT1.VALUE=""

THISFORM.OPTIONGROUP1.VALUE=0

thisform.LIST1.ROWSOURCE=""

THISFORM.TEXT1.SETFOCUS（）

在退出按钮的click事件代码窗口中输入：

THISFORM.RELEASE

选项按钮组的click事件代码如下：

publicp,x

p=val（thisform.text1.value）

dimensionx（p）

fori=1top

x（I）=""

endfor

fori=Pto1step-1

x（P-I+1）=space（6-P）

forj=1toI

x（P-I+1）=x（P-I+1）+"*"

endfor

endfor

thisform.list1.rowsourcetype=5

thisform.list1.rowsource="X"

thisform.refresh

选项按钮组的第一个选项按钮的click事件代码如下：

publicp,x

p=val（thisform.text1.value）

dimensionx（p）

fori=1top

x（I）=""

endfor

fori=1toPstep1

x（I）=space（6-I）

forj=1to2*I-1

x（I）=x（I）+"*"

endfor

endfor

thisform.list1.rowsourcetype=5

thisform.list1.rowsource="X"

thisform.refresh

选项按钮组的第二个选项按钮的click事件代码如下：

publicp,x

p=val（thisform.text1.value）

dimensionx（p）

fori=1top

x（I）=""

endfor

fori=1toPstep1

x（I）=space（6-I）

forj=1toI

x（I）=x（I）+"*"

endfor

endfor

thisform.list1.rowsourcetype=5

thisform.list1.rowsource="X"

thisform.refresh

选项按钮组的第三个选项按钮的click事件代码如下：

publicp,x

p=val（thisform.text1.value）

dimensionx（p）

fori=1top

x（I）=""

endfor

fori=Pto1step-1

x（P-I+1）=space（6-I）

forj=1to2*I-1

x（P-I+1）=x（P-I+1）+"*"

endfor

endfor

thisform.list1.rowsourcetype=5

thisform.list1.rowsource="X"

thisform.refresh

TEXT1的valid事件代码如下：

RETURNVAL（THISFORM.TEXT1.VALUE）>0ANDVAL（THISFORM.TEXT1.VALUE）=int（VAL（THISFORM.TEXT1.VALUE））andval（THISFORM.TEXT1.VALUE）<=6

（九）简单应用（15分）

在指定的考生文件夹下，完成下列简单应用操作。

打开表单myform002，表单中已有七个标签（名称为Label1~label7），一个命令按钮组，一个命令按钮，四个文本框（名称分别为Text1~text4），两个选项按钮组，一个复选按钮，，一个编辑框，要求完成以下功能：

1.显示或编辑RSDA.DBF数据表中的各个记录的相关字段值