📄 19982.htm
字号:
<SCRIPT LANGUAGE="JavaScript" SRC="../../../-fs0/sys/pop-up.js"></SCRIPT><!-- saved from url=(0044)http://oldchild.myrice.com/spks/cc/cc98X.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"> 》<a href="../../index.htm">软件水平(资格)考试</a> 》<a href="../index.html">历年试题</a></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" --><B><P align=center><FONT size=5></FONT><FONT lang=ZH-CN face=宋体 color=#0000ff size=6>1998年度初级程序员级下午试卷</FONT></P></B><P style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><BR> 从下列的 3 道试题(试题一至试题三)中任选1道解答。如果解答的试题数超过 1 道,</P><P style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px">则题号小的解答有效。</P><P style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><BR><B>试题一 </B><BR> 阅读以下 BASIC 程序,将应填入__n__处的字句,写在答卷的对应栏内。<BR>[<B>程序1.1]</B><BR> S = 0<BR> N = 0<BR> LI: INPUT Y<BR> IF Y >= 0 THEN GOTO L2<BR> S = S + Y<BR> N = N + 1<BR> L2: IF N < 50 THEN GOTO L1<BR> PRINT "S="; S<BR> END<BR> 程序所完成的功能为__1__ 。<BR><B>[程序1.2]</B><BR> A = 10: B = -3: C = 2<BR> U = A > B AND C <= A OR A <= B AND C > A<BR> V = A <= B AND C <= A OR A > B AND C > A<BR> PRINT "U + V ="; U + V<BR> AS = "A4 " : B$ = "ADE" : C$ = "AD"<BR> P = NOT B$ > C$ OR AS = C$ AND A$ < B$<BR> PRINT "P="; P<BR> END<BR> 设真为-1,假为 0 。程序执行后,输出结果为__2__ 。<BR><B>[程序1.3]</B><BR> DIM A (5, 5)<BR> FOR I = 1 TO 5<BR> FOR J = 1 TO 5<BR> READ A(I,J)<BR> NEXT J<BR> RESTORE<BR> NEXT I<BR> DATA 0, 1, 2, 3, 4<BR> FOR I- 1 TO 4<BR> FOR J = I + 1 TO 5<BR> A(J,I) = A(I,J)<BR> NEXT J<BR> NEXT I<BR> FOR I = 1 TO 5<BR> FOR J = 1 TO 5<BR> PRINT A(I,J);<BR> NEXT J<BR> PRINT<BR> NEXT I</P><P style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"> END<BR><B>[程序1.4]</B><BR> DECLARE SUB FLP (P)<BR> DECLARE FUNCTION FMP (P)<BR> COMMON SHARED S, Q<BR> S = 0<BR> Q = 200<BR> FOR I = 1 TO 6<BR> CALL FLP (I)<BR> NEXT I<BR> PRINT "S=" ; S, "Q="; Q<BR> DATA 63,15,-1,48,8,99,16,8,41<BR> END<BR></P><P style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"> SUB FLP (P)<BR> IF P <= 3 THEN<BR>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -