过程实验报告

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《过程实验报告》，欢迎阅读！

过程作业 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.wddqxz.cn/31ed98321fd9ad51f01dc281e53a580217fc507e.html