Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As String
n = Val(Text1.Text)
s = “ ”
For i = 1 To '(1)
If i <= n Then s = s + Str(i)
Else
'(2)
Next i
Text2.Text= s
End Sub
程序中加框(1)处应改正为;
加框(2)处应改正为。
微信扫码预览、分享更方便