vb求同构数
添加一窗体,在窗体加入一按钮,按钮的标题(caption)为开始计算,窗体的标题(Caption):求同构数
for i=0 to 100000
m=val(right(str(i^2)))
if m=i then msgbox i & " 是同构数"
next
答:If Len(Inet1.OpenURL(" ")) <> 0 Or_ Len(Inet1.OpenURL(" ")) <> 0 Then MsgBox "成功...详情>>
答:Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFile...详情>>