早教吧作业答案频道 -->其他-->
VB求一个数的质数因子错误PrivateSubCommand1Click()DimaAsIntegerDimkAsIntegerDimiAsIntegera=InputBox("输入")Fori=1ToaIfaModi=0Then'判断为因子后执行判断素数Fork=2Toi-1IfiModk=0The
题目详情
VB 求一个数的质数因子 错误Private Sub Command1_Click() Dim a As Integer Dim k As Integer Dim i As Integer a = InputBox("输入") For i = 1 To a If a Mod i = 0 Then '判断为因子后执行判断素数 For k = 2 To i - 1 If i Mod k = 0 Then '判断不是素数后 Exit For '结束当前循环 Else Print Str(i) '否则输出该素数因子 End If Next End If Next End Sub 总是出现错误啊!!!能不能帮我看看怎么改
▼优质解答
答案和解析
Private Sub Command1_Click() Dim a As Integer Dim k As Integer Dim i As Integer Dim f As Boolean a = InputBox("输入") For i = 1 To a If a Mod i = 0 Then '判断为因子后执行判断素数 For k = 2 To i - 1 If...
看了VB求一个数的质数因子错误Pr...的网友还看了以下:
下列说法中正确的个数是()①合数的因数至少有3个②能被1和它本身整除的数,叫素数③奇数一定是素数, 2020-06-03 …
关于七年级下册因式分解的题目1.在多项式①x2+2y2,②a2-b2,③-x2+y2,④-a2-b 2020-06-03 …
已知M被分解素因数为M=A*B*C,其中ABC都是互不相同的素数,那么在M的因数中是合数的有()A 2020-06-25 …
100的素因数有()A.1个B.2个C.3个D.4个100以内同时具有只含有素因数2、3、5的合数 2020-06-25 …
4.如果a=2×3×5,那么数a的所有因数中,合数有.()A.1个B.2个C.3个D.4个5.下列 2020-07-31 …
下列说法中正确的个数是()①合数的因数至少有3个②能被1和它本身整除的数,叫素数③奇数一定是素数, 2020-07-31 …
四个有理数的积是负数,则这四个数中负因数有()A.1个B.2个C.3个D.1个或3个 2020-07-31 …
下列4个多项式作因式分解,有①x2(m-n)2-xy(n-m)2=(m-n)2(x2+xy);②a2 2020-11-03 …
某个精原细胞中一对同源染色体上某个基因的一条链发生突变,则该精原细胞分裂产生的四个精细胞中,含有突变 2020-12-18 …
下列从左到右的变形中是因式分解的有()①x2-y2-1=(x+y)(x-y)-1;②x3+x=x(x 2020-12-25 …