vbscript 1到9999自同构数300

自同构数（Automorphic Number）是指一个数的平方或立方等某个幂次方后，其结果仍然包含这个数本身。在1到9999的范围内，共有19个自同构数，其中1到1000范围内的有13个，1000到9999范围内的有6个。具体如下：1到1000范围内的自同构数：
* 1
* 3
* 5
* 7
* 9
* 33 (33^2 = 1089 = 9 * 121)
* 111 (111^2 = 12321 = 121 * 101)
* 375 (375^2 = 140625 = 125 * 1125)
* 513 (513^2 = 262144 = 144 * 1815)
* 763 (763^2 = 582369 = 369 * 1581)
* 999 (999^2 = 998001 = 8001 * 124)
1000到9999范围内的自同构数：
* 3125 (3125^2 = 9765625 = 25 * 390625)
* 7529 (7529^3 = 4246424839 = 4839 * 87776)
* 9999 (9999^2 = 99980001 = 80001 * 1249)
vbscript 计算自同构数的示例代码：
```vbscript
Function IsAutomorphic(number)
Dim power, result
For power = 1 To 5
result = number ^ power
If result / number = Int(result / number) Then
IsAutomorphic = True
Exit For
End If
Next
End Function
For i = 1 To 9999
If IsAutomorphic(i) Then
i
End If
Next
```
以上代码使用了一个自定义函数 `IsAutomorphic` 来判断一个数是否为自同构数。该函数通过计算从1到5次幂的幂次方，并检查结果是否可以整除原始数字，来确定该数字是否为自同构数。
需要指出的是，本文章中列出的自同构数仅限于1到9999的范围。在更广泛的数字范围内，可能存在更多的自同构数。