



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

学习时间:2026-05-30 00:34:35 阅读：8663

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

最佳回答

愉快的唇膏

彩色的花生

2026-05-30 00:34:35



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-05-30 00:34:35
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

热门文章

猜你喜欢