作业帮请教：为什么下面程序计算的结果是真实值的2倍?
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/10/04 15:42:00
请教：为什么下面程序计算的结果是真实值的2倍?
Private Sub Command1_Click()
Dim I
Shell "Calc.EXE", 1 '' 激活计算器.
For I = 1 To 100 ' 设置计数循环.
SendKeys I & "{+}", True ' 按下按键给计算器
Next I ' 将所有 I 值相加.
SendKeys "=", True ' 取得总合.
End Sub
Private Sub Command1_Click()
Dim I
Shell "Calc.EXE", 1 '' 激活计算器.
For I = 1 To 100 ' 设置计数循环.
SendKeys I & "{+}", True ' 按下按键给计算器
Next I ' 将所有 I 值相加.
SendKeys "=", True ' 取得总合.
End Sub
按键 不对 调整一下
再问： 您好，是 I & "{+}"不对吗？怎样修改？
再答： 先说下你要的功能吧
再问： 我是想要得到从1加到100的值，它的值应该是5050，但是上面程序计算的结果却是10100，程序中哪个地方出错了？怎样修改？
再答： 最后 +100 之后不能再有+ 号
再问： 您好，是 I & "{+}"不对吗？怎样修改？
再答： 先说下你要的功能吧
再问： 我是想要得到从1加到100的值，它的值应该是5050，但是上面程序计算的结果却是10100，程序中哪个地方出错了？怎样修改？
再答： 最后 +100 之后不能再有+ 号