| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1624 人关注过本帖
标题:[求助]请教mod的用法。
只看楼主 加入收藏
云中倒影
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2004-7-27
收藏
 问题点数:0 回复次数:8 
[求助]请教mod的用法。

看下面一段代码:

Private Sub Form_Activate() Dim I As Integer I = 1 Print: Print: Print: Print: Print: Print: Print: FontSize = 12 ForeColor = vbBlue Do While I <= 99 If I Mod 10 = 0 Then Print: Print Tab((I Mod 10) * 6); Str(I); I = I + 2 Loop End Sub

这是一个输出1至99之间的奇数的程序,但为什么当打印11,21等等的时候会换行呢?好象应该不会换行吧?

搜索更多相关主题的帖子: mod 用法 
2004-10-18 16:17
lvlink
Rank: 1
等 级:新手上路
帖 子:82
专家分:0
注 册:2004-9-20
收藏
得分:0 
[QUOTE]

Private Sub Form_Activate() Dim I As Integer I = 1 Print: Print: Print: Print: Print: Print: Print: FontSize = 12 ForeColor = vbBlue Do While I <= 99 If I Mod 10 = 0 Then Print: Print Tab((I Mod 10) * 6); Str(I); I = I + 2 Loop End Sub

[/QUOTE]

你上面写的If I Mod 10 = 0 Then Print:是没用的,因为I Mod 10是不可能等于0的(你可能把这一行去掉看一下)

到11时换行是因为Print Tab((I Mod 10) * 6); Str(I);这一句,因为到11时(11 Mod 10)*6与 (1 Mod 10)*6相同,所以换行(至于Tab的作用,你自己好好编几个程序试就知道了

2004-10-18 19:47
lvlink
Rank: 1
等 级:新手上路
帖 子:82
专家分:0
注 册:2004-9-20
收藏
得分:0 

哦,对了,好像还没给你说Mod的用法

Mod是取余,A Mod B是意思就是A除以B然后结果也余数

如:1 Mod 10=1

11Mod 10=1

22 Mod 10=2

2004-10-18 19:50
云中倒影
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2004-7-27
收藏
得分:0 
再问一下1 mod 10的结果是1吗,11 mod 10 的结果是1吧,那么2 mod 10 的结果是多少?
2004-10-18 19:55
云中倒影
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2004-7-27
收藏
得分:0 
太感谢了!还有1 mod 10好象没有余数的吧?1除以10不是0.1吗?

[此贴子已经被作者于2004-10-18 20:00:08编辑过]


2004-10-18 19:56
lvlink
Rank: 1
等 级:新手上路
帖 子:82
专家分:0
注 册:2004-9-20
收藏
得分:0 
1 mod 10商0余1
2004-10-31 13:37
时空之蕊
Rank: 2
等 级:新手上路
威 望:3
帖 子:691
专家分:0
注 册:2004-10-31
收藏
得分:0 
mod就是求余,但是不知道能不能对非整数求余啊!!???

我渴望掌控时空的核心——用最先进的技术,打造无比美丽的世界!
2004-10-31 23:33
时空之蕊
Rank: 2
等 级:新手上路
威 望:3
帖 子:691
专家分:0
注 册:2004-10-31
收藏
得分:0 
我刚才试验了一下发现,它好像是把他们想转换到整数在运算的!!

我渴望掌控时空的核心——用最先进的技术,打造无比美丽的世界!
2004-10-31 23:50
lvlink
Rank: 1
等 级:新手上路
帖 子:82
专家分:0
注 册:2004-9-20
收藏
得分:0 

支持

时空之蕊

2004-11-09 23:05
快速回复:[求助]请教mod的用法。
数据加载中...
 
   



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

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