一个很棘手的循环（高手帮帮忙）
我做的是一个串口通讯程序的例子
硬件部分可以接收共150个Page
大概发送格式是这样的

如果选择只发送一个Page 只有一幕
Message(1) = &H0 '引入方式 第一幕的数据
Message(2) = &H0 '引出方式 第一幕的数据
Message(3) = &H0 '幕间延时 第一幕的数据
Message(4) = &HA '速度 第一幕的数据
Message(5) = &H6 '附加方式 第一幕的数据
Message(6) = &H2 '动画 第一幕的数据

如果选择发送两个Page 有两幕
Message(1) = &H0 '引入方式 第一幕的数据
Message(2) = &H0 '引出方式 第一幕的数据
Message(3) = &H0 '幕间延时 第一幕的数据
Message(4) = &HA '速度 第一幕的数据
Message(5) = &H6 '附加方式 第一幕的数据
Message(6) = &H2 '动画 第一幕的数据

Message(7) = &H0 '引入方式 第二幕的数据
Message(8) = &H0 '引出方式 第二幕的数据

Message(9) = &H0 '幕间延时 第二幕的数据
Message(10) = &HA '速度 第二幕的数据
Message(11) = &H6 '附加方式 第二幕的数据
Message(12) = &H2 '动画 第二幕的数据
.
.
.
反正每6个Message则为一个Page,假如信息有18个Message的长度，它就会显示3个Page,一个Page为一幕，Page最大150个，也就有150个可能，请教高手要怎样写一个循环，谢谢大家！不知道是否讲得明白，请大家帮忙啊，急。。。

[解决办法]
用i Mod 6 =0 作为分页条件啊

[解决办法]
i Mod 6 =0 取余数

循环你发送的信息
dim iPageNum as integer
iPageNum=1 '第一页
for i=1 to ubound(Message)
if i mod 6=0 then '说明该换页了
iPageNum=iPageNum+1
end if
next i