s = "Happy 2021/07"
ans = "": f = True: Max = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "a" And ch <= "z" Then
ans = ans + Chr(Asc(ch) - 32)
ElseIf ch >= "0" And ch <= "9" Then
f = False
End If
If Not f And ch > Max Then
Max = ch: f = True
End If
Next i
Label1.Caption = ans + Max
执行该段程序后,标签label1中显示的内容是 ( )