原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
qbasic试题
1.
CLS
DIM i, j, k AS INTEGER
x = 1: z = -1
FOR i = 1 TO 4
y = 0
FOR j = 1 TO i
y = y + j
FOR k = j TO 3
z = z + 1
x = x + 1
NEXT k
y = y + k
NEXT j
x = x + i
NEXT i
PRINT x=; x, y=; y, z=; z
END
结果：x=31 y=26 z=19
2．
CLS
GOSUB k
PRINT TAB(21); **
GOSUB k
END
k: FOR i = 1 TO 3
FOR j = 1 TO i
PRINT TAB(20 + j); *;
NEXT j, i
RETURN
结果：*
**
***
**
*
**
***
3．DECLARE SUB ss (n AS INTEGER)
DIM SHARED a AS INTEGER
a = 100
CALL ss(3)
PRINT a
CALL ss(4)
PRINT a
END
SUB ss (n AS INTEGER)
STATIC a AS INTEGER
PRINT a
a = a + n
PRINT a
END SUB
结果：0
3
100
3
7
100
4．TYPE aa
a2 AS STRING * 4
END TYPE
TYPE bb
b2 AS STRING * 3
END TYPE
CLS
DIM s3(3) AS aa, s2(3) AS bb, s1(3) AS bb
FOR i = 1 TO 3
READ s1(i).b2, s2(i).b2
NEXT i
FOR i = 1 TO 3
s3(i).a2 = s2(i).b2 + s1(i).b2
PRINT s3(i).a2;
NEXT i
END
DATA 5,8,7,10,9,12
结果：8 510 712 9
5．
CLS
READ n
f = 1
i = 2
k: f = f * i
i = i + 1
IF i = n THEN GOTO k
PRINT CHR$(f / 2 + 5), MID$(STR$(f), 3, 1)
DATA 5
END
结果:A 2
6．用独立模块函数验证哥德巴赫猜想：任何一个不小于6的偶数都可以被表示为两个素数之和，验证[6，100]中的偶数。完成程序。
DECLARE FUNCTION ss (x)
CLS
FOR i = 6 TO 100 STEP 2
FOR （1）
IF ss(j) THEN
x = i - j
IF （2） THEN
PRINT i; =; j; +; x
（3）
END IF
END IF
NEXT j
NEXT i
END
（4）
f = -1
FOR i = 2 TO SQR(x)
IF x MOD i = 0 THEN f = 0: EXIT FOR
NEXT i
（5）
END FUNCTION
7．下面程序的功能是：从一个顺序文件“stu1.dat”中读入10个记录包括学生的学号、姓名及成绩，将这些数据转存到一个随机文件“stud.dat”中，用以存放10个学生的学号、姓名和成绩。定义记录变量stu，包括num，nam，score 3个域。请补充完整。
TYPE stu
num AS LONG
nam AS STRING * 10
score AS SINGLE
（1）
DIM rec AS stu
OPEN stu1.dat FOR （2） AS #1
OPEN stud.dat FOR RANDOM （3）
FOR i = 1 TO 10
INPUT #1, rec.num, rec.nam$, rec.score
（4）
PRINT rec.num, rec.nam$, rec.score
NEXT i
CLOSE #1
（5）
END
8．下面程序的功能：将键盘输入的一个数分解为素数的乘积的形式。
例如：1*2*7=14，-1*3*5=-
文档评论（0）