题型：综合题 题类：常考题 难易度：普通
浙江省东阳中学2018-2019学年高一下学期信息技术6月月考试卷
Private Sub Command1_Click()
Dim result As String, s As String, c As String, cmax as string
Dim i As Integer, j As Integer
s = Text1.Text
Text2.Text = ""
For i = 1 To Len(s)
If c >= "A" And c <= "Z" Or c >= "a" And c <= "z" Then
result =
End If
Next i
Text2.Text = result
j = 2
cmax = Mid(result, 1, 1)
Do While j <= Len(result)
If Mid(result, j, 1) > cmax Then cmax = Mid(result, j, 1)
Loop
Text3.Text = cmax
End Sub
试题篮
