Private Sub Cmd1_Click()
Dim n As Integer,i As Integer,s As string
S=“”
For i=1 To n
If i<=n\2+1 Then
Else
S=s+
End if
Next i
Text2.Text=s
End Sub
微信扫码预览、分享更方便