| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 800 人关注过本帖
标题:[原创]求100之内3、7的倍数
只看楼主 加入收藏
tonoy
Rank: 2
等 级:论坛游民
帖 子:24
专家分:72
注 册:2013-8-25
收藏
 问题点数:0 回复次数:2 
[原创]求100之内3、7的倍数
程序代码:
[local]2[/local]Private Sub Command1_Click()
Dim i%, j%, l%, b(1 To 101, 1 To 101)

For i = 1 To 100

 If i Mod 3 = 0 Then

 L = L + i

 b(i, 1) = i

 Print b(i, 1)

 End If

 If i Mod 7 = 0 Then

 N = N + i      '累加7的倍数
 b(i, 2) = i    '记录7的倍数
'Print b(i, 2)
 End If
Next i
End Sub

b(i,1) 二维数组1记录3的倍数每一条
b(i,2)  二维数组2记录7的倍数每一条

给新手学习

谁说不能 上图[attach]72616[/attach]

输出2条选一条 否则一个3一个7

[ 本帖最后由 tonoy 于 2013-9-1 13:41 编辑 ]
搜索更多相关主题的帖子: color 
2013-08-27 12:42
chen3523
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:33
帖 子:223
专家分:1165
注 册:2013-2-12
收藏
得分:0 
大佬:上机试试结果好似不正确呀

调试失败3次后,关机睡觉,当醒来时多有收获。
2013-08-27 15:41
vbvcr51
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:18
帖 子:364
专家分:1724
注 册:2013-11-3
收藏
得分:0 
dim a as integer
for a=1 to 100
  if a mod 3 =0 and a mod 7=0 then
   print a
  else
  end if
next
2013-11-04 22:35
快速回复:[原创]求100之内3、7的倍数
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016805 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved