小红编写了一个将5位以内的十六进制正整数转换成十进制数的VB程序，功能如下：在文本框Text1中输入一个十六进制正整数，单击“转换”按钮Command1，在标签Label3中显示结果。程序运行界面如图所示。

（1）要使窗体Form1标题显示“数制转换”，则需修改窗体的________（单击，填字母：A.Font/B.Caption/C.BackColor）属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim x As String, ch As String
Dim flag As Boolean, i As Integer, result As Long
x=_________
i=1
result=0
flag=True
ch=Mid(x,1,1)
Do While i <=Len(x) And flag=True
If ch>= “0” And ch<= “9” Then
result=result * 16+Val(ch)
ElseIf ch>= “A” And ch <= “F” Then
result=result * 16+(Asc(ch)-Asc (“A”)+10)
ElseIf ch>= “a” And ch <= “f” Then
result=result * 16+(Asc(ch)-Asc (“a”)+10)
Else
flag=False
End If
i=i+1
ch=_________

Loop

If flag=True Then

Label3.Caption=Str(result)

Else

Label3.Caption= “输入错误”

End If

End Sub
（3）若在文本框Text1中输入5+9，单击“转换”按钮后，标签Label3中显示的内容是______（单选，填字母：A.14/B.E/C.输入错误）。

某算法流程图如下图所示，执行该流程后，变量x，y的值分别是（   ）

A．0，" 3 1"	B．0，" 1 3"
C．3，31	D．3，1

在一个数字字符串中，求最长连续递增序列的长度。例如，字符串“123423416789”，最长的递增序列为“16789”，长度为5。编写一个程序，功能如下：在文本框Text1中输入数字字符串，单击“计算”按钮Command1，在标签Label3中显示最长连续递增序列的长度。程序设计界面与运行界面如图所示。

（1）要使程序运行时，按钮Command1上的文字显示为“计算”，可在___________事件过程中添加语句Command1. Caption="计算"。
（单选，填字母：

A．Command1_Click /

B．Form_Load /

C．Command1_DblCkick）。

（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
PrivateSubCommand1_Click()
Dim s As String，max As Integer
Dim t As Integer，I As Integer
max=0：t=1
s=Text1. Text
i=1
Do While i <= Len(s)-1

If Val(Mid(s，i，1)) < ___________Then

t=t+1

Else

If t > max Then max = t
______________
End If
i=i+1

Loop

 
If t > max Then max = t

Label3. Caption = Str(max)

End Sub
（3）如果删除加框处代码，并运行程序，在文本框Text1中输入“123423416789”，单击“计算”按钮，则标签框Label3中显示的内容为__________________。

产生一个在[10,99]中随机整数的VB表达式是（　　）

A．Int (Rnd * 99)	B．10 + Int (Rnd * 99)
C．10 + Int (Rnd * 89)	D．10 + Int (Rnd * 90)

（加试题）数字个数统计。编写VB程序，实现如下功能：在文本框Text1中输入仅由ASCII码字符组成的字符串（长度不超过100），单击“数字统计”按钮Command1，在列表框List1中输出字符串中包含的不同数字及其相应的个数，程序运行效果如下图所示。

（1）为方便调试，要让程序每次运行时文本框Text1中的初始内容为“ab12*{}78ab12()778ab34”，应修改文本框Text1的________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private sub command1_click()
Dim a(0 to 9) as integer   ’数组元素a(i)中存放数字i的个数
Dim s as string , ch as string
Dim t as integer
For i=0 to 9
a(i)=0
next i
s=text1.text
for i=1 to len(s)
①____________    
if ch>=”0”and ch<=”9” then
t= ②________
a(t)= a(t)+1
end if
next i
list1.clear
for i=1 to 9
if  a(i)<>0   then
list1.additem  ”数字：”+str(i)+ ”，共有”+ str(a(i))+ ”个”
end if
next i
end sub
（3）与上述程序中加框处代码运行效果等价的条件表达式可以是________。

某程序代码如下：
Dim a(1 To 13) As String
s = "where are you"：count= 0
For i = 1 To Len(s)

a(i) = Mid(s, i, 1)

Next i
For i = 1 To Len(s) - 1

k = i

For j = i + 1 To Len(s)

If a(k) < a(j) Then k = j

Next j

If i < > k Then

t = a(i): a(i) = a(k): a(k) = t

End If

Next i
For i = 1 To Len(s) - 1

If a(i) = a(i + 1) Then count = count + 1

Next i
程序运行结束后，变量count的值是

A．1

B．2

C．3

D．4

某算法流程图如图所示：若要用VB语言实现该部分算法，下列代码符合流程图的是

A．

B．

C．

D．

有如下VB程段：
Private Sub Command1_Click()
Const n = 8
Dim i As Integer, a As Integer, s As String
Randomize
i=1
s = s + Str(Int(Rnd * 19) + 1)
Do While i < n
a = Int(Rnd * 19) + 1
If a Mod 2 = i Mod 2 Then
s = s + Str(a)
i = i + 1
End If
Loop
Text1.Text = s
End Sub
运行程序后，文本框 Text1 中可能出现的是（ ）

A．4 13 20 9 14 19 4 9	B．7 8 19 8 7 18 3 1
C．6 19 12 19 16 11 10 11	D．15 18 7 18 19 12 5 11

某 VB 程序代码如下：
Private Sub Command1_Click()
Dim a As Integer, b As Single
a = Val(Text1.Text)
b = 3.14 * a ^ 2
Text2.Text = "圆面积为：" + b
End Sub
在 Text1 中输入 3，单击命令按钮 Command1 后，将会出现的提示信息是：（   ）

A．类型不匹配	B．溢出
C．无效的过程调用或参数	D．未找到方法或数据成员

用 VB 程序编写了一个找最大值的程序，程序功能：在文本框中输入数字串（数据间用逗号分隔，以数字开头，逗号结尾），单击“寻找”按钮 Command1 后，在 Label3中输出最大的数值。程序运行界面如图所示：

Private Sub Command1_Click()
Dim i As Integer, max As Integer, j As Integer
Dim s As String, c As String, t As String
s = Text1.Text
i = 1 : j = 1
max = 0 : t = ""
Do While j <= Len(s)
c = Mid(s, j, 1)

If c = "," Then

t = Mid(s, i, j - i)
If Val(t) > max Then max = Val(t)
①
End If
②     
Loop
Label3.Caption = Str(max)
End Sub
将划线处代码补充完成，正确的是（ ）

A．① i=i+1   ② j=j+1	B．① i=j+1   ② j=j+1
C．① j=j+1   ② i=i+1	D．① j=i+1   ② i=i+1