求代码【题目】编程找出1001~9999范围内满足下列条件的

求代码
【题目】编程找出1001~9999范围内满足下列条件的数：首尾数字相同且中间两位数是升序的素数。
【编程要求】
程序参考界面如图所示，窗体及界面元素大小适中，且均可见；
点击查找按钮，则找出符合要求的数，并将找到的数显示在列表框中；
点击清除按钮，则清除列表框的内容并将焦点设置在查找上；
点击退出按钮，则结束程序运行；
程序中要求定义两个函数过程；一个是判断首尾相同且是素数的通用函数过程Prime。另一个判断中间的两位数是升序数的通用函数过程SX。