设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › 1+1*2+1*2*3+1*2*3*4+......+1*2*3*4*...*n= 用vb编程 ...

1+1*2+1*2*3+1*2*3*4+......+1*2*3*4*...*n= 用vb编程怎么写

[复制链接]
查看11 | 回复2 | 2010-4-2 20:02:30 | 显示全部楼层 |阅读模式
Private Sub Command1_Click()Dim i As Integer, j As Integer, n As Long
j = 1
For i = 1 To InputBox("please enter a positive integer.")
j = j * i
n = n + j
Next i
Label1 = nEnd Sub
回复

使用道具 举报

千问 | 2010-4-2 20:02:30 | 显示全部楼层
dim a&,b&,c&,n&n=val(text1.text)b=1c=0for a=1 to n
b=b*a
c=c+bnext atext2.text=c
回复

使用道具 举报

千问 | 2010-4-2 20:02:30 | 显示全部楼层
dim a&,b&,c&,n&n=val(text1.text)b=1for a=1 to n
b=b*a
c=c+bnext aprint a
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行