简单应用题参考Word文件下载.docx
《简单应用题参考Word文件下载.docx》由会员分享，可在线阅读，更多相关《简单应用题参考Word文件下载.docx（33页珍藏版）》请在冰豆网上搜索。
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）
二.在考生文件夹下完成如下简单应用：
1.新建表单myform001，把表单（名称为Form1）标题改为“系统登录”，在表单上添加四个标签控件Label1、Label2、Label3、Label4，Label1的显示文本为“欢迎您访问系统”，其字体为黑体，25磅字，Label2的显示文本为“用户名”，Label3的文本为“用户密码”；
一个组合框控件Combo1，并用属性窗口为Combo1添加列表项内容“苗莉”、“林文玲”；
一个文本框控件Text1，用于输入用户密码，两个命令按钮Command1、Command2，其标题文字分别为“登录”和“关闭”。
当从列表中选择用户名称时，在Label4中显示“您选择了：
”及相应的用户名，然后在文本框Text1输入用户密码“111111”，并单击“登录”按钮时，显示消息“登陆成功”；
单击“关闭”按钮则结束表单的运行。
除Label1以外其他字体选择隶书，14磅字。
（修改COMBO1的属性ROWSOURCETYPE为1-值，在ROWSOURCE中输入“苗莉,林文玲”，在COMBO1的INTERACTIVECHANGE事件代码窗口中输入“THISFORM.LABEL4.CAPTION="
您选择了：
+THISFORM.COMBO1.VALUE”,在登录按钮的click事件代码窗口中输入：
ifTHISFORM.TEXT1.VALUE="
111111"
=MESSAGEBOX（"
登陆成功"
）
thisform.release）
2.打开表单myform002，表单中已有二个标签（名称为Label1、Label2），三个文本框（名称为Text1、Text2、Text3），二个命令按钮，（名称分别为Command1、Command2），其标题文字分别为“计算”和“关闭”。
具有如下功能：
（1）在文本框Text1、Text2中分别输入一个三位的自然数，且Text2中的数大于Text1中的数据，当单击“计算”按钮时，计算在这两个自然数之间满足各数字之和为10的数的和，并将计算结果显示在文本框Text3中；
（2）在表单中增加一个“重置”按钮，重置按钮字体、字号同“计算”按钮，单击该命令按钮时，三个文本框的内容均清空，单击“关闭”按钮结束表单的运行。
请在“计算”命令按钮的单击事件代码窗口中将“？
”删除，并输入正确的语句，其他事件代码根据要求的功能自己独立完成添加。
（1）修改程序代码时不能添加或删除代码行。
（2）完成表单设计后要运行表单的所有功能。
A=VAL（THISFORM.TEXT1.VALUE）
P=A
DOWHILEP<
C=INT（P/100）
D=INT（p/10）-INT（P/100）*10
E=P-INT（P/10）*10
ifC+D+E=10
THISFORM.TEXT3.VALUE=STR（S）
三.在考生文件夹下完成如下简单应用：
1.新建表单myform001，表单（名称为Form1）标题为“成绩管理系统”，建立三个标签控件（名称为Label1、Label2、Label3，其标签文字为“学号”、“姓名”和“VFP成绩”）、三个文本框控件（名称为Text1、Text2、Text3，用于接收输入值）和两个命令按钮控件（名称为Command1和Command2，按钮的标题文本分别为“确定”和“退出”），标签文字和命令按钮标题字体设置为隶书，16磅，界面设计如下图所示。
文本框Text3设置一个When事件（Text3初始值通过属性Value设置为120），当其中数据在0~100之间，则不允许对其进行编辑，并显示信息“数据正常，不允许编辑”，退出按钮设置一个鼠标单击事件，当单击退出时，结束表单的运行。
（3）完成表单设计后要运行表单的所有功能。
（在text3的when事件代码窗口中输入：
IFTHISFORM.TEXT3.VALUE>
=0ANDTHISFORM.TEXT3.VALUE<
=100
数据正常，不允许编辑"
RETURNTHISFORM.TEXT3.VALUE<
0ORTHISFORM.TEXT3.VALUE>
100
在退出按钮的click事件代码窗口中输入：
2.打开表单myform002，其中已经添加两个名称分别为Label1和Label2的标签和一个定时器Timer1，标签Label1的标题为“学生成绩管理系统”。
（1）将标签Label1的字体设置为“黑体”，字号为20，颜色为RGB（255，0,0），其他控件的字体为隶书，字号为20。
（2）将Timer1控件的事件代码中“？
”位置改成正确的代码，并设置Timer1的相应属性，保证每隔20毫秒，标签Label1能够不停的自右向左移动（移动值设置为-2），标签左边沿移至表单左边沿后，则标签左边距设置为表单宽度。
（3）添加名为Timer2的定时器控件，并编写相应的代码，保证每隔1秒在标签Label2中显示当前系统时间。
（4）添加一个“退出”按钮，单击此按钮，则退出表单的运行。
界面设计如下图所示：
（Timer1控件的事件代码修改如下：
IFTHISFORM.LABEL1.LEFT>
0
THISFORM.LABEL1.LEFT=THISFORM.LABEL1.LEFT-2
ELSE
THISFORM.LABEL1.LEFT=THISFORM.width
ENDIF
Timer2控件的事件代码为：
THISFORM.LABEL2.CAPTION=TIME（）
命令按钮退出的代码为：
THISFORM.RELEASE
四.在考生文件夹下完成如下简单应用：
1.新建表单myform001，把表单（名称为Form1）标题改为“编辑框中的字符数”，表单的背景色为RGB（0，100，200），表单中有三个标签（Label1、Label2、Label3），其标签文字分别为“姓名”、“履历”、“履历字数”，两个文本框（Text1、Text2），Text1用于输入姓名，Text2用于显示履历字数，一个编辑框（Edit1），在编辑框中通过属性窗口输入“1976年参加工作，1985年任科长，1999年任处长”，两个命令按钮（Command1、Command2），按钮标题文本分别为“统计字数”和“退出”，所有文字均采用隶书，字号为16，界面设计如下图所示：
编写代码，完成如下功能：
当单击“统计字数”按钮时，编辑框Edit1获得焦点并选定其中的所有文字，文本框Text2中显示编辑框中的字符数，但不可编辑，单击“退出”按钮，则结束表单的运行。
（在编辑框的VALUE属性中输入“1976年参加工作，1985年任科长，1999年任处长”，修改TEXT2的ENABLED属性为.F.，在统计字数按钮的click事件代码中输入：
THISFORM.EDIT1.SETFOCUS（）
THISFORM.EDIT1.SELSTART=0
THISFORM.EDIT1.SELLENGTH=LEN（ALLTRIM（THISFORM.EDIT1.VALUE））
THISFORM.TEXT2.VALUE=THISFORM.EDIT1.SELLENGTH
在退出按钮的click事件代码中输入：
2.打开表单myform002，表单中有两个命令按钮“输出”和“退出”（名称分别为Command1和Command2）；
二个文本框（名称分别为Text1、Text2），五个标签（名称分别为Label1、Label2、Label3、Label4、Label5）。
（1）在文本框Text1中输入姓名（不能为空,用valid事件设定），在Text2中输入学生成绩，当单击“输出”按钮时，在标签Label5中显示等级，格式为“姓名”+“的等级为”+等级，其中等级的划分为：
不及格（大于等于0且小于60）、合格（大于等于60且小于90）、优秀（大于等于90且小于等于100），输入的成绩只能在0-100之间，否则显示“输入错误”。
请按上述要求，在“输出”命令按钮的单击事件代码中将？
处改成正确的内容，保证实现上述功能。
（2）编写代码，单击“退出”命令按钮时关闭表单。
表单运行示例如下：
（1）完成表单设计后要运行表单的所有功能。
（2）修改程序代码时不能添加或删除代码行。
（在TEXT1的valid事件代码中输入：
RETURNLEN（ALLTRIM（THISFORM.TEXT1.VALUE））<
修改输出按钮代码如下：
cj=val（thisform.text2.value）
docase
casecj>
=0ANDCJ<
60
thisform.label5.caption=thisform.TEX1.VALUE+"
的等级为不及格"
=60andcj<
90
thisform.label5.caption=thisform.TEX1.VALUE+"
的等级为合格"
=90andcj<
的等级为优秀"
OTHERWISE
thisform.label5.caption="
输入错误"
endcase
退出按钮的click代码为：
五.在考生文件夹下完成如下简单应用：
1.新建表单myform001，把表单（名称为Form1）标题改为“记录输入”，表单中有四个标签（名称分别为Label1、Label2、Label3、Label4），其标题文字分别为“学号”、“姓名”、“性别”、“成绩”，四个文本框（名称分别为Text1、Text2、Text3、Text4），一个选项按钮组（Optiongroup1），其中包含两个选项按钮，其标题文字分别为“男”和“女”，当单击某个选项按钮时，文本框Text3中显示性别“男”或“女”，两个命令按钮（名称分别为Command1、Command2），按钮标题文字分别为“输入”和“退出”，当单击“输入”按钮时，清空所有文本框的值，单击“退出”按钮时关闭表单，所有文字均采用隶书，字号为16，界面设计如下图所示：
（在选项按钮组中分别设置选项按钮1和2的click事件代码为：
thisform.TEXT3.VALUE="
男"
；
女"
在命令按钮输入的click事件代码中输入：
THISFORM.TEXT4.VALUE="
在命令按钮退出的click事件代码中输入：
Thisform.RELEASE
2.打开表单myform002，表单中有两个命令按钮（名称分别为Command1和Command2），其标题文本分别为“输出”和“退出”。
五个文本框（名称分别为Text1、Text2、Text3、Text4、Text5），两个标签（名称分别为Label1、Label2），要求在五个文本框中分别输入数据长度不超过10位的五个数，当单击“输出”按钮时，在标签Label2中显示由大到小排序的结果，其字体显示为红色（RGB（255,0,0））,字体颜色在属性窗口设定。
（1）请将“输出”按钮Click事件代码中的“？
”改成正确的内容，以实现上述功能。
（2）编写代码，单击“退出”按钮时关闭表单。
表单运行效果示例如下：
（1）完成表单设计后要运行表单的所有功能。
（2）修改程序代码时不能添加或删除代码行。
（“输出”按钮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）<
x（j）
t=x（i）
X（I）=X（j）
X（j）=t
endif
fori=1to5
thisform.label2.caption=thisform.label2.caption+str（x（i））
“退出”按钮Click事件代码为：
六.在考生文件夹下完成如下简单应用：
1.新建表单myform001，在表单上建立三个标签（Label1、Label2、Label3），标签的标题分别为“学号”、“姓名”和“性别”，三个文本框（Text1、Text2、Text3），四个复选框（Check1、Check2、Check3、Check4），复选框的文字分别为“足球”、“篮球”、“排球”和“象棋”，一个列表框（List1），一个命令按钮（Command1），按钮的标题为“退出”，所有字体采用隶书，16号字，表单设计图如下所示：
要求编写程序，当任一复选框的状态改变时，在列表框List1中显示全部复选框的标题文字内容；
当单击“退出”按钮时结束表单的运行。
提示：
在表单的Init事件中设置数组变量X为公共变量，在每个复选框的InteractiveChange事件中使用数组x，刷新表单列表框List1的内容。
完成表单设计后运行表单的所有功能。
（在表单的INIT事件中输入：
publicx
dimeX（4）
FORI=1TO4
X（I）="
ENDFOR
每个复选框的InteractiveChange事件代码分别为：
IFTHISFORM.CHECK1.VALUE=1
X
（1）="
足球"
THISFORM.REFRESH
IFTHISFORM.CHECK2.VALUE=1
X
（2）="
篮球"
else
x
（2）="
IFTHISFORM.CHECK3.VALUE=1
X（3）="
排球"
x（3）="
IFTHISFORM.CHECK4.VALUE=1
X（4）="
象棋"
x（4）="
列表框的rowsourcetype属性为5-数组，rowsource属性为：
x
退出按钮的代码为：
2.打开表单myform002，表单上有两个标签（Label1、Label2），三个文本框（Text1、Text2、Text3），其中文本框Text3的字体为楷体，20号字，颜色为RGB（0，255,0）（需自行设置，在属性窗口设置），两个命令按钮（Command1、Command2），其标题文字分别为“计算”和“退出”。
（1）修改程序中已有的代码，将“？
”替换为正确的内容，保证程序具有以下功能：
在Text1和Text2中分别输入一个自然数，且Text2中输入的数要大于Text1中的数，当单击“计算”按钮时，计算出这两个自然数之间所有素数的和，并将结果显示在Text3中；
（2）编写代码，当单击“退出”按钮时，则结束表单的运行。
（修改计算按钮的click代码如下：
a=val（thisform.text1.value）
b=val（thisform.text2.value）
fori=atob
forj=2toi-1
ifint（i/j）=i/j
EXIT
ifI=J
s=s+i
thisform.text3.value=int（s）
七.在考生文件夹下完成如下简单应用：
1.新建表单myform001，在表单中新建四个标签（Label1、Label2、Label3、Label4），其标题文字分别为“学号”、“姓名”、“性别”和“成绩”，新建四个文本框（Text1、Text2、Text3、Text4），新建一个列表框（List1），一个命令按钮（Command1），标签、列表框和命令按钮字体采用隶书，16号字，表单设计图如下：
当双击列表框时，在列表框中列表显示输入的学号、姓名、性别和成绩，（在表单的init事件中设置公共数组变量x，数组包含4个变量），单击“退出”按钮，则结束表单的运行。
（在表单的init事件代码中输入：
PUBLICX
DIMEX（4）
修改列表框的rowsourcetype的属性为5-数组，rowsource属性为X
在列表框的dblclick事件代码中输入：
X
（1）=THISFORM.TEXT1.VALUE
X
（2）=thisform.text2.value
x（3）=THISFORM.TEXT3.VALUE
X（4）=THISFORM.TEXT4.VALUE
2.打开表单myform002，在表单中有四个标签（Label1、Label2、Label3、Label4），四个文本框（Text1、Text2、Text3、Text4），两个命令按钮（Command1、Command2），其标题文字分别为“统计”和“退出”。
要求在文本框Text1中输入长度大于6的字符串内容（若长度不大于6，焦点不能离开Text1），当单击“统计”按钮时，分别统计“字符”、“数字”和“其他”的个数，并将结果分别显示在文本框Text2、Text3、Text4中，显示的字体颜色分别为RGB（255，0，0）、RGB（0，255，0）、RGB（0，0，255）。
表单运行示例图如下：
请根据以上要求，将命令按钮Command1的Click事件代码中的“？
”改成正确的内容，并编写代码完善整个程序功能。
（2）修改程序代码时不能增加或删除行。
（原题中缺少统计按钮的click事件代码,代码如下：
C=0
D=0
E=0
a=ALLTRIM（thisform.text1.value）
b=LEN（A）
fori=1tob
ch=SUBSTR（A,I,1）
DOCASE
CASEch>
="
a"
andch<
z"
ORch>
A"
Z"
C=C+1
0"
9"
D=D+1
otherwise
e=e+1
ENDCASE
thisform.text2.value=str（C,3）
thisform.text3.value=str（D,3）
thisform.text4.value=str（E,3）
TEXT1的valid事件代码为：
eturnLEN（ALLTRIM（THISFORM.TEXT1.VALUE））>
=6
退出按钮的click事件代码为：
八.在考生文件夹下完成如下简单应用：
1.新建表单myform001，表单（名称为Form1）的标题为“求余数”，添加两个命令按钮“求余数”和“退出”（名称分别为Command1和Command2），三个标签（名称分别为Label1、Label2、Label3），标题为“被除数”
升级会员 