请各位编程高手帮我解决3道QBASIC题目，谢谢！！！

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

上面程序是错的。
买南大版小学信息奥赛教材，有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

以上是对的。

4.将键盘输入的10个数按从大到小的顺序排列并输出。
cls
dim a(10)
print "please input num"
for i = 1 to 10
input a(i)
next i
for j = 1 to 10
max = a(j)
for i = j to 10
if a(i)>max then swap a(i),max
next i
next j
cls
for i = 1 to 10
print a(i),
next i
end


5.输入一年份，由计算机判断该年份是否为闰年。是则输出“YES”，不是则输出“NO”。（历法规定：公元年份能被4整除、但不能被100整除的年份或者能被400整除的年份是闰年，闰年二月份为29天，非闰年二月份为28天。）


cls
do
input x
loop until int(x)=x and x>0
if x mod 4 =0 and x mod 100 0 or x mod 400=0 then

print "yes"
else
print "no"
end if
end

6.已知一数列第一、二项是1，以后各项是其前两项之和，请求出并打印该数列的前60项。

cls
a=1:b=1
print a,b,
for i = 3 to 60
c=a+b
print c,
b=c:a=b
next i
end

7.求100以内的质数。

CLS
FOR i = 2 TO 100
k = 0: t = 0
DO
k = k + 1
FOR j = 2 TO i /2
IF k * j = i THEN t = t + 1: EXIT DO
NEXT j
LOOP UNTIL k = i
IF t = 0 THEN PRINT i, : y = y + 1
NEXT i
PRINT
PRINT "all"; y
END


8.用RND函数模拟抛钱币100次，统计正面与反面各多少次？

cls
for i = 1 to 100
randomize timer
a=int(rnd*2)
if a=1 then z=z+1
if a=0 then f=f+1
next i
print "zheng";z
print "fan";f
end

1）水仙花数为三位整数，其数值=百位数的立方+十位数的立方+个位数的立方。例如：153是水仙花数，故153=1×1×1+5×5×5+3×3×3；

CLS
DIM ams(15000)
DIM e(1000)
DO
INPUT x,y "输入一个X,y的范围，例 如你要算100-1000以

内的水仙花，就输入100，1000
n = 0
FOR i = x TO y
CLS
PRINT (i / y) * 100; "%"
c$ = STR$(i)
a = LEN(LTRIM$((c$)))
FOR j = 1 TO a
d = VAL(MID$(LTRIM$(c$), j, 1))
e(j) = 1

FOR k = 1 TO a
e(j) = d * e(j)
NEXT k
NEXT j
f = 0
FOR j = 1 TO a
f = e(j) + f
NEXT j
IF f = i THEN n = n + 1: ams(n) = i
NEXT i
CLS
FOR i = 1 TO n
IF ams(i) 0 THEN PRINT ams(i); ",";
NEXT i

PRINT
PRINT "do you want go on Y/N"
INPUT t$

LOOP UNTIL t$ "y" OR t$ "Y"


10.做图形
****
******
********
**********
************
**********
********
******

cls
k=2:x=1:y=10:c=1
for i = 4 to 20 step k
p=y
for j = 1 to i
locate x,p
print "*"
p=p+1
next j
x=x+1:y=y-c
if i = 12 then k=k*-1:c=c*-1
next i
end


11。求 1！+2！+3！+…+9！+10！


cls
for i = 2 to 10
a(i)=1
b=i
do
a(i)=a(i)*b*(b-1)
b=b-1
loop until b=1
next i
for i = 2 to 10
x=a(i)+x
next i
print x+1
end

说明:匆忙制作,未经测试,主要是这边电脑已经不支持运行QB了,水仙花数那一题不宜把数目填的太多!否则电脑算的时间特长,图形那一个也不知道好不好用!还望下面有高手帮着修改修改!

1.CLS
S=0
FOR I = 1 TO 1000
IF I MOD 2 = 0 THEN PRINT I
NEXT I
END
2.CLS
DO
INPUT "",N
LOOP UNTIL INT(N)=N
FOR I = 1 TO N
IF N / I = N \ I THEN PRINT I
NEXT I
END
3.CLS
DIM SHARED N AS BOUBLE
X = 1
N = 0
FOR I = 1 TO 100
IF I MOD 2 = 0 THEN N = N - 1 / ( 2 * I - 1 ) ELSE N = N + 1 / ( 2 * I )
NEXT I
N = N * 4
PRINT N
END
很高兴帮助你！

1、
FOR I=1 TO 1000
IF I MOD 2 =0 THEN PRINT I;
NEXT I

2、
INPUT N
FOR I=1 TO N
IF N MOD I = 0 THEN PRINT I;
NEXT I

