主题：怎么编一个 投票的程序???
3548711
[专家分：10] 发布于 2005-04-13 23:08:00
有2个候选人.....A和B 选A的 输入 1 选B的输入 2 输入 -1 投票结束......输入其他数字算为费票...```` 然后统计出 谁的票数多 谁获胜了??(多人投票) 该怎么编了??
我想了段时间了 还是不会....我是才接触QB不久了```` 还不熟悉..... 希望给我点帮助和提示```` 谢谢了.....我的QQ:195345092
回复列表 （共6个回复）
沙发
飞鸟12 [专家分：2830] 发布于 2005-04-14 12:05:00
start:
CLS
a = 0: b = 0
DO
INPUT "1:A, 2:B, -1:exit"; n
SELECT CASE n
CASE 1
a = a + 1
CASE 2
b = b + 1
CASE -1
EXIT DO
CASE ELSE
COLOR 12: PRINT "Input error!"
COLOR 7
END SELECT
LOOP
COLOR 12
PRINT "A:"; a, "B:"; b,
IF a > b THEN
PRINT "A win!"
ELSEIF b > a THEN
PRINT "B win!"
ELSE
COLOR 10
PRINT "Please try again!"
WHILE INKEY$ = "": WEND
COLOR 7
GOTO start
END IF
COLOR 7
[url=http://wpa.qq.com/msgrd?V=1&Uin=281860270&Site=www.programfan.com&Menu=yes] [img]http://wpa.qq.com/pa?p=1:281860270:1[/img][/url]
板凳
88324837 [专家分：490] 发布于 2005-04-14 12:32:00
这题的答案是下面自己看看懂了就会了
INPUT X
WHILE X<>-1
IF X=1 THEN A=A+1 ELSE IF X=2 THEN B=B+1 ELSE PRINT "废票“
INPUT X
WEND
FI A>B THEN PRINT A ELSE PRINT B
END
X表示输入的数
A=A+1表示统计A的票数
B=B+1表示统计B的票数
3 楼
3548711 [专家分：10] 发布于 2005-04-14 12:46:00
谢谢
4 楼
3548711 [专家分：10] 发布于 2005-04-14 22:08:00
回2楼....我试了一下你编的。.. 可是 那会造成 投票者重复输入也有效..!!
5 楼
88324837 [专家分：490] 发布于 2005-04-15 18:40:00
不明白你说的重复输入也有效是什么意思
6 楼
wqbt [专家分：30] 发布于 2005-04-15 19:03:00
INPUT A ''多少人选票
FOR I=1 TO A
DO ''此循环过滤除1。2。-1以外的数
INPUT X
UNTILT X=1 OR X=2
WHILE X<>-1
IF X=1 THEN A=A+1
IF X=2 THEN B=B+1
WEND
IF A>B THEN PRINT A ELSE PRINT B
END
NEXT I
我来回复
您所在位置：