水仙花程序Word文档下载推荐.docx
《水仙花程序Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《水仙花程序Word文档下载推荐.docx（14页珍藏版）》请在冰豆网上搜索。
仍然利用小数点前移然后求整fix（71/10）
就求出b=fix（7.1）=7
c为m的个位：
跟求b一样~利用先前求出的a与b，将m的十位，百位都减去就OK啦~~~~
这样，a与b与c就都有了
然后用选择结构
如果
m满足这样的条件m=a^3+b^3+c^3
则
m为一个水仙花数
打印m
否则
m不是一个水仙花数
最后，另m从100开始循环到500结束。
程序是
for
m=100to500
a=fix（m/100）
b=fix（（m-a*100）/10）
c=m-a*100-b*10
ifm=a^3+b^3+c^3then
printm;
"
为一个水仙花数"
endif
nextm
PS:
你可以用这种方法另m从100开始到999循环，找出所有水仙花数
可以找出从1000到9999中找出有这样特点数m:
m=a^4+b^4+c^4+d^4
其中a,b,c,d分别为m的千位，百位，十位，个位。
。
这样的数叫做玫瑰花数！
！
从10000到99999一样可以找出5次方的数。
叫做五角星数~~~~~
2日志标题：
关于Fibonacci函数
发表作者：
8000087
发表时间：
31:
51更新时间：
51
Fibonacci函数是一个很有名的函数：
表达式为
F（i）=0
i=1
=1
i=2
=f（i-1）+f（i-2）
i>
2
也就是F（3）=F
（2）+F
（1）
F（4）=F（3）+F
（2）
：
怎么写这个循环？
显然先要给出初始值：
first=0
F
（1）的值;
secoend=1
F
（2）的值
然后进行循环，定义循环变量i从3开始到N结束（N是你想要结束的那个数，题目里是30。
）求F（I）并打印出来
这样循环体就是
F=first+secoend
first=secoend
seconed=F
这是啥意思？
？
我们说每循环一次，就计算出了新一个数。
这样下一个数就应该是这个新数与前面那个第2个数的和了。
就是新数将前两个数象挤牙膏一样挤出一个来。
first
secoend
F
^
^
first
seconed
F
这个first就不要了，seconed变成first,F变成了seconed
下次循环还是计算first+seconed就可以了。
保证了循环体表达式F=first+secoend不变~~~~~
明白了？
所以程序就可以写成
privatesubform_click（）
dimi%,first%,secoend%,f%
first=0
seconed=1
fori=3to30
f=first+seconed
printf
first=seconed
secoend=f
nexti
endsub
3日志标题：
关于while
30:
42更新时间：
42
所有的for循环都可以变成while格式
FORI=1TO3
PRINTI
NEXTI
改怎么改？
首先设置I的初始值为1循环的条件就为I<
=3就是I为1当I不大于3的时候执行循环，当I大于3了就退出了。
当然在循环体内要把I的值加一了，不然就死循环了~~~~
i=1
whliei<
=3
printi
i=i+1
wend
非常容易吧~~~~扩展一下！
扩展一：
i=1
whilei<
=3
i=i+1
与上面的有什么不同？
出来的结果有什么不同？
前面是先打印I，后变变量。
这个是先变变量后打印！
前面结果出来是
后面是
1
2
2
3
3
4
可以理解吧~~~~根据情况看先变变量，还是先执行循环体~~~~~
扩展二：
FOR的其他功能转换
（1）步长STEP，在FOR里有步长控制。
在while里就是变量增加的值了，比如步长为3
i=1
=20
printi
i=i+3
这里让每次循环执行I=I+3就可以了吧~
（2）FOR递减：
FORI=10TO1STEP-1
也很好改吧：
i=10
whilei>
=1
i=i-1
4志标题：
关于九九乘法表
29:
59更新时间：
59
九九乘法表是本章比较重要的题目。
以前考试出过原题。
很好的利用了循环语句及循环的嵌套。
同学应该尽量理解每一个语句。
如果不能理解。
不妨把它背下来~
理解：
重点是一个print语句的理解。
循环的嵌套应该比较容易理解了，主要是print语句把大家搞晕了~要参考一下前面对print语句的介绍！
程序：
dimi%,
j%,
str$
print
Tab（35）;
"
九九乘法表"
fori=1to9
forj=1to9
str=i&
*"
&
j&
="
i*j
printTab（（j-1）*15+1）;
str;
nextj
print
end
sub
1、程序开始定义了i：
外循环变量，J：
内循环变量，STR：
所要打印的字符串变量
2、PRINT之一：
用PRINT来打印表头，print可以跟函数（Tab（35）,Spc（35）...还记得什么意思吗？
TAB表示向后移动一段距离，SPC表示打印多少个空格）；
可以跟字符串（print"
你好，乘号，*，！
，这些被引号引起来的都是字符串，可以是任意字符）；
还可以跟变量。
比如printi这时候I是多少就打印出多少。
（比如
i=5,printi）这个时候print出来的就是5了
3、print之二：
容易被大家忽略的是print后面跟的标点符号print后面主要可以跟分号，或者不跟。
不跟的时候是默认打印完这一语句后换行，下一个print语句在第二行打印。
跟分号的时候是不换行，下一个print语句紧跟着上一个语句之后
看例子：
fori=1to3
与
fori=1to3
printi
printi;
nexti
nexti
的区别
左边打出来是
右边打出来就是
123
3
print什么也不加，就是换行了~~~~~
3、关于字符串STR
STR是定义的一个字符串变量。
STR是什么。
我们想根据循环执行到不同时候STR不一样。
当I为1，J为1的的时候STR为“1*1=1”，I为2，J为2的时候STR就为“2*2=4”。
所以要对STR赋值的时候做一个字符串连接的小技巧
另STR为I的值连接一个乘号字符，再连接J的值，再连接一个等号字符，再连接I*J的结果，所以写成str=i&
4、开始循环了，我们要打印9行，假设每行1个表达式，
第1行是1*1=1
第2行是2*1=1
第3行是3*1=1
这时候程序就是
fori=1to9
printi&
1&
i
此时，我们希望的是每一行打印九个表达式。
第一行变成：
1*1=1
1*2=2
1*3=3。
1*9=9
于是将printi*1=i语句改成
（1）打印9次
（2）隔一定区域打印（为了让每个表达式分开打印）
（3）不换行
所以用内循环实现
FORJ=1TO9
printi&
i*j；
NEXTJ
此时I为外循环给他赋的值表示第几行。
也表示乘数。
注意后面的分号。
当然在程序中我们把这个字符串赋给了str
str=i&
于是可以写成
FORJ=1TO9
PRINTSTR；
就可以了
不过这样打印出来还不是我们想要的效果，为什么。
都挤在一起了呀
怎么样让每一个表达式都间隔一定的距离呢。
用TAB（）函数，或者SPC（）都可以。
这里用TAB（（j-1）*15）+1）
（j-1）*15+1是什么？
是空格或者间隔区域的大小呀：
）书上是乘9，这里用乘15。
看看效果如何？
这样把程序改完就成了
好了，这样循环完是个什么样？
1*9=9
2*1=2
2*2=4。
9*9=81
怎么会这样？
哈哈，每行打印完忘记换行了呀
在内循环结束，外循环开始下一次之前，就是在每打印完一行，开始打印第二行之前加一个换行呀~~~~~什么时候外循环开始下一次？
NEXTI嘛~~~~~
笨
换行怎么换？
print什么也不加~·
·
于是程序就成了上面所写的
5日志标题：
999的那个课堂补充习题
26:
20更新时间：
28:
25
第5章
需要解释的题目:
补充题第3题:
:
用户输入数据，统计用户输入次数和所有数据之和。
当用户输入999时结束。
1.关于读题!
大家读题的本事还真是有一套,本题要求统计用户输入的次数,另外统计所有输入数据的和.不是输入次数与所有数据的和...无言啊~~~~
2.要求统计用户输入次数,定义变量n%,每输入一次N加1即可
3.统计用户输入数据的和,定义temp%暂存用户输入数据.定义s%累加每次输入的temp值!
4.关于输入,使用inputbox让用户输入数据temp=val（inputbox（"
输入数据"
））
5.循环条件是temp是否为999,若temp为999时,循环退出,否则继续让用户输入.
6.循环体为
n=n+1
'
次数加一
temp=inputbox（"
）
让用户新输入一个数据
s=s+temp
计算累加值
7.程序:
form_click（）
dimn%,temp%,s%
n=1
temp=val（inputbox（"
s=temp
whiletemp<
>
999
n=n+1
s=s+temp
print"
用户输入了"
;
n;
次"
N次结果之和为"
s
升级会员 