[2]:And
While (x <= an - bn + 1)[2] (x <> 0) x = InStr(k, a$, [3]) [3]: b$ If x <> 0 Then
Print \ k = x + bn End If
Wend 运行结果：１ ３
End
５ ６
(4)译密码。为使电文保密，可以按一定规律将电文转换成密码，收报人再按约定的规律将其译回原文。按以下规律将电文：
将字母Ａ变成字母Ｅ，a变成e，即每一个字母变成其后的第四个字母，Ｗ变成Ａ，Ｘ变成Ｂ，Ｙ变成Ｃ，Ｚ变成Ｄ。非字母字符不变。如“China!”转换“Glmre!”。 请编程。
Input A$ N=Len(A$) For i=1 to n C$=MID$(A$,i,1)
If(A$>=‖A‖ and C$<=‖Z‖)then a=Asc(C$)+4
If(a>90 and a<96)or a>122 then a=a-26 End if C$=CHR$(a)
MID$(A$,i,1)=C$ End if Next i Print A$ End （5）有如下12个国家THAILAND,SINGAPORE,LOAOS,BURMA,CHINA,INDIO,NEPAL,JAPAN,KOREA,MONG--OLIA,EGYPT,INDONESIA在我国进行某项体育比赛,依规定入场式时除东道主走在最后外,其它国家依国名的英语字母顺序排列,请编程完成之。
DIM A$(12) For k=1 to 11 Read A$(k) Next k k=11
For i=1 to k-1 For j=i+1 to k-i
21
If A$(i)>A$(j+1) then Swap A$(j),A$(j+1) Next I
For N=1 to 12 Print A$(N) Next N
Data THAILAND,SINGAPORE,LOAOS,BURMA,CHINA,INDIO,NEPAL,JAPAN,
KOREA,MONGOLIA,EGYPT,INDONESIA End
22
实验十二：文件应用
一、实验目的：
掌握顺序文件的建立与使用方法。
一、 实验步骤：
１． 启动计算机；
２． 进入QBASIC编辑状态；
３． 做下列题目并把运行正确的程序存入软盘。
（1） 写出程序运行结果并上机验证。
a$ = \ Open \
For i = 1 To 10 a$ = Chr$(64 + i) + a$
Print #1, a$ Print a$ Next I Close End
运行结果：A
B A
C B A
D C B A
E D C B A
F E D C B A
G F E D C B A
H G F E D C B A
I H G F E D C B A
J I H G F E D C B A
（2） 填充语句将程序完整，并观察运行结果。已知顺序文件ABC.DAT中存有十个字符串数据，输出每一个字符串的第一个字母及字符串长度。
OPEN ―ABC.DAT‖ FOR OUTPUT AS #1 FOR i=1 TO 10
INPUT name$
a$=MID$(name$,1,1) b=LEN(name$) PRINT a$,b NEXT I
CLOSE
23
END
（3） 顺序文件ABC.DAT如前，将其中各字符串中大小写字符转换成小写字符，存入新顺序文件ACB1.DAT中。
A$= ― ‖
OPEN ―ABC.DAT‖ FOR input AS#1 OPEN ―ABC1.DAT‖ FOR output AS#2 FOR I=1 TO 10
INPUT #1,A$ A$=LCASE$(A$) PRINT #2,A$ PRINT A$ NEXT I CLOSE END
24