试题 试卷
题型：单选题 题类：常考题 难易度：普通
高中信息技术综合库赋值语句1
s=56
s1=s\10
s2=s Mod 10
s=s1+s2*10
Print "s="; s
Private Sub Command1_Click()
Dim a(1 To 5) As Integer
a(5)=Val(Text1.text)
For i=4 To 1 Step -1
a(i)=a(i+1)\2
Next i
Label1.caption=str(a(1))
End sub
在文本框Text1中输入“100”,单击命令按钮Command1后,标签Label1中显示的内容是（ ）
n = Len(Text1.Text)
For i = 1 To n
a(i) = Mid(Text1.Text, i, 1)
Do While n > 1
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)的值为（ ）
试题篮
