Private Sub Command1_Click()
Dim s As String, f As Boolean, L As Integer
s = Text1.Text
j = Len(s)
i = 1
Do while
i = i+1
j = j-1
Loop
If Then Print "是回文串" Else Print " 不是回文串"
End Sub
在画线处填入合适代码,使程序能正常运行。
微信扫码预览、分享更方便