选择题
则下列说法正确的是（ ）
- A、 单击区域③中的文字“天”，区域①中的“夭”字将变成“天”字
- B、 单击区域③中的文字“夭”，区域②中的“天”字将变成“夭”字
- C、 区域①中显示的是Yunnan.tif中的内容
- D、 当前正在进行区域划分操作
- A、 设置幻灯片切换时的视觉效果和听觉效果
- B、 只能设置幻灯片切换时的听觉效果
- C、 只能设置幻灯片切换时的视觉效果
- D、 只能设置幻灯片切换时的定时效果
Dim a(1To 5)As Integer
i=1:n=5
Randomize
For i=1 To n
x=Int(Rnd*10)*2+1
If(x Mod 10+x\10)Mod 2=0 Then
a(i)=x
Else
a(n-i+1)=x
End If
Next i
数组元素的初值均为0，执行该程序段后，a（1）至a（5）的值可能的是（ ）
- A、 17，11，5，19，15
- B、 11，0，11，0，15
- C、 7，0，5，13，17
- D、 0，0，3，19，11
对于文字“坐馆”处的操作，下列说法正确的是（ ）
- A、 修改“坐馆”为“做官”
- B、 删除的内容为“坐馆”
- C、 插入的内容为“做官”
- D、 修改“做官”为“坐馆”
Dim a(l To n) As Integer,y(l To n) As Integer, i As Integer, j As Integer
k=Val(Text1.Text)
For i=1 To n
y(i)=1
Next i
For i=1 To n
For j=1 To n
If a(i) < a(j) Then y(i)=y(i)+1
Next j
If y(i)=k Then List1.AddItem Str(a(i))
Next i
数组 a 的各元素的值为3，4，3，1，4，4，5，5，6，2，0， 在文本框中输入4，执行该段程序后 List1 中显示的值为（ ）
- A、 3
- B、
- C、
- D、
i = 0: j = 1
Do While j <= 5
If a(j) <> 0 Then i = i + 1: a(i) = a(j)
j = j + 1
Loop
For j = i + 1 To 5
a(j) = 0
Next j
数组元素a(1)到a(5)的值依次为“0,20,0,4,31”，执行该程序段后，a(1)~a(6)各元素的值依次为（ ）
- A、 4,20,31,0,0
- B、 31,20,4,0,0
- C、 0,0,20,4,31
- D、 20,4,31,0,0
- A、 记事本不可以对网页文件进行编辑
- B、 超链接只能实现网页之间的跳转
- C、 电子邮件服务器之间传送邮件采用的协议是 SMTP
- D、 POP3 协议的功能是把电子邮件发送到收件人的电子邮箱中
下列说法正确的是（ ）
- A、 对第一行“闭幕式”添加批注，将出现批注[A3]:
- B、 删除第 2 处批注的内容，“批注[A2]:”也会被删除
- C、 图中有 4 处修订，退出修订后，修订标记不会消失
- D、 开启修订编辑文档时，将记录对文档的所有修改
s=Text1. Text
s1=" "
For i=1 To Len(s)
c= Mid(s, i, 1)
If c>= "A" And c <= "Z" Then
c= Chr(Asc(c)+ 32)
ElseIf c>="a"Andc<(="z"Then
c=Chr( Asc(c)-32)
End If
s1=c+s1
Next i
Text2. Text=s1
该程序段运行后，若在文本框Text1中输入 “Ab12CD”，则 文本框Text2中显示的内容是( )
- A、 aBcd
- B、 dcBa
- C、 aB12cd
- D、 dc21Ba
填空题
| Dim s1 As String, s2 As String Dim c As Integer, i As Integer s1 = InputBox("请输入一串字符") s2 = "" c = Len(s1) For i = ▲ s2 = Mid(s1, i, 1) + s2 Next i Print s2 | 【函数功能提示】 ⑴函数Len(x)的功能是：取字符串x的长度值（即字符个数值）。 若x="abc"，则Len(x)的值为3。 ⑵函数Mid(x，y，z)的功能是：在字符串x中第y个字符开始取z个字符。 若x="abcdefg"，则 Mid(x，4，3)取得的值是"def"。 |
程序空白处应填写的语句是：。
