| 版权声明 关于本站 在线留言 登陆管理 个人博客 |
| 『辰桦网络』. All Rights Reserved Station construction time: on April 4, 2006 |
private sub form_click()
dim i as integer,ge as integer,shi as integer,bai as integer,num as integer
num=0#
for i=100 to 999
bai=int(i/100)
shi=int((i-bai*100)/10)
ge=i-bai*100-shi*10
if i=bai^3+shi^3+ge^3 then
print i
num=num+1
end if
next i
print "num=",num
end sub
dim i as integer,ge as integer,shi as integer,bai as integer,num as integer
num=0#
for i=100 to 999
bai=int(i/100)
shi=int((i-bai*100)/10)
ge=i-bai*100-shi*10
if i=bai^3+shi^3+ge^3 then
print i
num=num+1
end if
next i
print "num=",num
end sub
上一篇：『vb』九九乘法表
下一篇：『vb』选择法对10个数从小到大排序
我要评论
最新评论- 暂无已审核评论!
本栏最新发布
『vb』字符串反转
- 2009/7/5
-
『vb』判断n是否为素数
- 2009/7/5
-
『java』1到100的和
- 2009/7/5
-
『java』求前40个Fibo...
- 2009/7/5
-
『java』从键盘读一...
- 2009/7/5
-
『vb』三个数从小到...
- 2009/7/5
-
『vb』距阵转置
- 2009/7/5
-
『vb』四边形图案输出
- 2009/7/5
-
『vb』金字塔型字符串
- 2009/7/5
-
『vb』杨辉三角形
- 2009/7/5
-
『vb』十进制数转化...
- 2009/7/5
-
『vb』十进制数n的...
- 2009/7/5
-
『vb』判断是否是回文
- 2009/7/5
-
『vb』距阵最大数行列号
- 2009/7/5
-
『vb』金字塔
- 2009/7/5
-
『vb』分解因式
- 2009/7/5
-
『vb』菲波那契数列
- 2009/7/5
-
『vb』查找字符
- 2009/7/5
-
【建站代码】背景雨景
- 2009/7/5
-
【flash】走路
- 2009/7/5
本栏热门信息
-
『vb』三个数从小到...
- 2009/7/5
-
『java』数组的逆序输出
- 2009/7/5
-
『vb』100~999之间...
- 2009/7/5
-
『vb』判断是否是回文
- 2009/7/5
-
『vb』冒泡法对n个...
- 2009/7/5
-
『vb』杨辉三角形
- 2009/7/5
-
『java』一元二次方...
- 2009/7/5
-
『vb』九九乘法表
- 2009/7/5
-
『vb』求两个正整数m...
- 2009/7/5
-
『vfp』九九乘法表
- 2009/7/5
-
『vb』十进制数转化...
- 2009/7/5
-
『vfp』100以内的素...
- 2009/7/5
-
『java』九九乘法表
- 2009/7/5
-
『vb』求3~100之间...
- 2009/7/5
-
『vb』选择法对10个...
- 2009/7/5
-
『vb』判断n是否为素数
- 2009/7/5
-
『vb』字符串反转
- 2009/7/5
-
『vb』金字塔
- 2009/7/5
-
『java』求前40个Fibo...
- 2009/7/5
-
『java』1到100的和
- 2009/7/5