主窗口),然后运行查询文件CHAXUN.QPR。
四、设计表单(10分)
表单F081E的功能是:用鼠标在表单上写汉字等操作。按
下列要求修改表单,修改后表单运行时如图2所示。
1.设置表单的有关属性,使其标题为“鼠标写字”。边框样
式属性为“固定对话框”,背景颜色为“黄色”。
2.如图2所示在表单的上部添加一个标签控件,用来显示
鼠标的位置,并将其对象名修改为COORD,背景样式设置为
“透明”。
3.在表单的下部添加一个文本框控件(对象名为Textl)和
计时器控件(对象名为Timerl),并设置计时器控件的有关属性,使得表单运行时触发计时
器事件的间隔时间为5秒。
4.编写计时器控件的Timer事件代码,实现在文本框中显示当前的系统日期和时间。
五、
程序改错(5分)
下列程序的功能是:删除字符串(不包括汉字)中的空格,并将它按字符从小到大的顺
序排列以后输出.例如,字符串“BCefA”,输出结果为“ABCef"。要求:
①将下列程序输入到项目中的程序文件PCODE中,并对其中的2条错误语句进行修改;
②在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。
CLEAR
x='BCefA'
y=''
x=STRTRAN(x,SPACE(1),SPACE(0))
n=LEN(x)
DIMENSIONA(n)
FORi=1TOn
A(i)=LEFT(x,I)
x=SUBSTR(x,i)
ENDFOR
=ASORT(A)&;&;ASORT()函数的功能是对数组元素进行排序
FORj=1TOn
y=A(j)+y
ENDFOR
?y
7044