主题：急救两个QB题目
frost_fy
[专家分：0] 发布于 2010-06-04 14:43:00
1.从键盘输入10个数，对这些数进行降序排列输出结果，其中重复不输出（只保留一个）
2：投两个骰子，可以出现2至12点，每个点数出现次数并不相等（如1+6=2+5=3+4=4+3=5+2=6+1）6次。完成程序统计各点数出现的次数，并输出出现次数最多的点数。
回复列表 （共17个回复）
沙发
davis2020 [专家分：0] 发布于 2010-07-11 11:25:00
暂且将第一题程序清单给你，有许多不足之处，希望高手指正：
CLS
INPUT n
DIM a(n)
FOR i = 1 TO n
INPUT a(i)
NEXT i
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
IF a(i) < a(j) THEN SWAP a(i), a(j)
NEXT j
NEXT i
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
IF a(i) = a(j) THEN a(j) =-1
NEXT j
NEXT i
FOR j = 1 TO n
IF a(j) <> -1 THEN PRINT a(j);
NEXT j
END
板凳
淘宝商盟 [专家分：30] 发布于 2010-09-30 16:45:00
寻找中国的最优秀的网商领袖精英
当今世界正经历着全球经济一体化的大潮，中国本土企业也因此面临着前所未有的机遇与挑战。
在这场洗礼中，哪些互联网平台有能力成为世界级的电子商务平台？网商精英要怎样做，才能最终成长为世界级网商精英领袖？
淘宝商盟平台震撼登场，携手淘宝30万商家联盟购物商城。
平台刚刚启动，互联网的网商精英请咨询qq: 908889846
占领市场第一先机，合力打造网商系统！
淘宝商盟官网 www.taobaosm.com
http://blog.sina.com.cn/tbsm8
淘宝商盟奖励制度
3 楼
幽灵密码 [专家分：3510] 发布于 2010-10-17 22:04:00
2.
cls
randomize timer
dim a(6)
for i=1 to 6
n=fix(rnd*10)+2
a(n)=a(n)+1
next i
for i=1 to 6:print n,a(n):next i
end
4 楼
幽灵密码 [专家分：3510] 发布于 2010-10-17 22:07:00
改正错误：
第三行：dim a(12)
5 楼
幽灵密码 [专家分：3510] 发布于 2010-10-17 22:08:00
倒数第二行：print i,a(i)
6 楼
幽灵密码 [专家分：3510] 发布于 2010-10-17 22:08:00
还是倒数第二行：for i=1 to 12
7 楼
幽灵密码 [专家分：3510] 发布于 2010-10-17 22:08:00
没事了
8 楼
verysmartboy [专家分：1260] 发布于 2010-10-30 16:52:00
1.cls
dim a(10)
for i=1 to 10
input a(i);
next i
for i=2 to 9
if a(i)=a(i-1) then a(i-1)=0
if a(i)=a(i+1) then a(i+1)=0
next i
for i=1 to 9
for j=i+1 to 10
if a(i)<a(j) then swap a(i),a(j)
next j
next i
for i=1 to 10
if a(i)<>0 then print a(i),
next i
end
我来回复
您所在位置：