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

《VB 判断该字符串是否是“回文”个位数 + 十位数 + 百位数 = 9》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、装订线考试课程：2005级《高级语言程序设计》VB机试考试时间：60分钟试卷总分100分一.调试程序：（程序存盘文件名Test31.frm、Test31.VBP）(40分)评分标准：1.每个改错点：7分2.正确存盘：5分PrivateSubCommand1_Click()DimsAsString,c1AsString*1,c2AsString*1DimiAsInteger,flagAsBooleans=InputBox("请输入一个串","判断是否是回文")n=Len(s)'原为n=10flag=TrueFori=1ToInt(n/2)c1=Mid(

2、s,i,1)'原为c1=c2=Mid(s,n-i+1,1)Ifc1<>c2Thenflag=False'原为flag=EndIfNextiIfflag=TrueThen'原为ifthenMsgBoxs&"是回文"ElseMsgBoxs&"不是回文"EndIfEndSubPrivateSubForm_Load()Form1.Caption="回文判断"’或在属性窗口中设'原空缺EndSub二.编程题参考答案（程序存盘文件名Test32.frm、Test32.VBP）(60分)评分标准：1.文件存盘正确5分2.正确设计界面5分3.正确设计各按钮的可用性5

3、分4.正确设计“产生”按钮的功能15分5.正确排序并输出排序结果15分6.文件操作及结果正确10分7.程序结构清晰、合理5分第3页共3页参考程序：Dimn%Dima(1To30)AsIntegerPrivateSubCommand1_Click()Dimi%,j%,x%,gewei%,shiwei%,baiwei%Randomizen=30Fori=1TonDox=Int(Rnd*900+100)gewei=xMod10shiwei=(x10)Mod10baiwei=x100Ifgewei+shiwei+baiwei=9Thena(i)=xExi

4、tDoEndIfLoopNextij=1Fori=1TonPicture1.PrintTab(j*5);a(i);IfjMod10=0Thenj=0j=j+1NextiCommand1.Enabled=FalseCommand2.Enabled=TrueEndSubPrivateSubCommand2_Click()Dimi%,j%Fori=1Ton-1Forj=1Ton-iIfa(j)>a(j+1)Thent=a(j)a(j)=a(j+1)第3页共3页a(j+1)=tEndIfNextjNexti'"排序后的结果："j=1Fori=1TonPict

5、ure2.PrintTab(j*5);a(i);IfjMod10=0Thenj=0j=j+1NextiCommand2.Enabled=FalseCommand3.Enabled=TrueEndSubPrivateSubCommand3_Click()Open"TEST32out.txt"ForOutputAs#1Fori=1TonPrint#1,a(i);IfiMod10=0ThenPrint#1,'输出10个数后换行。NextiClose#1EndSubPrivateSubForm_Load()Command1.Enabled=TrueComma

6、nd2.Enabled=FalseCommand3.Enabled=FalseEndSub第3页共3页