学进去

用UltraEdit软件查看到某段字符的内码为下图，请问其中一共包含了几个字符（   ）
      

A．7个字符

B．9个字符

C．11个字符

D．13个字符

请依次写出以下资源管理器工具栏中按钮名称。 （6分）

对称宇符串的特征是从左到右读和从右到左读完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下:
N=Len(s)
K=0:j=n
For i =" 1" To  n/2

Nexti
If k =" 0" Then Label1.Caption =”对称” Else Label1.Caption=”不对称”
方框中的代码由以下三部分组成：
j=j-1
If cl <>c2 Then k =" k" + 1
③c1=" Mid(s,i,1)" : c2 = Mid(s,j,1)
代码顺序正确的选项是

A．①③②

B．②③①

C．③②①

D．②①③

在一次学校的运动会上,高一女子100米决赛的成绩已出来，前8名的成绩记录单由于不小心丢掉一张,只剩下7 个成绩,并已按成绩排序，分别是(单位:秒)14.5，15.1，16.5，16.8，17.1，17.5，17.9，后来找到了,请将找到的成绩插入相应的位置,使数据序列仍保持有序,并求出该成绩的名次。根据已有程序段,请补齐流程图中的空格。

程序如下：
Dim a(1 To 8) As Integer
Dim n, i, j, x As Integer
Private Sub Command1_Click()
x = Val(Text2．Text)
If x > a(n) Then
i=n+1
else
i = 1
Do While x > a(i)
i =" i" + 1
Loop
End If
Text3．text=str(i)‘在文本框text3 显示名次
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(Text1．Text)
List1．AddItem Str(a(n))
Text1．Text = "": Text1．SetFocus ‘准备在text1 接受下一个数据
End If
End Sub

小王编写了一个依据成绩计算名次的VB程序，成绩为0到100之间的整数。算法的基本思想：先统计每个分数的个数，然后按照分数从高到低依次计算每个有效分数（该分数的个数不为0）对应的名次，分数相同时名次并列。最高分为第1名，该分数的名次与个数之和为下一个有效分数的名次，以此类推。程序用数组A存放每个分数对应的个数，数组B存放每个分数对应的名次。例如，下表中最高分100有2个，并列第1名，则分数96的名次为分数100的名次加上分数100的个数，即第3名。

分数	100	99	98	97	96	95	94	…	0
个数（A数组）	2	0	0	0	1	0	3	…	0
名次（B数组）	1		[来源:]		3		4	…

程序运行时，学生数据显示在列表框List1中，单击“计算”按钮Command1，计算结果显示在列表框List2中，程序运行界面如图所示。

实现上述功能的VB程序如下，请回答下列问题：
（1）如表所示，若分数93的个数为2，则该分数对应的名次为_____________。
（2）请在划线处填入合适的代码。
Dim sName(1 To 50) As String      '存放学生姓名
Dim sScore(1 To 50) As Integer    '存放学生分数
Dim recCount As Integer           '存放学生人数
Private Sub Form_Load()
'本过程从数据库中读取学生数据，存储在相应的变量中，并在List1中显示
'代码略
End Sub
'整数转换成长度固定的字符串
Function ads(x As Integer, n As Integer) As String
Dim sx As String, nx As Integer, i As Integer
sx =" Str(x):" nx = Len(sx)
For i =" 1" To n - nx
sx = " " + sx
Next i
     ①    
End Function
Private Sub Command1_Click()
Dim A(0 To 100) As Integer    '存放每个分数的个数
Dim B(0 To 100) As Integer    '存放每个分数的名次
Dim mc As Integer, score As Integer, i As Integer
For i =" 0" To 100
A(i) = 0
Next i
For i =" 1" To recCount '计算每个分数的个数
     ②    
Next i
mc = 1
For i =" 100" To 0 Step -1  '计算每个分数的名次
If A(i) <> 0 Then
B(i) = mc
     ③    
End If
Next i
List2.Clear
List2.AddItem " 姓名  分数  名次 "
List2.AddItem " ---------------- "
For i =" 1" To recCount
score = sScore(i)
mc = B(sScore(i))
List2.AddItem sName(i) + ads(score, 5) + "第" + ads(mc, 3) + "名"
Next i
End Sub

如下图所示，该流程图所示的算法已在计算1+2+3+4……的值，但有一处错误导致程序出现死循环，该处是（  ）

A．①处	B．②处
C．③处	D．④处

小夏用VB编写了一个统计单词重复情况的程序，实现的功能下：在文木柱Text1中输入字符串，并以“＃”字符结束，单击“确定”按钮Command1，在列表框List1中输出每个单词及其重复次数，并在Label2中显示重复次数最多的单词，在Labe13中显示该单重复的次数在该程序中，区分大小写：例如，单词“Bay”和“baby”是不相同的。运行界面如图所示。

实现上述功能的VB程序如下，请回答以下问题：
（1）变量f2的作用是________________________________。
（2）请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, m As String, word As String, i As Integer,
Dim j As Integer, f1 As Boolean,f2 As Boolean
Dim a (1 To 100) As String, b (1 To 100) As Integer  'a数组存储单词,b数组存储该单词出现的次数
s=Text1.Text
k=0:word= ""
For i =1 To 100 '数组初始化
b(i)=0:a(i)= ""
Next i
f1=False
For i=1 To Len(s)
m=Mid(s,i,1)
If ①____ Then

