考试题，试用VB程序语言写出程序：求S=1！+2！+3！+......+99！的值。帮忙分析一下，谢啦。
Private Sub Command1_Click()
Dim a As Double '定义2个double类型的变量
Dim count As Double
count = 1 '给一个变量赋值
For a = 1 To 100 Step 1 ' 一个for循环 从1到100 每次循环加一
count = count + a '循环时执行 这个公式
Next a '结束循环
Print count '打印count
End Sub如果觉得好请采纳 给个评价 谢谢
Dim a As Double '定义2个double类型的变量
Dim count As Double
count = 1 '给一个变量赋值
For a = 1 To 100 Step 1 ' 一个for循环 从1到100 每次循环加一
count = count + a '循环时执行 这个公式
Next a '结束循环
Print count '打印count
End Sub如果觉得好请采纳 给个评价 谢谢
温馨提示：答案为网友推荐，仅供参考
第1个回答 2013-08-03
把里面的 count = 1改成 count = 0 因为他是从一开始加的一开始循环的时候应该等于0 第一次循环就是1一直到100 所以是count要等于0 不好意思刚刚写错了在直接打开VB 创建个按钮 在 把代码写进 里面就可以直接运行了 运行的结果是5050
