1、程序功能:求1到400间,同时能被3和7整除的数的个数。程序中有一处错误。改正错误,使它能输出正确的结果。
Private Sub Form_Click()
Dim count As Integer
Dim x As Integer
For x = 1 To 400
'下一行程序有错
If Mod(x, 3) = 0 And Mod(x, 7) = 0 Then
count = count + 1
End If
Next x
Print count
End Sub
2、程序功能:求200到400间,能被3整除但不能被7整除的数的个数。程序中有错误。改正错误,使它能输出正确的结果。
Private Sub Command1_Click()
Dim count As Integer
Dim x As Integer
count = 0
x = 200
While x <= 400
If x Mod 3 = 0 And x Mod 7 <> 0 Then
count = count + 1
End If
x = x + 1
'下一行程序有错
Loop
程序改错,c语言初学者,请各位大佬帮忙!谢谢你!!!
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答 默认 最新
- threenewbee 2020-06-02 14:10关注
If x Mpd 3 = 0 And x, Mod 7 = 0 Then
Loop
->
Wend本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥15 素材场景中光线烘焙后灯光失效
- ¥15 请教一下各位,为什么我这个没有实现模拟点击
- ¥15 执行 virtuoso 命令后,界面没有,cadence 启动不起来
- ¥50 comfyui下连接animatediff节点生成视频质量非常差的原因
- ¥20 有关区间dp的问题求解
- ¥15 多电路系统共用电源的串扰问题
- ¥15 slam rangenet++配置
- ¥15 有没有研究水声通信方面的帮我改俩matlab代码
- ¥15 ubuntu子系统密码忘记
- ¥15 保护模式-系统加载-段寄存器