学进去-教育应平等而普惠
试题
类型:操作题
难度系数:0.40
所属科目:高中信息技术
小张基于冒泡排序算法编写了一个VB程序,功能如下:在Text1中输入不超过100个英文字母的字符串,单击“输出”按钮Command1,在Text2中将显示按升序排列后的结果(字母相同时,小写字母在前)。程序运行界面如下图所示。

(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_t
b_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 i
End 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

用户名称
2019-09-19

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

用户名称
2019-09-19
我要答疑
编写解析
解析:

奖学金将在审核通过后自动发放到帐

提交
我要答疑
我要答疑:
提交