考试总分:8分
考试类型:模拟试题
作答时间:60分钟
已答人数:967
试卷答案:有
试卷介绍: 2005年上半年程序员下午试题
A(1)___'用户选择的驱动器反映到目录列表框中EndSubPrivateSubDirl_Change()Filel.Path=___
B(2)___'用户选择的文件改变文件列表框内容EndSubPrivateSubsum_Click()Dim___
C(3)___AsNewFileSystemobject,___
D(4)___AsTextStream'创建自己的文件系统对象,说明自己的文本流对象IfRight(Dirl.Path,1)=″/″ThenSetmyTextFile=fso.OpenTextFile(Dirl.Path+Filel.FileName)ElseSetmyTextFile=fso.OpenTextFile(Dirl.Path+″1″+Filel.FileName)EndIfS=0Dod=Val(myTexFile.ReadRow)S=S+dLoopWhile___
E(5)___Textl.Text=Str$(S)EndSub[15分]
A(1)___){if(m﹥n)m=m-n;elsen=n-m;}___
B(2)___;}[函数2.2说明]函数longfun2(char*str)的功能是:自左至右顺序取出非空字符串str中的数字字符形成一个十进制整数(最多8位)。例如,若字符串str的值为"f3g8d5.ji2e3p12fkp",则函数返回值为3852312。[函数2.2]longfun2(char*str){inti=0;longk=0;char*p=str;while(*p!='/0'&&
C(3)){if(*p?='0'&&*p?='9'){k=___
D(4)___+*p-'0';++i;}___
E(5)___;}Returnk;}[15分]
A(1)___;/*令p指向根结点的右子树*/if(!p)returnNULL;/*设置pre的初值*/___
B(2)___;/*查到"最左下"结点*/Pre=p;p=___
C(3)___;}if(___
D(4)___==root)/*root的右子树根为"最左下"结点*/pre->rch=NULL;else___
E(5)___=NULL;/*删除以"最左下"结点为根的子树*/returnp;}[15分]
A(1)___;while(j<N-R+1&&!FOUND){for(k=0;___
B(2)___&&a[i][j+k]==0;k+1;/*查找第i排连续的R个空座位*/if(k>=R){/*找到第i排连续的R个空座位*/for(c=0;c<R;c++){/查找其余的R*(R-1)个座位*/for(t=1;t<R;t++)if(a[___
C(3)___][j+c]!=0break;if(t<R)break;}/*for*/If(___
D(4)___)FOUND=1;}/*if*/___
E(5)___;}/*while*/}/*fori*/if(FOUND){*row=i-1;*col=j-1;/*计算正方形区域的左上角坐标*/return1;}return0;}[15分]
A(1)___="甲地"'在ST组合框中设置首个列表项……'在ST和SP中设置其他列表项(若干行语句)……'对数组d(i)赋值(若干行语句)Fori=0toST.___
B(2)___-1'对ST中各列表项循环Forj=0toSP.___(2)___-1'对SP中各列表项循环(这两处填写内容相同)P(i,j)=___
C(3)___NextjNextiEndSubPrivateSubquery_Click()i=___
D(4)___'组合框ST中选择的当前项编号j=……'组合框SP中选择的当前项编号(语句略)___
E(5)___=str﹩(p(i,j))EndSub[15分]
A(1)___{publicvoidpaint(___
B(2)___){g.drawString(message,10,20);message="welcomeback!";}Publicvoid___
C(3)___(){message="Welcome!";}Private___
D(4)___message;}[HTML文档]HTMLTestHelloAppletPageTestHelloApplet小程序〈br><appletcodebase="."code="___
E(5)___"name="TestApplet"width="400"height="300">[15分]
A(1)___Month{Jan,Feb,May,Jun,Jun,Jul,Aug,Sep,Oct,Nov,Dec};classDate{public;Date(intyear,Monthm_month){___
B(2)___=year;if(m_monthDec)month=Jan;elsemonth=m_month;};~Date(){};boolIsLeapYear(){return((year%4==0&&year%100!=0||year%400==0);};IntCaculateDays(){Switch(___
C(3)___){CaseFeb:{If(___
D(4)___)return29;elsereturn28;}caseJan:caseMar:caseMay:caseJul:caseAug:caseOct:caseDec:return31:caseApr:caseJun:caseSep:caseNov:return30;}};Private:intyear;Monthmonth;};Voidmain(){Dateday(2000,Fed);Cort<<day.___
E(5)___();}[15分]