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

学习 时间:2026-08-12 09:20:16 阅读:9625
编写程序,求在3000以内能被17或者23整除的正整数的个数

最佳回答

包容的夏天

超级的斑马

2026-08-12 09:20:16

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-08-12 09:20:16

    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

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

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