thisform.label1.Top=thisform.label1.Top+5
ELSE
thisform.label1.Top=-thisform.label1.Height
ENDIF
在对象Command1的Click事件过程中编写如下程序：
（3分）
thisform.release
【26】表单tk09.scx实现的功能是设置文字的颜色，表单运行效果图如下：
编写程序实现以下功能：
单击命令按钮“设置文字颜色”时，设置标签的文字颜色为随机产生的颜色。
本题的作答结果在考生文件夹中得分：
0.0分分
参考答案及分析：
在Command1的Click事件中写如下程序：
r=INT（RAND（）*256）
g=INT（RAND（）*256）
b=INT（RAND（）*256）
thisform.label1.ForeColor=RGB（r,g,b）
&&说明，rand（）函数的返回值是0～1之间的数。
rand（）乘以256再取整就能产生0～255之间的数。
【26】本题素材是考生文件夹中的表单tk04.scx。
该表单的功能是：
在文本框中输入一个整数，单击命令按钮“判断”后，若该整数是偶数，则label2显示“该数是一个偶数”，若为奇数，则显示“该数是一个奇数”。
请将command1_click（）中的程序补充完整以实现上述功能。
下图为运行效果，输入8，则label2显示该数是一个偶数。
本题的作答结果在考生文件夹中得分：
0.0分分
参考答案及分析：
将Command1.click中程序补充完整：
n=thisform.text1.value
ifx%2=0then&&如果x除以2的余数为0，说明它是一个偶数，否则为奇数。
thisform.Label2.Caption="偶数"
else
thisform.Label2.Caption="奇数"
endif
【26】本题素材为考生文件夹中的表单文件tk13.scx，表单运行效果图如下所示：
该表单实现的功能是设置文本框中文字的字体，要求选中宋体则文本框的字体为宋体，选中幼圆则文本框的字体为幼圆，选中隶书则文本框的字体为隶书。
（文本框中的文字任意输入。
）
编写程序实现上述功能。
（方法不限）
本题的作答结果在考生文件夹中得分：
0.0分分
参考答案及分析：
在OptionGroup1的Click事件中写下如下程序语句：
docase
casethis.value=1
thisform.Text1.fontname="宋体"
casethis.value=2
thisform.Text1.fontname="幼圆"
casethis.value=3
thisform.Text1.fontname="隶书"
endcase
或分别在Option1、Option2和Option3的Click事件写如下程序：
thisform.Text1.fontname="宋体"
thisform.Text1.fontname="幼圆"
thisform.Text1.fontname="隶书"
【26】本题素材为考生文件夹中的表单文件tk16.scx，数据环境中已经添加了表tk16_rc.dbf。
表单运行效果如下图所示：
该表单程序可以实现以下功能：
单击command1文本框中可显示第一条记录、单击command2可显示上一条记录、单击command3可显示下一条、单击command4可显示最后一条记录。
完成下列操作以实现上述功能：
（1）设置文本框"txt职称"和"txt工资现状"的相关属性，使得文本框与表中相应字段绑定；
（2）分别在command1（第一条）、command2（上一条）、command3（下一条）、command4（最后一条）的click过程中编写程序实现上述功能。
本题的作答结果在考生文件夹中得分：
0.0分分
参考答案及分析：
（1）设置各文本框的ControlSource属性为它们各自对应的字段。
（2）
在Command1的Click事件中：
gotop
thisform.refresh
在Command2的Click事件中：
ifnotbof（）then
skip-1
thisform.refresh
endif
在Command3的Click事件中：
ifnoteof（）then
skip
thisform.refresh
endif
在Command4的Click事件中：
gobottom
thisform.refresh
【26】 打开考生文件夹中的文件tk26.scx，该表单上有两个标签Label1、Label2和一个命令按钮Command1（命令按钮标题为“求和”），表单实现的功能是单击命令按钮后可计算1到100以内3的倍数的和，并用标签label1显示结果。
请把command1的click过程中的程序补充完整以实现上述功能。
本题的作答结果在考生文件夹中得分：
0.0分分
参考答案及分析：
在Command1的Click事件过程中编写如下程序：
S=0
fori=3to100step3
s=s+i
endfor
thisform.label1.caption=alltrim（str（s））
26】本题素材为考生文件夹下的tk11.scx，表单运行效果图如下所示：
表单的功能是字体字号设置，表单内有一个标签对象（Label1的标题为“南昌科技大学”），一个列表框（List1）用来设置Label1的字号大小，列表框中的项目已设好，一个下拉列表框（combo1用来设置Label1的字体），具体要求如下：
（1）设置Combo1中可供选择的字体为：
黑体、宋体、楷体、华文新魏。
（设计方法不限）
（2）在组合框Combo1中选择某种字体后，Label1的字体相应发生变化。
（3）在列表框list1中选择任意数字，Label1的字号相应发生变化。
编写程序实现上述功能。
本题的作答结果在考生文件夹中得分：
0.0分分
参考答案及分析：
在列表框List1的Click事件中编写以下程序：
thisform.label1.fontsize=VAL（thisform.list1.Value）
（注：
由于字号为数值型，列表框的值为字符型，所以用val函数进行类型转换。
）
在组合框Combo1的Click事件中编写以下程序：
thisform.label1.fontname=bo1.Value
【26】 打开考生文件夹中的文件tk02.scx，该表单上有两个标签Label1、Label2和一个命令按钮Command1（命令按钮标题为“求和”），表单实现的功能是单击命令按钮后可计算从1到100的之间的奇数的和，并用标签label1显示计算结果。
请将command1_click（）过程中的程序补充完整，实现上述功能。
本题的作答结果在考生文件夹中得分：
0.0分分
参考答案及分析：
在Command1的单击事件（click事件）中写上如下程序段：
s=0
fori=1to100step2
s=s+i
endfor
thisform.Label1.Caption=Alltrim（Str（s））
【26】本题素材为考生文件夹中的表单文件tk08.scx。
该表单包含1个标签Label1，3个命令按钮command1“暂停”、command2“继续”和command3“退出”。
该表单的功能是：
Label1用来显示系统的当前时间；单击命令按钮command1，时钟暂停走动；单击命令按钮command2，时钟继续显示系统的当前时间；单击命令按钮command3，释放表单。
请分别在command1.Click（）、command2.click（）、command3.click（）过程中编写代码实现上述功能。
本题的作答结果在考生文件夹中得分：
0.0分分
参考答案及分析：
在Command1的Click事件中：
thisform.Timer1.Enabled=.F.
在Command2的Click事件中：
thisform.Timer1.Enabled=.T.
在Command3的Click事件中：
thisform.Release
【26】本题素材为考生文件夹下的tk12.scx，表单运行效果图如下所示：
该表单上有一个标签对象和三个复选框，表单的功能是设置标签label1（标题为南昌科技大学）的字体样式，要求选中粗体则标签文字设为粗体，选中斜体则标签文字设为斜体，选中下划线则标签文字加上下划线。
编写程序实现上述功能。
本题的作答结果在考生文件夹中得分：
0.0分分
参考答案及分析：
在复选框Check1（粗体）的Click事件中编写以下程序：
IFthis.Value=1
thisform.label1.FontBold=.T.
ELSE
thisform.label1.FontBold=.F.
ENDIF
在复选框Check2（斜体）的Click事件中编写以下程序：
IFthis.Value=1
thisform.label1.FontItalic=.T.
ELSE
thisform.label1.FontItalic=.F.
ENDIF
在复选框Check3（下划线）的Click事件中编写以下程序：
IFthis.Value=1
thisform.label1.FontUnderline=.T.
ELSE
thisform.label1.FontUnderline=.F.
ENDIF
【26】本题素材为考生文件夹下的tk20.scx，该表单的功能是统计数据表“tk20_作者.dbf”中相应职称的人数。
表单运行效果如下图所示：
具体要求：
（1）单击“统计”按钮，统计出作者表中教授和副教授的人数，并将统计结果输出到相应的文本框中；
（2）单击命令按钮“退出”可释放该表单。
编写程序实现上述功能。
本题的作答结果在考生文件夹中得分：
0.0分分
参考答案及分析：
在统计按钮Command1的Click事件过程中编写如下程序：
countfor职称="教授"tom
countfor职称="副教授"ton
thisform.text1.value=m
thisform.text2.value=n
（注：
由于文本框中开始没有任何数据，此时将数据型变量m的值赋给文本框text1，则text1自动变为数值型，所以不需要进行数据类型转换。
）
在退出按钮Command2的Click事件过程中编写如下程序：
thisform.release
【26】本题素材为表单tk07.scx，
该表单实现的功能是系统时钟，即在文本框中每秒显示一次当前时间；单击设置背景（command1）可设置文本框的背景颜色为红色（255,0,0）。
本题的作答结果在考生文件夹中得分：
0.0分分
参考答案及分析：
在Timer1的Timer事件中：
Thisform.Text1.Value=Time（）
在Command1的click事件中：
Thisform.Text1.BackColor=RGB（255,0,0）
升级会员 