Private Sub Com1Click()
Dim n As Integer, i As Integer, s As String
s = ""
For i = 1 To n
If i <= n \ 2 + 1 Then
s = s + Str(2 * i - 1)
Else
s = s +
End If
Next i
Text2.Text = s
End Sub
微信扫码预览、分享更方便