【2017年整理】湖南省计算机等级考试操作题知识点.docVIP

湖南省计算机等级考试操作题 选择题 汉字录入 一级约80字，二级约50字 标点符号、全半角数字和空格 注意：换行不要敲回车键（Enter） Windows文件和文件夹操作 新建、改名、复制、移动、删除、属性（高级） Word编辑排版 操作对象：字符串、段落、文档 操作类型：字体格式（字体、字形、字号、颜色、效果、字间距）；段落格式（对齐、缩进、间距） 单位：厘米(cm)、磅(pt)、字符、行 页面设置：上、下、左、右边界（边距） 边框与底纹：文档边框、页面边框，如方框、阴影、三维；底纹，如深色横线、竖线、网格 注意：字符的加粗和空心；第一段；任意字符底纹 Word表格制作 PowerPoint操作 格式菜单：幻灯片设计（模板）、幻灯片版式、背景 幻灯片放映：动作按钮、自定义动画、幻灯片切换 自选图形：效果 文本框：设置文本框格式 自选图形：设置自选图形框格式 图片： 艺术字：形状，等 超级链接：到幻灯片、（图片）文件、电子邮件地址、网址 Excel操作 单元格格式：全面 工作表：复制、删除、移动、改名 行、列的插入与删除 内容：复制 排序：行排序、列排序 分类汇总： 计算：和、平均值、最大值、最小值、取整 （自动）筛选： 行高和列宽 批注 程序改错（一级） 程序功能：计算两个数的最小公倍数。程序中有两行有错误，改正错误，使程序能输出正确结果。 Private Sub Command1_Click() Print fun(248, 848) End Sub Private Function fun(u, v) t = u Do While t Mod u 0 and t Mod v 0 t = t + u Loop fun = u End Function 程序功能：求[100,200]间有奇数个不同因子的整数个数。程序中有一行错误，改正错误，使它能输出正确的结果。 Private Sub Command1_Click() n1 = 0 For x = 100 To 200 n2 = 0 For i = 1 To x If x Mod i = 0 Then n2 = n2 + 1 End If Next i If n2 Mod 2 = 0 Then n1 = n1 + 1 End If Next x Print n1 End Sub 程序功能：求[10,1000]之间满足除以7余5、除以5余3、除以3余1的所有整数的个数。程序中有两行错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim x As Integer Dim n As Integer n = 0 For x = 10 To 1000 If x Mod 7 = 5 Or x Mod 5 = 3 Or x Mod 3 = 1 Then n = n + 1 End If Loop Print n End Sub 程序功能：百钱百鸡问题。用100钱买100只鸡，公鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算共有几种买法(要求每种鸡至少要买1只)。程序中有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() s = 0 cock = 1 Do While cock = 100 / 5 hen = 1 Do While hen = 100 / 3 - cock chick = 100 - cock - hen If cock + hen + chick = 100 Then s = s + 1 End If hen = hen + 1 Loop cock = cock + 1 Loop Print s End Sub 程序改错与填空（二级） 程序功能：求100-200之间的所有素数个数，程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Number = 0 For x = 101 To 199 Step 2 i = 2 k = Int(x / 2) Do While i = k If x Mod i = 0 Then Exit For i = i + 1 Loop If i k Then Number = Number + 1 End If Next x Print Number End