试题 试卷
题型：单选题 题类：常考题 难易度：普通
【bj】高中信息技术综合库——面向对象程序设计 VB开发工具
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"))
划线处应该填入的正确语句是（ ）
Private Sub Commandl_Click()
Dim a As String
a ="r"
a=Chr(Asc(a) - 4)
Label1. Caption =a
End Sub
运行程序后， Label1中的显示结果为（ ）
s=1
for i in range(_):
s=s+i print(s)
试题篮
