用C语言编写一个关于筛选1到100所有偶数的程序？-学网-中国IT综合门户网站-提供健康,养生,留学,移民,创业,汽车等信息
> 信息中心 >
用C语言编写一个关于筛选1到100所有偶数的程序？
来源：互联网 发表时间： 12:20:01 责任编辑：鲁晓倩字体：
为了帮助网友解决“用C语言编写一个关于筛选1到100所有偶数的程序？”相关的问题，学网通过互联网对“用C语言编写一个关于筛选1到100所有偶数的程序？”相关的解决方案进行了整理,用户详细问题包括:RT,我想知道:用C语言编写一个关于筛选1到100所有偶数的程序？，具体解决方案如下：解决方案1： for (i=2;/;\),c=0;}VC++测试如下：#include &/i=i+2)/%4d&n&每行5个输出 printf(&只求偶数就行了 { printf(&quot,i); } printf(&/ if (++c%5==0)/);i& return 0;=100.h&定义头文件int main(){n&/&#92源程序如下解决方案2：
h&i+=2){printf(&for(i=2#include&i&lt,i);t&}return 0;101;int main(){%d\
解决方案3：
for（int i=1；1《=100 ； i++）｛if（i%2==0） return或者printf i｝
1个回答1个回答1个回答1个回答1个回答1个回答1个回答1个回答1个回答1个回答
相关文章：
最新添加资讯
24小时热门资讯
Copyright © 2004- All Rights Reserved. 学网 版权所有
京ICP备号-1 京公网安备02号查看: 586|回复: 10
如何根据需要筛选的数据名单 实现数据筛选
阅读权限20
在线时间 小时
表格一为原始数据
表格二为需要筛选的名单
表格三，四为需要实现的结果
麻烦高手帮忙看下
17:58 上传
点击文件名下载附件
10.1 KB, 下载次数: 16
阅读权限95
在线时间 小时
本帖最后由 zhaogang1960 于
18:24 编辑
第一个问题请参考：Sub 宏1()
& & Dim arr, brr(), i&, j&, m&, d As Object
& & Set d = CreateObject(&scripting.dictionary&)
& & arr = Sheets(&筛选条件&).Range(&A1&).CurrentRegion
& & For i = 2 To UBound(arr)
& && &&&d(arr(i, 1)) = &&
& & Next
& & arr = Sheets(&原始数据&).Range(&A1&).CurrentRegion
& & ReDim brr(1 To UBound(arr), 1 To 4)
& & For i = 2 To UBound(arr)
& && &&&If d.Exists(arr(i, 1)) Then
& && && && &m = m + 1
& && && && &For j = 1 To 4
& && && && && & brr(m, j) = arr(i, j)
& && && && &Next
& && &&&End If
& & Next
& & With Sheets(&筛选结果一&)
& && &&&.UsedRange.Offset(1).ClearContents
& && &&&If m & 0 Then .[a2].Resize(m, 4) = brr
& & End With
End Sub复制代码
阅读权限95
在线时间 小时
& & & & & & & &
本帖最后由 zhaogang1960 于
18:25 编辑
第二个问题请参考：Sub 宏2()
& & Dim arr, brr(), i&, j&, t, d1 As Object, d2 As Object
& & Set d1 = CreateObject(&scripting.dictionary&)
& & Set d2 = CreateObject(&scripting.dictionary&)
& & arr = Sheets(&筛选条件&).Range(&A1&).CurrentRegion
& & For i = 2 To UBound(arr)
& && &&&d1(arr(i, 1)) = &&
& & Next
& & arr = Sheets(&原始数据&).Range(&A1&).CurrentRegion
& & For i = 2 To UBound(arr)
& && &&&If d1.Exists(arr(i, 1)) Then
& && && && &If Not d2.Exists(arr(i, 1)) Then
& && && && && & d2(arr(i, 1)) = i
& && && && &Else
& && && && && & If arr(i, 2) & arr(d2(arr(i, 1)), 2) Then d2(arr(i, 1)) = i
& && && && &End If
& && &&&End If
& & Next
& & t = d2.items
& & ReDim brr(0 To d2.Count - 1, 1 To 4)
& & For i = 0 To d2.Count - 1
& && &&&For j = 1 To 4
& && && && &brr(i, j) = arr(t(i), j)
& && &&&Next
& & Next
& & With Sheets(&筛选结果二&)
& && &&&.UsedRange.Offset(1).ClearContents
& && &&&If i & 0 Then .[a2].Resize(i, 4) = brr
& & End With
End Sub复制代码
阅读权限95
在线时间 小时
请测试附件
(20.26 KB, 下载次数: 11)
18:26 上传
点击文件名下载附件
阅读权限95
在线时间 小时
本帖最后由 yjh_27 于
19:25 编辑
参见附件。
19:25 上传
点击文件名下载附件
94.65 KB, 下载次数: 5
阅读权限50
在线时间 小时
(20.02 KB, 下载次数: 5)
19:01 上传
点击文件名下载附件
阅读权限20
在线时间 小时
请测试附件
老师，您好，感谢帮助
经测试实现所需要的功能
另外有一点不知道应该如何改进，我举的例子里面是只列了4列，但实际应用过程中列数可能多一些，比如15列，不是一个固定值，是否可以修改实现？谢谢
阅读权限20
在线时间 小时
参见附件。
高手，您好
感谢抽空查看，可能我的第二个筛选需求没有描述清楚，是需要日期最新的记录，我给的例子中日期是按从小到大的顺序排列的，但是实际应用过程中日期可能不是按顺序排列。不过这个问题不大，使用源数据前可以先作一次排序，然后再用这个代码。 另外一点就是跟楼上老师一样的问题，实际使用过程中源数据的列数可能会多，能否修改一个自动判断列数再进行筛选，谢谢
阅读权限20
在线时间 小时
有效，这个方法也很有意思，还没学到这块内容，谢谢。
是不是列数变动，只要改变代码D这列就行了。
阅读权限95
在线时间 小时
本帖最后由 zhaogang1960 于
20:55 编辑
老师，您好，感谢帮助
经测试实现所需要的功能
另外有一点不知道应该如何改进，我举的例子里面是只列了 ...
20:54 上传
点击文件名下载附件
19.33 KB, 下载次数: 27
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}