怎么编写VB程序 1到100的累乘，求学霸赐教
答案:2 悬赏:20 手机版
解决时间 2021-03-20 22:19
- 提问者网友：美人性情
- 2021-03-20 17:52
怎么编写VB程序 1到100的累乘，求学霸赐教
最佳答案
- 五星知识达人网友：春色三分
- 2021-03-20 18:28
dim i as integer,s as long
s=1
for i=1 to 100
s=s*i
next
print s
s=1
for i=1 to 100
s=s*i
next
print s
全部回答
- 1楼网友：轻雾山林
- 2021-03-20 18:45
界面上放两个标签（label），一个按钮。代码如下
private sub command1_click()
do
n = int(inputbox("请输入计算项数", , 5))
if n > 0 then exit do
loop
a = 2
b = 1
s = 0
n1 = 1
do until n < n1
s = s + a / b
c = a + b
b = a
a = c
n1 = n1 + 1
loop
label2 = "前" & n & "项的和为：" & s
end sub
private sub form_load()
label1 = "s = 2/1 + 3/2 + 5/3 + 8/5 + 13/8 + ……"
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