'给定一个正整数，求它的质因子，并按类似于28=2*2*7这样的格式输出。
'【代码如下】
Option Explicit
Private Sub command1_click()
Dim N As Integer, i As Integer
Cls
N = InputBox("请输入一个正整数")
Print N; "=";
i = 2
Do While N <> 1
Do While N Mod i = 0
N = N / i
If N <> 1 Then
Print i; "*";
Else
Print i
End If
Loop
i = i + 1
Loop
End Sub
'【代码如下】
Option Explicit
Private Sub command1_click()
Dim N As Integer, i As Integer
Cls
N = InputBox("请输入一个正整数")
Print N; "=";
i = 2
Do While N <> 1
Do While N Mod i = 0
N = N / i
If N <> 1 Then
Print i; "*";
Else
Print i
End If
Loop
i = i + 1
Loop
End Sub
温馨提示：内容为网友见解，仅供参考
第1个回答 2014-03-23
Dim i As Long
Dim j As Long
Dim ResNum1 As String
For i = 2 To NUMBERICUPDOWN1
If NUMBERICUPDOWN1 Mod i = 0 Then
ResNum1 = i
For j = 1 To Sqr(ResNum1)
If ResNum1 Mod j > 0 Then TEXTBOX1.Text = TEXTBOX1.Text & "," & ResNum1
Next j
End If
Next i
TEXTBOX1.Text = Left(TEXTBOX1.Text, Len(TEXTBOX1.Text) - 1)
MsgBox "质因数分解成功！"
希望对你有帮助，望采纳！我体会到了帮助别人是最快乐的！
抱歉，原来的回答中有误，1不是质数，所以改了一下，希望你能再试一试！本回答被提问者和网友采纳
Dim j As Long
Dim ResNum1 As String
For i = 2 To NUMBERICUPDOWN1
If NUMBERICUPDOWN1 Mod i = 0 Then
ResNum1 = i
For j = 1 To Sqr(ResNum1)
If ResNum1 Mod j > 0 Then TEXTBOX1.Text = TEXTBOX1.Text & "," & ResNum1
Next j
End If
Next i
TEXTBOX1.Text = Left(TEXTBOX1.Text, Len(TEXTBOX1.Text) - 1)
MsgBox "质因数分解成功！"
希望对你有帮助，望采纳！我体会到了帮助别人是最快乐的！
抱歉，原来的回答中有误，1不是质数，所以改了一下，希望你能再试一试！本回答被提问者和网友采纳
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中角度化为弧度的代码?
const PI=3.14159 '定义常数π，这里取5位小数，可以根据需要修改 Dim an as single，result as signle an=30.303312345 '获得输入值 result = an * PI\/180 ‘按原值计算弧度值，保留所有的小数 Text1.Text = Format(result,"0.000") '输出转换后的值，根据需要设置小数位数，这里是保留3位...
相似回答
