标题:[求助] 关于一个等差数列的问题
取消只看楼主
自在飞叶
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2006-11-25
 问题点数:0 回复次数:2 
[求助] 关于一个等差数列的问题

自己苦思冥想多时,不得其解!望各位赐教!

问题是这样的:

随机产生0-20个数,建立一个有6个数据的等差数列,count用来记录试验次数。一旦形成等差数列,则打印输出,同时结束程序运行

private sub command1_click()
count n =6
dim a%(n),i%,count&,d%
randomize timer
do while true
for i = 1 to n
a(i)=rnd*20
next i
count = count +1
d=a(2)-a(1)
for i = 1 to n
if a(i)-a(i-1) <> d then exit for
next i
if ______________________________ then
for i = 1 to n
?a(i);
?count
_________________
end if
loop
end sub

题中划线的地方,却想不出正解

搜索更多相关主题的帖子: 等差 
2006-11-25 22:39
自在飞叶
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2006-11-25
得分:0 

感谢,我运行了一下,

我觉得变量B可以省略
private sub command1_click()
const n =6
dim a%(n),i%,count&,d%
randomize timer
do while true
for i = 1 to n
a(i)=rnd*20
next i
count = count +1
d=a(2)-a(1)
for i = 1 to n
if a(i)-a(i-1) <> d then exit for
next i
if i=n+1 then
for i = 1 to n
?a(i);
?count
next i
end if
loop
end sub

如此运行,程序相应好慢,不知为何?

2006-11-26 18:57
自在飞叶
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2006-11-25
得分:0 
知道了,谢谢
2006-11-26 19:11



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-105363-1-1.html




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

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