下列哪一个表达式能产生一个属于区间100,999内的整数（ ）

A．Int（Rnd*1000）+100	B．Int（Rnd*900）+100
C．Rnd+998	D．Rnd*1000

某VB的事件过程如下：
Pirvate Sub Command1_Click()
a = Val(Text1.Text)
b = a * a + 1
Text1.Text = b
End Sub
程序运行时，在文本框Text1中输入2，连续两次单击命令按钮Command1后，Text1中显示的内容是（   ）

A．677

B．2

C．26

D．5

下列正确的Visual Basic注释语句是(   )

A．Dim a(10) As Integer定义一个数组

B．Dim a(10) As Integer“定义一个数组

C．Dim a(10) As Integer‘定义一个数组

D．Dim a(10) As Integer“定义一个数组”

Y为分段函数

求y的值。完成该流程图，在空白处填入_____

A．x mod 2 <> 0

B．x / 2 = 0

C．x =" 2" * n-1

D．x \ 2 = 0

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