题型:单选题 题类:常考题 难易度:普通
【bj】高中信息技术综合库——枚举算法及程序实现2
Private Sub Command1_Click()
Dim s As String, s1 As String, c As String
s = Text1.Text
For i = 1 To Len(s)
c = Mid(s, i, 1)
s1 = ⑴
For j = ⑵
If c <> Mid(s, j, 1) Then
s1 = s1 + Mid(s, j, 1)
End If
Next j
⑶
Next i
Text2.Text = s
End Sub
a=[30,10,20,11,12,50] d=[0]*6 ; max=0 ; n=len(a) for i in range(1,n): for j in range(i): if a[j]<a[i]: d[i]+=1 if d[i]>max: max=d[i] |
执行程序后,变量max的值是( )
试题篮