资源描述：
《逆反素数设计报告.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、24逆反素数设计报告学院xxx班级xxx学号xxx姓名xxx成绩一、设计思路1.要达到的目的①在文本框中输入一整型数据，判断该数据是否为素数，并显示相关信息。②如果是素数则判断是否为可逆素数，并显示相关信息。③如果此整数既为素数又为可逆素数，则在判断其加一之后的偶数可分解为多少对素数和，并显示相关信息。⑥判断是否为素数设计成子过程。⑦将数据倒置运用数组。，要有字符串处理代码。2.关键问题的解决①判断输入的是否为素数。用u=Text1.Text任命素数，调用sub函数判断是否原数为素数。②子过程的运用答：子过程中定义的数要在主过程中有初值，否则定义的数为空值。③判断其加
2、一之后的偶数可分解为多少对素数和。For<循环变量>=<初赋值>To<终值>应用，字符串的连接。④如何让d能自动换行？答：将multiline设置为true。二、模块之间的调用关系，或程序流程图运用调用Command1判断是否为素数对原素数的倒置子过程进行判断数组，字符串处理代码判断是否为可逆素数将偶数拆为两素数相加调用调用子过程判断是否为素数子过程判断是否为素数三、部分程序关键源代码及注释PrivateSubCommand1_Click()524DimuAsInteger,xAsIntegeru=Val(Text1.Text)IfTrim(Str(u))<>Text
3、1.TextThen‘对于输入的不是数值型的提示MsgBox"您输入的不是数值型，请重新输入!"EndIfc=u‘因为u要变，后面还要用到最初的u值，所以要将u先付给cCallmysub(u,i,x)‘子过程调用过程Ifx=0ThenText2.Text="原数不为素数"ElseDimt(99999)AsString‘定义数组Fori=1ToLen(Text1.Text)t(i)=Mid(Text1.Text,i,1)‘给原输入数据排好顺序，以便倒置NextFori=1ToLen(Text1.Text)‘将原数据倒置a=t(i)+aNextu=Val(a)Callmy
4、sub(u,i,x)‘再次调用子过程进行判断倒置后是否为素数Ifx=0ThenText2.Text="原数为素数但不为可逆素数"Elsee=c+1DimdAsString,kAsInteger,vAsString,jAsIntegerForj=1Tocu=jCallmysub(u,i,x)Ifx=1Thenu=e–j输入数据加1后偶数分为素数的和的过程Callmysub(u,i,x)Ifx=1Thenk=e-jv=Str(j)&"+"&Str(k)‘字符串的连接d=d&vEndIfEndIfNextText2.Text="原数为可逆素数，将其加一之后的偶数可分解为两素
5、数之和，以下是所有情况："+dEndIfEndIfEndSubPrivateSubCommand2_Click()Text1.Text=""清空text1Text1.SetFocus焦点出现在text1524DimuAsInteger,xAsIntegeru=Val(Text1.Text)IfTrim(Str(u))<>Text1.TextThenMsgBox"您输入的不是数值型，请重新输入!"EndIfc=uCallmysub(u,i,x)Ifx=0ThenText2.Text="原数不为素数"ElseDimt(99999)AsStringFori=1ToLen(T
6、ext1.Text)t(i)=Mid(Text1.Text,i,1)NextFori=1ToLen(Text1.Text)a=t(i)+aNextu=Val(a)Callmysub(u,i,x)Ifx=0ThenText2.Text="原数为素数但不为可逆素数"Elsee=c+1DimdAsString,kAsInteger,vAsString,jAsIntegerForj=1Tocu=jCallmysub(u,i,x)Ifx=1Thenu=e-jCallmysub(u,i,x)Ifx=1Thenk=e-jv=Str(j)&"+"&Str(k)d=d&vEndIfEn
7、dIfNextText2.Text="原数为可逆素数，将其加一之后的偶数可分解为两素数之和，以下是所有情况："+dEndIfEndIfEndSub对于第二项创新，只需再添加一个command2控件（判断）然后再将command1的程序再进行一遍即可。PrivateSubmysub(uAsVariant,iAsVariant,xAsVariant)‘子过程的调用过程524Ifu=0Oru=1Thenx=0ElseFori=2ToSqr(b)‘对于是否为素数的判断IfbModi=0Thenx=0ExitForElsex=1EndIfNextEndIfEn
