试题 试卷
题型:单选题 题类:常考题 难易度:普通
【bj】高中信息技术综合库——基本数据类型1
Dim c(1 To 26)As Integer
s=Text1.Text
For i=1 To Len(s)
x=Mid(s, i, 1)
If x>="a" Then
t=Asc(x)-Asc("a")+1
Else
t=Asc(x)-Asc("A")+1
End If
①
If c(t)>=Max Then Max=c(t): ②
Next i
Text 2.Text=Chr(f+Asc("A"))
划线处应该填入的正确语句是( )
s = "ABCDEF"
For i = 1 To Len(s)
a = Int(Rnd * 3 + 1)
b = Mid(s, a Mod 6 + 1, 1)
ch = ch + Chr(Asc(b) + 32)
执行该程序后,变量ch的值可能是( )
试题篮