📄 19972.htm
字号:
<SCRIPT LANGUAGE="JavaScript" SRC="../../../-fs0/sys/pop-up.js"></SCRIPT><!-- saved from url=(0046)http://www.exam100.com/lnst/chuji/lnst97_2.htm --><html><!-- #BeginTemplate "/Templates/moban1.dwt" --><!-- DW6 --><head><STYLE type=text/css>TD { FONT-SIZE: 9pt}INPUT { FONT-SIZE: 9pt}A { TEXT-DECORATION: none}A:hover { COLOR: #d90000; TEXT-DECORATION: underline}</STYLE><META http-equiv=Content-Type content="text/html; charset=gb2312"><META content="MSHTML 6.00.2462.0" name=GENERATOR><style type="text/css"><!--a:link{text-decoration:none}a:hover{text-decoration:none}a:visited{text-decoration:none}--></style><!-- #BeginEditable "doctitle" --><title>计算机等级考试学习网【studywang.yeah.net】</title><!-- #EndEditable --><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><script language="JavaScript"><!--<!--function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();}MM_reloadPage(true);// -->//--></script></head><body bgcolor="#6a4f9a" alink="#cc0033" marginwidth="10" marginheight="10" link="#000000" vlink="#000000">
<!-- Spidersoft WebZIP Banner Ad Insert -->
<!-- For removal instructions see: http://www.spidersoft.com/webzip/help/noads.asp -->
<SCRIPT FOR=window EVENT=onload LANGUAGE="JScript">
initAd();
</SCRIPT>
<script language="JScript">
<!--
function initAd() {
document.all.AdLayer.style.posTop = -200;
document.all.AdLayer.style.visibility = 'visible'
MoveLayer('AdLayer');
}
function MoveLayer(layerName) {
var x = 10;
var y = 10;
var diff = (document.body.scrollTop + y - document.all.AdLayer.style.posTop)*.40;
var y = document.body.scrollTop + y - diff;
eval("document.all." + layerName + ".style.posTop = y");
eval("document.all." + layerName + ".style.posLeft = x");
setTimeout("MoveLayer('AdLayer');", 60);
}
if (navigator.onLine){
document.write("<div bgcolor=#000000 style='height=70px;'></div>");
document.write("<div id=AdLayer style='position:absolute; width:100%; height:80px; z-index:20; visibility:hidden;'>");
document.write("<IFRAME SRC='http://www.spidersoft.com/ads/bwz468_60.asp' width=100% height=60 marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=no></IFRAME>");
document.write("</div>");
}
//-->
</script>
<!-- /Spidersoft WebZIP Banner Ad Insert -->
<TD align=middle> </TD><a href="http://abc.yesite.com/cgi-bin/abc.cgi?owner=llamaa" onClick="undefined;if(this.blur)this.blur()"> </a> <table width="750" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" height="396"> <tr> <td valign="top" colspan="3" height="61"> <table width="100%" border="0" cellpadding="0" cellspacing="0" height="59"> <tr> <td width="750" height="60"> <div align="center"> <a href="http://china.chance2mail.com/cgi-bin/regstep1.cgi?myid=GX00712519" target="_blank"><img src="../../../pic/caidou.gif" width="468" height="60" border="0"></a> <iframe width=150 frameborder=0 border=0 scrolling=no height=55 src="http://www.dangdang.com/league/link/showlink.asp?type=link&id=1&userid=P-1168271"></iframe></div> </td> </tr> <tr> <td height="2"><img height="1" width="750" src="../../../spacer.gif"></td> </tr> </table> </td> </tr> <tr> <td valign="top" height="13" colspan="3"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="100" bgcolor="#dadfef"><font color="#000000"><a href="../../../index.htm">首页</a></font></td> <td width="100" bgcolor="#dadfef"><font color="#000000"><a href="../../../turboc/index.htm">Turbo C</a></font></td> <td width="100" bgcolor="#dadfef"><font color="#000000"><a href="../../../djks/index.htm">计算机等级考试</a></font></td> <td width="100" bgcolor="#dadfef"><font color="#000000"><a href="../../index.htm">软件水平考试</a></font></td> <td width="100" bgcolor="#dadfef"><font color="#000000"><a href="http://www.qbbs.net/index.asp?code=llamaa">学习网论坛</a></font></td> <td width="100" bgcolor="#dadfef"> <div align="left"><font color="#FF0000"><a class=date title=Study TC onClick="window.external.addFavorite('http://studywang.yeah.net','学习网')"href="../../../ind/liaotianshi.htm"> <font color="#000000">聊天室</font> </a></font></div> </td> </tr> </table> </td> </tr> <tr> <td valign="top" height="63" colspan="3"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="750" height="63" valign="top"><!-- #BeginEditable "b" --> <p> </p> <p><font size="2" color="#FF0000"><a href="../../../index.htm" target="_blank"><font color="#000000">现在位置：首页</font></a><font color="#000000"> 》</font></font></p> <!-- #EndEditable --></td> </tr> </table> </td> </tr> <tr> <td width="10" height="218" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="10" height="217"></td> </tr> <tr> <td height="1"><img height="1" width="10" src="../../../spacer.gif"></td> </tr> </table> </td> <td width="730" rowspan="2" valign="top"> <p> </p> <!-- #BeginEditable "a" --> <DIV align=center><BR> <FONT color=#3048b8><B><FONT color=#ff0000 size=3>一九九七年度初级程序员级 下午试卷</FONT></B></FONT><BR> <TABLE cellSpacing=0 cellPadding=0 width="80%" border=0> <TBODY> <TR> <TD> <P><FONT lang=ZH-CN>试题一</FONT></P> <P align=justify><FONT lang=ZH-CN>阅读下列</FONT>BASIC<FONT lang=ZH-CN>程序，将应填入</FONT>__(n)__<FONT lang=ZH-CN>处的字句，写在答卷的对应栏内。</FONT></P> <P align=justify>[<FONT lang=ZH-CN>程序</FONT>1.1]</P> <P align=justify>A=1</P> <P align=justify>B=-1</P> <P align=justify>IF A>B AND B=ABS<FONT lang=ZH-CN>（</FONT>B<FONT lang=ZH-CN>）</FONT> THEN GOTO P</P> <P align=justify>A=2</P> <P align=justify>IF A=B OR NOT<FONT lang=ZH-CN>（</FONT>A+B<FONT lang=ZH-CN>）</FONT><<FONT lang=ZH-CN>（</FONT>A-B<FONT lang=ZH-CN>）</FONT>THEN GOTO P</P> <P align=justify>A=3</P> <P align=justify>IF<FONT lang=ZH-CN>（</FONT>A=2 OR B-1=-A<FONT lang=ZH-CN>）</FONT>OR<FONT lang=ZH-CN>（</FONT>A=B+4 AND NOT <FONT lang=ZH-CN>（</FONT>A<>3<FONT lang=ZH-CN>）</FONT> THEN GOTO P</P> <P align=justify>A=4</P> <P align=justify>P<FONT lang=ZH-CN>：</FONT>PRINT A+ABS<FONT lang=ZH-CN>（</FONT>B<FONT lang=ZH-CN>）</FONT></P> <P align=justify>END</P> <P align=justify><FONT lang=ZH-CN>程序执行后，输出结果为</FONT>__(1)__.</P> <P align=justify>[<FONT lang=ZH-CN>程序</FONT>1.2]</P> <P align=justify>DECLARE FUNCTION P$<FONT lang=ZH-CN>（</FONT>X<FONT lang=ZH-CN>，</FONT>Y<FONT lang=ZH-CN>）</FONT></P> <P align=justify>COMMON SHARED A<FONT lang=ZH-CN>，</FONT>B<FONT lang=ZH-CN>，</FONT>C$</P> <P align=justify>INPUT “A=”,A</P> <P align=justify>INPUT “B=”,B</P> <P align=justify>C$=<FONT lang=ZH-CN>“</FONT>TEST-RESULT<FONT lang=ZH-CN>”</FONT></P> <P align=justify>PRINT P$(A,B)</P> <P align=justify>END</P> <P align=justify>FUNCTION P$(X,Y)</P> <P align=justify>IF X>=Y THEN</P> <P align=justify>Z$=MID$(C$,6,6)+<FONT lang=ZH-CN>“</FONT>1=<FONT lang=ZH-CN>”</FONT>+STR$((SQR(X)+ABS(Y))/2)</P> <P align=justify>ELSE</P> <P align=justify>Z$=MID$(C$,6,6)+<FONT lang=ZH-CN>“</FONT>2=<FONT lang=ZH-CN>”</FONT>+STR$(INT(X+Y)*100)</P> <P align=justify>END IF</P> <P align=justify>P$=Z$</P> <P align=justify>END FUNCTION</P> <P align=justify><FONT lang=ZH-CN>若对变量</FONT>A<FONT lang=ZH-CN>、</FONT>B<FONT lang=ZH-CN>分别输入</FONT>16<FONT lang=ZH-CN>和</FONT>-3<FONT lang=ZH-CN>，则输出结果为</FONT>__(2)__<FONT lang=ZH-CN>。</FONT></P> <P align=justify><FONT lang=ZH-CN>若对变量</FONT>A<FONT lang=ZH-CN>、</FONT>B<FONT lang=ZH-CN>分别输入</FONT>23.3<FONT lang=ZH-CN>和</FONT>39.5<FONT lang=ZH-CN>，则输出结果为</FONT>__(3)__<FONT lang=ZH-CN>。</FONT></P> <P align=justify>[<FONT lang=ZH-CN>程序</FONT>1.3]</P> <P align=justify>C$=<FONT lang=ZH-CN>“</FONT>0123456789ABCDEF”</P> <P align=justify>I=16</P> <P align=justify>DIM X$(I)</P> <P align=justify>L: INPUT<FONT lang=ZH-CN>“</FONT>S=<FONT lang=ZH-CN>”，</FONT>S</P> <P align=justify>INPUT<FONT lang=ZH-CN>“</FONT>D=<FONT lang=ZH-CN>”，</FONT>D</P> <P align=justify>IF <FONT lang=ZH-CN>（</FONT>S<2’ORS>16 OR D < 0 OR D>32767 THEN</P> <P align=justify>PRINT <FONT lang=ZH-CN>“</FONT>ERROR”</P> <P align=justify>GOTO L</P> <P align=justify>END IR</P> <P align=justify>DO WHILE D<> 0</P>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -