
(1)实现上述功能的VB程序如下,请在划线处填入合适代码。
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
result =result +: Mid(s, i, 1)
Text2.Text = result
End If
Next ij=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 =c
End Sub
(2)程序运行时,在文本框Text3中显示的“q”字符是Text2中的第_______个“q”。

同类型试题

y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2


y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2

