Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1936|回复: 1

这样的循环程序怎么写出

[复制链接]
发表于 2017-4-19 16:50 | 显示全部楼层 |阅读模式
本帖最后由 向前650809 于 2017-4-19 16:51 编辑

各位网友好,现有这样一个程序要写出,有一整数m,要列出所有小于或等于m,且为4的倍数加上1的整数。程序会涉及到在整数中循环,当4n+1<=m是退出循环。程序如何写出,请指导
另外在正整数集中循环,如何写出。
谢谢

发表于 2017-4-19 17:05 | 显示全部楼层
本帖最后由 Excel学徒123 于 2017-4-19 17:07 编辑

你这逻辑有问题吧,第一个出现的数不一样小于m么???找到1个就退出了?又何来的所有符合的数???
  1. Option Explicit

  2. Sub test()
  3.     Dim lCnt&, lCount&
  4.     Dim arrRst()
  5.     Const lNum& = 100          '这里的lNum自己定义数据
  6.     For lCnt = 1 To lNum
  7.         If  lCnt Mod 4 = 0 And lCnt + 1 <= lNum Then
  8.             lCount = lCount + 1
  9.             ReDim Preserve arrRst(1 To lCount)
  10.             arrRst(lCount) = lCnt + 1
  11.         End If
  12.     Next
  13.     Range("a1").Resize(lCount, 1) = Application.Transpose(arrRst)
  14. End Sub
复制代码


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 17:43 , Processed in 0.424150 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表