
(1)在Text1中输入Excel,则Text2中输出结果为______。
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
Private Sub Command1_ Click()
Dim a(1 To 100) As Integer '记录输入字符的ASCII码值
Dim b(1 To 100) As Boolean '记录字母大小写情况
Dim a_t As String, b_t As Boolean, i As Integer, j As Integer, n As Integer
n = Len(Text1.Text)
For i = 1 To n
a(i) = _________
If a(i) >= Asc("a") And a(i) <= Asc("z") Then
a(i) = a(i) - 32
__________
Else
b(i) = False
End If
Next i
For i = 1 To n - 1
For j = n To i + 1 Step -1
If a(j) < a(j - 1) Or __________Then
a_t = a(j): a(j) = a(j - 1): a(j - 1) = a_tb_t = b(j): b(j) = b(j - 1): b(j - 1) = b_t
End If
Next j
Next i
Text2.Text = ""
For i = 1 To n
If b(i) = True Then
Text2.Text = Text2.Text + Chr(a(i) + 32)
Else
Text2.Text = Text2.Text + Chr(a(i))
End If
Next iEnd Sub

同类型试题

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

