试题 试卷
题型:多选题 题类: 难易度:容易
新疆伊犁哈萨克自治州霍城县2023-2024学年高一上学期信息技术10月月考试卷
Dim a(1 To 1 000)As String
Dim b(1 To 2)As Integer
N=Len(Text1.Text)
For i=1 To n
a(i)=Mid(Text1.Text,i,1)
Next i
DO While n>l
If ASC(a(n))>=Asc(a(n-1))Then
m=1
Else
m=2
End If
b(m)=b(m)+1
n=n-1
Loop
数组b各元素的初始值都为0,文本框Text1的内容为“2018Python”。执行程序后,变量b(1)的值为( )
试题篮