搜索
Private Sub Command1 _ Click ()
Dim n As String,s As Integer,jg As String,a(241)As Integer
n = Text1. Text
cd= Len(n)
For i = 1 To cd
a(i)= Val(Mid(n,i,1))
Next i
s = Val(Text2. Text)
For i = 1 To s
j=1
Do While j < cd
If a(j)> a(j+1)Then
For k = j To cd
a(k)= a(k+1)
Next k
Exit do
End If
j+1
Loop
cd = cd – 1
Next i
For i = 1 To cd
jg = jg+ CStr(a(i))
Next i
Label3. Caption = jg
End sub
运行该程序，若在文本框Text1中输入175438，文本框Text2中输入4，则标签Label3中显示的内容是（ ）
| A．78 | B．54 | C．38 | D．13 |
同类型试题
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
