依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》，血液中酒精含量大于或等0.3mg/ml 驾驶机动车的属酒后驾车；大于或等于1.0mg/ml 驾驶机动车的属醉酒驾车。设计一个程序，帮助交警判定某人属酒后驾车、醉酒驾车还是没有违法。
解决此问题的流程图如图所示，
 
（1）该算法属于  （填：顺序/选择/循环）结构
（2）要在窗体Form1的标题栏内显示字符串“酒精测试”，需要更改的是 属性（填：name/caption/text）

（3）根据流程图编写的VB程序如下：
Private Sub Command1_Click( )
Dim x As Single
x =  Val(Text1.Text)  
If    ①   Then
Label2.Caption = "你属于醉酒驾车!"
 ②  x >=" 0.3" Then
Label2.Caption = "你属于酒后驾车!"
Else 
  ③  
End If   
End Sub
则划线处填入的语句为①  ②     ③ 。

下面程序的功能是：计算表达式1+3+5+…+(2n-1)的值，在文本框Text1中输入n的值，结果在文本框Text2中输出。则程序中划线处的语句应填____________。
Private Sub Command1_Click()
Dim sum As Long,i As Integer,n As Integer
sum = 0
n = Val(Text1.Text)
For i =" 1" To 2 * n - 1 Step 2
    
Next i
Text2.Text=Str(sum)
End Sub

在信息加工中，经常要对被处理的数据进行排序，在排序时经常要进行数据的交换。下面有四个程序段：
 
其中能正确地将x和y两个变量中的数据进行交换的程序段有（   ）

A．1个

B．2个

C．3个

D．4个

运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生"下标越界"错误时所执行的语句是（   ）

Private Sub Command1_Click()
Dim a(0 To 5) As Integer
Dim i As Integer    '①
a(0) = 1   '②
For i =" 1" To 5
a(i) =" 2" * a(i-1) + 1 '③
Next i
Text1.Text = Str(a(i)) '④
End Sub

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

如右图所示流程图片断，该流程图中循环部分结束后，变量S的值是(    )

A．5	B．15
C．25	D．36

写出下列程序的输出结果
Sub test3()
For i =" 0" To___1___step 1
s = ""
For j =" 1" To 2 * i + 1
s =" Str(j)" + s
Next j
List1.AddItem s
Next i
End Sub
该程序的运行后列表框输出的第三行是 （  ）

A．123

B．321

C．12345

D．54321

写出下列程序的输出结果
Sub test16()
X = 9
For i =" 3" To 22 Step 3
If (X / 2) >=" i" Then X =" X" + 3
Next i
For i =" 2" To -22 Step 3
If (X / 3) >=" i" Then X =" X" + 3
Next i
MsgBox (X + i)
End Sub
该程序的运行结果是（   ）

A．39

B．15

C．17

D．13

读程序，写出下列程序的输出结果
55、s = 1
For j =" 100" To -100 Step -1
s =" s" * j
Next j
MsgBox (s)
上述程序段中s =" s*j" 的执行次数是(    )

A．400

B．401

C．200

D．201

辗转相除法：用辗转相除法求三个数的最大公约数。
程序界面如图所示，在文本框Text1、Text2和Text3中分别输入三个数从a、b和c，单击"求最大公约数"按钮（Command1）后，在文本框Text4中输出a、b、c的最大公约数y。

辗转相除法具体为：设两数为a、b(a>b），求最大公约数(a，b）的步骤如下：a除以b，得a=bq......r1(0≤r1）。若r1=0，则（a，b)=b；若r1≠0， b除以r1，得b="r1q......r2" (0≤r2）.若r2=0，则（a，b)=r1，若r2≠0，则继续r1除以r2，……如此下去，直到余数为0，这时的除数即为最大公约数（a，b）。
相应的Visual Basic 程序如下：
Function temp(num1 as Integer, num2 as Integer) as Integer
Dim r As Integer
if num1<num2 then
t=num1:num1=num2:num2=t
endif
r =" num1" Mod num2
Do While    (1)    
num1 =    (2)
num2 =    (3)
r =" num1" Mod num2
Loop
temp = num2
End Function
-------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim a as Integer, b as Integer, c as Integer, x as Integer, y as Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
x =    (4)
y =" temp(x," c) ‘调用函数TEMP
Text4.Text = Str(y)
End Sub
在（1）中应该填入（_____）
A、r =0    B、 r<>0 C、 r< 0 D、r>0
在（2）中应该填入（______）
A、num1   B、num2 C、 r     D、num1 mod num2
在（3）中应该填入（___）
A、num1    B、num2 C、 r     D、num1 mod num2
在（4）中应该填入（___）
A、temp(a, b) B 、temp(x, c)   C、temp(b, c) D、temp(x, y)

写出下列程序的输出结果
Private Sub Command1_Click()
For i =" 1" To 4
If i Mod 3 <> 0 Then s =" s" + (-1) ^ (i + 1) * 1 / i
Next i
MsgBox s*100
End sub
该程序的运行结果是（   ）  

A．-25

B．-75

C．15

D．25