Sub test7()
For i =" 1" To 6
S =" S" + (-1) ^ i  *2 ^ i
Next i
MsgBox (S)
End sub
该程序的运行结果是（   ）

A．126

B．-126

C．-42

D．42

某电信部门规定：拨打市内电话时，如果通话时间不超过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
这段程序属于    ⑥ 结构程序设计。

有如下Visual Basic程序段：
A＝“Happy new year！”
B＝Len(A)\2
C＝63 Mod 10
Text1.Text＝Mid(A，B，C)
该程序运行后文本框text1显示的内容为(  )

A．3	B．new
C．B	D．Mid(A，7，3)

NOT ((7>3) OR (5<2)) AND (6>1) 的值和下列哪个表达式的值是相等的_____。

A．6>1 AND 7>3

B．5<2 AND 6>1

C．7>3 or 5<2

D．5<2 OR 6>1

运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生“类型不匹配”错误时所执行的语句是（ ）

Private Sub Command1_Click()
Dim a As String, b As String, c As Integer
a = "Good"    '①
b = "bye"     '②
c =__________1__________'③
Text1.Text =" a" + b + c '④
End Sub

A．①

B．②

C．③

D．④