VB 判断该字符串是否是“回文”个位数 十位数 百位数 = 9.doc

考试课程:2005级《高级语言程序设计》VB机试考试时间:60分钟试卷总分100分调试程序:(、)(40分)评分标准:每个改错点:7分正确存盘: mand1_Click()DimsAsString,c1AsString*1,c2AsString*1DimiAsInteger,flagAsBooleans=InputBox("请输入一个串","判断是否是回文")n=Len(s) '原为n=10flag=TrueFori=1ToInt(n/2)c1=Mid(s,i,1) '原为c1=c2=Mid(s,n-i+1,1)Ifc1<>c2Thenflag=False '原为flag=EndIfNextiIfflag=TrueThen '原为ifthenMsgBoxs&"是回文"ElseMsgBoxs&"不是回文"EndIfEndSubPrivateSubForm_Load()="回文判断"’或在属性窗口中设 '原空缺EndSub编程题参考答案(、)(60分)评分标准:文件存盘正确 5分正确设计界面 5分正确设计各按钮的可用性 5分正确设计“产生”按钮的功能 15分正确排序并输出排序结果 15分文件操作及结果正确 10分程序结构清晰、合理 5分参考程序:Dimn%Dima(1To30)mand1_Click()Dimi%,j%,x%,gewei%,shiwei%,baiwei%Randomizen=30Fori=1TonDox=Int(Rnd*900+100)gewei=xMod10shiwei=(x\10)Mod10baiwei=x\100Ifgewei+shiwei+baiwei=9Thena(i)=xExitDoEndIfLoopNextij=1Fori=(j*5);a(i);IfjMod10=0Thenj=0j=j+==mand2_Click()Dimi%,j%Fori=1Ton-1Forj=1Ton-iIfa(j)>a(j+1)Thent=a(j)a(j)=a(j+1)a(j+1)=tEndIfNextjNexti'"排序后的结果:"j=1Fori=(j*5);a(i);IfjMod10=0Thenj=0j=j+==mand3_Click()Open""ForOutputAs#1Fori=1TonPrint#1,a(i);IfiMod10=0ThenPrint#1,'输出10个数后换行。NextiClose#1EndSubPrivateSubForm_Load()===FalseEn