＝＝＝＝＝＝＝＝＝＝＝＝Private Sub Command1_Click()Text2.Text = ""Dim a, i As Integer, n, s As Stringa = Split(Text1.Text, vbCrLf)For Each n In as = s & nIf n = StrReverse(n) Then s = s & "★"s = s & vbCrLfNextText2.Text = sEnd Sub
匿名回答于2024-05-21 14:33:09
