Question

没有高手了吗???追加20分呀!!!!!编程高手请进 用QBASIC编写十进制转化成二进的程序,哪位朋友帮个忙?谢谢啦

Answer 1

上面程序是错的。
买南大版小学信息奥赛教材，有QB这个程序好几种编法

DIM a(100)
c = 1
INPUT b

DO UNTIL b = 0

a(c) = b MOD 2
b = (b - (b MOD 2)) / 2
c = c + 1
LOOP

IF a(c) = 0 THEN c = c - 1

FOR b = c TO 1 STEP -1
PRINT (a(b));
NEXT b

以上是对的。

Answer 2

Dim a(100)
c = 1
Input (b)

Do Until b = 0

a(c) = b Mod 2
b = (b - (b Mod 2)) / 2
c = c + 1
Loop

If a(c) = 0 Then c = c - 1

For b = c To 1 Step -1
Form1.Print (a(b))
Next b