作者mick1031 (Mick)
看板Visual_Basic
标题Re: [VBA ] 请问一下关於一个回圈还有.....的问题
时间Sun Jun 24 03:05:43 2007
Option Explicit
Option Base 1
Sub Document_Open()
Dim a, d, c, i As Variant '有更好的资料型态吗...我之前打integer 只能打到32766
超过就溢位
a = Val(inputbox("请输入大於1的正整数", "质数检验器")) '输入的a作为测试的数字
d = 0 '当作是一个辅助数吧....
For i = 1 To a
c = a Mod i '将a除以1到a c为其余数
If c = 0 Then '若是c=0则为整除,此时i为a的因数
d = d + 1 '那麽d就由0+1
End If
Next i
If d = 2 Then '若是d=2表示有2个因数必为1和本身a
MsgBox a & "是个质数"
MsgBox "因数只存在1和" & a & "本身"
Else
MsgBox a & "非质数,为合数" '若不是则代表有更多的因数
MsgBox "共含有" & " " & d & " " & "个因数" 'd则代表有几个因数
MsgBox 这里我想补一行...表示出所有因数
也就是a mod i 为 0 地时候 i的值
可是不知道该如何写出来....
这次就再次拜托各位好心的大大
End If
End Sub
上一篇想法我放弃了.....想到质数必定只有2个因数
所以我换这一个
目前用我所会的想出这个样子.....若是有错误还是有漏洞...烦请提示...
谢谢各位~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.71.2.194