在VB中，正确的赋值语句是 (    )

A．x-y=8

B．8=x-y

C．x=8+y

D．-y=8-x

输出的结果为 。
Dim n as integer
Dim s as long
n=9
s=0
do while n>=1
s=s+n
n=n-2
loop
print s

在 VB 中，下列程序段执行后，变量 s 的值是( )。
s=1
For k="1" To 3
s=s+1
Next k

A．1

B．3

C．4

D．6

（加试题）某VB程序功能：输入正整数n,单击命令按钮Command1后，则会衍生出一串有规律的数字，形式为“1 2 3…n-1 n n-1…3 2 1 ”。例如n=6时，显示的数字串为“1 2 3 4 5 6 5 4 3 2 1 ”。
Private Sub Command1_Click()
Dim a As intger, i As intger, s As String
n = Val(Text1.Text)
s = ""
For i = 1 To 2 * n - 1
If i > n Then ①   Else  ②   
Next i
text2.Text = s
End Sub
为实现以上功能，①②处分别填写(    )

A．①s=Str(2*n-i)    ②s=Str(i)	B．①s=s+Str(2*n-i)  ②s=s+Str(i)
C．①s=s+Str(2*n-1)  ②s=s+Str(2*n)	D．①s= Str(2*n-1)   ②s= Str(2*n)

某电信部门规定：拨打市内电话时，如果通话时间不超过3分钟（含3分钟），则收取通话费0.2元，如果通话时间超过3分钟，则超过部分以每分钟0.1元收取通话费（通话时间为整数）。下面是计算通话费用的流程图和程序，请认真分析并回答问题。根据题意，完善流程图，填写空白处。

①  
下图是计算通话费用程序窗体界面布局示意图。

Command1_Clik事件过程如下。
请填写程序空白处。
Private Sub Command1_Click()
Dim    ② as ③
  ‘定义 x 为整型
x = Val(Text1.Text)
   ④  Then
‘条件语句 
⑤
显出通话时间不超过3分钟时的电话费
Else
Text2.Text =" Str(0.2" + 0.1 * (x - 3)) ‘显出通话时间超过3分钟时的电话费
End If
End Sub
这段程序属于    ⑥ 结构程序设计。