期末将近，英语老师需要统计每个同学的四次月考的英语平均分，以便假期有针对性复习。某同学编写一个VB程序来完成这项工作。

Private Sub Command1_Click()

Dim Sum as Single,n as Integer,ave as Single

Sum=0

  N=1

Do

    T=InputBox(“请输入第”+str$(n)+”次英语成绩:”)

Sum= ① 

    N=N+1

  Loop Until   ②  

  Ave=Sum/4

  Print “四次英语的平均成绩是”;Ave

  End Sub

【小题1】程序中①位置的语句是( )。

A．Sum+1

B．Sum+T

C．Sum+N

D．N+T

【小题2】程序中②位置的语句是( )。

A．N>=4

B．T>=4

C．Sum>=4

D．Ave>=4

【小题3】上面这段程序的主要结构是( )。

A．顺序

B．分支

C．循环

D．综合

【小题4】对某个变量进行处小数处理，即保留两位小数，对第三位小数进行四舍五入。其语句为：A=int(A*X+0.5)/X，则X=( )。

A．10

B．20

C．100

D．200

【小题5】Visual Basic代码中，将多个语句合并在一行上的并行符是( )。

A．,

B．;

C．:

D．’

【小题6】下列关于算法的特征描述不正确的是( )。

A．有穷性：算法必须在有限步之内结束

B．确定性：算法的每一步必须有确切的含义

C．输入：算法必须至少有一个输入

D．输出：算法必须至少有一个输出

【小题7】函数Abs(-9)返回的值是( )。

A．9

B．-9

C．10

D．-10

【小题8】下面能够将字符型数值转换成数值型数值的函数名是( )。

A．Int

B．Sqr

C．Val

D．Str

【小题9】上段程序中，变量n的类型为( )。

A．单精度

B．整型

C．长整型

D．双精度

【小题10】流程图中表示判断的符号是( )。

A．

B．

C．

D．

【小题11】Visual Basic中下面为合法变量的是( )。

A．$$

B．a2

C．2a

D．a*2

【小题12】上段程序中，变量Sum最终结果是四次月考英语成绩的( )。

A．总和

B．平均分

C．最高分

D．最低分

【小题13】上段程序中，变量N的最后一个值是( )。

A．3

B．4

C．5

D．6

【小题14】程序设计时，算法的描述方法有多种，下列选项中不能描述算法的是( )。

A．流程图

B．伪代码

C．机器语言

D．自然语言

【小题15】设置窗体标题时，应改变窗体的( )。

A．Name属性

B．Caption属性

C．BackColor属性

D．Font属性

在设计程序界面时，应使用图所示“控件工具箱”中的    添加文本框 Text1。

A．①

B．②

C．③

D．④

已知 a=10,b=20,c=40，下列表达式中值为 True 的是（   ）

A．a<c Or b>c

B．a<b And b>c

C．Not(a <c)

D．a+b >c

在 VB 中，在标签 Lab1 中显示"云富高中"，应改变的属性是（）

A．Font

B．Text

C．Caption

D．Backcolor

在 VB 中，将整数型变量 c 的值显示在文本框 Text1 中，完整的语句是（   ）

A．c=Str(Text1.Text)

B．c=Val(Text1.Text)

C．Text1.Text=Str(c)

D．Text1.Text=Val (c)

某 VB 应用程序界面如图所示，该应用程序窗体中对象（不包含窗体本身）有（   ）

A．3 个

B．4 个

C．5 个

D．6 个

在 VB 中，鼠标单击命令按钮 Command1 触发的事件处理过程名是（   ）

A．Command1Click	B．Command1_Click
C．Command1GotFocus	D．Command1_GotFocus

在 VB 中，表示窗体装载事件的是（   ）

A．Click

B．DblClick

C．KeyPress

D．Load

现要求编写 VB 程序实现如下功能：在文本框 Textl 中输入正整数 n (n 为奇数），单击 “生成” 命令按钮后，如下图所示，在文本框 Text2 中会显示一个有规律的对称数字串，形式为"1 3 …n-2 n n-2 3 1" 。例如 n=9 时，显示的数字串为 “1 3 5 7 9 7 5 3 1”

（1）根据代码可知，命令按钮 “生成 ” 的对象名是______________ 。
（2）实现上述功能的 VB 程序如下。请在划线处填入合适代码。
Private Sub Com1 _Click()
Dim n As Integer, i As Integer, s As String
①__________
s = ""
For i = 1 To n
If   i<= n \2 + 1   Then
s = s + Str (2*i-1)
Else
s = s + ②__________ 
End If
Next  i
③__________
End Sub

在 VB 中，若 s="Welcometoyunfun",取出字符"yunfun"，则函数应为（   ）

A．mid(s,10,6)	B．len(s,10,6)
C．len(s, 6 ,10)	D．mid(s, 6 ,10)