试题 试卷
题型：单选题 题类：常考题 难易度：困难
算法与程序设计
s=text1.text
For i=1 to len(s)
c=mid(s,i,1)
If c>=″a″ and c<=″z″ then
n=asc(c)-asc(“a”)+1
zm(n)=zm(n)+1
End if
Next i
已知数组zm中各元素初值均为0,若文本框text1中输入的内容是“One world, one dream”,执行该程序段后,zm(15)的值是（ ）
请在程序的划线处填写合适的代码。
Private Sub Command1_Click()
Dim a As String,s As String
Dim r As Integer,x As Integer
x = Val(Text1.Text)
s = ""
Do While x > 0
▲ ‘①
x = x \ 16
If r > 9 Then
a = Chr(r + 55)
Else
a = Str(r)
End If
▲ ‘②
Loop
Text2.Text = s
End Sub
图 a
图 b
请回答下列问题：
试题篮
