考试总分:7分
考试类型:模拟试题
作答时间:60分钟
已答人数:967
试卷答案:有
试卷介绍: 2008年下半年程序员下午试卷
A(1)、…、A(n-1)组成,串B由m个字符B(0)、B(1)、…、B(m-1)组成,其中n≥m>0。在串A中查找串B的基本算法如下:从串A的首字符A(0)开始,取子串A(0)A(1)…A(m-1)与串B比较;若不同,则再取子串A(1)A
B(2)…A(m)与串B比较,依次类推。例如,字符串“CABBRFFD”中存在字符子串“BRF”(输出3),不存在字符子串“RFD”(输出-1)。在流程图中,i用于访问串A中的字符(i=0,1,…,n-1),j用于访问串B中的字符(j=0,1,…,m-1)。在比较A(i)A(i+1)…A(i+m-1)与B(0)B(1)…B(m-1)时,需要对A(i)与B(0)、A(i+1)与B(1)、…、A(i+j)与B(j)、…逐对字符进行比较。若发现不同,则需要取下一个子串进行比较,依此类推。[流程图][15分]
A(1)~a(n),然后将数据逐行显示在txtSrc中,并设置命令按钮cmdProc可用。4.点击命令按钮cmdProc(运算要求)后弹出菜单。选择菜单项并单击后,进行相应处理并将结果显示在txtObj中,同时将lblObj的标题改为该菜单项表示的处理命令。弹出式菜单“运算要求”的结构如下表所示:一个整数序列的中位数指对该序列进行非递减(增)排列后最中间位置上的元素。若序列长度为偶数,则取中间两个元素的平均值为其中位数。[属性设置]为实现单击命令按钮cmdProc后弹出“运算要求”菜单(procMenu),设计时需将procMenu的(1)属性设置成false。供(1)选择的属性:DefaultEnabledScaleModeStyleVisible[VisualBasic程序代码]Dima()AsInteger,nAsIntegerPrivateSubForm_Load()txtSrc.Text="":txtObj.Text="":(2)=FalseEndSubPrivateSubcmdGendat_Click()'生成正整数序列并存入数组aOnErrorGoToError_handlern=InputBox$("请输入数组元素个数:","输入序列长度")If(niThena(k)=a(i):a(i)=a(0)EndIfNextIfn/2-n\2>0Then'n为奇数时,取中间一个数txtObj.Text=Str$(a((5)))Else'n为偶数时,取中间两个数的平均值txtObj.Text=Str$(Int((a(n\2)+a(n\2+1))/2))EndIfEndSub'其他代码略[15分]