3、
我看不懂，你可以看二楼说的，本人在此深表歉意。

---

民和回族土族自治县18473105430： 求QBASIC的3道编程题答案(周四就要用)求高手帮我做一下下面三道编程题1.设有现金Po,存入银行年利率为R,则N年后本息为多少.公式为P=Po*(1+R)... - ？
束逃倍能：[答案] 1.INPUT ＂存入金额=＂;P0INPUT ＂年利率=＂;RINPUT ＂存款期限=＂;NP=P0*(1+R)^NPRINT ＂本息合计:＂;PEND2.INPUT ＂里程＂;SIF SnPRINT ＂n!=＂;SEND(2)用WHILE语句INPUT ＂n=＂;ni=1S=1WHILE i>nS=S*ii=i+1WENDPRINT ...

民和回族土族自治县18473105430： 请各位编程高手帮帮忙,这个程序怎么编? - ？
束逃倍能： 一般的随机函数是RAND,用随机函数产生数字,并计算结果,用结果和输入的结果相比较,即用判断语句 if 计算结果=输入结果 then 分数=分数+10 0 endi 在此前应先用循环语句,循环数为10 因为不知你用什么语言编,因为各种语言的语句不尽相同,但原理是一样的.既是下面的顺序: 1.循环语句 2.用随机函数出题并计算结果 3.用判断语句,判断结果的正确性,确定是否加分. 4.结速循环. 不知这样说你能不能明白.如果你能说用什么语言编,我可以编好发给你.不过这样简单的程序还是自己练习一下为好.

民和回族土族自治县18473105430： 求助!!各位编程高手看看!!!! - ？
束逃倍能： Private Sub Command1_Click()Dim a As Long, b As Long, c As Long, t As Longa = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a < b Then'如果a小于b就把a和b的值交换,使a的值大于或等于bt = aa = bb = tEnd IfIf a < c ...

民和回族土族自治县18473105430： 请帮忙解决下这段代码什么问题 - ？
束逃倍能： password=md5(password) set rs=server.createobject(＂adodb.recordset＂) sql=＂select * from Admin where password='＂' and username=&#...

民和回族土族自治县18473105430： 几道编程题,各位高手帮下忙？
束逃倍能： void fun(char s[],int c) {int i,k=0; for(i=0;s[i];i++) if(s[i]!=c) s[k++]=s[i];s[k]='\0'; } #include<stdio.h> main() { static char str[]=＂1,38,345,5,53,3,23245,34,51,4,2,8,20,57,88,44,55,47＂; char ch; printf(＂ :%s\n＂,str); printf(＂ :＂); scanf(＂%c＂,&ch); fun(str,ch); printf(＂str[]=%s\n＂,str); getch (); }

民和回族土族自治县18473105430： 跪求 :C语言编程高手 帮忙解决？
束逃倍能： 参考答案:#include ＂stdio.h＂ int IsNumberEqual(int number); void ntos (int number, int c[]) ; void sort (int a[ ] ); int getmaxn(int a[ ]); int getminn(int b[ ]) ; void main() {int number,i,c[4],max,min,s; printf(＂请输入一个互不相等的4位数:＂); ...

民和回族土族自治县18473105430： 请编程高手帮我解决这道题目啊~~？
束逃倍能： 实现函数Y表达式,已知变量X和函数Y存放于DS:[20H]和DS:[21H]中.(20分) Y= |1 (X>0

民和回族土族自治县18473105430： 编程高手帮我解决个小问题吧,谢谢啦、是作业题,用c++语言编写 - ？
束逃倍能： 第一题:#include <iostream> using namespace std; int main () { int a[10][10]; int n,i; a[0][0]=1; for (n=1;n<10;n++) { for (i=0;i<=n;i++) { if ((i==0)||(i==n)) a[n][0]=a[n][n]=1; else { a[n][i]=a[n-1][i-1]+a[n-1][i]; } } } for (n=0;n<10;n++) { for (i=0;i<=n;i++) cout...

民和回族土族自治县18473105430： C语言编程高手帮忙解决一下这个小问题!!!？
束逃倍能： #include <stdio.h> void main() {int num;while(1){printf(＂请输入数字\n＂);scanf(＂%d＂,&num);if(num>=1 && num<=7){switch(num){case 1: printf(＂星期一\n＂);break;case 2: printf(＂星期二\n＂);break;case 3: printf(＂星...

民和回族土族自治县18473105430： c语言啊,请高手解决啊! - ？
束逃倍能： #include #define FUNC(n) oper##nint oper1(int,int);int oper2(int,int);int oper3(int,int);int oper4(int,int);int main(){ int a,b,s; printf(＂输入两个参数...