《QBASIC》综合检测十二

《《QBASIC》综合检测十二》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、《QBASIC》综合检测十二一、程序阅读题：1、OPTIONBASE1DIMA（2，2），B（2）CLSS=0FORI=1TO2READB（I）FORJ=1TO2READA（I，J）NEXTJNEXTIFORI=1TO2FORJ=1TO2S=S+A（I，J）*B（J）NEXTJNEXTIPRINT“S=”；SDATA1，2，2，1，2，2ENDRUN：2、所给程序输出以下图形，完成程序：12345CLS23451DIMA（5，5）34512FORI=1TO551234A（1，I）=NEXTIFORI=2TO5FORJ=1TO4A（I，J）=A（）N

2、EXTJA（I，J）=NEXTIFORI=1TO5FORJ=1TO5PRINTA（I，J）；NEXTJNEXTIEND3、编程：将下列A矩阵转换为B矩阵123451510567891014941112131415138312721161（A）（B）CLSOPTIONBASE1M=3：N=5FORI=1TOMFORJ=1TONREADA（I，J）PRINTA（I，J）；NEXTJ：PRINTNEXTIFORI=FORJ=B（I，J）=PRINTB（I，J）；NEXTJPRINTNEXTIDATA1，2，3，4，5，6，7，8，9，10，11，12，1

3、3，14，151、利用计算机产生N个两位整数，并找出出现次数最多的数（即众数），以及出现的次数与频率即频数。CLSRANDOMIZEOPTIONBASE1INPUT“输入N=”；NDIMA（N），B（N）FORI=1TONA（I）=PRINTA（I）；B（I）=NEXTIFORI=1TON-1FORJ=I+1TONIFA（I）=A（J）THENB（I）=B（I）+1ENDIFNEXTJNEXTIK=1FORI=2TONIFTHENMAX=B（I）K=IENDIFNEXTIPRINT“众数=”；PRINT“出现的次数=”；PRINT“其频数=”；MA

4、X/N1、CLSDIME（1TO5，1TO5），A（1TO5，1TO5），B（1TO5，1TO5）FORI=1TO5FORJ=1TO5E（I，J）=1NEXTJNEXTIFORI=1TO5FORK=1TO5FORJ=1TO5B（I，J）=E（I，K）*A（K，J）NEXTJNEXTKNEXTIFORI=1TO5FORJ=1TO5PRINTB（I，J）；“”；NEXTJPRINTNEXTIDATA1，2，3，4，5，1，2，3，4，5DATA1，2，3，4，5，1，2，3，4，5，1，2，3，4，5END二、编程题：1、判断所输入的一段英文文章中的左

5、、右括号是否匹配，并输出相关的信息（假设这段文章中存在括号）1、从顺序文件“WJ”中，读入一段文字，要求加密后存储到一个顺序文件中去，文件名由用户从键盘输入，加密的方法是把奇数位的字母加上一个1-254之间的随机常数，再把加密后的ASC码和加密后的文字（按字母顺序）存储到该文件中去。