Option Base 1
Option Explicit
Dim a(10) As Integer, j As Integer
Dim i As Integer
Private Sub Command1_Click()
Randomize
For i = 1 To 10
a(i) = Int((99 - 1 + 1) * Rnd + 1)
List1.AddItem a(i)
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, b(10, 10) As Integer
For i = 1 To 10
Text1 = Text1 + CStr(a(i)) + "="
Call factor(a(i), i, b(i, j))
j = 1
Do While b(i, j)0
If b(i, j + 1)0 Then
Text1 = Text1 & b(i, j) & "*"
Else
Text1 = Text1 & b(i, j)
End If
j = j + 1
Loop
Text1 = Text1 & Chr(13) & Chr(10)
Next i
End Sub
Private Sub Command3_Click()
List1.Clear
Text1 = ""
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub factor(ByVal n As Integer, m As Integer, fAC() As Integer)
j = 1
For i = 2 To n
Do
If n Mod i = 0 Then
fAC(m, j) = i
j = j + 1
n = n / i
End If
Loop Until nInt(n)
End Sub
运行后说“编译错误 类型不匹配:缺少数组或用户定义类型”
分解质因子
|