1、程序功能:求s=1+3+5+7+...直到s>2000为止。程序中有一行有错误。改正错误,使它能输出正确的结果。
Private Sub Command1_Click()
Dim i As Integer, s As Long
s = 0
i = 1
Do Until s > 2000
s = s + i
'下一行程序有错
i = i + 1
Loop
Print s
End Sub
2、程序功能:求个位数是6,且能被3整除的所有四位数之和。程序中有一行错误,改正错误,使程序能输出正确的结果。
Private Sub Command1_Click()
Dim i%
Dim s&
s = 0
For i = 1000 To 9999
'下一行程序有错!
If i Mod 3 = 0 and i Mod 1000 = 6 Then
s = s + i
End If
Next I
Print s
End Sub
程序改错,请各位大佬帮忙,真的非常谢谢!!!
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答 默认 最新
- threenewbee 2020-06-02 14:24关注
i = i + 1
->
i = i + 2If i Mod 3 = 0 and i Mod 10 = 6 Then
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥15 用三极管设计—个共射极放大电路
- ¥15 请完成下列相关问题!
- ¥15 drone 推送镜像时候 purge: true 推送完毕后没有删除对应的镜像,手动拷贝到服务器执行结果正确在样才能让指令自动执行成功删除对应镜像,如何解决?
- ¥15 求daily translation(DT)偏差订正方法的代码
- ¥15 js调用html页面需要隐藏某个按钮
- ¥15 ads仿真结果在圆图上是怎么读数的
- ¥20 Cotex M3的调试和程序执行方式是什么样的?
- ¥20 java项目连接sqlserver时报ssl相关错误
- ¥15 一道python难题3
- ¥15 牛顿斯科特系数表表示