word =word+m

If Not f1 Then k=k+1:f1=True

Else
f1=False:f2=False
For j=1 To k-1

If a(j)=word Then

b(j)=b(j)+1:f2=True:
k=k-1:Exit For
End If

Next j

If f2=False And a(k)= ""Then

②____

b(k)=b(k)+1

End If

③____

End If

Next i
'对数组进行排序,并输出结果要,代码略
End Sub

在某打游戏中，一开始每个玩家各有17张牌，牌型从小到大分别为“3～10、J、Q、K、A、2”，每种牌最多4张，现在按指定规则的顺序打牌：打完为止，规则如下：
先打顺子牌（顺子指连续的5个及以牌型，如45678，顺子最大到A），若有多个顺子，先长后短长度和同按先小后大的顺序打出然后按4张、3张、2张、1张的顺序出牌，同一个牌型从小到大。
小刘依据上述算法设计了VB程序，其中牌型“10”用数字“0”代替表示，如图所示，请回答下列问题。

（1）若初始牌型为344445566790JQKA2，第2次出的牌为______________。
（2）请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim a (1 To 13) As Integer, max As Integer, t As Integer, last As Integer
Dim sa As String, stem As String, flag As Boolean
Const s="34567890JQKA2"'用0代替牌10
'发牌和洗牌代码略,在标签Label1显示初始牌型,洗牌后数组a各元素分别存储牌型3～2的数量
t=17     '刚开始牌有17张
Do While t>0 '打牌

flag=True

Do While flag '寻找牌中有没有顺子牌
max =0:k =1:flag=False
For i=1 To 13
If ①____ Then
k=k+1
If k > Max Then
Max = k
Last = i+1  '记录连续牌的最后一张
End If
Else
k=1
End If
Next i
If Max >= 5 Then   '有顺子牌,把最长的这把顺子打出来
flag=True: sa= ""
For j = ②____ To last
Stem=Mid(s,j,1)
sa=sa +stem+ ""
a(j)=a(j)-1
Next j
List1.AddItem sa  '顺子在列表框显示
t=t-max
End If
Loop
For i= 1 To 13  '出4个一样的牌
If a(i)=4 Then
stem=Mid(s,j,1)
List1.AddItem stem+stem+stem+stem
a(i)=0
③_____
End If
Next i
'3张、2张、单张出牌,具体代码略
Loop
End Sub

VB程序，功能如下：单击“生成数组”按钮Command1，则随机生成13个取值范围是1～13的正整数，分别存储到数组a中，对数组a的元素进行升序排列；并在标签label1中显示：再单击“连续数”按钮Command2，则在排序后的数组a中查找连续个数最多（忽略重复数值）的一组数值（即：连续数），若有两组连续数个数一样多，则取数值小的一组，将连续数显示在标签label2中。运行界面如图所示。若实现上述功能的程序如下，请在划线处填写合适代码。

Dim a (1 To 13) As Integer, n As Integer
Private Sub Command1_Click()
Dim i As Integer, s As String, j As Integer
Randomize
n=13
For i=1 To n

a(i)=Int(Rnd*13)+1

Next i
For i=1 To n-1
For j=i+1 To n
If a(j) < a(i) Then
t=a(j): ①____: a(i)=t
End If

Next j

Next i
s=""
For i=1 To n
s=s+Str(a(i))
If ②___ Then s=s+ ","
Next i
Label1.Caption=s
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, t As Integer, k As Integer
Dim max As Integer   '存储连续数个数最大值
Dim begin As Integer   '存储连续数开始的数值
k=1
max=1
For i=2 To 13
If a(i)=a(i-1)+1 Or a(i)=a(i-1) Then
If ③____ Then k=k+1
If k > max Then
max=k
begin= ④____
End If
Else
k=1
End If
Next i
s=""
For j=begin To begin+max-1
s=s+Str(j)
Next j
Label2.Caption=s
End Sub

小杜编写了一个会议签到统计的VB程序。假设人员名单中没有重名，运行界面如图所示，列表框1显示会议应到人员名单，列表框2显示会议实际出席人员名单，单击“统计”按钮Command1，列表框3示缺席人员名单。实现上述功能的VB程序如下，

请将划线处的代码补充完整。
Dim b (1 To n) As String'存储会议实际到的人员名单
Dim flag (1 To n) As Boolean, m As Integer
Private Sub Form_Load()
'将n个应到人员姓名依次存储在数组a中,将m个实际参加会议人员姓名依次存储在数组b中
'在列表柱1显示应到人员姓名,在列表框2显示实到人员姓名,该过程代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i=1 To n
flag(i)=False
Next i
i=1
Do While i<=m

For j=1 To n

If ①____ Then
flag(j)=True
Exit For'退出for循环
End If
Next j
i=i+1
Loop
For i=1 To n
If ②____ Then List3. AddItem a(i)
Next i
End Sub