VB编程题，麻烦教一下

来源：百度知道 编辑：UC知道 时间：2024/09/26 20:22:36
Private Sub Command1_Click()
Dim n As Integer, num() As Integer, js As Integer, z As Integer, i As Integer
n = Text1
Call zhiyin(n, num)

End Sub

Private Sub zhiyin(x As Integer, np() As Integer)
Dim i As Integer, k As Integer, j As Integer
For i = 2 To Sqr(n)
k = k + 1
ReDim Preserve np(k)
If n Mod i = 0 Then
For j = 2 To Sqr(i)
If j Mod i = 0 Then Exit For
np(k) = i

Next j
End If
Next i
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End

End Sub
求出给定正整数的所有质因子，并将该数表示成质因子（质因子均带有指数幂）的乘积。例如：342=2^1*3^2*19^1

质因子带上指数幂那块儿我不会编~~麻烦帮个忙

我分析了一下你的程序，毛病太多，没有修改，我给你重新编了一个，你copy下来就能用，或者做参考你把自己的那一个整好吧！
Dim A As Integer, I As Integer, B As Integer
Private Sub Form_Click()
Form1.AutoRedraw = True
Cls
Dim Su As Boolean, J As Integer
Randomize
A = Int(InputBox("一个正整数", "输入", Int(Rnd * 1000 + 1)))
B = A
Print B; "=";
For I = 1 To A
Su = True
If I > 3 Then
For J = 2 To Sqr(I)
If I Mod J = 0 Then
Su = False
Exit For
End If
Next
End If
If I = 1 Then
Print I;
ElseIf Su Then
Dim No As Integer
No = 0
Do While B Mod I = 0
No = No + 1
If No = 1 Then Print "*"; I;
B = B \ I
Lo