VB输入一个正整数N把它分解成质因子相乘的形式.docx
-
资源ID:3168451
资源大小:36.30KB
- 资源格式: DOCX
下载积分:6.99金币
友情提示
2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。
|
VB输入一个正整数N把它分解成质因子相乘的形式.docx
VB输入一个正整数N把它分解成质因子相乘的形式输入一个正整数N,把它分解成质因子相乘的形式。如:输入36,输出36=1*2*2*3*3 Private Sub Command1_Click Dim i As Integer, s As String, x As Integer x = InputBox("") i = 2 s = Str(x) + "=1*" While (x <> 1) If x Mod i = 0 And check(i) Then s = s + Str(i) + "*" x = x / i i = 1 End If i = i + 1 Wend Print Left(s, Len(s) - 1) End Sub Public Function check(M As Integer) As Boolean Dim i As Integer i = 2 Do Until (M Mod i = 0) Or (i = M - 1) i = i + 1 Loop If M Mod i = 0 And M <> 2 Then check = False Else check = True End Function