求VB写的输出吸血鬼数的程序

来源：百度知道 编辑：UC知道 时间：2024/05/19 20:17:39
若自然数 v有偶数个位n，且是n/2个位的正整数x和y的积，而且x和y不是同时以0为个位数，组成x和y的数字，刚好就是v的数字，那么v就是吸血鬼数（vampire number），而x和y则称为尖牙。
例如1260是吸血鬼数，21和60是其尖牙，因为21×60=1260。可是126000=210×600却非，因为210和600都以0为个位数。

求用VB写的能在给出范围内找出吸血鬼数的代码
谢谢！！！！
有JAVA的代码：http://wenwen.soso.com/z/q97772408.htm
最初几个吸血鬼数为：
1260, 1395, 1435, 1530, 1827, 2187, 6880, 102510, 104260, 105210, 105264, 105750, 108135, 110758, 115672, 116725, 117067, 118440, 120600, 123354, 124483, 125248, 125433, 125460, 125500,

终于算出来了，以下是1到999999的值，155组
21*60=1260,15*93=1395,35*41=1435,30*51=1530,21*87=1827,27*81=2187,80*86=6880,201*510=102510,260*401=104260,210*501=105210,204*516=105264,150*705=105750,135*801=108135,158*701=110758,152*761=115672,161*725=116725,167*701=117067,141*840=118440,201*600=120600,231*534=123354,281*443=124483,152*824=125248,231*543=125433,204*615=125460,251*500=125500,201*627=126027,261*486=126846,140*926=129640,179*725=129775,311*422=131242,323*410=132430,315*423=133245,317*425=134725,231*588=135828,351*387=135837,215*635=136525,146*938=136948,350*401=140350,351*414=145314,317*461=146137,156*942=146952,300*501=150300,251*608=152608,261*585=152685,356*431=153436,240*651=156240,269*581=156289,165*951=156915,176*926=162976,396*414=163944,221*782=172822,231*750=173250,371*470=174370,231*759=175329,225*801=180225,201*897=180297,225*810=182250,281*650=182650,216*864=186624,210*906=190260,210*915=192150,327*591=193257,395*491=193945,275*719=197725,252*801=201852,255*807=205785,216