Dim a()As Integer
Private Sub Command1_Click()
Dim i%, a(100) As Integer
For i = 1 To 100
a(i) = Int(Rnd * 90 + 10)
Next i
For i = 1 To 100
Text1.Text = Text1.Text & a(i) & " "
If i Mod 10 = 0 Then
Text1.Text = Text1.Text & vbCrLf
End If
Next i
End Sub
Private Sub command2_click()
Dim i%, k%, sum%, c() As Integer
Call sushu(a, k%, sum%, c)
For i = 1 To UBound(c)
Text2.Text = Text2.Text & c(i) & ""
If i Mod 10 = 0 Then
Text2.Text = Text2.Text & vbCrLf
End If
Next i
Text3.Text = sum
Text4.Text = k
End Sub
Public Sub sushu(b() As Integer, m%, s%, d() As Integer)
Dim i%, j%, n%
For j = 2 To b(i) - 1
For i = 1 To 100
For n = 1 To 100
If b(i) Mod j0 Then
b(i) = d(n)
m = m + 1
s = s + d(n)
End If
Next n
Next i
Next j
End Sub
Private Sub Command3_Click()
End
End Sub
|