Question

帮忙做2道VB的题目

以不同的子特和颜色在窗体上显示文字（字体从8号到20号）
求100！中末尾零的个数（即求100阶乘的精确值有多少个尾数零）
谁帮忙做下 给下程序代码

Answer 1

问题1

For i=8 to 20
Me.FontSize=i
Print "样例"
Next i

问题2

10的本质为2*5，所以只要寻找2和5的因子即可

程序：
M2=0 : M5=0 '初始化变量
For i=1 To 100 'i从1到100循环，模拟1-100相乘
k = i '临时变量
While k Mod 2 = 0 '寻找2这个质因子
M2 = M2 + 1
k = k / 2
Wend
While k Mod 5 = 0 '寻找5这个质因子
M5 = M5 + 1
k = k / 5
Wend
Next i
Msgbox "100！的最后，有" & IIf(M2 < M5, M2, M5) & "个0."
'IIF(条件,A,B) 表示如果条件=TRUE，返回A，否则返回B，
'这是寻找2的因子和5的因子，并找出较小的，因为10=2*5

可以Hi我

Answer 2

.......估计是作业..................
书本得内容有很多,自己多看看就知道了
如果要别人帮做,自己没进步的~~~~~~~~~~~~~~

Answer 3

TIMER空间中写：
For i=8 to 20
Me.FontSize=i
Print "样例"
Next i