题目

查找并删除重复数据的算法是基于顺序查找的优化，主要思路是把待查数据的起点元素设置成查找关键字，然后从后往前查找，通过结束时所停留的数据位置来判断查找结果（即结束时若停留在数据序列的起点，则表示数据序列中无重复数据；否则，存在重复数据，删除该数据后继续查找）。编写VB程序，实现上述算法。程序功能如下：运行程序时，在列表框List1中显示数组a中的原始数据，并在列表框List2中输出去重后的数组a中的数据，即相同的数据（2006•安顺）如图，在平面直角坐标系xOy中，已知矩形OACB的边OA，OB分别在x轴上和y轴上，线段OA，OB的长分别是一元二次方程x2-18x+72=0的两个根，且OA＞OB；点P从点O开始沿OA边匀速移动，点M从点B开始沿BO边匀速移动．如果点P，点M同时出发，它们移动的速度相同，设OP=x（0≤x≤6），设△POM的面积为y．（1）求y与x的函数关系式；（2）连接矩形的对角线AB，当x为何值时，以P，O，M为顶点的三角形与△AOB相似；（3）当△POM的面积最大时，将△POM沿PM所在直线翻折后得到△PDM，试判断D点是否在矩形的对角线AB上，请说明理由．