实践8要咋做
捏

Option Explicit
Private Sub Command1_Click()
Dim a As Double
Dim b As Boolean
Dim i As Double
Dim j As Double
Dim k As Double
Cls
a = Int(Val(InputBox("请输入一个正整数")))
If a < 1 Then Exit Sub
For i = 1 To Int(a / 2)
For j = i + 1 To Int(a / 2) + 1
If (i + j) * (j - i + 1) / 2 = a Then
b = True
For k = i To j
Print "" & k;
If k < j Then
Print " ";
Else
Print
End If
Next k
End If
Next j
Next i
If Not b Then Print "NONE"
End Sub

需要什么控件呀？