[建议]有个编程100例

MAXIM

10 K$=INKEY$

20 IF K$="q" THEN PLAY"C":10

30 IF K$="w" THEN PLAY"D":10

40 IF K$="e" THEN PLAY"E":10

50 IF K$="r" THEN PLAY"F":10

60 IF K$="t" THEN PLAY"G":10

70 IF K$="y" THEN PLAY"A":10

80 IF K$="u" THEN PLAY"B":10

90 IF K$<>CHR$(27) THEN 10



电子琴- -b

fangchen517

对新手来说是好东东,UP

ulong001

现在初中的信息技术竞赛还有basic的，去买本习题集不就n百例都有了（不过好像都是讲算法的哈）

jason911

引用第23楼ulong001于2006-07-02 23:46发表的“”:
现在初中的信息技术竞赛还有basic的，去买本习题集不就n百例都有了（不过好像都是讲算法的哈）

楼上的是哪里啊...[s:8]
山东noip没有basic...害我学了一暑假pascal  [s:8]

Still4

我也来一个：10进制转换成16进制
0 :
1 GOSUB 200  
10 INPUT "输入一个数";NUM
20 LN=1
30 IF NUM<16^LN THEN 50
40 LN=LN+1:GOTO 30
50 TMPA=NUM:OUT$=""
60 FOR I=LN-1 TO 1 STEP -1
70 TMPB=INT(TMPA/16^I)
80 IF TMPB<=9 THEN OUT$=OUT$+STR$(TMPB):100
90 OUT$=OUT$+CHR$(TMPB+55)
100 TMPA=TMPA-TMPB*16^I
110 NEXT I
111 IF LN=1 THEN 120
112 IF TMPA<9 THEN OUT$=OUT$+STR$(TMPA):120
113 OUT$=OUT$+CHR$(TMPA+55)
120 PRINT OUT$,"WAITING"
130 FOR I=1 TO 1000
140 NUM=PEEK(199)
150 IF NUM>128 THEN 10
160 NEXT I
170 PRINT "END":END  
200 CLSOCATE 3,4
210 PRINT "10进制转换16进制":OUT$ =INKEY$
220 RETURN

Still4

虽然发出来了，但是怕那张贴会沉。。。
在指定范围内随机抽取不重复的数字：

10 DIM A(100)
15 FOR I=1 TO 100:A(I)=I:NEXT I
20 FOR I=100 TO 1 STEP -1
30 RAND=INT(RND(.1)*I)+1
40 SWAP A(I),A(RAND)
50 NEXT I

这个是制造100个随机不重复数列。。。

ltmit

啊，我加个十转二的

10 CLS
20 PEINT"二进制转换器:":CLEAR
30 INPUT N: IF N>999999999 OR N<=0 THEN 10
40 A=INT(N):B=N-INT(N)
50 S=A/2
60 IF S=INT(S) THEN A$=A$+"0" ELSE A$=A$+"1"
70 A=INT(S): IF A>=1 THEN 50
80 FOR Q=1 TO LEN(A$): AA$=AA$+MID$(A$,LEN(A$)-Q+1,1):NEXT
90 IF B=0 THEN 200
100 W=1
110 R=1/2^W=0:IF B=0 THEN 200
120 IF B<R THEN B$=B$+STR$(P):W=W+1:GOTO 110
130 B=B-R=P+1
140 GOTO 120
200 PRINT AA$+"."+B$;

sargehsy

10 K$=INKEY$

20 IF K$="q" THEN PLAY"C":10

30 IF K$="w" THEN PLAY"D":10

40 IF K$="e" THEN PLAY"E":10

50 IF K$="r" THEN PLAY"F":10

60 IF K$="t" THEN PLAY"G":10

70 IF K$="y" THEN PLAY"A":10

80 IF K$="u" THEN PLAY"B":10

90 IF K$<>CHR$(27) THEN 10

.......

这样写多简便：
10 K=ASC(INKEY$)
20 N=(K=121)+(K=117)*2+(K=113)*3+(K=119)*4+(K=101)*5+(K=114)*6+(K=116)*7
30 PLAY CHR$(64+N):10

oncefly

0 GRAPH
10 BOX 1,0,160,79,1,2
20 FOR I=0 TO 400
30 A=INT(RND(1)*160+1):B=INT(RND(1)*80)
40 DRAW A,B,2
50 NEXT
------------------------
满天星

oncefly

1 DIM A(17)
10 DATA 111,110,99,101,102,108,121,40,79,70,209,208,190,191,202,210,41
20 FOR I=0 TO 16:READ A(I)
30 POKE 745+I,A(I)RINT:NEXT
----------------------------------------------
1 FOR I=1 TO 53
10 A$="  oncefly:Nothing is inpossible!Anything is possible!"
20 B$=MID$(A$,I,1):INVERSERINT B$;:NEXT
----------------------------------------------
不知道这两个程序应该叫啥名称（顺序显示文字？？）。不过两个程序的效果差不多。

zhjcjj

希望各位大家，给初学者来个，编程100例子，好让大家，参考着学习

GVB和汇编都可以

永远支持文曲星

谷虫:希望大家都来说说.......与本帖无关内容一律删除.打造emax的BASIC精华.