某算法的流程图如下所示：

若输入k的值为4，则该算法的输出结果为(  )

A．1

B．2

C．3

D．5

有如下VB程序段：
For i=2 To 8
Max=0
For j=1 To i-1
If a(i)>a(j) And f(j)>Max Then Max=f(j)
Next j
f(i)=Max+f(i)
Next i
数组f元素的初始值都为1，数组a的元素值为5,3,47,4,31,39,7,8，程序运行后f(6)的值为（   ）

A．1

B．2

C．3

D．4

若要执行语句a  = ( 5 >= 5 ) ,则定义变量a的语句应为（   ）。

A．Dim a as Integer	B．Dim a as String
C．Dim a as Boolean	D．Dim a as Single

某地驾照考试规定，考试成绩不低于80分为合格，下图是根据成绩判断是否合格的部分流程图；如果输入的成绩为85，则该流程的执行顺序为（   ）

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

以下流程图的运行结果为（   ）

A．50  45

B．50  0

C．45  5

D．15  0

输入x为4，流程图运行结果为：（   ）

A．18

B．19

C．26

D．27

某VB程序的部分代码如下：
a(1)=2
a(2)=3
For i=3 To 7
a(i)=a(i-1)*a(i-2)
If a(i)\10>0 Then
a(i+1)=a(i) Mod 10
a(i)=a(i)\10
i=i+1
End If
Next i
则执行该程序段后，数组元素a(8)的值为（ ）

A．2

B．4

C．6

D．8

用VB编写“提取字符串”的程序，实现如下功能：在文本框Text1中输入字符串，单击“提取”按钮Command1,程序将字符串中连续最长的大写字母提取出来，并显示在文本框Text2中。程序运行界面如图所示。

（1）程序运行时，要使按钮Command1标题显示“提取”，可在Form_Load()事件处理过程中添加语句_______(单选，填字母:

A．Command1 ="提取"/

B．Command1.Text="提取"/

C．Command1.Caption = "提取"）。

（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, d As Integer, i As Integer
Dim max As Integer, c As String, ans As String
s = Text1.Text
d = 0 : max =0
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "A" And c <= "Z" Then
d = d + 1
Else
If d > max Then
ans= Mid(s, i - d, d)

①________________

   End If
d = 0
End If
Next i
Text2. Text= ②___________
End Sub
（3）若文本框Text1中输入内容为：“Is it JUNE or JULY?”，单击“提取”按钮后，文本框Text2中显示的内容是_________。

数学中的“自守数”：如果一个数的平方数的末几位等于该数本身，这个数就是自守数。例如：
5*5=25
6*6=36
25*25=625
76*76=5776
……
那么，5、6、25、76 等数被称为自守数。小袁编写一个 VB 程序，实现如下功能：找出 10000 以内所有可能的自守数，单击“统计”按钮 Command1，将符合要求的自守数显示在列表框 List1 中，统计个数显示在标签 Label1 中，运行界面如图所示。

（1）程序运行时要在按钮上显示“统计”，应设置该按钮的________属性。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim n As Single, k As Integer, t As Integer, c As Integer
List1.Clear c=0
For n = 5 To 10000
k = Len(Trim(n))   'Trim()函数用于删除字符串前后的空格
t = (n * n)    Mod
If t = n Then
① _     List1.AddItem   Str(n)
②     
End If
Next n

Label1.Caption = "自守个数为：" + Str(c)

End Sub
为实现上述功能，划线处应填入的代码分别为
①__________________________________________ 。
②___________________________________________。
（3）解决该问题采用了_______（选填：枚举/解析）算法。

小明在物理课堂上学了并联电阻的阻值计算知识（并联后的电阻阻值的倒数等于各个并联电阻阻值的倒数之和）后编写了一个计算并联电阻阻值的程序，程序界面如 16 题图所示。在文本框Text1中输入各个并联电阻的阻值以“，”为间隔，单击“计算”按钮 Command1 后，将这些电阻并联后的阻值计算结果显示在 Label4 中。

（1）要使程序运行后，窗体 Form1 的标题栏中显示“阻值计算”，正确的做法是________。（单选，填字母：

A．将窗体的 Text 属性改为 “ 阻值计算”/

B．在 Form_Load( ）事件中输入代码 Form1.Caption=“阻值计算”/

C．在 Form1_Load()事件中输入代码 Form.Name= “阻值计算”)

（2）实现上述功能的程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, r As String, ch As String
Dim Rs As Single   ‘Rs 变量表示并联后的总阻值
Dim i As Integer
s = Text1.Text
r = "": i = 1: Rs = 0
Do While _____________
ch = Mid(s, i, 1)
If ch <> "," Then 
r = r + ch
Else
Rs = Rs + 1 / Val(r)
r = ""End If
i = i + 1
Loop
Rs = _____  Rs = 1 / Rs
Label4.Caption = _____
End Sub
(3) 如果在文本框 Text1 中输入“2,2,”后,单击“计算”按钮后，则程序的运行结果为__________ 。