第1个回答 2013-05-22
Sub Ss(M As Integer)
Dim I As Integer
Print M & "=";
Do While M <> 0
For I = 2 To M
If M Mod I = 0 Then
Print I;
M = M \ I
Exit For
End If
Next
If M = 1 Then Exit Do
Print "*";
Loop
End SubPrivate Sub Command1_Click()dim M as integerM=val(inputbox("输入一个整数:"))
Ss (M)
End Sub本回答被网友采纳
Dim I As Integer
Print M & "=";
Do While M <> 0
For I = 2 To M
If M Mod I = 0 Then
Print I;
M = M \ I
Exit For
End If
Next
If M = 1 Then Exit Do
Print "*";
Loop
End SubPrivate Sub Command1_Click()dim M as integerM=val(inputbox("输入一个整数:"))
Ss (M)
End Sub本回答被网友采纳
第2个回答 2013-05-22
调用子过程Ss
VB中求最大公约数的方法
Private Function gcd(x As Integer, y As Integer) As Integer Dim div As Integer If x < y Then div = x Else div = y End If While div > 1 If x Mod div = 0 And y Mod div = 0 Then gcd = div Exit Function Else div = div - 1 End If Wend gcd = 1 End Function...
VB中判断闰年和判断水仙花数的程序是什么?
程序分析：对n进行分解质因数，应先找到一个最小的质数k，然后按下述步骤完成：(1)如果这个质数恰等于n，则说明分解质因数的过程已经结束，打印出即可。(2)如果n<>k，但n能被k整除，则应打印出k的值，并用n除以k的商,作为新的正整数你n,重复执行第一步。(3)如果n不能被k整除，则用k+1作为...
c++编程题 编写函数实现求n!,主程序要求输入n的值,用函数调用的方式求n...
if(n==1) m=1; else m=n*multi(n-1); return m;} 豪尔 | 发布于2009-12-13 举报| 评论 0 0 为您推荐: strlen函数 编写product函数 vb编写一个求n!的函数 编写函数fun其功能是 c语言自定义函数格式 excel函数公式大全 if函数多个条件怎么用 幂函数 excel的if函数怎么用 三角函数 ...
相似回答
