[原创]求100之内3、7的倍数 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → [原创]求100之内3、7的倍数

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 800 人关注过本帖

标题：[原创]求100之内3、7的倍数

取消只看楼主加入收藏

tonoy

等　级：论坛游民
帖　子：24
专家分：72
注　册：2013-8-25

楼主

问题点数：0 回复次数：0

[原创]求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

快速回复：[原创]求100之内3、7的倍数