Private Sub Form_click()
Dim x%,y%,s%,i%
x = Val(InputBox("x="))
y = Val(InputBox("y="))
For i = x To y
s = s + Fac(i)
Next
Print s
End Sub
Function Fac(n)
Dim i%
Fac = 1
For i = 1 To n
Fac = Fac * i
Next
End Function
最新问答： 下列词蕴含：＿＿＿＿＿＿＿＿＿＿＿＿极目远眺：＿＿＿＿＿＿＿＿＿＿＿＿绿意盎然：＿＿＿＿＿＿＿＿＿＿＿＿＿仪态端庄：＿＿ 你仔细观察过蜡烛吗？蜡烛燃烧时，其火焰由三个不同颜色的火焰区构成．如图所示，在烛芯上端你可看见一个黑色锥形火焰区（A区） 下列关于成像问题的说法不正确的是（ ） A．利用针孔照相机能得到倒立的像 B．站在岸边我们看到的水里的物体，其实它们的 梦游《洛克王国》历险记 作文 1.你弟弟长得怎样?他过去很文静,但现在他很外向.2.我爷爷过去是一名历史老师,现 为节约能源,某地区的用电费有以下规定：用电不超过140度,按每度0.43元收费,而超过的部分按每度0.57元收费,若某用 什么是中性的原子? 40*60cm是A几的纸? 糖炒栗子选用的大栗子和小栗子有什么区别. All these animals are 沙发的英文单词是什么 “带来的不便,我深感抱歉”英文怎么说? 英语问候语有哪些 图形解答题：求阴影部分的面积或周长?第一个图形求周长?第二个图形求面积?（如图） 8x-9y=0,9x-9y=2,这个二元一次方程怎么解 现代诗创作一：12岁同龄人的诗。二：书是（ ），能（ ）。（写三句）三：以 梦想，我把你追寻。 写一首小诗 三分之四-8x=3-二分之十一x 古诗《村晚》雷震的 赏析草满池塘水满陂,山衔落日浸寒漪.牧童归去横牛背,短笛无腔信口吹.格式如下：草满池塘水满陂：写注释 如；南临XX,北临XX. 氯气与水反应氯气
