编写程序,求在3000以内能被17或者23整除的正整数的个数

学习 时间:2026-11-11 07:07:39 阅读:758
编写程序,求在3000以内能被17或者23整除的正整数的个数

最佳回答

孤独的流沙

疯狂的蜻蜓

2026-11-11 07:07:39

Private Sub Command1_Click()Dim i As Integer,n As IntegerFor i = 1 To 3000If i Mod 17 = 0 Or i Mod 23 = 0 Then _n = n + 1NextPrint nEnd Su

最新回答共有2条回答

  • 体贴的导师
    回复
    2026-11-11 07:07:39

    Private Sub Command1_Click()Dim i As Integer,n As IntegerFor i = 1 To 3000If i Mod 17 = 0 Or i Mod 23 = 0 Then _n = n + 1NextPrint nEnd Su

上一篇 英语翻译:无带病运转设备.

下一篇 匆匆 作者在文中表达了怎样的情感呢?联系课文句子写一写