学进去

某研究型小组在研究城乡居民消费情况时，获取了如下图所示数据，请协助该小组完成本次数据分析：

①如图所示数据表中，当前单元格中的公式为_____________________，若将该单元格中的公式自动填充至E18单元格中，再将C16单元格中的“97”改为“107”，则E16单元格中的数值将__________。
②该小组同学先在B20单元格中使用AVERAGE()函数计算出6种食品的平均指数，然后自动填充至D20单元格。请分析B20单元格中的公式是__________________，解决C20、D20中“###########”的途径是_____________。
③若以“农村与城市的差距”为关键字对食品类中的6种食品按降序进行排序，排序区域应为_________________，排序后A7单元格中的项目名称为__________________。
④下图为该小组成员根据表中的数据制作的图表，该图表的数据区域为_______________。

⑤若要给数据区域A2:E20加上红色双线的外边框，正确的操作步骤应为（填字母顺序）：__________________
（A）在“边框”栏目中选择线条的样式、颜色
（B）选中数据区域A2:E20
（C）在“单元格格式”中选择“边框”栏目
（D）单击“确定”按钮
（E）在“边框”栏目中选择外边框
⑥研究小组将柱形图复制到Word文档后，在Excel中修改了该图表的源数据，则Excel中该图表____（填：会 / 不会）随之发生变化，Word文档中的图表____（填：会 / 不会）随之发生变化。

用户进入QQ邮箱后，“写信”时部分界面如图，以下说法正确的是（ ）

A．该邮件带有附件，且为视频文件

B．邮件发送的协议是POP3

C．点击发送共有3人可接收该邮件

D．Apple无法看到该邮件发给了12773597和2251459373

某网站提供的气象数据查询界面如图所示，该气象数据查询系统属于（ ）

A．搜索引擎

B．数据库管理系统

C．数据库应用系统

D．操作系统

小李在网络中获取一串二进制数，其中部分二进制数为“11000000 11010110”，结合UltraEdit软件的部分界面推断，该部分二进制数所表示的字符为（ ） 

A．“快”

B．“乐”

C．“20”

D．“16”

有一英文单词处理的VB程序，程序运行效果如图所示。在界面上方的文本框Text1中输入英文语句，单击“统计”按钮（Command1），在右下方的列表框List1中显示英文单词及其在语句中出现的位置，并在按钮上方的标签框Label2中显示单词个数（假定每个单词中不包含英文字母以外的其他字符）。实现的VB代码如下，但加横线处代码有错，请改正。

Private Sub Command1_Click()
Dim a(1 To 1000) As String     
Dim d(1 To 1000) As Integer
List1.Clear
s = Text1.Text
slen = Len(s)
j = 0
k = 1
b = 1
For i = 1 To slen
c = Mid(s,i,1)
If  (c<”a” Or c>”z”) Or (c<”A” Or c>”Z”)  Then ____________________________
If  j<>0 Then
a(k) = Mid(s,b,j)
d(k) = b
k = k + 1
j = 0
End If
b = i + 1
Else
j = j + 1
Next i
For i = 1 To k – 1
List1.AddItem Str(d(i)) + “   ” + a(i)
Next i
Label2.Caption = Str(k) + “个”      ________________________
End Sub

进入2016年7月份以来，浙江省气温连续高企，为了观察气温的变化情况，小明用VB编写了一个连续高温天数的统计软件。小明采集了杭州市7-8月的每日最高气温，并存放在ACCESS数据库中。程序运行时，读取日期和最高气温并显示在列表框List1中，在文本框Text1中输入温度值，单击“统计”按钮Command1，程序自动统计运行在该温度值以上的最长连续天数，并显示在Text3中，同时在Text2中显示日期区间，运行界面如图所示。
 
Dim rq(1 to 100) as String:Dim qw(1 to 100) as Integer:Dim n as Integer
Private sub Form_Load()
'读取数据库内容，其中日期数据放在数组rq中，最高气温数据存放在qw中，第i个日期保存在rq(i)中，对应的气温保存在qw(i)中，并显示在列表框List1中，代码略
End sub
Private sub Command1_Click()
Dim max as Integer      '记录最大连续天数
Dim nend as Integer     '记录最大连续天数时的结束日期的下标 
Dim ncount as Integer   '统计连续天数
Dim tjqw as Integer     '存放输入的温度
tjqw = Val(Text1.Text)
ncount = 0
max = 0
For i = 1 To n
If _____________ Then
ncount = ncount + 1
Else
ncount = 0
End If
If max < ncount Then
max = ncount
__________________
End If
Next i
If max <> 0 Then Text2.Text = ____________________& ”-”& rq(nend)
Text3.text = Str(max)
End sub

某地1900-1999年的平均降水量数据保存在数据库中。现要求找出相邻两年年平均降水量变化（即本年度与上年度“年平均降水量”差值的绝对值）最大的年份区间。如果多个符合要求的年份区间，只输入距今最近的。小吴为此编写了VB程序，程序运行时，单击按钮Command1后，在文本框Text1中输出运行结果。实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim w(1 To 100) As Single '依次存储1900-1999年的年平均降水量数据
Const n = 100
Private Sub Form_Load()
'本过程从数据库中按1900-1999年依次读取年平均降水量数据，并存储在数组w中
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, imax As Integer
imax =    ____________
For i = 3 To n
If Abs(w(i) - w(i - 1)) >=   Then imax = i _________ 
Next i
Text1.Text = "年平均降水量变化最大的年份区间是" + Str(imax + 1898) + "-" + Str(imax + 1899)
End Sub

编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1,在列表框List1中显示结果，运行效果如图所示。结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。为实现上述功能，请在划线处填入合适代码或选项。

Private Sub Command1_Click()
Dim t1 As Integer, t2 As Integer
Dim i As Integer, t As Integer
Dim f As Single
List1.Clear
t1 = Val(Text1.Text)
t2 = Val(Text2.Text)
If __________ Then 
t = t1: t1 = t2: t2 = t
End If
i = t1
Do While ____________
f = i * 9 / 5 + 32   
List1.AddItem Str(i) + "          " + Str(f)
____________
Loop
End Sub

编写VB程序，实现如下功能：在文本框Text1中输入发放红包的总金额s，在文本框Text2中输入发放红包的个数n，单击“分配”按钮（Command1）,为n个红包随机分配金额，并在列表框List1中显示分配后的这些金额。界面如图所示，请在划线处填入合适代码。

Private Sub Command1_Click()
Dim s As Single，x As Single，n As Integer，i As Integer
Randomize

List1.Clear

s=Val(Text1.Text)

    n=____________________
For i=1 To ________________
x=Int(Rnd*s/(n-i)+0.005)*100)/100
List1.AddItem Str(x)
s=_____________________
Next i
x=Int(s+0.005)*100)/100
List1.AddItem Str(x)
End Sub

编写VB程序，实现显示九九乘法表，程序运行界面如图所示。单击“九九乘法表”按钮（Command1），在列表框List1中输出一张九九乘法表，实现上述功能的程序如下，请在划线处填入合适代码。

Private Sub Command1_Click()
Dim s As String，i As Integer，j As Integer
For i=1 To ________
s=” ”
For j=1 To ________________
s=s+Str(j)+ ”*”+Str(i) + “= ”+_____________+ ” ”
Next j
List1.AddItem s
Next i
End Sub