某同学编写了以下Visual Basic 程序段，运行这段程序段，循环体的循环次数为：（  ）
Dim x，y As Integer
x=2
y=20
Do While  x<y
x =x^2
Loop

A．4

B．3

C．2

D．0

用户注册某APP时，密码有如下要求：至少为8个字符，并且必须含有数字和字母。小林编写了一个VB程序，对用户设定的密码进行合法性验证，如图所示。在文本框Text1中输入密码字符串s，单击“验证”按钮，在标签Label1中显示验证结果“符合要求”或“不符合要求”。

(1)实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Cmdjudge_Click()   
Dim a1 As Integer, a2 As Integer, flag As Boolean
Dim s As String, c As String, i As Integer, n As Integer
a1=0：a2=0：flag=False
s = Text1.Text
i=1
___________
Do While i<= n And Not flag

c = Mid(s, i, l)

If c >= "A" And c <= "Z" Or c >= "a" And c <= "z" Then

a1=1

ElseIf c >= "0" And c <= "9" Then

a2 = 1

End If

If _________ Then flag = True

i = i+1

Loop
If flag=True And n>=8 Then
Label1. Caption=“符合要求”
Else
Label1. Caption=“不符合要求”
End Sub
(2)代码“Private Sub Cmdjudge_Click()”中的“Cmdjudge”是__________．(单选，填字母：

A．过程名 /

B．属性名/

C．事件名/

D．对象名)

(3)运行该程序，在文本框Text1中输入“Wd6b$ksss”单击“统计”按钮后，语句c=Mid(s, i, 1)共执行了__________次。

   （加试题）计算整数t的近似算数平方根算法如下：

先取,然后根据公式计算,再由计算，……直到,则为解。

小李编写了一个VB程序实现上述功能：运行程序时，在text1中输入一个正整数，单击命令按钮command1，文本框text2显示该数的算数平方根。

程序代码如下，请阅读完成以下两小题。
Function fun(x As Integer, x0 As Double) As Double
Dim x1 As Double
x1 = (x0 + x / x0) / 2
If Abs(x1 - x0) < 0.00001 Then
fun = x1
Else
fun = （1）    
End If
End Function
Private Sub Command1_Click()
Dim t As Integer
Dim k As Double
t = Val(Text1.Text)
k = fun(t, 1)
k = （2）        '保留两位小数的四舍五入
Text2.Text = Str(k)
End Sub
(1)题中函数fun主要采用的算法思想是___________
(2)程序中（1）划线处应填写的代码是_____________
程序中（2）划线处应填写的代码是___________

有如下通用过程和事件过程，运行程序后，单击窗体，程序的运行结果是（ ）
public  function  ss(x  as  integer,y  as  integer)  as  integer
if   x>y   then   ss=x-y   else  ss=y-x
END  FUNCTION
PRIVATE  SUB  FORM CLICK(   )
DIM  A  AS  INTEGER ,B  AS  INTEGER
A=8: B=6
PRINT   SS(A,B)
END  SUB

A．2

B．-2

C．8   8

D．6 6

以下流程图中输出a的值有可能是2的是（ ）。

A．	B．
C．	D．