主题：QB的循环语句的程序
falkner
[专家分：90] 发布于 2006-05-11 18:34:00
打印图形。打印0～2π之间的正弦曲线。要求每隔10°打一个“*”，图形尽量安排在屏幕的中央
编程：在下面的（）内填入一个相同数字使等式成立。
（ ）3×6528＝3（ ）×8256
所谓“水仙花数”是指一个三位数，其各位数字的立方和等于该数本身。例如：1^3+5^3+3^3=153，编程求100～999之间的所有“水仙花数”
设计一个能将十进制数转换成二进制数的程序
回复列表 （共17个回复）
11 楼
LSQ [专家分：220] 发布于 2006-05-20 18:13:00
十进制向二进制转换
DECLARE FUNCTION bin$ (x AS LONG)
CLS
PRINT bin$(1234567890)
PRINT bin$(&H12345678)
END
FUNCTION bin$ (x AS LONG)
tmp$ = ""
DO WHILE x <> 0
IF x AND 1 THEN
tmp$ = "1" + tmp$
ELSE
tmp$ = "0" + tmp$
END IF
x = x \ 2 '整数除法
LOOP
bin$ = RIGHT$(STRING$(32, "0") + tmp$, 32)
END FUNCTION
显示结果
01001001100101100000001011010010
00010010001101000101011001111000
12 楼
LSQ [专家分：220] 发布于 2006-05-20 18:13:00
十进制向二进制转换
DECLARE FUNCTION bin$ (x AS LONG)
CLS
PRINT bin$(1234567890)
PRINT bin$(&H12345678)
END
FUNCTION bin$ (x AS LONG)
tmp$ = ""
DO WHILE x <> 0
IF x AND 1 THEN
tmp$ = "1" + tmp$
ELSE
tmp$ = "0" + tmp$
END IF
x = x \ 2 '整数除法
LOOP
bin$ = RIGHT$(STRING$(32, "0") + tmp$, 32)
END FUNCTION
显示结果
01001001100101100000001011010010
00010010001101000101011001111000
13 楼
LSQ [专家分：220] 发布于 2006-05-20 18:14:00
[quote]十进制向二进制转换
DECLARE FUNCTION bin$ (x AS LONG)
CLS
PRINT bin$(1234567890)
PRINT bin$(&H12345678)
END
FUNCTION bin$ (x AS LONG)
tmp$ = ""
DO WHILE x <> 0
IF x AND 1 THEN
tmp$ = "1" + tmp$
ELSE
tmp$ = "0" + tmp$
END IF
x = x \ 2 '整数除法
LOOP
bin$ = RIGHT$(STRING$(32, "0") + tmp$, 32)
END FUNCTION
显示结果
01001001100101100000001011010010
00010010001101000101011001111000
[/quote]
14 楼
LSQ [专家分：220] 发布于 2006-05-20 18:14:00
十进制向二进制转换
DECLARE FUNCTION bin$ (x AS LONG)
CLS
PRINT bin$(1234567890)
PRINT bin$(&H12345678)
END
FUNCTION bin$ (x AS LONG)
tmp$ = ""
DO WHILE x <> 0
IF x AND 1 THEN
tmp$ = "1" + tmp$
ELSE
tmp$ = "0" + tmp$
END IF
x = x \ 2 '整数除法
LOOP
bin$ = RIGHT$(STRING$(32, "0") + tmp$, 32)
END FUNCTION
显示结果
01001001100101100000001011010010
00010010001101000101011001111000
15 楼
LSQ [专家分：220] 发布于 2006-05-20 18:15:00
[quote]十进制向二进制转换
DECLARE FUNCTION bin$ (x AS LONG)
CLS
PRINT bin$(1234567890)
PRINT bin$(&H12345678)
END
FUNCTION bin$ (x AS LONG)
tmp$ = ""
DO WHILE x <> 0
IF x AND 1 THEN
tmp$ = "1" + tmp$
ELSE
tmp$ = "0" + tmp$
END IF
x = x \ 2 '整数除法
LOOP
bin$ = RIGHT$(STRING$(32, "0") + tmp$, 32)
END FUNCTION
显示结果
01001001100101100000001011010010
00010010001101000101011001111000
[/quote]
16 楼
yz19870621 [专家分：0] 发布于 2006-08-04 15:01:00
有截取也可以,比较简单.
17 楼
网络爱好者 [专家分：60] 发布于 2006-08-24 17:50:00
水仙花数：
FOR A=1 TO 9
FOR B=0 TO 9
FOR C=0 TO 9
D=A*100+B*10+C
IF A^3+B^3+C^3=D THEN ? D;
NEXT C,B,A
END
我来回复
您所在位置：