VB输入一个正整数N把它分解成质因子相乘的形式.docx
《VB输入一个正整数N把它分解成质因子相乘的形式.docx》由会员分享,可在线阅读,更多相关《VB输入一个正整数N把它分解成质因子相乘的形式.docx(1页珍藏版)》请在三一办公上搜索。
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 输入 一个 正整数 分解 因子 相乘 形式
链接地址:https://www.31ppt.com/p-3168451.html