题型:综合题 题类:常考题 难易度:困难
浙江省诸暨中学2018-2019学年高二上学期信息技术10月阶段性考试试卷
Private Sub Command1_Click()
Dim result As String, s As String, c As String
Dim n As Integer, i As Integer, j As Integer
s = Text1.Text
Text2.Text = ""
For i = 1 To Len(s)
If n >= 65 And n <= 90 Or n >= 97 And n <= 122 Then
End If
Next i
Text2.Text = result
j = 2
c = Mid(result, 1, 1)
Do While j <= Len(result)
If Mid(result, j, 1) < c Then c = Mid(result, j, 1)
Loop
Text3.Text =
试题篮