相关试卷
-
1、有流程图如下图所示，其功能是将键盘输入的数进行相加，当输入的数为0时输出它们的和，则图中虚线部分的内容是（ ）
A、
B、
C、
D、
-
2、求矩形面积s的部分流程图如下图所示，矩形的长、宽分别用变量a、b表示，对于框①和框②的作用，下列说法正确的是（ ）
A、框①用于输入a和b的值，框②用于输出s的值 B、框①用于输出a和b的值，框②用于输出s的值 C、框①用于输入a和b的值，框②用于输入s的值 D、框①用于输出a和b的值，框②用于输入s的值 -
3、学校对各班级的文艺汇演成绩做了评分，并利用Excel软件进行数据处理，部分界面如下图表格所示。
(1)、用公式计算出各班级得分，可在I3单元格输入公式，再利用自动填充得到其他班级得分，则I6单元格上的公式为。(2)、将各年级最后得分最高的班级设为该年级的一等奖，下列方法可得到高二年级一等奖班级的是 （多选，填字母）。A、选择区域B8:I12，再按“列I”为关键词进行降序排序后，该区域的第1条记录为高二年级一等奖班级 B、先筛选出“班级”开头是“高二”的记录，再筛选出“最后得分”为最大1项的记录，筛选结果即为高二年级一等奖班级 C、先筛选出“最后得分”为最大1项的记录，再筛选出“班级”包含“高二”的记录，筛选结果为高二年级一等奖班级 D、先按“最后得分”升序排序，再筛选出“班级”包含“高二”的纪录，最后一条记录为高二年级一等奖班级(3)、根据上图表格中的数据制作的图表如下图所示，创建该图表的数据区域为。
-
4、某省2014年主要统计数据表，放置于Excel工作簿“Sheet1”工作表中，如图1所示。
图1
(1)、为了使表格的标题合并及居中放置，应先选择B2:E2单元格，然后在“单元格格式”对话框图中（如图2所示）做如下设置：。
图2
(2)、去年总量的计算公式是：去年总量=总量/（1+增幅），要计算去年总量，则应先在E5单元格中输入公式 ， 然后在自动填充E6:E13单元格。(3)、在计算出去年总量后，先制作一张反映表格中数据的柱状图，再对表格数据按增幅进行降序排序，（如图3所示），先选中单元格 ， 然后选择“数据”菜单中的“排序”，在打开的排序对话框中设置主要关键字为“增幅”，进行降序排序。
图3
(4)、完成排序后，请问对步骤⑶中生成的柱状图是否有影响？ -
5、家乐超市某日饮料零售情况统计表，放置于Excel工作簿“Sheet1”工作表中，如图1所示。
图1
(1)、为了方便管理，在编号列中对各商品进行编号(S01、S02、S03…S09)，现已经编好S01和S02，用方法可以快速的完成剩下的商品编号。(2)、要计算每种商品的销售额占合计销售额的比重，可以先选中F3单元格，然后在编辑栏中输入 ， 然后用自动填充功能填充F4：F11单元格。(3)、选中B2：B11和E2：E11数据，然后在此工作簿的“Sheet2”工作表中建立图表如图2所示，可以看出这是一幅 ， 依据图表可以看出，此图表的图标选项对话框中数据标志标签内的设置(如图3)中哪些选项会是打勾选择的？
图2
图3
-
6、Excel电子表格可以利用函数功能进行成绩统计，但是也有其缺陷，如果数据中有若干缺考被填写了0分，可能会影响统计结果的是（ ）A、单科排序 B、计算学科平均分 C、计算个人总分 D、查找最高分
-
7、在Word2003中编辑表格，无法进行的操作是（ ）。A、拆分单元格 B、合并单元格 C、固定行高、列宽 D、旋转表格
-
8、（多选）在Excel中，要计算区域A2:C2中所有数据的平均值，正确的公式是（ ）。A、=A2+C2 B、=(A2+B2+C2)/3 C、=SUM(A2:C2) D、=Average(A2:C2)
-
9、在Excel中，求数据的总和可以使用函数（ ）。A、SUM B、MAX C、MIN D、AVERAGE
-
10、（多选）关于Excel 2010的“排序”功能，以下描述正确的有：（ ）。A、可以按行排序 B、可以按列排序 C、排序条件最多支持64个关键词 D、可以自定义序列排序
-
11、如下图所示，向下拖动“拖动柄”到C4单元格，则C4单元格的值是（ ）。
A、3 B、7 C、30 D、15 -
12、在Excel中，不可以对数据进行的操作是________。A、索引 B、排序 C、筛选 D、分类汇总
-
13、在Excel中工作表中，单元格D5中有公式“=$B$2+C4”，删除A列后C5单元格中的公式为 （ ） 。A、=$A$2+B4 B、=$B$2+B4 C、=$A$2+C4 D、=$B$2+C4
-
14、（多选）关于Excel 2010的“排序”功能，以下描述正确的有 （ ） 。A、可以按行排序 B、可以按列排序 C、排序条件最多支持64个关键词 D、可以自定义序列排序
-
15、编写一个VB程序，实现如下功能：输入s位数字构成的数字字符串（第1位数字不为0），移除k （0<k<s）个数字后，在保证原数字相对位置不变的情况下，使剩余数字组成的新数为最小（注：新数第1位不能为0）。例如8个数字构成的数字字符串“71803296”，移除3个数字，得到5位数字构成的最小数是“10296”，具体算法如图a所示。
算法分析：要使得到的5位数字最小，首先需保证能取到5个数字，且首位应尽量小，那么取首位数的范围应保证余下有4个数字，即在前4位中选最小非0的数字。
程序运行时，在文本框Text1中输入一个数字字符串，在文本框Text2中输入要移除的数字个数，单击“运行”按钮CmdRun后，在标签Labell显示得到的最小新数，程序运行界面如图b所示。
(1)、程序运行时，若要在名为Form1的窗体标题上显示“删数”，可以在Form Load事件处理过程中添加语句为（单选，填字母：A . Form1. Text ="删数"\B . Form1. Caption ="删数"\C . Form1. AddItem"删数"）(2)、实现上述功能的VB程序代码如下，请在划线处填入合适的代码。Private Sub CmdRun_ Click()
Dim Num As String,New_num As String ' Num为输入的数字字符串
Dim i As Integer, j As Integer, m As Integer,
Dim As Integer, s As Integer, k As Integer
Dim a(30) As String, b(30) As Integer
Num = Text1. Text: s = Len(Num)
k = Val (Text2. Text) 'k为删除数字个数
For i=1 To s
a(i) = Mid(Num,i,1)
Nexti
j =1
m=1
n=
For i=m+l To n '取第一个非零最小数字
If
Then m=I '加框处程序代码有误,请改正Next i
b(j)= m
Do While '取其他最小数字
m=m+1
n=n+1
For i=m+1 To n
If a(i) < a(m) Then m= i
Next i
j =j+1:b(j)=m
Loop
For i= m+1 To s '最后直接取的数字
j =j+1:b(j)=i
Next i
For j=1 To s- k '输出最小数
New_ num =
Next j
Labell． Caption = New_num
End Sub
(3)、加框处程序代码有误，请改正。 -
16、亲戚寻找。小李总是因为认不清亲戚而苦恼，于是他设计了如下程序来模拟亲戚寻找的过程。已知：如果1和2是亲戚，1和3是亲戚，则2和3也是亲戚。代码思维如下：
1)将每个人看成是一个钩码，能挂在另一个挂钩底下，自己底下也能挂其他挂钩。
2)如果两个钩码在同一条钩码串上，则为亲戚（如2、3都能找到1）。
3)如果两个是亲戚但不在一串钩码上，则可将其中一串的最上面的钩码挂在另一串的下方。
例如从图a加框处的前三行数据可得到图b所示的钩码串1和钩码串2，从第四行数据可知9、5也为亲戚，则可将两串钩码合并，合并后3为2的顶端，5为3的顶端，其余数据以此类推。
根据算法思想，编写VB程序功能如下：程序初始化时给出6条亲戚关系显示在List1中，单击“理关系”按钮，在List2中显示每个人所在钩码的顶端编号。在Text1和Text2中分别输入两人的编号，单击“询问”按钮，输出两个人是否为亲戚关系。程序运行界面如图a所示。
(1)、根据图a数据，若输入两人的编号为4和5，则两人的关系是否为亲戚(填：是/否)。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Const n = 9 '总人数
Const m = 6 '已知的亲戚关系数
Dim a(1 To n) As String , b(1 To n) As String
Dim f(1 To n) As String '记录不同的亲戚钩码串成员，每条亲戚钩码串内互为亲戚
Dim k As Integer '亲戚钩码串的数目
Private Sub Form_Load()
'初始化List1和List2，生成m条亲戚关系，每条亲戚关系的编号对应存储在数组a(i)和b(i) '中，在List1中输出a(i)和b(i)，代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, x As Integer, y As Integer
f(1) = a(1) + b(1) '利用a(1)、b(1)生成第一条钩码串存储在f(1)中
k = 1 'k为钩码串编号
For i = 2 To m
x = root(a(i), 0): y = root(b(i), 0) 'x为调用函数获取a(i)所在的钩码串编号
If x = 0 And y = 0 Then k = k + 1: '根据x与y分类讨论
If x <> 0 And y = 0 Then f(x) = f(x) + b(i)
If x = 0 And y <> 0 Then f(y) = f(y) + a(i)
If x <> y And x <> 0 And y <> 0 Then 'x、y在不同钩码串则将两条钩码串合并
f(x) = f(x) + f(y): f(y) = f(k): k = k - 1
End If
Next i
For i = 1 To n '输出每个人所在钩码的顶端编号
x = root(CStr(i), 0): y = root(CStr(i), 1) 'Cstr()函数用于去除字符前导空格
If x <> 0 Then
If y = Len(f(x)) Then List2.AddItem Str(i) + " " + CStr(i)
If y <> Len(f(x)) Then List2.AddItem Str(i) + " " +
End If
Next i
End Sub
'按钮Command2的功能为判断输入的两个人是否为亲戚关系，代码略
Function root(a As String, b As Integer) As Integer '参数a表示待查找目标，参数b
'表示返回值类型，0表示返回目标所在钩码串编号，1表示返回目标在该钩码串中的位置
Dim m As Integer, n As Integer, i As Integer, j As Integer
m = 0: n = 0: i = k: j = 0
Do While i > 0
If a = Mid(f(i), Len(f(i)) - j, 1) Then m = i: n = Len(f(i)) - j: Exit Do
j = j + 1
If j = Len(f(i)) Then i = i - 1: j = 0
Loop
If Then root = m Else root = n
End Function
-
17、小明用VB编写了统计短文（不超过500字）中英语单词频次的程序。在文本框Text1中输入短文，单击“单词统计”按钮Count后，在列表框List1中按字典升序输出单词（不区分大小写）和出现频次，程序运行结果如图所示。
请回答下列问题：
(1)、观察程序代码，该事件处理过程名为。(2)、实现上述功能的 VB 程序如下，请在划线处填入合适的代码。Private Sub Count_Click()
Dim word(1 To 500) As String, num(1 To 500) As Integer
Dim s As String, c As String, tmp As String, t As Integer
Dim i As Integer, j As Integer, k As Integer, low As Integer, high As Integer
Dim m As Integer, n As Integer, b As Integer
For i = 1 To 500
num(i) = 0
Next i
s = Text1.Text : n = Len(s)
i = 1 : b = 1 : m = 0 : j = 0
Do While i <= n
c = Mid(s, i, 1)
If c >= "A" And c <= "Z" Or c >= "a" And c <= "z" Then
j = j + 1
Else
If j > 0 Then
tmp =
low = 1
high = m
Do While low <= high
t = (low + high) \ 2
If tmp = word(t) Then
Exit Do
If tmp < word(t) Then
high = t - 1
Else
low = t + 1
Loop
If Then
For k = m To low Step -1
word(k + 1) = word(k)
num(k + 1) = num(k)
Next k
num(low) = 1
m = m + 1
Else
num(t) = num(t) + 1
End If
j = 0
End If
b = i + 1
End If
i = i + 1
Loop
List1.Clear
For i = 1 To m
List1.AddItem word(i) + ":" + Str(num(i)) + "次"
Next i
End Sub
Function Lowcase(t As String) As String
Dim c As String, s As String, i As Integer
s = ""
For i = 1 To Len(t)
c = Mid(t, i, 1)
If c >= "A" And c <= "Z" Then s = s + Chr(Asc(c) + 32) Else s = s + c
Next i
End Function
-
18、有一个报数游戏，n个人排成一圈，游戏开始时规定个报数号m，然后从其中一个人开始按顺时针报数1，2，3，…，n，当某人报到的数为m的倍数时，即被淘汰，其他人继续游戏，直到最后。现用VB设计了一个程序，程序界面如下图所示。在文本框Text1中输入参加游戏的人数n，在文本框Text2中输入报数号m，单击“报数”按钮，即在列表框List1中显示每次被淘汰的人的顺序号。
实现上述功能的VB代码如下，但加框处有错，请改正。
Private Sub Command1_Click()
Dim n As Integer，m As Integer
Dim a(1 To 50)As Integer
n= Val(Text1. Text)
m= Val(Text2. Text)
For i= 1 To n
Next i
s=0；j=0
Do While s <n
t=0
Do While t <m
t=t+ a(j)
Loop
a(j)=0
s=s+1
List1. Additem"第"+Str(s)+"次："+Str(j)
Loop
End sub
(1)、“报数”按钮的对象名称是。(2)、程序代码中，加框处有错，请改正。 应改为(3)、程序代码中，将横线处语句补充完整。(4)、程序运行结束后，变量t的值是。 -
19、为了丰富学生业余生活，学校举办校园歌手大赛，邀请了5位音乐老师作为评委打分，打分的上限是10分。统计选手得分时，去掉一个最高分，再去掉一个最低分，取评委打分的平均值作为选手的最终得分。程序运行结果界面如图所示。
请分析任务，完成下列题目。
程序代码如下：
Private Sub Command1_Click()
Dim s As single
Dim Max ， Min ，i As Integer
Dim a(5) As Integer
Max = 0
Min = ①
s = 0
For i = 1 To 5
a(i) = InputBox("请输入第" & i & "个分数")
s = s + a(i)
If ② Then Max = a(i)
If Min > a(i) Then Min = a(i)
Next i
s = ③
Text1.Text = Max
Text2.Text = Min
Text3.Text = s
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command3_Click()
End Sub
请分析任务，完成下列题目。
(1)、下列控件在本程序窗体中用到的是（ ）A、列表框 B、单选按钮 C、标签 D、组合框(2)、为精确计算选手的最终得分，程序中变量s的数据类型应定义为（ ）A、整型 B、单精度型 C、字符型 D、布尔型(3)、程序中①所在位置表达式正确的是（ ）A、0 B、1 C、5 D、10(4)、程序中②所在位置表达式正确的是（ ）A、Max < a(i) B、Max >a(i) C、Max =a(i) D、Max <> a(i)(5)、程序中③所在位置表达式正确的是（ ）A、s/3 B、(s+Max+ Min)/5 C、(s - Max - Min) / 3 D、(s - Max - Min) / 5(6)、变量s所表示的含义是（ ）A、最低分 B、最高分 C、评委打分 D、最终得分(7)、当一个选手的得分分别为9，8，9，7，8的时候，下列最终得分计算正确的是（ ）A、8 B、8.33 C、7.66 D、7(8)、程序中Command1控件响应的事件是（ ）A、单击事件 B、双击事件 C、载入事件 D、活动事件(9)、程序中数组a(5)包含的元素个数是（ ）A、1 B、5 C、6 D、10(10)、程序“For i = 1 To 5 ……Next i”中“s = s + a(i) ”被执行的次数是（ ）A、1 B、4 C、5 D、6 -
20、某VB程序段如下：
s = "Hello World"
s1 = ""
n = Len(s)
For i = 1 To n \2
If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then
s1 = s1 + Mid(s, i, 1)
Else
s1 = Mid(s, n - i + 1, 1) + s1
End If
Next i
Text1.Text = s1
执行该程序段后，在文本框Text1中显示的是（ ）
A、WlleH B、oorld C、dlroo D、Orldo