寻高人!帮忙!!喜欢VB的.就进来看看._vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：99,891贴子：
寻高人!帮忙!!喜欢VB的.就进来看看.收藏
&&1.输出所有的&水仙花数&,所谓&水仙花数&是指一个3位数,其各位数字的立方和等于该数本身.例如,153上一个水仙花数,因为153=1^3+5^3+3^3.
&&2.输出1000内的所有完数.所谓完数就是该数恰好等于它的因子之和,例
如6的因子是1,2,3,而1+2+3+6,所以6是完数.
&&
上海洪庙文艺家具厂—专业实木家具定制厂家,设计制作一站式服务,省心放心！
快试试吧，可以对自己使用挽尊卡咯~◆◆
Dim&a&As&Integer,&i&As&Integer
Dim&x&As&Integer,&y&As&Integer,&z&As&Integer
Private&Sub&Form_Load()
For&i&=&100&To&999
&x&=&Left(CStr(i),&1)
&y&=&Mid(CStr(i),&2,&1)
&z&=&Right(CStr(i),&1)
&If&x&^&3&+&y&^&3&+&z&^&3&=&i&Then&Me.List1.AddItem&CStr(i)
Next&i
End&Sub
看了你发的几个帖,&你要的在吧里全部都有,为何你不用&&吧内搜索&?
快试试吧，可以对自己使用挽尊卡咯~◆◆
不晓得嘛.以后先搜索哈,,,哈,,总之,,谢谢了.
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或高手进来看看吧~！_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：99,891贴子：
高手进来看看吧~！收藏
我用Setup Factory 7.0给自己的程序打包，打包完了之后再没有VB的机子上运行 就会说安装程序无法创建以下文件夹%CommonfILES%\Microsoft Shared\DAO 我再百度上搜索了一下，说是选择哪个DLL 然后永不覆盖文件。我试了 可是还是不行。这种问题怎么解决啊。
上海洪庙文艺家具厂—专业实木家具定制厂家,设计制作一站式服务,省心放心！
NO...为什么没人回答~~！！
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或}