【（求VB代码！---高手入）将一个正整数分解质因数，例：输入90，打印出90=2*3*3*5有这样的提示：对N进行分解质因数，应先找到一个最小质因数K，后按以下步骤完成：1，若该质因数恰为N，则】
更新时间： 2025-08-18 07:26:05
1人问答
问题描述：
（求VB代码！---高手入）将一个正整数分解质因数，例：输入90，打印出90=2*3*3*5有这样的提示：对N进行分解质因数，应先找到一个最小质因数K，后按以下步骤完成：1，若该质因数恰为N，则说明分解质因数的过程已经结束，打印出即可；2，若N<>K，但N可被K整除，应打印出K的值，并用N除以K的商，作为新的正整数N，重复执行第一步；3，若N不能被K整除，则用K+1作为N的值，重复执行第一步。————————小弟实在不知道从哪儿入手，帮帮忙吖！~~~对的有追加分！~~~~
黄有志回答：
需要2个文本框text和2个按钮command（一个计算一个清除）Dimx,a,b,kAsStringPrivateSubCommand1_Click()a=Val(Text1.Text)x=2Ifa<=1Ora>Int(a)ThenIfa=1ThenText2.Text="它既不是质数，也不是合数"ElseMsgBox"请您先输入数据",vbOKOnly+vbInformation,"友情提示"EndIfElseDoWhilea/2=Int(a/2)Anda>=4Ifb=0ThenText2.Text=Text2.Text&"2"b=1ElseText2.Text=Text2.Text&"*2"EndIfa=a/2k=aLoopDoWhilea>1Forx=3ToSqr(a)Step2DoWhilea/x=Int(a/x)Anda>=x*xIfb=0ThenText2.Text=Text2.Text&xb=1ElseText2.Text=Text2.Text&"*"&xEndIfa=a/xLoopNextk=aa=1LoopIfb=1ThenText2.Text=Text2.Text&"*"&kElseText2.Text="这是一个质数"EndIfEndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSub以上就是了，不过没有完善呵呵但是已经可以满足你说的要求了
其它推荐
其它推荐
最新更新
精品分类
优秀其它推荐
热门其它