过程作业 5. 程序代码如下: Function ish(ByVal n$) As Boolean Dim i% ish = True For i = 1 To Len(Trim(n)) \ 2 If Mid(n, i, 1) <> Mid(n, Len(Trim(n)) - i + 1, 1) Then ish = False End If Next End Function Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If ish(Text1.Text) Then Label3.Caption = Label3.Caption & Text1.Text & "☆" & vbCrLf Else Label3.Caption = Label3.Caption & Text1.Text & vbCrLf End If Text1.Text = "" End If End Sub 本文来源:https://www.wddqw.com/doc/31ed98321fd9ad51f01dc281e53a580217fc507e.html